Changeset 3

Show
Ignore:
Timestamp:
07/23/09 22:52:15 (3 years ago)
Author:
brandonlw
Message:

Some more stuff to start GetKey?/silent linking support
We need linking for program transfer and GetKey? for complicated key input/system monitor/program execution

Location:
trunk
Files:
5 modified

Legend:

Unmodified
Added
Removed

  • trunk/includes/os2.inc

    r2 r3  
    3333;====================================================================== 
    3434; 
     35_keyscnlnk    EQU 4A1Ah 
    3536_AbsO1O2Cp      EQU 410Eh 
    3637_AbsO1PAbsO2    EQU 405Ah 

  • trunk/page00/boot.asm

    r2 r3  
    44 include "includes\os2.inc" 
    55 
    6  PUBLIC JErrorNo 
     6 PUBLIC JErrorNo,GetCSC,HandleLinkKeyActivity 
    77 EXTERN PutS,PutC,ifastcopy 
    88 EXTERN _APP_PUSH_ERRORH,_APP_POP_ERRORH,FindSym,PushRealO1,Mov9ToOP1,FPAdd,OP1ToOP2,LCDDelay 
    … …  
    613613       ld (curRow),hl 
    614614       ei 
    615        call GetCSC 
     615       B_CALL GetKey 
    616616       or a 
    617617       jr z,$B 
    … …  
    764764       ret 
    765765 
     766HandleLinkKeyActivity: 
     767       nop 
     768       nop 
     769       di 
     770       push af 
     771       call NZIf83Plus 
     772       jr nz,eiHaltRet 
     773       in a,(9) 
     774       and 0D9h 
     775       jr z,$F 
     776       bit 6,a 
     777       call nz,setBit7IYPlus3Dh 
     778       pop af 
     779       ei 
     780       ret 
     781$$:    ld a,(9C86h) 
     782       or a 
     783       jr nz,$F 
     784eiHaltRet: 
     785       pop af 
     786       ei 
     787       halt 
     788       ret 
     789$$:    pop af 
     790       ei 
     791       ret 
     792setBit7IYPlus3Dh: 
     793       set 7,(iy+3Dh) 
     794       ret 
     795 
     796NZIf83Plus: 
     797       push bc 
     798       push af 
     799       in a,(2) 
     800       and 80h 
     801       xor 80h 
     802       pop bc 
     803       ld a,b 
     804       pop bc 
     805       ret 
     806 

  • trunk/page01/01base.asm

    r2 r3  
    22 SEGMENT PAGE01 
    33 
     4 include "includes\os2.inc" 
     5 
     6 PUBLIC GetKey 
     7 EXTERN GetCSC,HandleLinkKeyActivity 
     8 
     9GetKey: 
     10GetKeyMainLoop: 
     11       call DisplayShift 
     12       call GetCSC 
     13       bit 4,(iy+09h) 
     14       jr z,$F 
     15       xor a 
     16       ret 
     17$$:    or a 
     18       jr nz,scanCodeFound 
     19       call HandleLinkKeyActivity 
     20       in a,(2) 
     21       and 80h 
     22       jr z,$F 
     23       xor a 
     24       out (8),a 
     25       ld a,(9CAFh) 
     26       or a 
     27       ;jr z,isReceivingData 
     28       in a,(9) 
     29       and 19h 
     30       jr isReceivingData 
     31$$:    in a,(0) 
     32       and 3 
     33       cp 3 
     34isReceivingData: 
     35       jr nz,receivingData 
     36       jr GetKeyMainLoop 
     37receivingData: 
     38       B_CALL keyscnlnk 
     39       ld a,(8444h) 
     40       or a 
     41       jr z,GetKeyMainLoop 
     42       ret 
     43scanCodeFound: 
    444       ret 
    545 
     46DisplayShift: 
     47       ;TODO: come back to this 
     48       ret 
     49 

  • trunk/page1C/1Cbase.asm

    r2 r3  
    22 SEGMENT PAGE1C 
    33 
    4  PUBLIC UnlockFlash,LockFlash,OutputProtectedPort 
     4 include "includes\os2.inc" 
     5 
     6 PUBLIC UnlockFlash,LockFlash,OutputProtectedPort,keyscnlnk 
     7 EXTERN DispHexA 
    58 
    69UnlockFlash: 
    … …  
    3437       ret 
    3538 
     39keyscnlnk: 
     40       ld hl,(curRow) 
     41       push hl 
     42       ld hl,0001h 
     43       ld (curRow),hl 
     44       ld a,(appBackUpScreen) 
     45       inc a 
     46       ld (appBackUpScreen),a 
     47       call DispHexA 
     48       pop hl 
     49       ld (curRow),hl 
     50       ret 
     51 

  • trunk/page1D/1Dbase.asm

    r2 r3  
    22 SEGMENT PAGE1D 
    33 
    4  PUBLIC _JErrorNo,_UnlockFlash 
    5  EXTERN JErrorNo,UnlockFlash 
     4 PUBLIC _JErrorNo,_UnlockFlash,_getKey,_keyscnlnk 
     5 EXTERN JErrorNo,UnlockFlash,GetKey,keyscnlnk 
    66 
    77;4000h: 
    … …  
    24242424       DW 0000h 
    24252425       DB 00h 
    2426 ;_getkey                        equ 4972h 
    2427        DW 0000h 
    2428        DB 00h 
     2426_getKey: 
     2427       DW GetKey 
     2428       DB 01h 
    24292429;_canIndic              equ 4975h 
    24302430       DW 0000h 
    … …  
    25922592       DW 0000h 
    25932593       DB 00h 
    2594 ;keyscnlnk              equ 4A1Ah 
    2595        DW 0000h 
    2596        DB 00h 
     2594_keyscnlnk: 
     2595       DW keyscnlnk 
     2596       DB 7Ch 
    25972597;_DeselectAllVars       equ 4A1Dh 
    25982598       DW 0000h