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.