IMD 1.17: 3/11/2012 17:47:50 turbodos televideo ts-806 net800 modules dsdd                CON803 REL NETLOD RELRTC803 RELSIT803 RELSMD803 RELCON803 MACf NETLOD MAC RTC803 MAC 7JLCB`pCb C!b C!b!C!b!C!b"C!b"C!b#C!b#C!b$C!b$C!b%C!b%C! b&C!$b&C!(b'C!,b'C!b0C!b0C!b1C!b1C!b2C!b2C!b3C! b3C!b4C!bjY` YA*KU3l Xga\B3@ D0f@_0Vb hT rh @n_VC@`}* _k 6XX3h2€@!` "p\.=p۴9 !zZVmPpX/i>ݤզ2>c! +>-D2:c!SIT803 MAC(SMD803 MAC2-NET800 SER803 REL 4C!b5C!0b5C!4b6C!8b6C!*;&3UceIQY6Tԕ#k Q%5Q 22Б<]%R2$YM%922LT89MI%22U;51f2RS#'Y%9QMQ.pUceIQY6Tԕ#k Q%5Q 22Б<]%R2$YM%922LT89MI%22UU# =I%8SU1 ȪH` -f+f qh\.V+4hV4[ +jO帀je4XnXvGiH`~gj@ ;1,Vz@d3@©Z\di@@W+?q6-땢pX,pvm[ӎ =I%8SUR x?INIT?e$DDRMTBRTdd4(PCOMCALSU =9%9:ӑ#9- %%MJ:nБRTԥ\4/٠25D)c!Ca@C򀈤|3;H"J4]0APYjg(F x@: qAu-8H2dze,2 VCe`\l@X`` H60݀jD7b@- %3z^2@g%QL?-ٕ8 A!A)7Ch|d\V(6h:` q@!'LڲhY-VmghVufvWGXr {/+jj; L@,eVmwx_@9\ m~[aø zn0fPpH#dsk4ZQ%Vʹ  @/jY"Ycݺ~L`P 6-Ӹ0nlm~[{D,:R)iQiȊH1"   1 EɨHqfh1誉ɨQ ,誈jH1bHjJIӀiȊH1" =I%8SUh?INIT?SUIQ 9%R:TԥxlL4ͱC|ibA Zb5 b x h @f C(x- {@ 06UP$@%9QMB2 S!1eQ%2P#@IQ M2JTԖU'b x4f 3@h4dؤ0PTaɗ;N}c[.땊H&vX-KH,諹;O}/t C(SERNITe$HXCONINAdE4ڈDSKINBe%D4HڸCKTINAd4D(USRNITe$U4HBNKNITdD$HEMINITeECe$HXCONINAdE4ڈDSKINBe%D4HڸU =I%8SU%9%P(АSCHDWNITe$u$VECBASАSMQ%Y>@PM%=Y8Uc-  J?INIT?@!АSGvA$`f!a@@DF0NHP  ?BANK?֘3@h    -2H!L>C[L!##] 00 Zd!Bm  Zd& BFsW,Bs W,|iƙ|iƖ|id'0@d !m2 !6Na>C#L* `q|iF!;VoABmCtX>4M@( Mt8w L>4C+L>4JK @; ; File CON803.MAC ; Created by ZREL/MAC V3.3 ; Copyright 1984 MicroSmith Computer Technology ; .Z80 ;set mode for M80 NAME ('CON803') ; Notice: symbol assumed public GLOBAL ?ORIG? ?ORIG? EQU 09H ; Notice: symbol assumed public GLOBAL ?UN5H ; Notice: symbol assumed public GLOBAL KBEISR KBEISR EQU CONDR@+0237H ; DSEG DEFB 07FH ;07FH @L43: DEFB 0FFH ;0FFH DEFB 097H ;097H DEFB 0CH ;0CH @L30: DEFB 00H ;NUL @L9: DEFB 00H ;NUL @L14: DEFB 00H ;NUL @L23: DEFB 00HQ =I%8SU朠2p?INIT?eD3C#(AUTMTMSU -Q%9:#9L%MJ\<(@@ xހH$0!H H@jT[!B3z0f`H ?b H0͒d!hl#M  2  2{/i66SՑPi -QMR6bQQ#fM-MR6tT#hEUMR2$#*`]%R3rQӐS#01f3~SS4`9Q% 9R3RS#8@9%9QMQ.pSՑPi -QMR6bQQ#fM-MR6tT#hEUMR2$#*`]%R3rQӐS#01fIT? ?UNIT? EQU 030FH ; Notice: symbol assumed public GLOBAL RMTATN RMTATN EQU RMTATN+00H ; Notice: symbol assumed public GLOBAL RMTBR RMTBR EQU RMTATN+02H ; Notice: symbol assumed public GLOBAL FFCHR FFCHR EQU RMTATN+03H ; Notice: symbol assu ;NUL @L15: DEFB 00H ;NUL @L24: DEFB 00H ;NUL DEFB 00H ;NUL @L19: DEFB 00H ;NUL DEFB 00H ;NUL @L0: DEFW @L0 DEFW @L0 @L18: DEFB 00H ;NUL ; COMMON /?INIT?/ DEFB 06H ;06H DEFB 03H ;03H DEFB 0CDH ;M DEFW XQTROM DEFBn(YT mPf,ۂ@ZeZXCŒ a!! 0!€ p@[XC0y 2l+L>5CL!9q2!> 4 ._l3U@^ͦ(C DEFB 0C3H ;C DEFB 032H ;2 DEFB 028H ;( DEFB 00H ;NUL DEFB 021H ;! DEFW @L1 DEFB 022H ;" DEFB 029H ;) DEFB 00H ;NUL DEFB 03EH ;> DEFB 0C3H ;C DEFB 032H ;2 DEFB 030H ;0 DEFB 00H ;NUL DEFB 021H ;! DEFW @   L2 DEFB 022H ;" DEFB 031H ;1 DEFB 00H ;NUL DEFB 021H ;! DEFW KBIISR DEFB 022H ;" DEFW DRTVEC+0CH DEFB 021H ;! DEFW KBEISR DEFB 022H ;" DEFW DRTVEC+0EH DEFB 01H ;01H DEFB 033H ;3 DEFB 02H ;02H DEFB 0EDH ;m DEFB 041EFW XQTROM DEFB 0E1H ;a DEFB 018H ;018H DEFB 0F1H ;q DEFB 011H ;011H DEFW USRTBL DEFB 021H ;! DEFW TIMTBL DEFB 037H ;7 DEFB 03FH ;? DEFB 0EDH ;m DEFB 052H ;R DEFB 0C8H ;H DEFB 021H ;! DEFW @L9 DEFB 035H ;5 DEFB 0 DEFB 01H ;01H DEFB 042H ;B DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 034H ;4 DEFB 031H ;1 DEFB 01H ;01H DEFB 043H ;C DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 035H ;5 B 07CH ;| DEFB 039H ;9 DEFB 031H ;1 DEFB 01H ;01H DEFB 048H ;H DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 03AH ;: DEFB 031H ;1 DEFB 01H ;01H DEFB 049H ;I DEFB 0DH ;CR DEFB 019H ;019H DEFB 01B DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 04AH ;J DEFB 031H ;1 DEFB 01H ;01H DEFB 04EH ;N DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 04BH ;K DEFB 031H ;1 DEFB 01H ;01H DEFB 04FH ;O D1H ;01H DEFB 063H ;c DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 040H ;@ DEFB 031H ;1 DEFB 01H ;01H DEFB 064H ;d DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 041H ;A DEFB 031H ;A DEFB 021H ;! DEFW DRTVEC DEFB 0EDH ;m DEFB 069H ;i DEFB 05H ;05H DEFB 0EDH ;m DEFB 041H ;A DEFB 06H ;06H DEFB 04H ;04H DEFB 0EDH ;m DEFB 041H ;A DEFB 021H ;! DEFW @L5 DEFB 01H ;01H DEFB 032H ;2 DEFB 09H ;C9H ;I @L5: DEFB 018H ;018H DEFB 014H ;014H DEFB 04CH ;L DEFB 05H ;05H DEFB 0EAH ;j DEFB 03H ;03H DEFB 0E1H ;a DEFB 01H ;01H DEFB 01CH ;01CH @L7: DEFB 01BH ;01BH DEFB 07CH ;| DEFB 031H ;1 DEFB 031H ;1 DEFB 01H ; DEFB 031H ;1 DEFB 01H ;01H DEFB 044H ;D DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 036H ;6 DEFB 031H ;1 DEFB 01H ;01H DEFB 045H ;E DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DH ;01BH DEFB 07CH ;| DEFB 03BH ;; DEFB 031H ;1 DEFB 01H ;01H DEFB 04AH ;J DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 047H ;G DEFB 031H ;1 DEFB 01H ;01H DEFB 04BH ;K DEFB 0DH ;CR DEFB 019H ;0EFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 03CH ;< DEFB 031H ;1 DEFB 01H ;01H DEFB 060H ;` DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 03DH ;= DEFB 031H ;1 DEFB 01H ;01H DEFH ;1 DEFB 01H ;01H DEFB 065H ;e DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 042H ;B DEFB 031H ;1 DEFB 01H ;01H DEFB 066H ;f DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 043H TAB DEFB 0EDH ;m DEFB 0B3H ;3 DEFB 0CDH ;M DEFW @L6 DEFB 021H ;! DEFW @L7 DEFB 04EH ;N DEFB 0CBH ;K DEFB 079H ;y DEFB 020H ;SP DEFB 0AH ;LF DEFB 023H ;# DEFB 0E5H ;e DEFB 06H ;06H DEFB 06H ;06H DEFB 0CDH ;M D01H DEFB 040H ;@ DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 032H ;2 DEFB 031H ;1 DEFB 01H ;01H DEFB 041H ;A DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 033H ;3 DEFB 031H ;1EFB 037H ;7 DEFB 031H ;1 DEFB 01H ;01H DEFB 046H ;F DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 038H ;8 DEFB 031H ;1 DEFB 01H ;01H DEFB 047H ;G DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEF19H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 048H ;H DEFB 031H ;1 DEFB 01H ;01H DEFB 04CH ;L DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 049H ;I DEFB 031H ;1 DEFB 01H ;01H DEFB 04DH ;M DEFB 0DH ;CR B 061H ;a DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 03EH ;> DEFB 031H ;1 DEFB 01H ;01H DEFB 062H ;b DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 03FH ;? DEFB 031H ;1 DEFB 0 ;C DEFB 031H ;1 DEFB 01H ;01H DEFB 067H ;g DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 044H ;D DEFB 031H ;1 DEFB 01H ;01H DEFB 068H ;h DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;   | DEFB 045H ;E DEFB 031H ;1 DEFB 01H ;01H DEFB 069H ;i DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 046H ;F DEFB 031H ;1 DEFB 01H ;01H DEFB 06AH ;j DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 050H ;P DEFB 031H ;1 DEFB 01H ;01H DEFB 06FH ;o DEFB 0DH ;CR DEFB 019H ;019H DEFB 0FFH ;0FFH ; CSEG LD A,B ;x 078H CP 02H JP NZ,@L10 @L35: LD A,E ;{ 07BH OR A ;7 0B7H 0H INC HL ;# 023H ADD HL,DE ;019H 019H LD C,(HL) ;N 04EH RES 7,C OR 0FFH RET ;I 0C9H XOR A ;/ 0AFH RET ;I 0C9H LD A,(@L9) OR A ;7 0B7H JR Z,CONDR@+05DH LD A,(@L14) OR A ;7 0B7H CALL NZ,@L16 DI ;s 0F3H CALL @L17 @L21 LD A,(TWLOCK) OR A ;7 0B7H RET Z ;H 0C8H LD A,(@L14) JR Z,CONDR@+0A2H XOR A ;/ 0AFH RET ;I 0C9H LD A,C ;y 079H AND 07FH SUB 01BH RET Z ;H 0C8H JP @L21 @L12: LD A,(@L9) OR A ;7 0B7H JR Z,@L21 LD A,(COMCAL) OR @L23),A OR 0FFH LD (@L14),A INC A ;< 03CH LD (@L15),A LD (@L24),A CALL @L21 LD A,(@L14) OR A ;7 0B7H RET NZ ;@ 0C0H PUSH BC ;E 0C5H PUSH DE ;U 0D5H PUSH HL ;e 0E5H LD HL,TWLOCK CALL SIGNAL POP HL ;a 0E1H POP DE ;Q 0DDEC (HL) ;5 035H PUSH HL ;e 0E5H PUSH DE ;U 0D5H PUSH BC ;E 0C5H LD A,(RMTBR) LD C,A ;O 04FH LD E,03H CALL SERIAL LD A,(FFCHR) OR A ;7 0B7H JR Z,CONDR@+0169H POP BC ;A 0C1H PUSH BC ;E 0C5H LD C,A ;O 04FH LD E,02H CALL DEFB 07CH ;| DEFB 04CH ;L DEFB 031H ;1 DEFB 01H ;01H DEFB 06BH ;k DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 04DH ;M DEFB 031H ;1 DEFB 01H ;01H DEFB 06CH ;l DEFB 0DH ;CR DEFB 019H ;019H DEFJR Z,@L17 CP 0AH JP Z,@L11 DEC A ;= 03DH JR Z,CONDR@+050H DEC A ;= 03DH JP Z,@L12 SUB 06H JP Z,@L13 DEC A ;= 03DH JP Z,@L13 LD A,0FFH RET ;I 0C9H @L17: LD A,(@L9) OR A ;7 0B7H JR Z,CONDR@+03BH LD A,(@L14) OR A ;7 0 JR NZ,CONDR@+070H CPL ;/ 02FH LD (@L18),A EI ;{ 0FBH LD HL,@L19 CALL WAIT JR CONDR@+050H LD HL,KBDBFR LD A,(HL) ;~ 07EH INC A ;< 03CH CP 040H JR C,CONDR@+07AH XOR A ;/ 0AFH LD (HL),A ;w 077H EI ;{ 0FBH LD A,C ;y 07A ;7 0B7H JR NZ,@L21 LD A,(@L14) OR A ;7 0B7H JR Z,CONDR@+0CBH LD A,(@L23) DEC A ;= 03DH LD (@L23),A JR NZ,CONDR@+0EAH LD (@L14),A JR CONDR@+0EAH LD A,C ;y 079H AND 07FH CP 01BH JR NZ,CONDR@+0DEH OR 0FFH LD (@L14),A IN1H POP BC ;A 0C1H RET ;I 0C9H @L21: DI ;s 0F3H LD B,06H CALL XQTROM EI ;{ 0FBH XOR A ;/ 0AFH LD (COMCAL),A OR 0FFH RET ;I 0C9H @L13: CALL DMS DEC C ;CR 0DH ADC A,D ;LF 08AH RET ;I 0C9H @L10: LD HL,@L30 LD A, SERIAL POP BC ;A 0C1H POP DE ;Q 0D1H POP HL ;a 0E1H RET ;I 0C9H PUSH DE ;U 0D5H CALL SERIAL POP DE ;Q 0D1H OR A ;7 0B7H JP NZ,@L34 LD A,(RMTBR) BIT 4,A JP NZ,@L35 XOR A ;/ 0AFH RET ;I 0C9H @L34: LD A,(RMTATN) CPB 01BH ;01BH DEFB 07CH ;| DEFB 04EH ;N DEFB 031H ;1 DEFB 01H ;01H DEFB 06DH ;m DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 04FH ;O DEFB 031H ;1 DEFB 01H ;01H DEFB 06EH ;n DEFB 0DH ;CR DEFB 019B7H JR Z,CONDR@+03BH PUSH HL ;e 0E5H LD HL,(@L15) INC HL ;# 023H LD (@L15),HL LD A,H ;| 07CH OR L ;5 0B5H CALL Z,@L16 LD HL,KBDBFR LD A,(HL) ;~ 07EH INC HL ;# 023H CP (HL) ;> 0BEH JR Z,CONDR@+04EH LD E,A ;_ 05FH LD D,09H RET ;I 0C9H @L16: XOR A ;/ 0AFH LD (@L14),A PUSH BC ;E 0C5H PUSH DE ;U 0D5H PUSH HL ;e 0E5H LD HL,TWLOCK CALL SIGNAL POP HL ;a 0E1H POP DE ;Q 0D1H POP BC ;A 0C1H RET ;I 0C9H @L11: LD A,(@L9) OR A ;7 0B7H JP Z,C A ;< 03CH LD (@L15),A LD (@L24),A PUSH BC ;E 0C5H PUSH DE ;U 0D5H PUSH HL ;e 0E5H LD HL,TWLOCK CALL WAIT POP HL ;a 0E1H POP DE ;Q 0D1H POP BC ;A 0C1H LD A,C ;y 079H AND 07FH CP 01BH JR NZ,CONDR@+0102H LD A,06H LD ((HL) ;~ 07EH OR A ;7 0B7H CALL Z,@L31 LD A,E ;{ 07BH OR A ;7 0B7H JR Z,CONDR@+016DH CP 0AH JR Z,CONDR@+019DH CP 01H JR Z,@L42 CP 02H JR Z,CONDR@+018DH CP 08H JR Z,@L13 CP 09H JR Z,@L13 LD A,0FFH RET ;I 0C9H @L31:  C ;9 0B9H JR NZ,CONDR@+018AH LD A,(ATNCHR) LD C,A ;O 04FH OR 0FFH RET ;I 0C9H PUSH DE ;U 0D5H PUSH BC ;E 0C5H CALL SERIAL POP BC ;A 0C1H POP DE ;Q 0D1H LD A,(RMTBR) BIT 4,A JP NZ,@L35 RET ;I 0C9H XOR A ;/ 0AFH RE   T ;I 0C9H @L42: PUSH DE ;U 0D5H PUSH BC ;E 0C5H LD E,00H CALL SERIAL POP BC ;A 0C1H POP DE ;Q 0D1H OR A ;7 0B7H JR NZ,CONDR@+01BFH LD A,(RMTBR) BIT 4,A JP NZ,@L38 PUSH DE ;U 0D5H PUSH BC ;E 0C5H LD HL,00H CALL DELAY  IN A,(030H) LD HL,@L43 INC (HL) ;4 034H JR Z,CONDR@+0228H LD (HL),0FFH CP 0FBH JR NZ,CONDR@+0203H XOR A ;/ 0AFH LD HL,ATNCHR CP (HL) ;> 0BEH LD HL,KBDBFR JR NZ,CONDR@+0212H LD (HL),00H INC HL ;# 023H LD (HL),00H DEC HL UT (032H),A LD A,0FAH OUT (032H),A LD HL,0FA0H DEC HL ;+ 02BH LD A,H ;| 07CH OR L ;5 0B5H JR NZ,CONDR@+025BH LD A,05H OUT (032H),A LD A,0EAH OUT (032H),A LD A,05H OUT (030H),A IN A,(032H) AND 01H JR Z,CONDR@+0277H IN A,IT? ?UNIT? EQU 030FH ; Notice: symbol assumed public GLOBAL NETLOD NETLOD EQU $ ; Notice: symbol assumed public GLOBAL NETRDF NETRDF EQU NETLOD+080H ; Notice: symbol assumed public GLOBAL NETWRF NETWRF EQU NETLOD+0E6H CALL ALOCMB PUSH IY  POP BC ;A 0C1H POP DE ;Q 0D1H JR @L42 CALL SERIAL LD HL,RMTATN CP (HL) ;> 0BEH RET NZ ;@ 0C0H LD A,(ATNCHR) RET ;I 0C9H @L38: PUSH DE ;U 0D5H PUSH BC ;E 0C5H LD E,00H CALL @L35 POP BC ;A 0C1H POP DE ;Q 0D1H OR A  ;+ 02BH LD D,040H LD B,0CH CALL XQTROM LD HL,@L18 BIT 0,(HL) JR Z,CONDR@+0228H LD (HL),00H LD HL,@L19 CALL SIGNAL POP IY POP IX POP HL ;a 0E1H POP DE ;Q 0D1H POP BC ;A 0C1H POP AF ;q 0F1H LD SP,(INTSP) EI ;{ 0FBH (030H) NOP ;NUL 00H JR CONDR@+026CH LD A,0FFH LD (@L43),A RET ;I 0C9H @L1: DI ;s 0F3H LD B,09H CALL XQTROM EI ;{ 0FBH RET ;I 0C9H @L2: XOR A ;/ 0AFH LD B,A ;G 047H RET ;I 0C9H EXTERNAL XQTROM EXTERNAL DRTVEC  PUSH HL ;e 0E5H POP IY CALL PRCREQ OR A ;7 0B7H JR NZ,NETLOD+076H PUSH IY POP DE ;Q 0D1H POP IY PUSH HL ;e 0E5H PUSH BC ;E 0C5H CALL SNDREQ POP DE ;Q 0D1H POP HL ;a 0E1H OR A ;7 0B7H JR NZ,NETLOD+07BH CALL GETREP OR;7 0B7H JP NZ,@L35 PUSH DE ;U 0D5H PUSH BC ;E 0C5H LD HL,00H CALL DELAY POP BC ;A 0C1H POP DE ;Q 0D1H JP @L42 LD (INTSP),SP LD SP,INTSTK PUSH AF ;u 0F5H PUSH BC ;E 0C5H PUSH DE ;U 0D5H PUSH HL ;e 0E5H PUSH IX PUSH IYRETI LD (INTSP),SP LD SP,INTSTK PUSH AF ;u 0F5H PUSH BC ;E 0C5H PUSH DE ;U 0D5H PUSH HL ;e 0E5H CALL @L6 POP HL ;a 0E1H POP DE ;Q 0D1H POP BC ;A 0C1H POP AF ;q 0F1H LD SP,(INTSP) EI ;{ 0FBH RETI @L6: LD A,035H OEXTERNAL USRTBL EXTERNAL TIMTBL EXTERNAL KBDBFR EXTERNAL WAIT EXTERNAL TWLOCK EXTERNAL SIGNAL EXTERNAL DMS EXTERNAL SERIAL EXTERNAL ATNCHR EXTERNAL DELAY EXTERNAL INTSP EXTERNAL INTSTK ; END AND 01H JR Z,CONDR@+0277H IN A,; ; File NETLOD.MAC ; Created by ZREL/MAC V3.3 ; Copyright 1984 MicroSmith Computer Technology ; .Z80 ;set mode for M80 NAME ('NETLOD') ; Notice: symbol assumed public GLOBAL ?ORIG? ?ORIG? EQU 09H ; Notice: symbol assumed public GLOBAL ?UN A ;7 0B7H JR NZ,NETLOD+07BH PUSH IY PUSH HL ;e 0E5H POP IY PUSH DE ;U 0D5H LD A,(IX+02EH) OR A ;7 0B7H JR NZ,NETLOD+064H BIT 6,(IY+0EH) JR Z,NETLOD+058H CALL GETDMA LD DE,080H ADD HL,DE ;019H 019H EX DE,HL ;k 0EBH LD HL   ,(MEMBAS) DEC HL ;+ 02BH DEC HL ;+ 02BH DEC HL ;+ 02BH LD BC,(MEMRES) OR A ;7 0B7H SBC HL,BC JR C,NETLOD+050H SBC HL,DE JR NC,NETLOD+058H RES 6,(IY+0EH) LD (IY+0FH),01H PUSH DE ;U 0D5H CALL PRCREP POP HL ;a 0E1H BIT 6,(I;a 0E1H OR A ;7 0B7H JR NZ,NETLOD+0DEH CALL GETREP OR A ;7 0B7H JR NZ,NETLOD+0DEH PUSH IY PUSH HL ;e 0E5H POP IY PUSH DE ;U 0D5H CALL PRCREP BIT 6,(IY+0EH) JR Z,NETLOD+0C6H CALL GETDMA LD DE,080H ADD HL,DE ;019H 019H CA5H DEC D ;015H 015H JR NZ,NETLOD+0112H RES 2,(IY+0EH) PUSH IY POP DE ;Q 0D1H PUSH HL ;e 0E5H PUSH BC ;E 0C5H CALL SNDREQ POP DE ;Q 0D1H POP HL ;a 0E1H OR A ;7 0B7H JR NZ,NETLOD+014EH PUSH DE ;U 0D5H PUSH HL ;e 0E5H CAP HL ;a 0E1H JP SETDMA EXTERNAL ALOCMB EXTERNAL PRCREQ EXTERNAL SNDREQ EXTERNAL GETREP EXTERNAL GETDMA EXTERNAL MEMBAS EXTERNAL MEMRES EXTERNAL PRCREP EXTERNAL SETDMA EXTERNAL DMBCOM EXTERNAL GETNMB EXTERNAL SAVRRN EXTERNAL GET; ; File RTC803.MAC ; Created by ZREL/MAC V3.3 ; Copyright 1984 MicroSmith Computer Technology ; .Z80 ;set mode for M80 NAME ('RTC803') ; DSEG ORG 0 @DATA: CSEG ; Notice: symbol assumed public GLOBAL ?ORIG? ?ORIG? EQU 09H ; Notice: s DEFB 0DBH ;[ DEFB 020H ;SP DEFB 0F6H ;v DEFB 010H ;010H DEFB 0D3H ;S DEFB 020H ;SP DEFB 03EH ;> DEFB 01H ;01H DEFB 0D3H ;S DEFB 028H ;( DEFB 03EH ;> DEFB 0CDH ;M DEFB 0D3H ;S DEFB 020H ;SP DEFB 03EH ;> DEFB 0Y+0EH) CALL NZ,SETDMA BIT 2,(IY+0EH) PUSH AF ;u 0F5H CALL DMBCOM POP AF ;q 0F1H POP HL ;a 0E1H POP IY RET Z ;H 0C8H CALL GETNMB JR NETLOD+020H CALL DMBCOM POP IY LD (IX+02EH),0FFH RET ;I 0C9H CALL GETDMA PUSH HL ;e 0ELL SETDMA BIT 2,(IY+0EH) PUSH AF ;u 0F5H CALL DMBCOM POP AF ;q 0F1H POP HL ;a 0E1H POP IY JR Z,NETLOD+0E2H CALL GETNMB JR NETLOD+0AAH CALL DMBCOM POP IY LD (IX+033H),0FFH POP HL ;a 0E1H JP SETDMA CALL GETDMA PUSH HL ;e LL GETDMA LD DE,080H ADD HL,DE ;019H 019H CALL SETDMA CALL GETCRA LD A,(HL) ;~ 07EH INC A ;< 03CH AND 07FH LD (HL),A ;w 077H LD A,(IX+02FH) CP 022H CALL Z,INCRRC POP HL ;a 0E1H POP DE ;Q 0D1H POP BC ;A 0C1H DJNZ NETLOD+CRA EXTERNAL INCRRC EXTERNAL RESRRN ; END H PUSH HL ;e 0E5H POP IY CALL PRCREP JR NETLOD+0157H LD (IX+033ymbol assumed public GLOBAL ?UNIT? ?UNIT? EQU 030FH ; Notice: symbol assumed public GLOBAL RTCNIT RTCNIT EQU RTCNIT+00H ; Notice: symbol assumed public GLOBAL RTCISR RTCISR EQU $ ; DSEG DEFB 03CH ;< ; COMMON /?INIT?/ DEFB 021H ;! D7H ;07H DEFB 0D3H ;S DEFB 028H ;( DEFB 03EH ;> DEFB 06H ;06H DEFB 0D3H ;S DEFB 020H ;SP DEFB 0F1H ;q DEFB 0D3H ;S DEFB 028H ;( DEFB 0C9H ;I ; CSEG LD (INTSP),SP LD SP,INTSTK PUSH AF ;u 0F5H PUSH BC ;E 0C5H PUSH5H CALL ALOCMB PUSH IY PUSH HL ;e 0E5H POP IY LD A,(IX+05EH) LD (IX+030H),A CALL PRCREQ OR A ;7 0B7H JR NZ,NETLOD+0D9H PUSH IY POP DE ;Q 0D1H POP IY PUSH HL ;e 0E5H PUSH BC ;E 0C5H CALL SNDREQ POP DE ;Q 0D1H POP HL 0E5H LD A,(IX+02FH) CP 022H CALL Z,SAVRRN CALL ALOCMB PUSH IY PUSH HL ;e 0E5H POP IY LD B,(IX+05EH) INC B ;04H 04H PUSH BC ;E 0C5H CALL PRCREQ OR A ;7 0B7H JR NZ,NETLOD+0153H SET 2,(IY+0EH) POP DE ;Q 0D1H PUSH DE ;U 0D0FEH CALL GETREP OR A ;7 0B7H JR NZ,NETLOD+014EH PUSH HL ;e 0E5H POP IY CALL PRCREP JR NETLOD+0157H LD (IX+033H),A JR NETLOD+015AH LD (IX+033H),A POP BC ;A 0C1H CALL DMBCOM POP IY LD A,(IX+02FH) CP 022H CALL Z,RESRRN POEFW RTCISR DEFB 022H ;" DEFW STIVEC+08H DEFB 0DBH ;[ DEFB 026H ;& DEFB 0F6H ;v DEFB 010H ;010H DEFB 0D3H ;S DEFB 026H ;& DEFB 0DBH ;[ DEFB 028H ;( DEFB 0F5H ;u DEFB 03EH ;> DEFB 04H ;04H DEFB 0D3H ;S DEFB 028H ;( DE ;U 0D5H PUSH HL ;e 0E5H CALL DLYTIC CALL DSKTIC LD HL,@DATA DEC (HL) ;5 035H JR NZ,RTCISR+01CH LD (HL),03CH CALL RTCSEC POP HL ;a 0E1H POP DE ;Q 0D1H POP BC ;A 0C1H POP AF ;q 0F1H LD SP,(INTSP) JP ISRXIT EXTERNAL ST   IVEC EXTERNAL INTSP EXTERNAL INTSTK EXTERNAL DLYTIC EXTERNAL DSKTIC EXTERNAL RTCSEC EXTERNAL ISRXIT ; END EFIT? ?UNIT? EQU 030FH ; Notice: symbol assumed public GLOBAL HDWNIT HDWNIT EQU HDWNIT+00H ; Notice: symbol assumed public GLOBAL PROGRM PROGRM EQU HDWNIT+06FH ; Notice: symbol assumed public GLOBAL VECBAS VECBAS EQU 0FD00H ; Notice: symbol ass 0EDH ;m DEFB 047H ;G DEFB 0EDH ;m DEFB 05EH ;^ DEFB 03EH ;> DEFB 0FEH ;~ DEFB 0D3H ;S DEFB 090H ;090H DEFB 0CDH ;M DEFW PROGRM DEFB 032H ;2 DEFB 018H ;018H DEFB 033H ;3 DEFB 018H ;018H DEFB 042H ;B DEFB 018H ;020H ;SP DEFB 024H ;$ DEFB 021H ;! DEFB 00H ;NUL DEFB 0FFH ;0FFH DEFB 021H ;! DEFW STIVEC DEFB 07DH ;} DEFB 0D3H ;S DEFB 028H ;( DEFB 0CDH ;M DEFB 00H ;NUL DEFB 00H ;NUL DEFB 0CDH ;M DEFB 00H ;NUL DEFB 00H ;NUL 0CDH ;M DEFB 00H ;NUL DEFB 00H ;NUL DEFB 0CDH ;M DEFB 00H ;NUL DEFB 00H ;NUL DEFB 0C9H ;I DEFB 0E3H ;c @L0: DEFB 0C5H ;E DEFB 04EH ;N @L2: DEFB 023H ;# DEFB 0CH ;0CH DEFB 028H ;( DEFB 05H ;05H DEFB 0DH ;CR DEF DEFB 041H ;A DEFB 0C1H ;A DEFB 0DDH ;] DEFB 0E9H ;i DEFB 0C5H ;E DEFB 01H ;01H DEFB 013H ;013H DEFB 01H ;01H DEFB 0EDH ;m DEFB 041H ;A DEFB 0C1H ;A DEFB 0DDH ;] DEFB 02AH ;* DEFW @L2 DEFB 0EDH ;m DEFB 07BH ;{umed public GLOBAL STIVEC STIVEC EQU STIVEC+00H ; Notice: symbol assumed public GLOBAL DRTVEC DRTVEC EQU STIVEC+020H ; Notice: symbol assumed public GLOBAL SIOVEC SIOVEC EQU STIVEC+030H ; Notice: symbol assumed public GLOBAL XQTROM XQTROM EQ18H DEFB 043H ;C DEFB 018H ;018H DEFB 028H ;( DEFB 04H ;04H DEFB 020H ;SP DEFB 00H ;NUL DEFB 028H ;( DEFB 05H ;05H DEFB 020H ;SP DEFB 00H ;NUL DEFB 022H ;" DEFB 00H ;NUL DEFB 023H ;# DEFB 00H ;NUL DEFB 024H ;$  DEFB 0CDH ;M DEFB 00H ;NUL DEFB 00H ;NUL DEFB 0CDH ;M DEFB 00H ;NUL DEFB 00H ;NUL DEFB 0CDH ;M DEFB 00H ;NUL DEFB 00H ;NUL DEFB 0CDH ;M DEFB 00H ;NUL DEFB 00H ;NUL DEFB 0CDH ;M DEFB 00H ;NUL DEFB 00H ;NUL DEFB B 0EDH ;m DEFB 0A3H ;# DEFB 018H ;018H DEFB 0F6H ;v DEFB 0C1H ;A DEFB 0E3H ;c DEFB 0C9H ;I ; COMMON /?BANK?/ ORG 040H DEFB 0EDH ;m DEFB 073H ;s DEFW @L0 DEFB 031H ;1 DEFW @L1 DEFB 0DDH ;] DEFB 022H ;" DEFW @L2  DEFW @L0 DEFB 0C9H ;I ORG 074H DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;; ; File SIT803.MAC ; Created by ZREL/MAC V3.3 ; Copyright 1984 MicroSmith Computer Technology ; .Z80 ;set mode for M80 NAME ('SIT803') ; Notice: symbol assumed public GLOBAL ?ORIG? ?ORIG? EQU 09H ; Notice: symbol assumed public GLOBAL ?UNU 0FD40H ; Notice: symbol assumed public GLOBAL KBDBFR KBDBFR EQU STIVEC+074H ; COMMON /?INIT?/ DEFB 021H ;! DEFB 00H ;NUL DEFB 0FEH ;~ DEFB 022H ;" DEFB 00H ;NUL DEFB 0FFH ;0FFH DEFB 021H ;! DEFW STIVEC DEFB 07CH ;| DEFB DEFB 00H ;NUL DEFB 025H ;% DEFB 00H ;NUL DEFB 026H ;& DEFB 00H ;NUL DEFB 027H ;' DEFB 00H ;NUL DEFB 028H ;( DEFB 07H ;07H DEFB 020H ;SP DEFB 00H ;NUL DEFB 029H ;) DEFB 00H ;NUL DEFB 028H ;( DEFB 06H ;06H DEFB 00CDH ;M DEFB 00H ;NUL DEFB 00H ;NUL DEFB 0CDH ;M DEFB 00H ;NUL DEFB 00H ;NUL DEFB 0CDH ;M @L3: DEFB 00H ;NUL DEFB 00H ;NUL DEFB 0CDH ;M DEFB 00H ;NUL DEFB 00H ;NUL DEFB 0CDH ;M DEFB 00H ;NUL DEFB 00H ;NUL DEFB  DEFB 0DDH ;] DEFB 021H ;! DEFW @L3 DEFB 0DDH ;] DEFB 0E5H ;e DEFB 0C5H ;E DEFB 048H ;H DEFB 06H ;06H DEFB 00H ;NUL DEFB 0C5H ;E DEFB 0DDH ;] DEFB 0E1H ;a DEFB 01H ;01H DEFB 013H ;013H DEFB 00H ;NUL DEFB 0EDH ;mNUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;N   UL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUCKTINA EXTERNAL CKTINB EXTERNAL USRNIT EXTERNAL RESNIT EXTERNAL BNKNIT EXTERNAL NITBNK EXTERNAL EMINIT EXTERNAL TPNIT1 ORG 0300H ;force size ; CSEG @L1 EQU STIVEC+0100H ; END L DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NULIT? ?UNIT? EQU 030FH ; Notice: symbol assumed public GLOBAL TIC422 TIC422 EQU TIC422+00H ; Notice: symbol assumed public GLOBAL AUTMTM AUTMTM EQU TIC422+01H ; Notice: symbol assumed public GLOBAL CKTIN@ CKTIN@ EQU CKTIN@+00H ; Notice: symbol EC+0CH DEFB 022H ;" DEFW SIOVEC+0EH DEFB 01H ;01H DEFB 043H ;C DEFB 02H ;02H DEFB 0EDH ;m DEFB 041H ;A DEFB 021H ;! DEFW SIOVEC DEFB 0EDH ;m DEFB 069H ;i DEFB 06H ;06H DEFB 01H ;01H DEFB 0EDH ;m DEFB 041H ;A DEFQUEAST DEFB 0CDH ;M DEFW @L6 DEFB 0C9H ;I @L6: DEFB 06H ;06H DEFB 010H ;010H DEFB 0CBH ;K DEFB 07EH ;~ DEFB 023H ;# DEFB 023H ;# DEFB 028H ;( DEFB 04H ;04H DEFB 03AH ;: DEFW CKTAST+01H DEFB 077H ;w DEFB 023H ;# L DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NULassumed public GLOBAL CKTDR@ CKTDR@ EQU $ ; Notice: symbol assumed public GLOBAL S0AISR S0AISR EQU CKTDR@+01BDH ; DSEG DEFB 03CH ;< DEFB 00H ;NUL @L10: DEFB 00H ;NUL DEFB 00H ;NUL @L0: DEFW @L0 DEFW @L0 @L13: DEFB 00H ;NUL B 06H ;06H DEFB 04H ;04H DEFB 0EDH ;m DEFB 041H ;A DEFB 021H ;! DEFW @L5 DEFB 01H ;01H DEFB 042H ;B DEFB 0DH ;CR DEFB 0EDH ;m DEFB 0B3H ;3 DEFB 02AH ;* DEFB 080H ;NUL DEFB 00H ;NUL DEFB 022H ;" DEFW CKTAST DEFB DEFB 010H ;010H DEFB 0F3H ;s DEFB 0C9H ;I @L5: DEFB 018H ;018H DEFB 04H ;04H DEFB 020H ;SP DEFB 05H ;05H DEFB 069H ;i DEFB 03H ;03H DEFB 0D9H ;Y DEFB 076H ;v DEFB 00H ;NUL DEFB 07H ;07H DEFB 07EH ;~ DEFB 011H ;0 DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL EXTERNAL SERNIT EXTERNAL PARNIT EXTERNAL CONINA EXTERNAL DSKINA EXTERNAL DSKINB EXTERNAL RTCNIT EXTERNAL ; ; File SMD803.MAC ; Created by ZREL/MAC V3.3 ; Copyright 1984 MicroSmith Computer Technology ; .Z80 ;set mode for M80 NAME ('SMD803') ; Notice: symbol assumed public GLOBAL ?ORIG? ?ORIG? EQU 09H ; Notice: symbol assumed public GLOBAL ?UN DEFB 00H ;NUL @L1: DEFW @L1 DEFW @L1 @L14: DEFB 01H ;01H DEFB 00H ;NUL @L2: DEFW @L2 DEFW @L2 @L12: DEFB 00H ;NUL @L21: DEFB 00H ;NUL DEFB 00H ;NUL ; COMMON /?INIT?/ DEFB 021H ;! DEFW S0AISR DEFB 022H ;" DEFW SIOV 03AH ;: DEFW AUTMTM DEFB 0B7H ;7 DEFB 0C0H ;@ DEFB 02EH ;. DEFB 00H ;NUL DEFB 022H ;" DEFW DEFDID DEFB 021H ;! DEFW DSKAST DEFB 0CDH ;M DEFW @L6 DEFB 021H ;! DEFW PTRAST DEFB 0CDH ;M DEFW @L6 DEFB 021H ;! DEFW 11H DEFB 01CH ;01CH ; CSEG LD A,C ;y 079H OR A ;7 0B7H JR Z,CKTDR@+09H DEC A ;= 03DH JP Z,@L8 RET ;I 0C9H INC DE ;013H 013H INC DE ;013H 013H INC DE ;013H 013H INC DE ;013H 013H PUSH DE ;U 0D5H LD DE,@L9 CALL LNKPO   L LD HL,@L10 CALL WAIT POP HL ;a 0E1H CALL @L11 PUSH AF ;u 0F5H LD HL,@L12 RES 0,(HL) RES 1,(HL) BIT 2,(HL) JR Z,CKTDR@+032H RES 2,(HL) LD HL,@L13 CALL SIGNAL POP AF ;q 0F1H RET ;I 0C9H @L8: INC DE ;013H 013H INC DE0E3H EX (SP),HL ;c 0E3H EX (SP),HL ;c 0E3H EX (SP),HL ;c 0E3H LD A,05H OUT (042H),A LD A,069H OUT (042H),A EI ;{ 0FBH LD HL,00H CALL DELAY JR CKTDR@+042H EI ;{ 0FBH SET 0,(HL) POP HL ;a 0E1H CALL @L17 PUSH AF ;u 0F5 ;s 0F3H LD A,03H OUT (042H),A LD A,0D9H OUT (042H),A IN A,(040H) NOP ;NUL 00H IN A,(040H) NOP ;NUL 00H IN A,(040H) LD A,01H OUT (042H),A LD A,0A4H OUT (042H),A LD C,040H LD A,070H OUT (042H),A LD A,05H OUT (042H),A D A,01CH OUT (042H),A LD A,05H OUT (042H),A LD A,069H OUT (042H),A LD A,010H OUT (042H),A IN A,(042H) AND 020H JR NZ,CKTDR@+014AH RET ;I 0C9H @L17: LD (@L21),HL LD A,05H OUT (042H),A LD A,06BH OUT (042H),A LD A,010H O ;: 0BAH JR C,CKTDR@+0198H JR CKTDR@+0172H LD A,01H OUT (042H),A LD A,01CH OUT (042H),A LD A,05H OUT (042H),A LD A,069H OUT (042H),A XOR A ;/ 0AFH RET ;I 0C9H LD (INTSP),SP LD SP,INTSTK PUSH AF ;u 0F5H IN A,(042H) BIT ;013H 013H INC DE ;013H 013H INC DE ;013H 013H LD A,(DE) ;01AH 01AH OR A ;7 0B7H RET Z ;H 0C8H PUSH DE ;U 0D5H LD HL,@L14 CALL WAIT LD HL,@L12 BIT 1,(HL) JR Z,CKTDR@+057H EI ;{ 0FBH LD HL,@L12 SET 2,(HL) LD HL,@L13 H LD HL,@L14 CALL SIGNAL LD HL,@L12 RES 0,(HL) POP AF ;q 0F1H RET ;I 0C9H @L9: NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H LD HL,@L12 BIT 0,(HL) RET NZ ;@ 0C0H LD A,010H OUT (042H),A IN A,(042H) AND 02 LD A,06BH OUT (042H),A IN A,(042H) RRCA ;0FH 0FH JR NC,CKTDR@+0FEH IN A,(040H) LD (HL),A ;w 077H INC HL ;# 023H LD B,A ;G 047H DEC B ;05H 05H INIR LD B,0CH DJNZ $ LD A,01H OUT (042H),A LD A,024H OUT (042H),A IN A,UT (042H),A IN A,(042H) AND 020H JR Z,CKTDR@+0160H LD A,01H OUT (042H),A LD A,084H OUT (042H),A LD HL,(@L21) LD B,(HL) ;F 046H LD C,040H LD A,0B0H OUT (042H),A LD A,0C0H DI ;s 0F3H OUTI OUT (042H),A OTIR EI ;{ 0FB 0,A JR Z,CKTDR@+01DDH IN A,(040H) CP 05H JR NZ,CKTDR@+01DDH LD A,0B0H OUT (042H),A LD A,06H OUT (040H),A LD A,0C0H OUT (042H),A POP AF ;q 0F1H LD SP,(INTSP) EI ;{ 0FBH RETI EXTERNAL SIOVEC EXTERNAL CKTAST EXTERNAL DEF CALL WAIT JR CKTDR@+042H DI ;s 0F3H LD A,010H OUT (042H),A IN A,(042H) AND 020H JR NZ,CKTDR@+049H LD A,05H OUT (042H),A LD A,06BH OUT (042H),A LD A,010H OUT (042H),A IN A,(042H) AND 020H JR Z,CKTDR@+089H EX (SP),HL ;c 0H RET Z ;H 0C8H SET 1,(HL) SET 0,(HL) LD HL,@L10 CALL SIGNAL LD HL,@L9 JP UNLINK @L11: LD A,010H OUT (042H),A IN A,(042H) AND 020H JR Z,@L11 @L20: LD A,010H OUT (042H),A IN A,(042H) AND 0A0H CP 020H JR NZ,@L20 DI (040H) NOP ;NUL 00H IN A,(040H) EI ;{ 0FBH LD B,00H LD A,01H OUT (042H),A IN A,(042H) BIT 7,A JR NZ,CKTDR@+012EH DJNZ CKTDR@+011FH JP @L20 AND 060H JP NZ,@L20 IN A,(042H) AND 080H JP NZ,@L20 LD A,01H OUT (042H),A LH LD A,010H OUT (042H),A IN A,(042H) AND 040H JR Z,CKTDR@+0186H LD A,(TICCNT) LD E,A ;_ 05FH LD A,(TIC422) LD D,A ;W 057H LD A,010H OUT (042H),A IN A,(042H) AND 020H JR Z,CKTDR@+01ABH LD A,(TICCNT) SUB E ;093H 093H CP DDID EXTERNAL DSKAST EXTERNAL PTRAST EXTERNAL QUEAST EXTERNAL LNKPOL EXTERNAL WAIT EXTERNAL SIGNAL EXTERNAL DELAY EXTERNAL UNLINK EXTERNAL TICCNT EXTERNAL INTSP EXTERNAL INTSTK ; END NTSTK PUSH AF ;u 0F5H IN A,(042H) BIT   T =I%8SU`RP?INIT? d5E55DCTSDRTSUMI9%R:Q MI%2;ԐRTԣYMa %MJ:lВTԣYMQ %MJ:ԐTԥ@€!LV{ba,Zb昵2@ KO1SiD537ie!`]@.2 ֢dlB2"-.8L{LBg@ eE&[|yge !e&[Gn$u YPee@ dN`zZVصbx.2 p?,\(X68Z,s_nk62 SIMPLE SLAVE FOR TS-800,TS-803,TS-803H NET800 ; STANDARD DRIVERS FOR TS-800 ; SER803 ; MUST INCLUDE IF USING SERIAL PORTS NOTE: SER803.REL is NOT a part of NET800.REL yDՀx 3Zc13`m(z1Cl@4QJR  eR)X=eY*YUzʮ#Udd,C8 @a!``1dl!`0v0\H@c5R 1=`'۴9!z 1{Oi5sCvb\H_6$֢e``1Yk\,868Z,Snk620rk@8F/9p f!0V6nmupWgKTF^ n^+_2gqXFd:tL+ @ 080p0ôL69 ]e؄Cd,( )dk݀ q@h! 0bY:ˠ p: 1x3@ aFqm ͖Wd,( )Fo`6p\X!`A, lR/S6 Pd MQ%Y2 ӐT#<19-A=23hRU#!9U91%9.3QӐS#0@U%9QMB2S.`YQ9 !JpRAMDEV SYS kBo7$RAM0000DAT L9                                                                                                                                                                     !   !   "   "   #   #   $   $   %   %   &   &   '   '