Changeset 16
- Timestamp:
- Jul 26, 2009, 9:15:54 AM (10 years ago)
- Location:
- trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/page00/display.asm
r13 r16 2 2 SEGMENT PAGE00 3 3 4 PUBLIC AnimateRunIndicator,DispHexA,PutS,PutC,curBlink,SaveOScreen,DispHexHL 4 PUBLIC AnimateRunIndicator,DispHexA,PutS,PutC,curBlink,SaveOScreen,DispHexHL,EraseEOL 5 5 EXTERN IsAtEditTail,IsAtBtm 6 6 … … 49 49 inc hl 50 50 jr PutS 51 52 EraseEOL: 53 ld hl,(curRow) 54 push hl 55 ld a,(curCol) 56 ld b,a 57 ld a,16 58 sub b 59 ld b,a 60 $$: ld a,' ' 61 push bc 62 call PutC 63 pop bc 64 djnz $B 65 pop hl 66 ld (curRow),hl 67 ret 51 68 52 69 ;TODO: get this using a built-in font table instead of this boot code hack -
trunk/page01/01base.asm
r15 r16 5 5 6 6 PUBLIC GetKey 7 EXTERN GetCSC,HandleLinkKeyActivity 7 EXTERN GetCSC,HandleLinkKeyActivity,EraseEOL 8 8 9 9 GetKey: 10 in a,(2) 11 and 80h 12 jr z,$F 13 bit 0,(iy+3Eh) 14 jr z,disableLA 15 in a,(9) 16 and 99h 17 jr z,disableLATotal 18 and 19h 19 jr nz,receivingData 20 jr $F 21 disableLATotal: 22 res 0,(iy+3Eh) 23 disableLA: 24 ld a,80h 25 out (8),a 26 $$: 10 27 GetKeyMainLoop: 11 28 call DisplayShift … … 22 39 and 80h 23 40 jr z,$F 24 xor a25 out (8),a26 41 ld a,(9CAFh) 27 42 or a 28 43 ;jr z,isReceivingData 44 bit 0,(iy+3Eh) 45 jr z,$F 29 46 in a,(9) 47 bit 6,a 48 jr z,noError 49 set 7,(iy+3Dh) 50 noError: 30 51 and 19h 31 52 jr isReceivingData … … 41 62 ld hl,2 42 63 ld (curRow),hl 64 call EraseEOL 43 65 B_CALL keyscnlnk 44 66 pop hl -
trunk/page1C/1Cbase.asm
r15 r16 38 38 keyscnlnk: 39 39 di 40 push af 41 ld a,9 42 call PutC 43 pop af 40 44 res enableHW2Timer,(iy+interruptFlags) 41 call EnableLinkAssist42 45 call NZIf83Plus 43 46 jr nz,$F … … 47 50 ld a,b 48 51 ; jr nz,keyscnlnk1 49 $$: call CheckLinkLines50 jr nz,eiRet52 $$: ;call CheckLinkLines 53 ;jr nz,eiRet 51 54 keyscnlnk1: 52 55 call MachineIDTo73h … … 64 67 push af 65 68 res 2,(iy+curFlags) 69 call EnableLinkAssist 66 70 ld hl,keyscnlnkHandler 67 71 call APP_PUSH_ERRORH 68 72 set indicOnly,(iy+indicFlags) 73 ld hl,temphandler 74 call APP_PUSH_ERRORH 69 75 ld a,(ioData) 70 76 call ContinueGetByte 77 call APP_POP_ERRORH 78 jr $F 79 temphandler: 80 ld a,(ioData) 81 call ContinueGetByte 82 $$: 71 83 call Get3Bytes 72 84 ld hl,cmdTable 73 85 ld b,(hl) 74 86 inc hl 87 ld a,8 88 call PutC 75 89 ld a,(header+1) 76 90 call DispHexA … … 81 95 inc hl 82 96 djnz $B 97 ld a,7 98 call PutC 83 99 call DispHexA 84 100 jp JErrorNo 85 $$: jp (hl) 101 $$: call LdHLInd 102 jp (hl) 86 103 sendAcknowledgeEnd: 87 104 call SendAcknowledge 88 105 keyscnlnkEnd: 89 106 call APP_POP_ERRORH 107 jr $F 90 108 keyscnlnkHandler: 91 di 109 ld a,1 110 call PutC 111 $$: 112 di 113 ld a,4 114 call PutC 92 115 call DisableLinkAssist 93 116 pop af … … 120 143 121 144 receivedVariableHeader: 122 ld a, 1145 ld a,99h 123 146 call DispHexA 124 147 call ReceiveHeaderPacket 148 ld a,9Bh 149 call DispHexA 125 150 ld a,(867Fh) 126 151 cp 23h … … 246 271 ld (ioNewData),a 247 272 ld hl,ioData 273 ld a,0A2h 274 call DispHexA 248 275 jr $F 249 276 ReceiveDataPacket: … … 270 297 jp JErrorNo 271 298 receiveRestOfDataPacket: 299 ld a,0A0h 300 call DispHexA 272 301 ld bc,(header+2) 273 302 ld de,0 … … 323 352 call RecAByteIO 324 353 ld b,a 354 ld a,0A1h 355 call DispHexA 325 356 pop af 326 357 call ValidateChecksum … … 328 359 ValidateChecksum: 329 360 ld c,a 361 ld a,9Ah 362 call DispHexA 330 363 in a,(statusPort) 331 364 and STATUS_NON_83P_MASK … … 342 375 jr nz,$B 343 376 ld a,1 344 out ( 20h),a377 out (speedPort),a 345 378 jr $F 346 379 vcNotSE:
Note: See TracChangeset
for help on using the changeset viewer.