Changeset 16


Ignore:
Timestamp:
Jul 26, 2009, 9:15:54 AM (10 years ago)
Author:
brandonlw
Message:

More attempts to get linking working

Location:
trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/page00/display.asm

    r13 r16  
    22 SEGMENT PAGE00 
    33 
    4  PUBLIC AnimateRunIndicator,DispHexA,PutS,PutC,curBlink,SaveOScreen,DispHexHL 
     4 PUBLIC AnimateRunIndicator,DispHexA,PutS,PutC,curBlink,SaveOScreen,DispHexHL,EraseEOL 
    55 EXTERN IsAtEditTail,IsAtBtm 
    66 
     
    4949       inc hl 
    5050       jr PutS 
     51 
     52EraseEOL: 
     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 
    5168 
    5269;TODO: get this using a built-in font table instead of this boot code hack 
  • trunk/page01/01base.asm

    r15 r16  
    55 
    66 PUBLIC GetKey 
    7  EXTERN GetCSC,HandleLinkKeyActivity 
     7 EXTERN GetCSC,HandleLinkKeyActivity,EraseEOL 
    88 
    99GetKey: 
     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 
     21disableLATotal: 
     22       res 0,(iy+3Eh) 
     23disableLA: 
     24       ld a,80h 
     25       out (8),a 
     26$$: 
    1027GetKeyMainLoop: 
    1128       call DisplayShift 
     
    2239       and 80h 
    2340       jr z,$F 
    24        xor a 
    25        out (8),a 
    2641       ld a,(9CAFh) 
    2742       or a 
    2843       ;jr z,isReceivingData 
     44       bit 0,(iy+3Eh) 
     45       jr z,$F 
    2946       in a,(9) 
     47       bit 6,a 
     48       jr z,noError 
     49       set 7,(iy+3Dh) 
     50noError: 
    3051       and 19h 
    3152       jr isReceivingData 
     
    4162       ld hl,2 
    4263       ld (curRow),hl 
     64       call EraseEOL 
    4365       B_CALL keyscnlnk 
    4466       pop hl 
  • trunk/page1C/1Cbase.asm

    r15 r16  
    3838keyscnlnk: 
    3939       di 
     40       push af 
     41       ld a,9 
     42       call PutC 
     43       pop af 
    4044       res enableHW2Timer,(iy+interruptFlags) 
    41        call EnableLinkAssist 
    4245       call NZIf83Plus 
    4346       jr nz,$F 
     
    4750       ld a,b 
    4851;       jr nz,keyscnlnk1 
    49 $$:    call CheckLinkLines 
    50        jr nz,eiRet 
     52$$:    ;call CheckLinkLines 
     53       ;jr nz,eiRet 
    5154keyscnlnk1: 
    5255       call MachineIDTo73h 
     
    6467       push af 
    6568       res 2,(iy+curFlags) 
     69       call EnableLinkAssist 
    6670       ld hl,keyscnlnkHandler 
    6771       call APP_PUSH_ERRORH 
    6872       set indicOnly,(iy+indicFlags) 
     73       ld hl,temphandler 
     74       call APP_PUSH_ERRORH 
    6975       ld a,(ioData) 
    7076       call ContinueGetByte 
     77       call APP_POP_ERRORH 
     78       jr $F 
     79temphandler: 
     80       ld a,(ioData) 
     81       call ContinueGetByte 
     82$$: 
    7183       call Get3Bytes 
    7284       ld hl,cmdTable 
    7385       ld b,(hl) 
    7486       inc hl 
     87       ld a,8 
     88       call PutC 
    7589       ld a,(header+1) 
    7690       call DispHexA 
     
    8195       inc hl 
    8296       djnz $B 
     97       ld a,7 
     98       call PutC 
    8399       call DispHexA 
    84100       jp JErrorNo 
    85 $$:    jp (hl) 
     101$$:    call LdHLInd 
     102       jp (hl) 
    86103sendAcknowledgeEnd: 
    87104       call SendAcknowledge 
    88105keyscnlnkEnd: 
    89106       call APP_POP_ERRORH 
     107       jr $F 
    90108keyscnlnkHandler: 
    91        di 
     109       ld a,1 
     110       call PutC 
     111$$: 
     112       di 
     113       ld a,4 
     114       call PutC 
    92115       call DisableLinkAssist 
    93116       pop af 
     
    120143 
    121144receivedVariableHeader: 
    122        ld a,1 
     145       ld a,99h 
    123146       call DispHexA 
    124147       call ReceiveHeaderPacket 
     148       ld a,9Bh 
     149       call DispHexA 
    125150       ld a,(867Fh) 
    126151       cp 23h 
     
    246271       ld (ioNewData),a 
    247272       ld hl,ioData 
     273       ld a,0A2h 
     274       call DispHexA 
    248275       jr $F 
    249276ReceiveDataPacket: 
     
    270297       jp JErrorNo 
    271298receiveRestOfDataPacket: 
     299       ld a,0A0h 
     300       call DispHexA 
    272301       ld bc,(header+2) 
    273302       ld de,0 
     
    323352       call RecAByteIO 
    324353       ld b,a 
     354       ld a,0A1h 
     355       call DispHexA 
    325356       pop af 
    326357       call ValidateChecksum 
     
    328359ValidateChecksum: 
    329360       ld c,a 
     361       ld a,9Ah 
     362       call DispHexA 
    330363       in a,(statusPort) 
    331364       and STATUS_NON_83P_MASK 
     
    342375       jr nz,$B 
    343376       ld a,1 
    344        out (20h),a 
     377       out (speedPort),a 
    345378       jr $F 
    346379vcNotSE: 
Note: See TracChangeset for help on using the changeset viewer.