IMD 1.17: 3/11/2012 17:49:44 turbodos televideo ts-806 net80a modules dsdd                DEF802 RELNIT80X RELRTC80X RELSER80X REL CON192 RELSMD802 RELNODISK RELNETLOD RELCON192 MAC DEF802 MAC NETLOD MAC SMD802 MAC6 SER80X MACRRTC80X MAC NODISK MACNIT80X MACU # =I%8SU@`?INIT?d5D5dT8SIOVECe5dT8PIOVECdD58%9%P>ӒU#`AI=I6:PS 5I\` /wiyHI@hI P  / /4f 3@h-NET80A Q =I%8SU%AAIR8T# Q AIR8P#M$AIR8 PT# AIR80#A%=AIR8@L#] AIR8#1AIR8#` 9-M\8@T# IAIR8BД#  I AIR8# I AIRp#A%=AIR8@L#] 4f 2\lRp(]0قd@0h! 06Q#a`I=5AIR6F#c`A% AIR6NTU#e@AI9%R6ZScfM-%9 6fӒU#f -Q%96rSgUMI9%R6~TӒU#h@ 9-9%R6SRSU#iQA9%P2Г ]%R2P"M%92pScfM    # =I%8SU ?INIT?SUIQ 9%R:TԥC@R@`$<i.Y@jWԴs Պr@h!Q0u@3@ Ev d5D5dT88CTCPRTTE5(INTSTKdDŕD8xDSKTICe%D54T8`ISRXIT Պr9>h <g?gBh@ xudl@'ii]y X< AtnG1Fstf ӨtNf:@KC@.pe)fF=eS*YUzʴ`#U %rm"?`MNnY/땛l@tnbsth n0Y/63mӨ tM~[#tn Ұ6hJC3tnӘ!rۮKuͶ B9N.,( Y`>;O.)Z%AnGKu¯d\b(1[tfՠ t nmҰQ,7ۦ`67M4HF#@np`, +tCn['liWT # =I%8SU R?INIT?d5E44SASIZEe4%4XSCSIZESUMI9%R:QMI%2;TRTԣUM %MJ:*TTԥ8pbab@b`9$'eP%d(e+ep YP iC€t ntnn LmnY-+6؁   C-p4|v]7jN#ô>;O.΀՛u@ qf!@ ~\,땛l@ylYPeۤ{->ݧiep[Vm{->;O.½koYlPeۮK @땺! ~@F7nqp`   9Ѐ! n[b\p=HnfͺZȀ(7`;tn-Ѱ VM&[JNF:@tnn7LPe) VN`f?ctj n0YW\- źvMD8p\(7D9l?*qh`D"T@"DB(TE !D"P)"@Q =I%8SU`RP0?INIT?eD3C#(AUTMTMSU -Q%9:#`9L%MJ\<(@@hPb)g ,(C,@!`") "p< dHi8Y: v" 7@oI ޒgPI@9PF 0sl #T]8 4 L>.4+L>4K @l#Mc  0p  0s{,064SՑPj@ -QMR6hQQ#fM-MR6zT#h`EUMR2$#+ ]%R3&PS3`5I3QӐS#1`1f3SS79Q% 9R3RS#<9%9QMQ.2TԖU'-DHpBRAPRTe44%HBRBPRTe44%%H@BRCPRT5e445%HSIOVECT8ϠWAITdSIGNALTĔ`INTSPdE5DSLVRESdD4)BPRTe44%%H@BRCPRT5e445%HSIOVECT8ϠWAITdSIGNALTĔ`INTSPdEӌNL =I%8SU抠0CONBRTdd4(INITCd4E$CINITD4xCSO454p<4!@(t-Fh ݙLm`@f= o,naP`xxͥ,Rxxͧ` Ld&!)FC2je$)$FJ@2zre@& yCAlsD-<Q*2Ba0M@ C4pnh՚p- G2€C-,!  a0ݐm@Y8P}p-! ڌu9sq`Am@UqV8|iib/[F,f0f`e,@Y>4Ͱs@elaf a,0^ b1 e櫔|b AmC|i`2 =8|i68|i`1 `՘ m0p6d96c`:  00p -0ss9sfH X ,D>[L>4Ͱs@({-0pp v8|yTm0s|i`1P+   1 EɨHqfh1誉ɨQ ,誈jH1bHjJIӀiȊH1"U# =I%8SU1 ȪH` -f+f qh\.V+4hV4[ +jO帀je4XnXvGiH`~gj@ ;1,Vz@d3@©Z\di@@W+?q6-땢pX,pvm[T =I%8SU†%9%P?INIT?dE4 x2c`@AIRpf3SS79Q% 9R3RS#<9%9QMQ.2TԖU'-/+jj; L@,eVmwx_@9\ m~[aø zn0fPpH#dsk4ZQ%Vʹ  @/jY"Ycݺ~L`P 6-Ӹ0nlm~[{D,:R)iQiȊH1"   ; ; File CON192.MAC ; Created by ZREL/MAC V3.3 ; Copyright 1984 MicroSmith Computer Technology ; .Z80 ;set mode for M80 NAME ('CON192') ; Notice: symbol assumed public GLOBAL ?ORIG? ?ORIG? EQU 09H ; Notice: symbol assumed public GLOBAL ?UNmbol assumed public GLOBAL CSI CSI EQU CONDR@+04FH ; DSEG DEFB 08FH ;08FH DEFB 01AH ;01AH DEFB 00H ;NUL ; CSEG LD A,B ;x 078H CP 02H JR Z,CONDR@+0FH LD A,(RMTBR) OR A ;7 0B7H JR Z,CONDR@+0FH CALL RMTSUP RET ;I 0C9H L,02H CALL SERIAL POP BC ;A 0C1H POP DE ;Q 0D1H POP HL ;a 0E1H RET ;I 0C9H CALL DMS DEC C ;CR 0DH ADC A,D ;LF 08AH RET ;I 0C9H EXTERNAL RMTBR EXTERNAL RMTSUP EXTERNAL SERIAL EXTERNAL CONTPS EXTERNAL DMS ; END  IT? ?UNIT? EQU 030FH ; Notice: symbol assumed public GLOBAL DIPPRT DIPPRT EQU 00H ; Notice: symbol assumed public GLOBAL ROMPRT ROMPRT EQU 04H ; Notice: symbol assumed public GLOBAL CTCPRT CTCPRT EQU 08H ; Notice: symbol assumed public GLOB public GLOBAL WDRPRT WDRPRT EQU 00H ; Notice: symbol assumed public GLOBAL LEDPRT LEDPRT EQU 080H ; Notice: symbol assumed public GLOBAL BNKSW0 BNKSW0 EQU 063H ; Notice: symbol assumed public GLOBAL BNKSW1 BNKSW1 EQU 063H ; Notice: symbol IT? ?UNIT? EQU 030FH ; Notice: symbol assumed public GLOBAL CONBR CONBR EQU CONBR+00H ; Notice: symbol assumed public GLOBAL FFCHR FFCHR EQU CONBR+01H ; Notice: symbol assumed public GLOBAL INITC INITC EQU CONBR+02H ; Notice: symbol assumed pD HL,INITC LD A,(HL) ;~ 07EH OR A ;7 0B7H CALL Z,CINIT LD A,E ;{ 07BH SUB 08H JR Z,CSI DEC A ;= 03DH JR Z,CSI LD A,E ;{ 07BH CP 02H JR Z,CONDR@+028H CALL SERIAL RET ;I 0C9H CALL CONTPS OR A ;7 0B7H RET NZ ;@ 0C0H AL PICPRT PICPRT EQU 08H ; Notice: symbol assumed public GLOBAL SI1PRT SI1PRT EQU 0CH ; Notice: symbol assumed public GLOBAL DMAPRT DMAPRT EQU 010H ; Notice: symbol assumed public GLOBAL FDCPRT FDCPRT EQU 014H ; Notice: symbol assumed public assumed public GLOBAL SCAPRT SCAPRT EQU 020H ; Notice: symbol assumed public GLOBAL BRAPRT BRAPRT EQU 08H ; Notice: symbol assumed public GLOBAL SCBPRT SCBPRT EQU 021H ; Notice: symbol assumed public GLOBAL BRBPRT BRBPRT EQU 09H ; Notice: s; ; 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 ?UNublic GLOBAL CONDR@ CONDR@ EQU $ ; Notice: symbol assumed public GLOBAL CINIT CINIT EQU CONDR@+030H ; Notice: symbol assumed public GLOBAL CIN1 CIN1 EQU CONDR@+037H ; Notice: symbol assumed public GLOBAL CSO CSO EQU CONDR@+04FH ; Notice: syJP SERIAL DEC (HL) ;5 035H PUSH HL ;e 0E5H PUSH DE ;U 0D5H PUSH BC ;E 0C5H LD A,(CONBR) LD C,A ;O 04FH LD E,03H CALL SERIAL LD A,(FFCHR) OR A ;7 0B7H JR Z,CONDR@+04BH POP BC ;A 0C1H PUSH BC ;E 0C5H LD C,A ;O 04FH LD E; ; File DEF802.MAC ; Created by ZREL/MAC V3.3 ; Copyright 1984 MicroSmith Computer Technology ; .Z80 ;set mode for M80 NAME ('DEF802') ; Notice: symbol assumed public GLOBAL ?ORIG? ?ORIG? EQU 09H ; Notice: symbol assumed public GLOBAL ?UN GLOBAL FDDPRT FDDPRT EQU 018H ; Notice: symbol assumed public GLOBAL PIOPRT PIOPRT EQU 01CH ; Notice: symbol assumed public GLOBAL SI0PRT SI0PRT EQU 020H ; Notice: symbol assumed public GLOBAL WDCPRT WDCPRT EQU 048H ; Notice: symbol assumedymbol assumed public GLOBAL SCCPRT SCCPRT EQU 0DH ; Notice: symbol assumed public GLOBAL BRCPRT BRCPRT EQU 00H ; END public GLOBAL BNKSW0 BNKSW0 EQU 063H ; Notice: symbol assumed public GLOBAL BNKSW1 BNKSW1 EQU 063H ; Notice: symbol 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     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 ORY+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+033IT? ?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  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 HL5H 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 POassumed public GLOBAL CKTDR@ CKTDR@ EQU $ ; Notice: symbol assumed public GLOBAL S0AISR S0AISR EQU CKTDR@+01DBH ; DSEG DEFB 03CH ;< DEFB 00H ;NUL @L11: DEFB 00H ;NUL DEFB 00H ;NUL @L0: DEFW @L0 DEFW @L0 @L14: DEFB 00H ;NUL ,(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 SMD802.MAC ; Created by ZREL/MAC V3.3 ; Copyright 1984 MicroSmith Computer Technology ; .Z80 ;set mode for M80 NAME ('SMD802') ; Notice: symbol assumed public GLOBAL ?ORIG? ?ORIG? EQU 09H ; Notice: symbol assumed public GLOBAL ?UN DEFB 00H ;NUL @L1: DEFW @L1 DEFW @L1 @L15: DEFB 01H ;01H DEFB 00H ;NUL @L2: DEFW @L2 DEFW @L2 @L13: DEFB 00H ;NUL @L26: DEFB 0C3H ;C DEFB 08BH ;08BH DEFB 079H ;y @L23: DEFB 00H ;NUL DEFB 00H ;NUL @L24: DEFB 00H ;   NUL DEFB 00H ;NUL DEFB 014H ;014H DEFB 028H ;( DEFB 085H ;085H DEFB 0CH ;0CH @L3: DEFB 08AH ;LF DEFB 0CFH ;O @L25: DEFB 05H ;05H DEFB 0CFH ;O DEFB 087H ;087H ; COMMON /?INIT?/ DEFB 0DBH ;[ DEFB 023H ;# DEFB 0CBH B 00H ;NUL DEFB 022H ;" DEFW CKTAST DEFB 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 @L7 DEFB 021H ;! DEFW PTRAST  DEFB 07H ;07H DEFB 07EH ;~ DEFB 011H ;011H DEFB 05CH ;\ ; CSEG LD A,C ;y 079H OR A ;7 0B7H JR Z,CKTDR@+09H DEC A ;= 03DH JP Z,@L9 RET ;I 0C9H INC DE ;013H 013H INC DE ;013H 013H INC DE ;013H 013H INC DE ;013H 013 JR Z,CKTDR@+05DH EI ;{ 0FBH LD HL,@L13 SET 2,(HL) LD HL,@L14 CALL WAIT JR CKTDR@+048H DI ;s 0F3H LD A,010H OUT (0EH),A IN A,(0EH) AND 020H JR NZ,CKTDR@+04FH LD A,05H OUT (0EH),A LD A,06BH OUT (0EH),A LD A,010H OUT H LD HL,@L13 BIT 0,(HL) RET NZ ;@ 0C0H LD A,010H OUT (0EH),A IN A,(0EH) AND 020H RET Z ;H 0C8H SET 1,(HL) SET 0,(HL) LD HL,@L11 CALL SIGNAL LD HL,@L10 JP UNLINK @L12: LD (@L23),HL LD E,(HL) ;^ 05EH LD D,00H EX DE,HL ,@L26 LD BC,01010H OTIR LD A,05H OUT (0EH),A LD A,06BH OUT (0EH),A LD A,01H OUT (0EH),A IN A,(0EH) AND 080H JR Z,CKTDR@+0123H IN A,(0EH) AND 080H JR NZ,CKTDR@+0EDH LD A,01H OUT (0EH),A IN A,(0EH) AND 060H JR NZ,CKTDR@;K DEFB 047H ;G DEFB 028H ;( DEFB 05H ;05H DEFB 03EH ;> DEFB 082H ;082H DEFB 032H ;2 DEFW @L3 DEFB 021H ;! DEFW S0AISR DEFB 022H ;" DEFW SIOVEC+01CH DEFB 022H ;" DEFW SIOVEC+01EH DEFB 01H ;01H DEFB 0FH ;0FH DEFB 0DEFB 0CDH ;M DEFW @L7 DEFB 021H ;! DEFW QUEAST DEFB 0CDH ;M DEFW @L7 DEFB 0C9H ;I @L7: DEFB 06H ;06H DEFB 010H ;010H DEFB 0CBH ;K DEFB 07EH ;~ DEFB 023H ;# DEFB 023H ;# DEFB 028H ;( DEFB 04H ;04H DEFB 03AH ;: DH PUSH DE ;U 0D5H LD DE,@L10 CALL LNKPOL LD HL,@L11 CALL WAIT CALL DMALOK POP HL ;a 0E1H CALL @L12 PUSH AF ;u 0F5H CALL DMAFRE LD HL,@L13 RES 0,(HL) RES 1,(HL) BIT 2,(HL) JR Z,CKTDR@+038H RES 2,(HL) LD HL,@L14 CALL SI(0EH),A IN A,(0EH) AND 020H JR Z,CKTDR@+08FH EX (SP),HL ;c 0E3H EX (SP),HL ;c 0E3H EX (SP),HL ;c 0E3H EX (SP),HL ;c 0E3H LD A,05H OUT (0EH),A LD A,069H OUT (0EH),A EI ;{ 0FBH LD HL,00H CALL DELAY JR CKTDR@+048H EI ;{ ;k 0EBH INC HL ;# 023H LD (@L24),HL ADD HL,DE ;019H 019H LD D,(HL) ;V 056H DEC HL ;+ 02BH LD E,(HL) ;^ 05EH PUSH DE ;U 0D5H PUSH HL ;e 0E5H LD A,01H LD (@L25),A LD A,010H OUT (0EH),A IN A,(0EH) AND 020H JR Z,CKTDR@+0E3+0EDH LD A,(@L26) OUT (010H),A LD A,01H OUT (0EH),A LD A,05CH OUT (0EH),A LD A,05H OUT (0EH),A LD A,069H OUT (0EH),A POP HL ;a 0E1H POP DE ;Q 0D1H LD (HL),E ;s 073H INC HL ;# 023H LD (HL),D ;r 072H LD A,010H OUT (0EH)2H ;02H DEFB 0EDH ;m DEFB 041H ;A DEFB 021H ;! DEFW SIOVEC+010H DEFB 0EDH ;m DEFB 069H ;i DEFB 021H ;! DEFW @L6 DEFB 01H ;01H DEFB 0EH ;0EH DEFB 0DH ;CR DEFB 0EDH ;m DEFB 0B3H ;3 DEFB 02AH ;* DEFB 080H ;NUL DEFEFW CKTAST+01H DEFB 077H ;w DEFB 023H ;# DEFB 010H ;010H DEFB 0F3H ;s DEFB 0C9H ;I @L6: 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 GNAL POP AF ;q 0F1H RET ;I 0C9H @L9: INC DE ;013H 013H INC DE ;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,@L15 CALL WAIT LD HL,@L13 BIT 1,(HL)  0FBH SET 0,(HL) CALL DMALOK POP HL ;a 0E1H CALL @L19 PUSH AF ;u 0F5H CALL DMAFRE LD HL,@L15 CALL SIGNAL LD HL,@L13 RES 0,(HL) POP AF ;q 0F1H RET ;I 0C9H @L10: NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H LD A,010H OUT (0EH),A IN A,(0EH) AND 0A0H CP 020H JR NZ,CKTDR@+0EDH LD A,01H OUT (0EH),A LD A,0E0H OUT (0EH),A LD A,03H OUT (0EH),A LD A,0D9H OUT (0EH),A IN A,(0CH) IN A,(0CH) IN A,(0CH) LD A,070H OUT (0EH),A LD HL,A IN A,(0EH) AND 020H JR NZ,CKTDR@+0157H RET ;I 0C9H @L19: LD (@L23),HL LD L,(HL) ;n 06EH LD H,00H DEC HL ;+ 02BH LD (@L24),HL LD A,05H LD (@L25),A LD A,05H OUT (0EH),A LD A,06BH OUT (0EH),A LD A,010H OUT (0EH),A I   N A,(0EH) AND 020H JR Z,CKTDR@+0179H LD A,01H OUT (0EH),A LD A,0C0H OUT (0EH),A LD HL,@L26 LD BC,0F10H OTIR LD A,0B0H OUT (0EH),A LD A,0C0H DI ;s 0F3H OUTI OUT (0EH),A EI ;{ 0FBH LD A,010H OUT (0EH),A IN A,(0EH) FBH IN A,(0CH) CP 05H JR NZ,CKTDR@+01FBH LD A,0B0H OUT (0EH),A LD A,06H OUT (0CH),A LD A,0C0H OUT (0EH),A POP AF ;q 0F1H LD SP,(INTSP) JP ISRXIT EXTERNAL SIOVEC EXTERNAL CKTAST EXTERNAL DEFDID EXTERNAL DSKAST EXTERNAL PTR assumed public GLOBAL SCSIZE SCSIZE EQU CTSMSK+05BH ; Notice: symbol assumed public GLOBAL SERNIT SERNIT EQU SERNIT+00H ; Notice: symbol assumed public GLOBAL COMDRV COMDRV EQU $ ; Notice: symbol assumed public GLOBAL SERIAL SERIAL EQU $ ;@L0 DEFW @L1 DEFW @L2 DEFW @L3 @L1: DEFB 00H ;NUL DEFB 00H ;NUL @L4: DEFW @L4 DEFW @L4 @L2: DEFB 00H ;NUL DEFB 00H ;NUL @L5: DEFW @L5 DEFW @L5 @L3: DEFB 01H ;01H DEFB 00H ;NUL @L6: DEFW @L6 DEFW @L6 DEFB 010H ;0 AND 040H JR Z,CKTDR@+019FH LD A,(TICCNT) LD E,A ;_ 05FH LD A,(TIC422) LD D,A ;W 057H LD A,010H OUT (0EH),A IN A,(0EH) AND 020H JR Z,CKTDR@+01C4H LD A,(TICCNT) SUB E ;093H 093H CP D ;: 0BAH JR C,CKTDR@+01B1H JR CKTDR@+018AST EXTERNAL QUEAST EXTERNAL LNKPOL EXTERNAL WAIT EXTERNAL DMALOK EXTERNAL DMAFRE EXTERNAL SIGNAL EXTERNAL DELAY EXTERNAL UNLINK EXTERNAL TICCNT EXTERNAL INTSP EXTERNAL INTSTK EXTERNAL ISRXIT ; END  BIT 0,A JR Z,CKTDR@+01; ; File SER80X.MAC ; Created by ZREL/MAC V3.3 ; Copyright 1984 MicroSmith Computer Technology ; .Z80 ;set mode for M80 NAME ('SER80X') ; Notice: symbol assumed public GLOBAL ?ORIG? ?ORIG? EQU 09H ; Notice: symbol assumed public GLOBAL ?UN Notice: symbol assumed public GLOBAL SAISR SAISR EQU SERIAL+01F7H ; Notice: symbol assumed public GLOBAL SBISR SBISR EQU SERIAL+0206H ; Notice: symbol assumed public GLOBAL SCISR SCISR EQU SERIAL+0215H ; DSEG DEFB 020H ;SP DEFB 010H ;010H 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 DEFW BRBPRT DEFW SCBPRT DEFW SBISR DEFW BH LD A,(@L26) OUT (010H),A LD A,01H OUT (0EH),A LD A,05CH OUT (0EH),A LD A,05H OUT (0EH),A LD A,069H OUT (0EH),A XOR A ;/ 0AFH RET ;I 0C9H LD (INTSP),SP LD SP,INTSTK PUSH AF ;u 0F5H IN A,(0EH) BIT 0,A JR Z,CKTDR@+01IT? ?UNIT? EQU 030FH ; Notice: symbol assumed public GLOBAL CTSMSK CTSMSK EQU CTSMSK+00H ; Notice: symbol assumed public GLOBAL SASIZE SASIZE EQU CTSMSK+01H ; Notice: symbol assumed public GLOBAL SBSIZE SBSIZE EQU CTSMSK+02EH ; Notice: symbol10H 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 DEFW BRAPRT DEFW SCAPRT DEFW SAISR DEFW @L7 DEFW @L8 DEFW @L9 DEFW @L10 @L8: DEFB 00H ;NUL DEFB 00H ;NUL @L11: DEFW @L11 DEFW @L11 @L9: DEFB 00H ;NUL DEFB 00H ;NUL @L12: DEFW @L12 DEFW @L12 @L10: DEFB 01H ;01H DEFB 00H ;NUL @L13: DEFW @L13 DEFW @L13 DE   FB 010H ;010H 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 DEFW BRCPRT DEFW SCCPRT DEFW SC0FH ;0FH DEFB 0F6H ;v DEFB 03H ;03H DEFB 04FH ;O DEFB 03EH ;> DEFB 02H ;02H DEFB 0EDH ;m DEFB 079H ;y DEFB 0EDH ;m DEFB 069H ;i DEFB 03EH ;> DEFB 01H ;01H DEFB 0EDH ;m DEFB 079H ;y DEFB 03EH ;> DEFB 044H ;D DNUL DEFB 0DDH ;] DEFB 066H ;f DEFB 01H ;01H DEFB 0CDH ;M DEFW ALLOC DEFB 0DDH ;] DEFB 075H ;u DEFB 04H ;04H DEFB 0DDH ;] DEFB 074H ;t DEFB 05H ;05H DEFB 0DDH ;] DEFB 075H ;u DEFB 06H ;06H DEFB 0DDH ;] DEFB 074HRET ;I 0C9H @L25: EI ;{ 0FBH PUSH IX CALL @L21 JR Z,SERIAL+03CH LD A,(IX+02H) OR (IX+03H) JR Z,SERIAL+03CH OR 0FFH LD L,(IX+08H) LD H,(IX+09H) LD C,(HL) ;N 04EH POP IX RET ;I 0C9H @L26: EI ;{ 0FBH PUSH IX CALL @L2LD E,(IX+04H) LD D,(IX+05H) LD (IX+08H),E LD (IX+09H),D EI ;{ 0FBH POP IX RET ;I 0C9H @L24: PUSH IX CALL @L21 JR Z,SERIAL+0C6H LD B,C ;A 041H LD C,(IX+0FH) SET 1,C IN A,(C) BIT 2,A JR Z,SERIAL+0C6H BIT 6,(IX+0BH) JR  LD H,(IX+01AH) CALL SIGNAL POP IX RET ;I 0C9H @L33: INC HL ;# 023H INC HL ;# 023H INC HL ;# 023H INC HL ;# 023H JP (HL) ;i 0E9H @L0: NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H PUSH IX LD IX,SASIZE JRISR DEFW @L14 DEFW @L15 DEFW @L16 DEFW @L17 @L15: DEFB 00H ;NUL DEFB 00H ;NUL @L18: DEFW @L18 DEFW @L18 @L16: DEFB 00H ;NUL DEFB 00H ;NUL @L19: DEFW @L19 DEFW @L19 @L17: DEFB 01H ;01H DEFB 00H ;NUL @L20: DEFW @L20 EFB 0EDH ;m DEFB 079H ;y DEFB 011H ;011H DEFB 04H ;04H DEFB 00H ;NUL DEFB 0DDH ;] DEFB 0CBH ;K DEFB 0FH ;0FH DEFB 046H ;F DEFB 020H ;SP DEFB 03H ;03H DEFB 011H ;011H DEFB 0CH ;0CH DEFB 00H ;NUL DEFB 019H ;019H D ;t DEFB 07H ;07H DEFB 0DDH ;] DEFB 075H ;u DEFB 08H ;08H DEFB 0DDH ;] DEFB 074H ;t DEFB 09H ;TAB DEFB 0C1H ;A DEFB 021H ;! DEFW SIOVEC DEFB 05H ;05H DEFB 0F2H ;r DEFW @L23 DEFB 0DDH ;] DEFB 0E1H ;a DEFB 0C9H 1 JR Z,SERIAL+095H DI ;s 0F3H LD A,(IX+02H) OR (IX+03H) JR NZ,SERIAL+05EH INC (IX+0AH) LD L,(IX+015H) LD H,(IX+016H) CALL WAIT JR SERIAL+047H DI ;s 0F3H LD L,(IX+02H) LD H,(IX+03H) DEC HL ;+ 02BH LD (IX+02H),L LD (IX+03Z,SERIAL+0BDH LD A,010H OUT (C),A IN A,(C) LD HL,CTSMSK AND (HL) ;& 0A6H JR Z,SERIAL+0C6H RES 1,C OUT (C),B POP IX LD A,0FFH RET ;I 0C9H POP IX XOR A ;/ 0AFH RET ;I 0C9H @L27: PUSH IX CALL @L21 JR Z,SERIAL+0FFH PU SERIAL+0129H @L7: NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H PUSH IX LD IX,SBSIZE JR SERIAL+0129H @L14: NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H PUSH IX LD IX,SCSIZE LD C,(IX+0FH) SET 1,C DEFW @L20 ; COMMON /?INIT?/ DEFB 0DDH ;] DEFB 0E5H ;e DEFB 06H ;06H DEFB 02H ;02H DEFB 021H ;! DEFW SIOVEC+010H @L23: DEFB 0C5H ;E DEFB 0CDH ;M DEFW @L21 DEFB 028H ;( DEFB 049H ;I DEFB 0DDH ;] DEFB 07EH ;~ DEFB EFB 0DDH ;] DEFB 05EH ;^ DEFB 011H ;011H DEFB 0DDH ;] DEFB 056H ;V DEFB 012H ;012H DEFB 073H ;s DEFB 023H ;# DEFB 072H ;r DEFB 023H ;# DEFB 073H ;s DEFB 023H ;# DEFB 072H ;r DEFB 0DDH ;] DEFB 06EH ;n DEFB 00H ;;I ; CSEG LD A,E ;{ 07BH CP 0AH JP Z,@L24 OR A ;7 0B7H JP Z,@L25 DEC A ;= 03DH JP Z,@L26 DEC A ;= 03DH JP Z,@L27 DEC A ;= 03DH JP Z,@L28 DEC A ;= 03DH JP Z,@L29 DEC A ;= 03DH JP Z,@L30 DEC A ;= 03DH JP Z,@L31 H),H LD L,(IX+08H) LD H,(IX+09H) LD A,(HL) ;~ 07EH INC HL ;# 023H PUSH HL ;e 0E5H LD L,(IX+04H) LD H,(IX+05H) LD E,(IX+00H) LD D,(IX+01H) DEC DE ;01BH 01BH ADD HL,DE ;019H 019H POP DE ;Q 0D1H SBC HL,DE JR NC,SERIAL+08EH SH BC ;E 0C5H LD L,(IX+019H) LD H,(IX+01AH) CALL WAIT POP BC ;A 0C1H LD (IX+0CH),C LD E,(IX+013H) LD D,(IX+014H) PUSH DE ;U 0D5H CALL LNKPOL POP HL ;a 0E1H CALL @L33 LD L,(IX+017H) LD H,(IX+018H) CALL WAIT LD L,(IX+019H)  IN A,(C) BIT 2,A JR Z,SERIAL+0160H BIT 6,(IX+0BH) JR Z,SERIAL+0146H LD A,010H OUT (C),A IN A,(C) LD HL,CTSMSK AND (HL) ;& 0A6H JR Z,SERIAL+0160H LD A,(IX+0CH) LD C,(IX+0FH) OUT (C),A LD L,(IX+013H) LD H,(IX+014H) CALL UN   LINK LD L,(IX+017H) LD H,(IX+018H) CALL SIGNAL POP IX RET ;I 0C9H @L28: PUSH IX CALL @L21 JR Z,SERIAL+019AH LD A,C ;y 079H LD (IX+0BH),A AND 0FH LD E,A ;_ 05FH LD D,00H LD HL,@L36 ADD HL,DE ;019H 019H ADD HL,DE ;019H L+01C5H SET 7,E LD C,(IX+0FH) SET 1,C LD A,05H DI ;s 0F3H OUT (C),A OUT (C),E EI ;{ 0FBH POP IX RET ;I 0C9H @L31: PUSH IX CALL @L21 JR Z,SERIAL+01F4H LD C,(IX+0FH) SET 1,C LD A,010H OUT (C),A IN E,(C) XOR A ;/ RES LD A,(ATNCHR) CP C ;9 0B9H JR NZ,SERIAL+0256H LD L,(IX+06H) LD H,(IX+07H) LD (IX+08H),L LD (IX+09H),H LD (IX+02H),00H LD (IX+03H),00H LD E,(IX+00H) LD D,(IX+01H) LD L,(IX+02H) LD H,(IX+03H) PUSH HL ;e 0E5H OR A ;7 0B7H E1H POP DE ;Q 0D1H POP BC ;A 0C1H POP AF ;q 0F1H POP IX LD SP,(INTSP) EI ;{ 0FBH RETI @L21: DEC B ;05H 05H LD IX,SASIZE JP M,@L44 LD IX,SBSIZE JR Z,@L44 LD IX,SCSIZE @L44: INC B ;04H 04H LD A,(IX+0FH) OR A ;7 0B7H044H LD B,L ;E 045H INC DE ;013H 013H LD B,H ;D 044H LD B,L ;E 045H DJNZ SBSIZE LD B,L ;E 045H DEC BC ;0BH 0BH LD B,H ;D 044H LD B,L ;E 045H EX AF,AF' ;08H 08H LD B,H ;D 044H LD B,L ;E 045H DEC B ;05H 05H LD B,H ;D 019H ADD HL,DE ;019H 019H LD C,(IX+0DH) LD A,03H OUT (C),A OUTI OUTI LD C,(IX+0FH) SET 1,C LD A,018H OUT (C),A LD A,04H OUT (C),A OUTI LD HL,@L37 LD B,06H OTIR POP IX RET ;I 0C9H @L37: INC BC ;03H 03H POP BC0AFH BIT 5,E JR Z,SERIAL+01EEH SET 7,A BIT 3,E JR Z,SERIAL+01F4H SET 5,A POP IX RET ;I 0C9H LD (INTSP),SP LD SP,INTSTK PUSH IX LD IX,SASIZE JR SERIAL+0222H LD (INTSP),SP LD SP,INTSTK PUSH IX LD IX,SBSIZE JR SERIAL+0222 SBC HL,DE POP HL ;a 0E1H JR NC,SERIAL+02A4H INC HL ;# 023H LD (IX+02H),L LD (IX+03H),H LD L,(IX+06H) LD H,(IX+07H) LD (HL),C ;q 071H INC HL ;# 023H PUSH HL ;e 0E5H LD L,(IX+04H) LD H,(IX+05H) DEC DE ;01BH 01BH ADD HL,DE  RET ;I 0C9H @L36: DEC B ;05H 05H SBC A,H ;09CH 09CH ADC A,B ;088H 088H DEC B ;05H 05H RET NC ;P 0D0H LD C,B ;H 048H DEC B ;05H 05H ADC A,(HL) ;08EH 08EH LD C,H ;L 04CH DEC B ;05H 05H LD (HL),H ;t 074H LD B,H ;D 044044H LD B,L ;E 045H INC B ;04H 04H LD B,H ;D 044H LD B,L ;E 045H LD (BC),A ;02H 02H LD B,H ;D 044H EXTERNAL BRAPRT EXTERNAL SCAPRT EXTERNAL BRBPRT EXTERNAL SCBPRT EXTERNAL BRCPRT EXTERNAL SCCPRT EXTERNAL SIOVEC EXTERNAL AL ;A 0C1H DEC B ;05H 05H JP PE,05C01H @L29: PUSH IX CALL @L21 JR Z,SERIAL+01ADH LD A,(IX+0BH) POP IX RET ;I 0C9H @L30: PUSH IX CALL @L21 JR Z,SERIAL+01D2H LD E,068H BIT 7,C JR Z,SERIAL+01BFH SET 1,E BIT 6,C JR Z,SERIAH LD (INTSP),SP LD SP,INTSTK PUSH IX LD IX,SCSIZE PUSH AF ;u 0F5H PUSH BC ;E 0C5H PUSH DE ;U 0D5H PUSH HL ;e 0E5H LD C,(IX+0FH) IN C,(C) BIT 5,(IX+0BH) JR NZ,SERIAL+02A4H BIT 7,(IX+0BH) JR Z,SERIAL+0256H RES 7,C CALL SLV ;019H 019H POP DE ;Q 0D1H SBC HL,DE JR NC,SERIAL+028CH LD E,(IX+04H) LD D,(IX+05H) LD (IX+06H),E LD (IX+07H),D LD A,(IX+0AH) OR A ;7 0B7H JR Z,SERIAL+02A4H DEC (IX+0AH) LD L,(IX+015H) LD H,(IX+016H) CALL SIGNAL POP HL ;a 0H LD B,L ;E 045H NOP ;NUL 00H LD B,H ;D 044H LD B,L ;E 045H ADD A,B ;NUL 080H LD B,H ;D 044H LD B,L ;E 045H LD B,B ;@ 040H LD B,H ;D 044H LD B,L ;E 045H JR NZ,SERIAL+0325H LD B,L ;E 045H DEC D ;015H 015H LD B,H ;D LOC EXTERNAL WAIT EXTERNAL LNKPOL EXTERNAL SIGNAL EXTERNAL UNLINK EXTERNAL INTSP EXTERNAL INTSTK EXTERNAL SLVRES EXTERNAL ATNCHR ; END ;E 045H EX AF,AF' ;08H 08H LD B,H ;D 044H LD B,L ;E 045H DEC B ;05H 05H LD B,H ;D    T?/ DEFB 021H ;! DEFW RTCISR DEFB 022H ;" DEFW CTCVEC+06H DEFB 01H ;01H DEFW CTCPRT+0300H DEFB 021H ;! DEFW CTCVEC DEFB 0EDH ;m DEFB 069H ;i DEFB 0CH ;0CH DEFB 0CH ;0CH DEFB 0CH ;0CH DEFB 021H ;! DEFW @L1 DEFB 0EDHSP EXTERNAL INTSTK EXTERNAL DLYTIC EXTERNAL DSKTIC EXTERNAL RTCSEC EXTERNAL ISRXIT ; END (INTSP),SP LD SP,IN; ; File NODISK.MAC ; Created by ZREL/MAC V3.3 ; Copyright 1984 MicroSmith Computer Technology ; .Z80 ;set mode for M80 NAME ('NODISK') ; Notice: symbol assumed public GLOBAL ?ORIG? ?ORIG? EQU 09H ; Notice: symbol assumed public GLOBAL ?UN; ; File RTC80X.MAC ; Created by ZREL/MAC V3.3 ; Copyright 1984 MicroSmith Computer Technology ; .Z80 ;set mode for M80 NAME ('RTC80X') ; DSEG ORG 0 @DATA: CSEG ; Notice: symbol assumed public GLOBAL ?ORIG? ?ORIG? EQU 09H ; Notice: s ;m DEFB 0B3H ;3 DEFB 0C9H ;I @L1: DEFB 03H ;03H DEFB 0A5H ;% DEFB 0FAH ;z ; CSEG LD (INTSP),SP LD SP,INTSTK PUSH AF ;u 0F5H PUSH BC ;E 0C5H PUSH DE ;U 0D5H PUSH HL ;e 0E5H CALL DLYTIC CALL DSKTIC LD HL,@DATA DECIT? ?UNIT? EQU 030FH ; Notice: symbol assumed public GLOBAL DSKIN@ DSKIN@ EQU DSKIN@+00H ; COMMON /?INIT?/ DEFB 0AFH ;/ DEFB 0D3H ;S DEFW FDDPRT DEFB 0C9H ;I EXTERNAL FDDPRT ; CSEG ; END  POP AF ;q 0F1H LD SP,(INTSP) ymbol 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 01H ;01H @L3: DEFB 03EH ;> ; COMMON /?INI (HL) ;5 035H JR NZ,RTCISR+023H LD A,(@L3) LD (HL),A ;w 077H XOR 01H LD (@L3),A CALL RTCSEC POP HL ;a 0E1H POP DE ;Q 0D1H POP BC ;A 0C1H POP AF ;q 0F1H LD SP,(INTSP) JP ISRXIT EXTERNAL CTCVEC EXTERNAL CTCPRT EXTERNAL INT   IT? ?UNIT? EQU 030FH ; Notice: symbol assumed public GLOBAL CTCVEC CTCVEC EQU 08H ; Notice: symbol assumed public GLOBAL SIOVEC SIOVEC EQU 010H ; Notice: symbol assumed public GLOBAL PICVEC PICVEC EQU 030H ; Notice: symbol assumed public GLB 0EDH ;m DEFB 047H ;G DEFB 0EDH ;m DEFB 05EH ;^ DEFB 0CDH ;M DEFW PROGRM DEFW LEDPRT DEFW ROMPRT DEFW CTCPRT+0300H DEFW CTCPRT+0301H DEFW CTCPRT+02H DEFW CTCPRT+0303H DEFW PICPRT+0300H DEFW PICPRT+0301H DEFW PICPRT+02H DDEFB 0C5H ;E DEFB 04EH ;N DEFB 023H ;# DEFB 0CH ;0CH DEFB 028H ;( DEFB 05H ;05H DEFB 0DH ;CR DEFB 0EDH ;m DEFB 0A3H ;# DEFB 018H ;018H DEFB 0F6H ;v DEFB 0C1H ;A DEFB 0E3H ;c DEFB 0C9H ;I ; CSEG CALL LOKBNK LD OBAL PIOVEC PIOVEC EQU 038H ; Notice: symbol assumed public GLOBAL DMASPH DMASPH EQU DMASPH+00H ; Notice: symbol assumed public GLOBAL HDWNIT HDWNIT EQU HDWNIT+00H ; Notice: symbol assumed public GLOBAL PROGRM PROGRM EQU HDWNIT+04BH ; Notice:EFW PICPRT+0303H DEFW CTCPRT+04500H DEFW CTCPRT+0100H DEFW CTCPRT+04501H DEFW CTCPRT+0101H DEFB 0FFH ;0FFH DEFB 0CDH ;M DEFW SERNIT DEFB 0CDH ;M DEFW PARNIT DEFB 0CDH ;M DEFW DSKINA DEFB 0CDH ;M DEFW DSKINB DEFB 0CDH ;M HL,DMASPH JP WAIT CALL FREBNK LD HL,DMASPH JP SIGNAL EXTERNAL LEDPRT EXTERNAL ROMPRT EXTERNAL CTCPRT EXTERNAL PICPRT EXTERNAL SERNIT EXTERNAL PARNIT EXTERNAL DSKINA EXTERNAL DSKINB EXTERNAL RTCNIT EXTERNAL CKTINA EXTERNAL CKTI; ; File NIT80X.MAC ; Created by ZREL/MAC V3.3 ; Copyright 1984 MicroSmith Computer Technology ; .Z80 ;set mode for M80 NAME ('NIT80X') ; Notice: symbol assumed public GLOBAL ?ORIG? ?ORIG? EQU 09H ; Notice: symbol assumed public GLOBAL ?UN symbol assumed public GLOBAL DMALOK DMALOK EQU $ ; Notice: symbol assumed public GLOBAL DMAFRE DMAFRE EQU DMALOK+09H ; DSEG DEFB 01H ;01H DEFB 00H ;NUL @L0: DEFW @L0 DEFW @L0 ; COMMON /?INIT?/ DEFB 03EH ;> DEFB 00H ;NUL DEFDEFW RTCNIT DEFB 0CDH ;M DEFW CKTINA DEFB 0CDH ;M DEFW CKTINB DEFB 0CDH ;M DEFW USRNIT DEFB 0CDH ;M DEFW RESNIT DEFB 0CDH ;M DEFW BNKNIT DEFB 0CDH ;M DEFW EMINIT DEFB 0CDH ;M DEFW TPNIT1 DEFB 0C9H ;I DEFB 0E3H ;c NB EXTERNAL USRNIT EXTERNAL RESNIT EXTERNAL BNKNIT EXTERNAL EMINIT EXTERNAL TPNIT1 EXTERNAL LOKBNK EXTERNAL WAIT EXTERNAL FREBNK EXTERNAL SIGNAL ; END v DEFB 0C1H ;A DEFB 0E3H ;c DEFB 0C9H ;I ; CSEG CALL LOKBNK LD     SIMPLE SLAVE FOR TS-800A,TS-802,TS-802H NET80A ; STANDARD DRIVERS FOR TS-800A ; ; SLVMTM ; UNCOMMENT IF SLAVE HAS GLOBAL DEVICES CRCHECK EXE-%<ARC EXESm(<;                                                                                                                                                               !   !   "   "   #   #   $   $   %   %   &   &   '   '