IMD 1.17: 3/11/2012 17:54:59 turbodos televideo ts-806 std806 modules dsdd                CON96X RELDEF806 RELDSK80F REL DSK8MX REL F548X1 REL FASLOD REL NIT80X REL PAR80X REL T? ?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 pu 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 Jbab@b`9$'eP%d(e+ep9>h <g?gBh@ xudl@'ii]y X< AtnG1Fstf ӨtNf:@KC@.pe)fRTC80X REL SER80X REL CON96X MACDEF806 MACDSK80F MACODSK8MX MAC@DSM553T2MAC F548X1 MAC blic 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: symP 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 DEF806.MAC ; Created by ZREL/MAC V3.3 ; Copyright 1984 MicroSmith Computer Technology ; .Z80 ;set mode for M80 NAME ('DEF806') ; Notice: symbol assumed public GLOBAL ?ORIG? ?ORIG? EQU 09H ; Notice: symbol assumed public GLOBAL ?UNFASLOD MAC NIT80X MACPAR80X MAC RTC80X MAC DSM553T2RELSER80X MACR$%&'()-STD806 ; ; File CON96X.MAC ; Created by ZREL/MAC V3.3 ; Copyright 1984 MicroSmith Computer Technology ; .Z80 ;set mode for M80 NAME ('CON96') ; Notice: symbol assumed public GLOBAL ?ORIG? ?ORIG? EQU 09H ; Notice: symbol assumed public GLOBAL ?UNIbol assumed public GLOBAL CSI CSI EQU CONDR@+04FH ; DSEG DEFB 08EH ;08EH 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 LD02H 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  JIT? ?UNIT? EQU 030FH ; Notice: symbol assumed public GLOBAL LEDPRT LEDPRT EQU 00H ; Notice: symbol assumed public GLOBAL SI1PRT SI1PRT EQU 010H ; Notice: symbol assumed public GLOBAL SI2PRT SI2PRT EQU 020H ; Notice: symbol assumed public GL   OBAL SI3PRT SI3PRT EQU 030H ; Notice: symbol assumed public GLOBAL WDRPRT WDRPRT EQU 040H ; Notice: symbol assumed public GLOBAL SI0PRT SI0PRT EQU 050H ; Notice: symbol assumed public GLOBAL DIPPRT DIPPRT EQU 060H ; Notice: symbol assumed pubmbol assumed public GLOBAL MAX422 MAX422 EQU 06H ; Notice: symbol assumed public GLOBAL SCAPRT SCAPRT EQU 050H ; Notice: symbol assumed public GLOBAL BRAPRT BRAPRT EQU 081H ; Notice: symbol assumed public GLOBAL SCBPRT SCBPRT EQU 051H ; Not; ; File DSK80F.MAC ; Created by ZREL/MAC V3.3 ; Copyright 1984 MicroSmith Computer Technology ; .Z80 ;set mode for M80 NAME ('DSK80F') ; Notice: symbol assumed public GLOBAL ?ORIG? ?ORIG? EQU 09H ; Notice: symbol assumed public GLOBAL ?UNDEFB 00H ;NUL DEFB 00H ;NUL @L1: DEFW @L1 DEFW @L1 @L69: DEFB 0C3H ;C DEFB 08BH ;08BH DEFB 079H ;y @L27: DEFB 00H ;NUL DEFB 00H ;NUL @L28: DEFB 00H ;NUL DEFB 00H ;NUL DEFB 014H ;014H DEFB 028H ;( DEFB 085H ;085H @00H ;NUL @L37: DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL @L39: DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL ; COMMON /?INIT?/ DEFB 0AFH ;/ DEFB 0D3H ;S DEFW FDDPRT DEFB 01H ;01H DEFW FDCPRT+03H DEFB 079H ;y DEFB 032H DSKDR@+034H LD A,(@L16) OR A ;7 0B7H RET Z ;H 0C8H CALL @L17 JR DSKDR@+031H LD A,0AH LD (@L10),A CALL @L11 CALL @L12 JR NZ,DSKDR@+09EH LD DE,0A2FDH CALL @L13 LD A,05H CALL @L14 CALL @L15 JR NZ,DSKDR@+05BH LD A,(@L16) Olic GLOBAL FDDPRT FDDPRT EQU 070H ; Notice: symbol assumed public GLOBAL CTCPRT CTCPRT EQU 080H ; Notice: symbol assumed public GLOBAL DMAPRT DMAPRT EQU 090H ; Notice: symbol assumed public GLOBAL WDCPRT WDCPRT EQU 0A0H ; Notice: symbol assice: symbol assumed public GLOBAL BRBPRT BRBPRT EQU 080H ; Notice: symbol assumed public GLOBAL SCCPRT SCCPRT EQU 00H ; Notice: symbol assumed public GLOBAL BRCPRT BRCPRT EQU 00H ; END ublic GLOBAL ROMPRT ROMPRT EQU 0E0H ; Notice: syIT? ?UNIT? EQU 030FH ; Notice: symbol assumed public GLOBAL STEPRT STEPRT EQU STEPRT+00H ; Notice: symbol assumed public GLOBAL UNLDTM UNLDTM EQU STEPRT+01H ; Notice: symbol assumed public GLOBAL DSKIN@ DSKIN@ EQU DSKIN@+00H ; Notice: symbol L2: DEFB 00H ;NUL DEFB 08AH ;LF DEFB 0CFH ;O @L67: DEFB 05H ;05H DEFB 0CFH ;O DEFB 087H ;087H @L6: DEFB 00H ;NUL DEFB 00H ;NUL @L16: DEFB 00H ;NUL @L10: DEFB 00H ;NUL @L30: DEFB 00H ;NUL DEFB 00H ;NUL @L29: DEFB  ;2 DEFW @L2 DEFB 0C3H ;C DEFW @L3 ; CSEG LD HL,@L4 CALL WAIT CALL @L5 PUSH AF ;u 0F5H LD HL,@L4 CALL SIGNAL POP AF ;q 0F1H RET ;I 0C9H @L5: LD (@L6),SP LD A,(IX+00H) OR A ;7 0B7H JR Z,DSKDR@+02CH DEC A ;= 03DH R A ;7 0B7H JR NZ,DSKDR@+09EH CALL @L11 CALL @L12 JR NZ,DSKDR@+09EH CALL @L18 LD D,082H CALL @L13 LD A,D ;z 07AH CALL @L19 AND 099H PUSH AF ;u 0F5H CALL @L3 CALL @L20 POP AF ;q 0F1H CALL @L15 JR NZ,DSKDR@+079H LD A,(@Lumed public GLOBAL FDCPRT FDCPRT EQU 0B0H ; Notice: symbol assumed public GLOBAL PICPRT PICPRT EQU 0C0H ; Notice: symbol assumed public GLOBAL PIOPRT PIOPRT EQU 0D0H ; Notice: symbol assumed public GLOBAL ROMPRT ROMPRT EQU 0E0H ; Notice: sy0X}@>TL>j6cB HDm ͪ`Nd՛a@ٶ ͭ"- "ZC,DͰLr:ŀ X 2X(2>2ŀ n̥ Lj 7M"@ p!fXP"xڦfѺn7LQ%n0ESt a $V"€ !dl*܁ikYeassumed public GLOBAL DSKDR@ DSKDR@ EQU $ ; Notice: symbol assumed public GLOBAL DSKTIC DSKTIC EQU DSKDR@+0335H ; DSEG DEFB 00H ;NUL DEFB 045H ;E DEFB 01H ;01H @L4: DEFB 01H ;01H DEFB 00H ;NUL @L0: DEFW @L0 DEFW @L0 @L45: 00H ;NUL DEFB 00H ;NUL @L54: DEFB 0FFH ;0FFH @L53: DEFB 0FFH ;0FFH DEFB 0FFH ;0FFH DEFB 0FFH ;0FFH DEFB 0FFH ;0FFH @L23: DEFB 00H ;NUL @L57: DEFB 00H ;NUL DEFB 00H ;NUL @L59: DEFB 00H ;NUL DEFB 00H ;NUL @L60: DEFB JR Z,DSKDR@+053H DEC A ;= 03DH JP Z,@L7 DEC A ;= 03DH JP Z,@L8 DEC A ;= 03DH JP Z,@L9 RET ;I 0C9H LD A,0AH LD (@L10),A CALL @L11 CALL @L12 JR NZ,DSKDR@+04EH LD DE,0829DH CALL @L13 LD A,01H CALL @L14 CALL @L15 JR NZ,16) OR A ;7 0B7H RET Z ;H 0C8H CALL @L17 JR DSKDR@+058H @L9: LD A,0AH LD (@L10),A CALL @L21 JP Z,@L22 LD A,(@L23) BIT 7,(IX+04H) JR NZ,DSKDR@+0B9H SET 3,A BIT 7,(IX+05H) JR Z,DSKDR@+0C1H SET 2,A ; Phase warning: 1 bytes.     DEFB 0D3H ;S DEFW FDDPRT LD (@L23),A LD A,(IX+02H) OR A ;7 0B7H CALL Z,@L25 CALL @L26 JR NZ,DSKDR@+0EFH LD L,(IX+0AH) LD H,(IX+0BH) LD (@L27),HL LD L,(IX+08H) LD H,(IX+09H) DEC HL ;+ 02BH LD (@L28),HL LD DE,0F0E1H LD A,0 CALL @L31 LD A,(@L29) BIT 2,(HL) LD HL,@L23 JR Z,DSKDR@+0150H LD C,(IX+013H) SRL C CP C ;9 0B9H JR C,DSKDR@+0150H SUB C ;091H 091H SET 2,(HL) LD BC,FDDPRT OUTI LD C,A ;O 04FH CALL @L33 JR Z,DSKDR@+015FH LD B,00H ADD HQ =I%8SU1AIR8 LT#M$AIR8`L#]IAIR8L#%AAIR8# Q AIR9 PT#] AIR9`#A% AIR9S#I=5AIR8 PV M AIR9T# M AIR9#M AIR8'9 PT#] 5H CALL @L14 RET Z ;H 0C8H CALL @L17 JR DSKDR@+0A8H @L11: LD L,(IX+04H) LD H,(IX+05H) LD (@L29),HL LD L,(IX+06H) LD H,(IX+07H) LD (@L30),HL LD L,(IX+0AH) LD H,(IX+0BH) LD (@L27),HL LD B,(IX+012H) INC B ;04H 04H LD HL,040HPӎM =I%8SU抠0CONBRTdd4(INITCd4E$CINITD4xCSO454p84!@(t-Fh ݙLm`@f= o,naP`xxͥ,Rxxͧ` Ld&!)FC2je$)$FJ@2zre@&  ADD HL,HL ;) 029H DJNZ DSKDR@+0116H DEC HL ;+ 02BH LD (@L28),HL XOR A ;/ 0AFH LD (@L16),A RET ;I 0C9H @L12: CALL @L21 JP Z,@L22 CALL @L26 RET NZ ;@ 0C0H CALL @L31 BIT 3,(HL) JR NZ,DSKDR@+0138H LD HL,@L23 SET 3,(HL)    &mfYL [D![D0X}@>TL>j6cB HDm ͪ`Nd՛a@ٶ ͭ"- "ZC,DͰLr:ŀ X 2X(2>2ŀ n̥ Lj 7M"@ p!fXP"xڦfѺn7LQ%n0ESt a $V202~i@.hfP5{$B}hb6Fj3k6l(V/xj̨l _s q1UL f@! aנ!V-e-e iِ!,,Za6ʁl(Eۺ@Na@{8<$6mShޣӭl ʹoHӬn7ےX6ݏdZW4 Y4F"ɠ+dՒ!@VU٠)2̖md7N YfY  p f,& A,aXeBl, Gqʹ#,{i/$`# 03m %iGXT$#"3m %^Gd:i, %$!8Ar@p di. $r@p @08C7 "€ !dl*܁ikYeCmmbPYXC8&G4-@=h@E@0N<r@  d`,e"B;abP EVH YV f Rfp/γՒͶ!2n05ͰBnHXGR!@,$!XP| b "`3j&!@Q@uQ`\,+U6m-f EvɌdDE%H̐FDCPRTtHxSIGNAL̀4UH( XLTBLـE4HPDSTBLSDED4LNKPOLTĔDELAYD%HLOKBNKD5͐FREBNKtHxSIGNAL̀4UH( XLTBLـE4HPDSTBLSDED4LNKPOLV# =I%8SU`R0?INIT? dE5D5H8%9%P>S#M-I\` ` @p@@@K@83hCŒ9`MG=eXH 2@ |;`63pDn*?O2?mzx<GxHF{$# `f! "8 u `z`A ,ʹ- 8s7dm6؀ >EX0V@ h$`N`@*Ym`(ʹLbےW'0 Pv( m,Ͷ@L+Ufo  =I%8SUrp?INIT?e5DU%HUNLDTMSUM-%9:#yM-Q%\"@ @ hP)g{L 0(C6=D8 ӒU#`AI=I6:PS 5I\` /wiyHI@hI P  / /4f 3@hT# =I%8SU 2LCLLODh ӘźrAj^`ʎ7OX 3@m4[hwf$Հc@mfCUҐMSƀPU8B 6mfPA*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   T # =I%8SU?INIT?SUAI9%R:TU%@xd`F vݪ0kF v y1D8p` I@8A@8;O {u4|vGiCH@0d($)*FF@" Jd@&'%'FQ2J:r de*&$% # =I%8SU ?INIT?SUIQ 9%R:TԥC@R@`$<i.Y@jWԴs Պr@h!Q0u@3@ Ev d5D5dT88CTCPRTTE5(INTSTKdDŕD8xDSKTICe%D54T8`ISRXIT Պr   th n0Y/63mӨ tM~[#tn Ұ6hJC3tnӘ!rۮKuͶ B9N.,( Y`>;O.)Z%AnGKu¯d\b(1[tfՠ t nmҰQ,7ۦ`67M4HF#@np`, +tCn['liWDHpBRAPRTe44%HBRBPRTe44%%H@BRCPRT5e445%HSIOVECT8ϠWAITdSIGNALTĔ`INTSPdE5DSLVRESdD4)BPRTe44%%H@BRCPRT5e445%HSIOVECT8ϠWAITdSIGNALTĔ`INTSPdEL,BC ;TAB 09H LD C,(HL) ;N 04EH LD A,C ;y 079H INC A ;< 03CH ; Phase warning: 1 bytes. DEFB 0D3H ;S DEFW FDCPRT+02H XOR A ;/ 0AFH RET ;I 0C9H @L13: LD A,(@L23) BIT 2,A RET Z ;H 0C8H SET 3,D RET ;I 0C9H @L15: LD HL,@L ;k 0EBH LD A,H ;| 07CH OR L ;5 0B5H RET ;I 0C9H @L31: CALL @L35 LD DE,TYPCOD ADD HL,DE ;019H 019H RET ;I 0C9H @L35: LD L,(IX+0CH) LD H,(IX+0DH) RET ;I 0C9H @L7: CALL @L21 JR Z,DSKDR@+021CH ; Phase warning: 1 bytes. DT # =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`16 OR (HL) ;6 0B6H LD (HL),A ;w 077H LD HL,(@L27) LD DE,(@L28) INC DE ;013H 013H ADD HL,DE ;019H 019H LD (@L27),HL LD HL,(@L29) INC HL ;# 023H LD (@L29),HL LD HL,(@L30) DEC HL ;+ 02BH LD (@L30),HL LD A,H ;| 07CH OR L ;EFB 0DBH ;[ DEFW FDCPRT+01H INC A ;< 03CH CALL Z,@L25 LD HL,@L37 LD (@L27),HL LD HL,05H LD (@L28),HL LD A,0AH LD (@L10),A LD A,01H LD DE,0C09DH CALL @L14 JR Z,DSKDR@+01F8H LD HL,@L10 DEC (HL) ;5 035H JR Z,DSKDR@+021CH L9>h <g?gBh@ xudl@'ii]y X< AtnG1Fstf ӨtNf:@KC@.pe)fF=eS*YUzʴ`#U %rm"?`MNnY/땛l@tnbs9Ѐ! n[b\p=HnfͺZȀ(7`;tn-Ѱ VM&[JNF:@tnn7LPe) VN`f?ctj n0YW\- źvMD8p\(7D9l?*qh`D"T@"DB(TE !D"P)"@5 0B5H RET ;I 0C9H @L17: LD HL,@L10 DEC (HL) ;5 035H JP Z,@L22 LD C,07H CALL CONOUT CALL @L25 RET ;I 0C9H @L33: CALL @L35 LD DE,XLTBL ADD HL,DE ;019H 019H LD E,(HL) ;^ 05EH INC HL ;# 023H LD D,(HL) ;V 056H EX DE,HL D A,(@L23) XOR 08H ; Phase warning: 1 bytes. DEFB 0D3H ;S DEFW FDDPRT LD (@L23),A JR DSKDR@+01DBH LD A,(@L39) LD C,A ;O 04FH LD A,(@L23) BIT 3,A JR NZ,DSKDR@+0205H SET 3,C SET 2,C SET 4,C LD DE,DSTBLS LD HL,DTCO ADD HL,DE    ;019H 019H LD A,C ;y 079H CP (HL) ;> 0BEH EX DE,HL ;k 0EBH JR Z,DSKDR@+021EH LD E,(HL) ;^ 05EH INC HL ;# 023H LD D,(HL) ;V 056H LD A,D ;z 07AH OR E ;3 0B3H JR NZ,DSKDR@+020CH XOR A ;/ 0AFH RET ;I 0C9H INC HL ;# 023H ase warning: 1 bytes. DEFB 0D3H ;S DEFW FDCPRT LD DE,@L44 CALL LNKPOL LD HL,@L45 CALL WAIT ; Phase warning: 1 bytes. DEFB 0DBH ;[ DEFW FDCPRT RET ;I 0C9H @L44: NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H ; P RES 3,B CP B ;8 0B8H CALL NZ,@L52 JR NZ,DSKDR@+02DDH LD DE,@L53 LD A,(@L54) CP (IX+01H) JR Z,DSKDR@+02D4H INC A ;< 03CH JR Z,DSKDR@+02C6H DEC A ;= 03DH LD L,A ;o 06FH LD H,00H ADD HL,DE ;019H 019H ; Phase warning: 1 bytes80H RET ;I 0C9H @L61: NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H LD HL,(@L59) DEC HL ;+ 02BH LD (@L59),HL LD A,H ;| 07CH OR L ;5 0B5H CALL Z,@L58 CALL @L3 LD E,A ;_ 05FH AND 080H JR NZ,DSKDR@+0329H LD DEFW FDCPRT AND 020H LD A,D ;z 07AH JR NZ,DSKDR@+0369H OR 04H LD HL,@L69 LD BC,DMAPRT+01000H OTIR CALL @L19 POP DE ;Q 0D1H AND E ;# 0A3H PUSH AF ;u 0F5H LD A,(@L69) ; Phase warning: 1 bytes. DEFB 0D3H ;S DEFW DMAPRT CAPOP DE ;Q 0D1H POP HL ;a 0E1H RET ;I 0C9H @L20: PUSH HL ;e 0E5H PUSH DE ;U 0D5H PUSH BC ;E 0C5H PUSH AF ;u 0F5H LD HL,DMASPH CALL SIGNAL CALL FREBNK POP AF ;q 0F1H POP BC ;A 0C1H POP DE ;Q 0D1H POP HL ;a 0E1H RET  INC HL ;# 023H OR 0FFH LD (IX+0CH),L LD (IX+0DH),H RET ;I 0C9H @L25: CALL @L3 LD A,(STEPRT) OR 08H CALL @L19 RET ;I 0C9H @L26: ; Phase warning: 1 bytes. DEFB 0DBH ;[ DEFW FDCPRT+01H INC A ;< 03CH CALL Z,@L25 LD B,(IXhase warning: 1 bytes. DEFB 0DBH ;[ DEFW FDCPRT AND 01H RET NZ ;@ 0C0H LD HL,@L45 CALL SIGNAL LD HL,@L44 JP UNLINK @L8: XOR A ;/ 0AFH LD (@L23),A @L21: CALL @L50 LD A,(IX+01H) CP 04H JR NC,DSKDR@+02DDH LD B,A ;G 047H I. DEFB 0DBH ;[ DEFW FDCPRT+01H LD (HL),A ;w 077H LD A,(IX+01H) LD (@L54),A LD L,A ;o 06FH LD H,00H ADD HL,DE ;019H 019H LD A,(HL) ;~ 07EH ; Phase warning: 1 bytes. DEFB 0D3H ;S DEFW FDCPRT+01H LD HL,(UNLDTM) LD (@L57),HL  A,(@L60) XOR E ;+ 0ABH AND 02H RET Z ;H 0C8H LD HL,@L45 CALL SIGNAL LD HL,@L61 JP UNLINK LD HL,(@L57) BIT 7,H RET NZ ;@ 0C0H DEC HL ;+ 02BH LD (@L57),HL BIT 7,H RET Z ;H 0C8H CALL @L3 @L58: XOR A ;/ 0AFH ; Phase warLL @L3 CALL @L20 POP AF ;q 0F1H RET ;I 0C9H @L3: LD A,0D0H ; Phase warning: 1 bytes. DEFB 0D3H ;S DEFW FDCPRT EX (SP),HL ;c 0E3H EX (SP),HL ;c 0E3H EX (SP),HL ;c 0E3H EX (SP),HL ;c 0E3H ; Phase warning: 1 bytes. DEFB 0DBH ;I 0C9H @L22: LD SP,(@L6) LD A,0FFH RET ;I 0C9H EXTERNAL FDDPRT EXTERNAL FDCPRT EXTERNAL WAIT EXTERNAL SIGNAL EXTERNAL CONOUT EXTERNAL XLTBL EXTERNAL TYPCOD EXTERNAL DSTBLS EXTERNAL DTCO EXTERNAL LNKPOL EXTERNAL UNLINK EXTE+02H) ; Phase warning: 1 bytes. DEFB 0DBH ;[ DEFW FDCPRT+01H CP B ;8 0B8H RET Z ;H 0C8H LD A,B ;x 078H ; Phase warning: 1 bytes. DEFB 0D3H ;S DEFW FDCPRT+03H LD A,(STEPRT) OR 018H CALL @L19 AND 091H RET ;I 0C9H @L19: ; PhNC B ;04H 04H LD A,08H ADD A,A ;087H 087H DJNZ DSKDR@+028EH SET 1,A LD HL,@L23 LD B,(HL) ;F 046H LD (HL),A ;w 077H ; Phase warning: 1 bytes. DEFB 0D3H ;S DEFW FDDPRT BIT 1,B JR NZ,DSKDR@+02A5H LD HL,03CH CALL DELAY RES 2,BOR 0FFH RET ;I 0C9H CALL @L58 XOR A ;/ 0AFH RET ;I 0C9H @L52: LD HL,07DH LD (@L57),HL LD HL,01388H LD (@L59),HL EI ;{ 0FBH CALL @L3 LD (@L60),A LD DE,@L61 CALL LNKPOL LD HL,@L45 CALL WAIT CALL @L50 CALL @L3 AND 0ning: 1 bytes. DEFB 0D3H ;S DEFW FDDPRT LD (@L23),A @L50: LD HL,0FFFFH LD (@L57),HL RET ;I 0C9H @L14: LD (@L67),A PUSH DE ;U 0D5H CALL @L18 CALL @L3 POP DE ;Q 0D1H PUSH DE ;U 0D5H ; Phase warning: 1 bytes. DEFB 0DBH ;[ ;[ DEFW FDCPRT+03H ; Phase warning: 1 bytes. DEFB 0DBH ;[ DEFW FDCPRT RET ;I 0C9H @L18: PUSH HL ;e 0E5H PUSH DE ;U 0D5H PUSH BC ;E 0C5H PUSH AF ;u 0F5H CALL LOKBNK LD HL,DMASPH CALL WAIT POP AF ;q 0F1H POP BC ;A 0C1H RNAL DELAY EXTERNAL DMAPRT EXTERNAL LOKBNK EXTERNAL DMASPH EXTERNAL FREBNK ; END PUSH BC ;E 0C5H PUSH AF ;u Z LISTNAME=LPT1  +YYYCommand Looking Reading Scan  F   ; ; File DSK8MX.MAC ; Created by ZREL/MAC V3.3 ; Copyright 1984 MicroSmith Computer Technology ; .Z80 ;set mode for M80 NAME ('DSK8MX') ; DSEG ORG 0 @DATA: CSEG ; Notice: symbol assumed public GLOBAL ?ORIG? ?ORIG? EQU 09H ; Notice: s53: DEFB 00H ;NUL @L44: DEFB 00H ;NUL @L65: DEFB 00H ;NUL @L66: DEFB 00H ;NUL @L51: DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 0FFH ;0FFH DEFW DSTDRA DEFB 0FFH ;0FFH DEFW DSTDRA DEFB 0FFH ;0FFH DEFW DSTDRA DEFB DEFB 00H ;NUL @L38: DEFB 00H ;NUL DEFB 00H ;NUL @L54: DEFB 00H ;NUL @L40: DEFB 00H ;NUL @L28: DEFB 00H ;NUL @L43: DEFB 00H ;NUL ; COMMON /?INIT?/ DEFB 0C3H ;C DEFW DSTNIT ; CSEG LD HL,@DATA CALL WAIT CALL @L18 PLL @L25 LD A,030H CALL @L30 CALL @L27 JR NZ,DSKDR@+053H LD A,(@L28) OR A ;7 0B7H JR NZ,DSKDR@+07BH CALL @L24 CALL @L25 LD A,020H CALL @L31 CALL @L27 JR NZ,DSKDR@+069H LD A,(@L28) OR A ;7 0B7H RET Z ;H 0C8H CALL @L29 J LD L,(IX+06H) LD H,(IX+07H) LD (@L39),HL LD L,(IX+0AH) LD H,(IX+0BH) LD (@L36),HL LD B,(IX+012H) INC B ;04H 04H LD HL,040H ADD HL,HL ;) 029H DJNZ DSKDR@+0E0H DEC HL ;+ 02BH LD (@L37),HL XOR A ;/ 0AFH LD (@L28),A CALL @L3 DEC (HL) ;5 035H JP Z,@L32 LD C,07H CALL CONOUT LD HL,@L43 RES 0,(HL) RET ;I 0C9H @L20: CALL @L21 RET Z ;H 0C8H LD (IX+0CH),L LD (IX+0DH),H RET ;I 0C9H @L34: LD HL,@L43 BIT 0,(HL) SET 0,(HL) CALL Z,@L33 LD A,(@L4ymbol assumed public GLOBAL ?UNIT? ?UNIT? EQU 030FH ; Notice: symbol assumed public GLOBAL DSTAST DSTAST EQU @DATA+018H ; Notice: symbol assumed public GLOBAL DSKIN@ DSKIN@ EQU DSKIN@+00H ; Notice: symbol assumed public GLOBAL DSKDR@ DSKDR@  0FFH ;0FFH DEFW DSTDRA DEFB 0FFH ;0FFH DEFW DSTDRA DEFB 0FFH ;0FFH DEFW DSTDRA DEFB 0FFH ;0FFH DEFW DSTDRA DEFB 0FFH ;0FFH DEFW DSTDRA DEFB 0FFH ;0FFH DEFW DSTDRA DEFB 0FFH ;0FFH DEFW DSTDRA DEFB 0FFH ;0FFH DEFW DSTDRUSH AF ;u 0F5H LD HL,@DATA CALL SIGNAL POP AF ;q 0F1H RET ;I 0C9H @L18: LD (@L19),SP LD A,(IX+00H) OR A ;7 0B7H JR Z,DSKDR@+02CH DEC A ;= 03DH JR Z,DSKDR@+04BH DEC A ;= 03DH JP Z,@L20 DEC A ;= 03DH JP Z,@L21 DEC A ;=R DSKDR@+050H @L22: LD A,05H LD (@L23),A CALL @L21 JP Z,@L32 LD A,(IX+02H) OR (IX+03H) CALL Z,@L33 CALL @L34 LD A,020H ; Phase warning: 1 bytes. DEFB 0D3H ;S DEFW WDCPRT+02H XOR A ;/ 0AFH ; Phase warning: 1 bytes. DEFB 0D3H 21 JP Z,@L32 JR @L34 @L25: LD A,(@L40) ; Phase warning: 1 bytes. DEFB 0D3H ;S DEFW WDCPRT+06H LD A,(@L38) ; Phase warning: 1 bytes. DEFB 0D3H ;S DEFW WDCPRT+03H RET ;I 0C9H @L27: LD HL,@L28 OR (HL) ;6 0B6H LD (HL),A ;w 0774) LD D,00H LD E,A ;_ 05FH LD L,(IX+02H) LD H,(IX+03H) XOR A ;/ 0AFH LD B,010H INC A ;< 03CH RL E RL D JR C,DSKDR@+0161H DJNZ DSKDR@+0158H LD C,E ;K 04BH LD B,D ;B 042H LD DE,00H RR B RR C SBC HL,BC CCF ;? 03FH EQU $ ; DSEG DEFB 01H ;01H DEFB 00H ;NUL @L0: DEFW @L0 DEFW @L0 @L58: DEFB 00H ;NUL DEFB 00H ;NUL @L1: DEFW @L1 DEFW @L1 @L36: DEFB 00H ;NUL DEFB 00H ;NUL @L37: DEFB 00H ;NUL DEFB 00H ;NUL @L48: DEFB 00H ;NUL @LA DEFB 0FFH ;0FFH DEFW DSTDRA DEFB 0FFH ;0FFH DEFW DSTDRA DEFB 0FFH ;0FFH DEFW DSTDRA DEFB 0FFH ;0FFH DEFW DSTDRA DEFB 0FFH ;0FFH DEFW DSTDRA @L19: DEFB 00H ;NUL DEFB 00H ;NUL @L23: DEFB 00H ;NUL @L39: DEFB 00H ;NUL  03DH JP Z,@L22 RET ;I 0C9H LD A,05H LD (@L23),A CALL @L24 CALL @L25 LD A,020H CALL @L26 CALL @L27 JR NZ,DSKDR@+034H LD A,(@L28) OR A ;7 0B7H RET Z ;H 0C8H CALL @L29 JR DSKDR@+031H LD A,05H LD (@L23),A CALL @L24 CA;S DEFW WDCPRT+03H LD L,(IX+0AH) LD H,(IX+0BH) LD (@L36),HL LD L,(IX+08H) LD H,(IX+09H) DEC HL ;+ 02BH LD (@L37),HL LD A,050H CALL @L30 RET Z ;H 0C8H CALL @L29 JR DSKDR@+085H @L24: LD L,(IX+04H) LD H,(IX+05H) LD (@L38),HLH LD HL,(@L36) LD DE,(@L37) INC DE ;013H 013H ADD HL,DE ;019H 019H LD (@L36),HL LD HL,(@L38) INC HL ;# 023H LD (@L38),HL LD HL,(@L39) DEC HL ;+ 02BH LD (@L39),HL LD A,H ;| 07CH OR L ;5 0B5H RET ;I 0C9H @L29: LD HL,@L2RL E RL D BIT 0,E JR NZ,DSKDR@+0176H ADD HL,BC ;TAB 09H DEC A ;= 03DH OR A ;7 0B7H JR NZ,DSKDR@+0166H LD A,L ;} 07DH CALL @L45 LD (@L40),A LD A,E ;{ 07BH ; Phase warning: 1 bytes. DEFB 0D3H ;S DEFW WDCPRT+04H LD A,D ;z 0   7AH ; Phase warning: 1 bytes. DEFB 0D3H ;S DEFW WDCPRT+05H LD A,(@L48) OR 060H CALL @L49 RET ;I 0C9H @L33: CALL @L50 LD A,(@L51) ; Phase warning: 1 bytes. DEFB 0D3H ;S DEFW WDCPRT+01H LD A,(@L53) OR 010H CALL @L49 RET ;0C9H @L57: NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H ; Phase warning: 1 bytes. DEFB 0DBH ;[ DEFW WDCPRT+07H AND 080H RET NZ ;@ 0C0H LD HL,@L58 CALL SIGNAL LD HL,@L57 JP UNLINK @L21: LD HL,DSTAST LD DE,03H  XOR A ;/ 0AFH RET ;I 0C9H @L64: LD DE,@L48 LD BC,08H LDIR RET ;I 0C9H CALL @L64 LD A,(@L65) LD B,00H LD C,A ;O 04FH LD A,(IX+01H) SUB C ;091H 091H JR C,DSKDR@+022BH INC B ;04H 04H JR DSKDR@+0225H ADD A,C ;081H 08 HL,(@L36) LD BC,WDCPRT INIR JR DSKDR@+0297H @L30: CALL @L69 CALL @L72 ; Phase warning: 1 bytes. DEFB 0DBH ;[ DEFW WDCPRT+07H AND 08H JR Z,DSKDR@+026FH LD HL,(@L36) LD BC,WDCPRT OTIR CALL @L75 JR DSKDR@+0297H @L31: CALL : PUSH HL ;e 0E5H PUSH DE ;U 0D5H PUSH BC ;E 0C5H PUSH AF ;u 0F5H LD HL,DMASPH CALL SIGNAL CALL FREBNK POP AF ;q 0F1H POP BC ;A 0C1H POP DE ;Q 0D1H POP HL ;a 0E1H RET ;I 0C9H @L32: LD SP,(@L19) LD A,0FFH RET ;I 0CUNIT? ?UNIT? EQU 030FH ; Notice: symbol assumed public GLOBAL DSTDR@ DSTDR@ EQU $ ; Notice: symbol assumed public GLOBAL STPWD@ STPWD@ EQU $ ; Notice: symbol assumed public GLOBAL BLSZ1@ BLSZ1@ EQU STPWD@+08H ; Notice: symbol assumed public I 0C9H @L50: XOR A ;/ 0AFH @L45: LD B,A ;G 047H LD A,(@L54) ADD A,A ;087H 087H ADD A,A ;087H 087H ADD A,A ;087H 087H OR B ;0 0B0H ; Phase warning: 1 bytes. DEFB 0D3H ;S DEFW WDCPRT+06H RET ;I 0C9H @L49: ; Phase warning: 1  LD B,(IX+01H) XOR A ;/ 0AFH OR B ;0 0B0H JR Z,DSKDR@+01EEH ADD HL,DE ;019H 019H DJNZ DSKDR@+01EBH LD A,(HL) ;~ 07EH INC HL ;# 023H LD E,(HL) ;^ 05EH INC HL ;# 023H LD D,(HL) ;V 056H EX DE,HL ;k 0EBH CP 0FFH JR Z,DSKDR@+1H PUSH AF ;u 0F5H LD A,(@L66) LD E,A ;_ 05FH LD D,00H POP AF ;q 0F1H DEC A ;= 03DH JP M,@L67 ADD HL,DE ;019H 019H JR DSKDR@+0234H @L67: LD A,B ;x 078H CP 04H JR NC,DSKDR@+0250H LD (@L54),A CALL @L50 ; Phase warning: 1 b@L69 CALL @L49 ; Phase warning: 1 bytes. DEFB 0DBH ;[ DEFW WDCPRT+07H AND 08H JR Z,DSKDR@+0289H LD B,00H ; Phase warning: 1 bytes. DEFB 0DBH ;[ DEFW WDCPRT DJNZ DSKDR@+0292H ; Phase warning: 1 bytes. DEFB 0DBH ;[ DEFW WDCPRT+07H9H EXTERNAL DSTDRA EXTERNAL DSTNIT EXTERNAL WAIT EXTERNAL SIGNAL EXTERNAL WDCPRT EXTERNAL CONOUT EXTERNAL LNKPOL EXTERNAL UNLINK EXTERNAL LOKBNK EXTERNAL DMASPH EXTERNAL FREBNK ; END D1H POP HL ;a 0E1H RET ;I 0C9H @L79 GLOBAL DIRB1@ DIRB1@ EQU STPWD@+0BH ; Notice: symbol assumed public GLOBAL BLSZ2@ BLSZ2@ EQU STPWD@+013H ; Notice: symbol assumed public GLOBAL DIRB2@ DIRB2@ EQU STPWD@+016H NOP ;NUL 00H LD BC,0205H DEC BC ;0BH 0BH ADD A,B ;NUL 080H bytes. DEFB 0D3H ;S DEFW WDCPRT+07H @L75: LD DE,@L57 CALL LNKPOL LD HL,@L58 CALL WAIT ; Phase warning: 1 bytes. DEFB 0DBH ;[ DEFW WDCPRT+07H RET ;I 0C9H @L72: ; Phase warning: 1 bytes. DEFB 0D3H ;S DEFW WDCPRT+07H RET ;I 0219H CALL @L64 PUSH AF ;u 0F5H AND 070H RRCA ;0FH 0FH RRCA ;0FH 0FH RRCA ;0FH 0FH RRCA ;0FH 0FH LD B,A ;G 047H POP AF ;q 0F1H AND 0FH LD C,A ;O 04FH LD A,(@L65) SUB C ;091H 091H LD A,C ;y 079H JR NC,DSKDR@+022CHytes. DEFB 0DBH ;[ DEFW WDCPRT+07H AND 040H JR Z,DSKDR@+0250H OR 0FFH RET ;I 0C9H XOR A ;/ 0AFH RET ;I 0C9H @L26: CALL @L69 CALL @L49 ; Phase warning: 1 bytes. DEFB 0DBH ;[ DEFW WDCPRT+07H AND 08H JR Z,DSKDR@+0258H LD AND 01H CALL @L79 RET ;I 0C9H @L69: PUSH HL ;e 0E5H PUSH DE ;U 0D5H PUSH BC ;E 0C5H PUSH AF ;u 0F5H CALL LOKBNK LD HL,DMASPH CALL WAIT POP AF ;q 0F1H POP BC ;A 0C1H POP DE ;Q 0D1H POP HL ;a 0E1H RET ;I 0C9H @L79; ; File DSM553T2.MAC ; Created by ZREL/MAC V3.3 ; Copyright 1984 MicroSmith Computer Technology ; .Z80 ;set mode for M80 NAME ('M553T2') ; Notice: symbol assumed public GLOBAL ?ORIG? ?ORIG? EQU 09H ; Notice: symbol assumed public GLOBAL ? NOP ;NUL 00H INC D ;014H 014H ADD A,L ;085H 085H CP 013H LD B,B ;@ 040H LD BC,020H LD BC,020AH NOP ;NUL 00H ADD A,L ;085H 085H CP 013H LD B,B ;@ 040H LD BC,020H NOP ;NUL 00H INC D ;014H 014H ; Phase warning: 2 bytes.    DEFW 0A01H ; END TPWD@+0BH ; Notice: symbol assumed public GLOBAL BLSZ2@ BLSZ2@ EQU STPWD@+013H ; Notice: symboli:B:C:D:E:F:G:H:I:J:K:L:M:N:O:P:R:S:T:U:V:W:X:Y:Z:[:]:^:`:a:c:d:e:f:g:h:n;k:l:m:n:p:q:r:t:u:w:x:y:z:{:|:}:~:::OBAL DTCO DTCO EQU 0FH ; Notice: symbol assumed public GLOBAL TYPCOD TYPCOD EQU 0DH DEFW @L0 INC B ;04H 04H RET Z ;H 0C8H NOP ;NUL 00H LD (BC),A ;02H 02H INC BC ;03H 03H LD A,(BC) ;LF 0AH NOP ;NUL 00H JR Z,DSTBLS+0BH NOP QU DSTBLS+020H ; END NOP ;NUL 00H NOP ;NUL 00H RRA ;01FH 01FH @L0: DEFW @L1 LD B,H ;D 044H XOR A ;/ 0mber of files per line File names with  and  are subdirectory names Press ENTER to resume$ ; ; File FASLOD.MAC ; Created by ZREL/MAC V3.3 ; Copyright 1984 MicroSmith Computer Technology ; .Z80 ;set mode for M80 NAME ('FASLOD') ; DSEG ORG 0 @DATA: CSEG ; Notice: symbol assumed public GLOBAL ?ORIG? ?ORIG? EQU 09H ; Notice: sEFB 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 @L4: DEFB 00H ;NU; ; File F548X1.MAC ; Created by ZREL/MAC V3.3 ; Copyright 1984 MicroSmith Computer Technology ; .Z80 ;set mode for M80 NAME ('F548X1') ; Notice: symbol assumed public GLOBAL ?ORIG? ?ORIG? EQU 09H ; Notice: symbol assumed public GLOBAL ?UN ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H RRA ;01FH 01FH @L0: DEFW @L1 LD B,H ;D 044H XOR A ;/ 0AFH NOP ;NUL 00H LD (BC),A ;02H 02H LD (BC),A ;02H 02H LD (DE),A ;012H 012H NOP ;NUL 00H JR Z,DSTBLS+01BH Lymbol assumed public GLOBAL ?UNIT? ?UNIT? EQU 030FH ; Notice: symbol assumed public GLOBAL LCLLOD LCLLOD EQU $ ; DSEG DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL @L16: DEFB 00H ;NUL 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 ;NULIT? ?UNIT? EQU 030FH ; Notice: symbol assumed public GLOBAL DSTBLS DSTBLS EQU $ ; Notice: symbol assumed public GLOBAL FDEXM FDEXM EQU DSTBLS+022H ; Notice: symbol assumed public GLOBAL XLTBL XLTBL EQU 0BH ; Notice: symbol assumed public GLD BC,00H NOP ;NUL 00H LD E,00H NOP ;NUL 00H LD B,H ;D 044H XOR E ;+ 0ABH NOP ;NUL 00H LD BC,02401H NOP ;NUL 00H JR Z,DSTBLS+02BH LD (BC),A ;02H 02H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H DEC E ;01DH 01DH @L1 EDEFB 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 ;NUL D @L5: DEFB 00H ;NUL DEFB 00H ;NUL @L7: DEFB 00H ;NUL DEFB 00H ;NUL @L8: DEFB 00H ;NUL DEFB 00H ;NUL ; CSEG CALL GETFA LD DE,@DATA LD (IX+031H),E LD (IX+032H),D LD BC,0CH LDIR XOR A ;/ 0AFH LD (DE),A ;012H 012H L   D A,(@DATA) DEC A ;= 03DH JP P,@L1 LD A,(IX+03DH) @L1: LD E,A ;_ 05FH LD D,00H LD C,01AH CALL XTNTRY CALL @L2 OR A ;7 0B7H JP NZ,EXITA CALL GETCRA LD (HL),A ;w 077H @L12: CALL GETFA LD DE,@L4 LD BC,010H LDIR LD HL,0 JR Z,LCLLOD+0E7H PUSH BC ;E 0C5H PUSH AF ;u 0F5H CALL FLOADC POP AF ;q 0F1H LD L,A ;o 06FH LD H,00H CALL GETABS DEC A ;= 03DH JP M,@L10 ADD HL,HL ;) 029H JR LCLLOD+091H @L10: LD (IX+020H),L LD (IX+021H),H CALL SHL7HL  0E1H DJNZ LCLLOD+074H JR LCLLOD+0F2H BIT 6,(IX+0EH) JR Z,LCLLOD+010BH CALL @L11 CALL GETFXA CALL GETEXM INC A ;< 03CH ADD A,(HL) ;086H 086H LD (HL),A ;w 077H CALL @L2 INC A ;< 03CH JP NZ,@L12 JR LCLLOD+010BH POP BC ;A 0CXTERNAL MEMRES EXTERNAL DSKMGR EXTERNAL ERRXIT EXTERNAL GETFXA EXTERNAL GETEXM EXTERNAL XCNTRY EXTERNAL SAVEDM ; END  CALL GETFA LD (@L7),HL LD (@L8),HL JP SAVEDM @L11: CALL GETFA EX DE,HL ;k 0EBH LD HL,@L4 LD BC,010H 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 0H LD (@L5),HL CALL @L6 CALL GETABN JR Z,LCLLOD+071H PUSH HL ;e 0E5H LD HL,(@L5) OR A ;7 0B7H SBC HL,DE INC DE ;013H 013H LD (@L5),DE JR Z,LCLLOD+061H LD HL,(@L7) LD (@L8),HL LD (HL),01H JR LCLLOD+06AH LD HL,(@L8) INC (LD E,(IX+03EH) LD D,(IX+03FH) LD (IX+01EH),E LD (IX+01FH),D ADD HL,DE ;019H 019H JR C,LCLLOD+0107H EX DE,HL ;k 0EBH LD HL,(MEMBAS) DEC HL ;+ 02BH DEC HL ;+ 02BH DEC HL ;+ 02BH LD BC,(MEMRES) SBC HL,BC JR C,LCLLOD+0107H SBC 1H POP HL ;a 0E1H LD A,01H PUSH AF ;u 0F5H CALL @L11 LD DE,@DATA LD C,010H CALL XCNTRY POP AF ;q 0F1H JP EXITA @L6: CALL GETFA LD (@L7),HL LD (@L8),HL JP SAVEDM @L11: CALL GETFA EX DE,HL ;k 0EBH LD HL,@L4 LD BC,010H ; ; 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 HL) ;4 034H LD HL,(@L7) LD (HL),00H INC HL ;# 023H LD (@L7),HL POP HL ;a 0E1H DJNZ LCLLOD+044H CALL @L6 CALL GETABN JR Z,LCLLOD+0ECH PUSH HL ;e 0E5H LD HL,(@L8) LD A,(HL) ;~ 07EH INC HL ;# 023H LD (@L8),HL OR A ;7 0B7H HL,DE JR C,LCLLOD+0107H LD (IX+03EH),E LD (IX+03FH),D LD A,(IX+024H) LD (IX+01BH),A LD A,(IX+025H) LD (IX+01CH),A LD A,(IX+026H) LD (IX+01DH),A LD (IX+019H),00H CALL DSKMGR OR A ;7 0B7H JP NZ,ERRXIT POP BC ;A 0C1H POP HL ;a LDIR RET ;I 0C9H @L2: LD HL,@L16 SET 7,(HL) LD DE,@DATA LD C,0FH JP XCNTRY EXTERNAL GETFA EXTERNAL XTNTRY EXTERNAL EXITA EXTERNAL GETCRA EXTERNAL GETABN EXTERNAL FLOADC EXTERNAL GETABS EXTERNAL SHL7HL EXTERNAL MEMBAS EIT? ?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    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 CKTIymbol assumed public GLOBAL ?UNIT? ?UNIT? EQU 030FH ; Notice: symbol assumed public GLOBAL PARNIT PARNIT EQU PARNIT+00H ; Notice: symbol assumed public GLOBAL PPOUT PPOUT EQU $ ; DSEG DEFB 01H ;01H DEFB 00H ;NUL @L0: DEFW @L0 DEFW BC ;E 0C5H LD HL,@DATA CALL WAIT LD HL,@L4 POP BC ;A 0C1H LD (HL),C ;q 071H LD DE,@L5 CALL LNKPOL CALL @L6 LD HL,@L7 CALL WAIT LD HL,@DATA JP SIGNAL @L5: NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H @L6: 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 @L0 @L7: DEFB 00H ;NUL DEFB 00H ;NUL @L1: DEFW @L1 DEFW @L1 @L4: DEFB 0FFH ;0FFH ; COMMON /?INIT?/ DEFB 021H ;! DEFW @L2 DEFB 01H ;01H DEFW PIOPRT+03H DEFB 0EDH ;m DEFB 0A3H ;# DEFB 0DH ;CR DEFB 0EDH ;m DEFB 0A3H  LD BC,PIOPRT IN A,(C) BIT 5,A RET NZ ;@ 0C0H LD A,(@L4) INC C ;0CH 0CH OUT (C),A DEC C ;CR 0DH LD A,0FEH OUT (C),A LD A,0FFH OUT (C),A LD HL,@L5 CALL UNLINK LD HL,@L7 JP SIGNAL EXTERNAL PIOPRT EXTERNAL WAIT EXTERNAL; ; 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; ; File PAR80X.MAC ; Created by ZREL/MAC V3.3 ; Copyright 1984 MicroSmith Computer Technology ; .Z80 ;set mode for M80 NAME ('PAR80X') ; DSEG ORG 0 @DATA: CSEG ; Notice: symbol assumed public GLOBAL ?ORIG? ?ORIG? EQU 09H ; Notice: s ;# DEFB 0EDH ;m DEFB 0A3H ;# DEFB 0DH ;CR DEFB 0EDH ;m DEFB 0A3H ;# DEFB 0DH ;CR DEFB 0EDH ;m DEFB 0A3H ;# DEFB 0C9H ;I @L2: DEFB 0FH ;0FH DEFB 0CFH ;O DEFB 07CH ;| DEFB 00H ;NUL DEFB 0FFH ;0FFH ; CSEG PUSH  LNKPOL EXTERNAL SIGNAL EXTERNAL UNLINK ; END  ;A 0C1H LD (HL),C ;q 071H LD DE,@L5 CALL LNKPOL CALL @L6 TPC-1 TD0seTS-802H TD0!VyUfITS-803 TD0qffITVDOS211TD0fLymbol 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   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,INAeBeCeDeEeFeGeHeIeKeLeMeNeOePeQeReSeTeUeVeWeXeYeZe[e\e]e^e_e`eaebecedeeefegeheiekelemeneoepeqereseteuevewexeyeze{e|e}e~eeeMML =I%8SU j Ѐ b ȉ*HF(0 dȉ*HFH D+&@PMDRV+02D5H XOR A ;/ 0AFH DEC HL ;+ 02BH CP (HL) ;> 0BEH RET Z ;H 0C8H INC HL ;# 023H LD (HL),A ;w 077H DEC H GLOBAL SXBISR SXBISR EQU COMDRV+0214H ; Notice: symbol assumed public GLOBAL SSBISR SSBISR EQU COMDRV+0236H ; Notice: symbol assumed public GLOBAL STBISR STBISR EQU COMDRV+0247H ; Notice: symbol assumed public GLOBAL SRBISR SRBISR EQU COMDRUL 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 ;NU 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 @L20: DEFB 00H ;NUL @L23: DEFB 00H ;NUL DEFB 00H ;NUL @L1 ;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 DECymbol assumed public GLOBAL ?UNIT? ?UNIT? EQU 030FH ; Notice: symbol assumed public GLOBAL CTSSTI CTSSTI EQU @DATA+018H ; Notice: symbol assumed public GLOBAL CTSDRT CTSDRT EQU @DATA+019H ; Notice: symbol assumed public GLOBAL SERNIT SERNIT V+024AH ; DSEG DEFB 00H ;NUL DEFB 00H ;NUL @L0: DEFW @L0 DEFW @L0 @L18: DEFB 00H ;NUL DEFB 00H ;NUL @L1: DEFW @L1 DEFW @L1 @L25: DEFB 00H ;NUL DEFB 00H ;NUL @L2: DEFW @L2 DEFW @L2 @L29: DEFB 00H ;NUL DEFB 00H ;NL 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 ;NUL7: 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 ;NU (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 INTEQU SERNIT+00H ; Notice: symbol assumed public GLOBAL COMDRV COMDRV EQU $ ; Notice: symbol assumed public GLOBAL SERIAL SERIAL EQU COMDRV+09H ; Notice: symbol assumed public GLOBAL SRAISR SRAISR EQU COMDRV+01CDH ; Notice: symbol assumed publicUL @L3: DEFW @L3 DEFW @L3 DEFB 02H ;02H DEFB 020H ;SP DEFB 00H ;NUL @L14: 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   yJ..  yCOUNTRY SYS`KEEGA SYS`TKEYB COM`W;;KEYBOARDSYS`_>NLSFUNC EXE`rlDISPLAY SYS`v=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 ;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 ;NUL DEFB 00H ;NUL DEFB 01H ;01H DEFB 08H ;08H DEFB 00H ;NUL DEFB 0EDH ;m DEFB 0B0H ;0 DEFB 03EH ;> DEFB 02H ;02H DEFB 0D3H ;S DEFB 033H ;3 DEFB 021H ;! DEFW DRTVEC DEFB 07DH ;} DEFB 0D3H ;S DEFB 033H ;3 DEFB 03EH ;> DEFB 01H ;01HFB 028H ;( DEFB 0C9H ;I @L4: DEFW STBISR DEFW SXBISR DEFW SRBISR DEFW SSBISR ; CSEG LD A,B ;x 078H CP 02H JR NZ,SERIAL LD HL,(CONAST+01H) JP (HL) ;i 0E9H LD A,E ;{ 07BH OR A ;7 0B7H JP Z,@L6 CP 0AH JP Z,@L7 DEC A  IN A,(02EH) AND 080H RET Z ;H 0C8H LD A,(@L20) BIT 6,A JR Z,COMDRV+07BH IN A,(021H) LD HL,CTSSTI AND (HL) ;& 0A6H LD A,00H RET NZ ;@ 0C0H LD A,C ;y 079H OUT (02FH),A OR 0FFH RET ;I 0C9H IN A,(033H) AND 04H RET Z ;H LD HL,CTSSTI AND (HL) ;& 0A6H RET NZ ;@ 0C0H LD A,(@L23) OUT (02FH),A LD HL,@L24 CALL UNLINK LD HL,@L25 JP SIGNAL LD HL,@L26 LD (HL),C ;q 071H LD DE,@L27 CALL LNKPOL LD HL,@L29 JP WAIT @L27: NOP ;NUL 00H NOP ;NUL 0 OUT (02BH),A POP AF ;q 0F1H OR 010H OUT (029H),A LD A,098H OUT (02CH),A LD A,01H OUT (02EH),A OUT (02DH),A RET ;I 0C9H LD (@L21),A IN A,(029H) AND 0F0H OUT (029H),A PUSH AF ;u 0F5H LD A,(HL) ;~ 07EH OUT (02AH),A POP 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 ;NUL  DEFB 0D3H ;S DEFB 033H ;3 DEFB 03EH ;> DEFB 04H ;04H DEFB 0D3H ;S DEFB 033H ;3 DEFB 021H ;! DEFW SRAISR DEFB 022H ;" DEFW STIVEC+018H DEFB 0DBH ;[ DEFB 027H ;' DEFB 0F6H ;v DEFB 010H ;010H DEFB 0D3H ;S DEFB 027;= 03DH JP Z,@L8 DEC A ;= 03DH JP Z,@L9 DEC A ;= 03DH JP Z,@L10 DEC A ;= 03DH JP Z,@L11 DEC A ;= 03DH JP Z,@L12 DEC A ;= 03DH JP Z,@L13 RET ;I 0C9H @L6: EI ;{ 0FBH BIT 0,B JR NZ,COMDRV+03CH LD HL,@L14 LD DE,@DATA 0C8H LD A,(@L21) BIT 6,A JR Z,COMDRV+095H LD A,(@L22) LD HL,CTSDRT AND (HL) ;& 0A6H RET Z ;H 0C8H LD A,C ;y 079H OUT (031H),A OR 0FFH RET ;I 0C9H @L9: CALL @L7 OR A ;7 0B7H RET NZ ;@ 0C0H BIT 0,B JR NZ,COMDRV+0DCH 0H NOP ;NUL 00H NOP ;NUL 00H IN A,(033H) BIT 2,A RET Z ;H 0C8H LD A,(@L21) BIT 6,A JR Z,COMDRV+0104H LD A,(@L22) LD HL,CTSDRT AND (HL) ;& 0A6H RET Z ;H 0C8H LD A,(@L26) OUT (031H),A LD HL,@L27 CALL UNLINK LD HL,@L29 AF ;q 0F1H OR 01H OUT (029H),A LD HL,@L34 LD C,033H LD B,0AH OTIR IN A,(C) LD (@L22),A RET ;I 0C9H @L34: JR COMDRV+017CH INC B ;04H 04H LD C,H ;L 04CH INC BC ;03H 03H POP BC ;A 0C1H DEC B ;05H 05H JP PE,01D01H @L DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL @L21: DEFB 00H ;NUL @L26: DEFB 00H ;NUL @L22: DEFB 00H ;NUL ; COMMON /?INIT?/ DEFB 021H ;! DEFW @L4 DEFB 011H ;011H DEFW DRTVEC H ;' DEFB 0DBH ;[ DEFB 028H ;( DEFB 0F5H ;u DEFB 03EH ;> DEFB 05H ;05H DEFB 0D3H ;S DEFB 028H ;( DEFB 0DBH ;[ DEFB 020H ;SP DEFB 0F6H ;v DEFB 010H ;010H DEFB 0D3H ;S DEFB 020H ;SP DEFB 0F1H ;q DEFB 0D3H ;S DE LD B,040H JP @L16 LD HL,@L17 LD DE,@L18 LD B,040H JP @L16 @L8: EI ;{ 0FBH BIT 0,B JR NZ,COMDRV+057H LD HL,@L14 LD DE,@DATA LD B,040H JP @L19 LD HL,@L17 LD DE,@L18 LD B,040H JP @L19 @L7: BIT 0,B JR NZ,COMDRV+081H  LD HL,@L23 LD (HL),C ;q 071H LD DE,@L24 CALL LNKPOL LD HL,@L25 JP WAIT @L24: NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H IN A,(02EH) BIT 7,A RET Z ;H 0C8H LD A,(@L20) BIT 6,A JR Z,COMDRV+0CBH IN A,(021H)  JP SIGNAL @L10: LD A,C ;y 079H AND 0FH LD E,A ;_ 05FH LD D,00H LD HL,@L33 ADD HL,DE ;019H 019H LD A,C ;y 079H BIT 0,B JR NZ,COMDRV+0141H LD (@L20),A IN A,(029H) AND 0FH OUT (029H),A PUSH AF ;u 0F5H LD A,(HL) ;~ 07EH 11: LD A,(@L20) BIT 0,B RET Z ;H 0C8H LD A,(@L21) RET ;I 0C9H @L12: BIT 0,B JR NZ,COMDRV+018DH IN A,(021H) OR 024H BIT 7,C JR Z,COMDRV+0184H RES 2,A BIT 6,C JR Z,COMDRV+018AH RES 5,A OUT (021H),A RET ;I 0C9H LD E,0    68H BIT 7,C JR Z,COMDRV+0195H SET 1,E BIT 6,C JR Z,COMDRV+019BH SET 7,E LD A,05H DI ;s 0F3H OUT (033H),A LD A,E ;{ 07BH OUT (033H),A EI ;{ 0FBH RET ;I 0C9H @L13: BIT 0,B JR NZ,COMDRV+01BBH LD E,00H IN A,(021H) BI LD B,040H BIT 7,A JR Z,COMDRV+01FDH RES 7,C LD A,(ATNCHR) CP C ;9 0B9H CALL Z,@L35 CALL @L36 POP HL ;a 0E1H POP DE ;Q 0D1H POP BC ;A 0C1H POP AF ;q 0F1H LD SP,(INTSP) EI ;{ 0FBH RETI @L35: CALL @L16 RET Z ;H 0C8H ;e 0E5H LD HL,@L22 RES 7,(HL) IN A,(031H) LD C,A ;O 04FH LD A,(@L21) BIT 5,A JR NZ,COMDRV+027CH LD HL,@L17 LD DE,@L18 LD B,040H BIT 7,A JR Z,COMDRV+0279H RES 7,C LD A,(ATNCHR) CP C ;9 0B9H CALL Z,@L47 CALL @L36 POP HH RET ;I 0C9H @L19: DI ;s 0F3H CALL @L16 JR NZ,COMDRV+02B9H DEC HL ;+ 02BH LD (HL),0FFH EI ;{ 0FBH INC HL ;# 023H EX DE,HL ;k 0EBH CALL WAIT EX DE,HL ;k 0EBH JR @L19 LD A,(HL) ;~ 07EH INC A ;< 03CH CP B ;8 0B8H L ;+ 02BH DEC HL ;+ 02BH BIT 0,(HL) RET Z ;H 0C8H EX DE,HL ;k 0EBH JP SIGNAL @L33: RET NZ ;@ 0C0H ADD A,B ;NUL 080H LD D,A ;W 057H LD B,A ;G 047H LD B,B ;@ 040H JR NZ,@L0 EX AF,AF' ;08H 08H DEC B ;05H 05H DEC B ;05HT 1,A JR NZ,COMDRV+01B3H SET 7,E BIT 0,A JR NZ,COMDRV+01B9H SET 5,E LD A,E ;{ 07BH RET ;I 0C9H LD A,(@L22) LD E,A ;_ 05FH XOR A ;/ 0AFH BIT 5,E JR Z,COMDRV+01C6H SET 7,A BIT 3,E JR Z,COMDRV+01CCH SET 5,A RET ;I 0C9H CALL @L19 JR @L35 LD (INTSP),SP LD SP,INTSTK PUSH AF ;u 0F5H PUSH HL ;e 0E5H LD A,(@L22) AND 080H LD L,A ;o 06FH IN A,(033H) OR L ;5 0B5H LD (@L22),A LD A,010H OUT (033H),A POP HL ;a 0E1H POP AF ;q 0F1H LD SP,(INTSPL ;a 0E1H POP DE ;Q 0D1H POP BC ;A 0C1H POP AF ;q 0F1H LD SP,(INTSP) EI ;{ 0FBH RETI @L47: CALL @L16 RET Z ;H 0C8H CALL @L19 JR @L47 @L16: PUSH HL ;e 0E5H LD A,(HL) ;~ 07EH INC HL ;# 023H CP (HL) ;> 0BEH JR Z,COM JR C,COMDRV+02BFH XOR A ;/ 0AFH LD (HL),A ;w 077H EI ;{ 0FBH LD A,C ;y 079H RET ;I 0C9H @L36: PUSH DE ;U 0D5H INC HL ;# 023H LD E,(HL) ;^ 05EH LD D,00H INC HL ;# 023H EX DE,HL ;k 0EBH ADD HL,DE ;019H 019H LD (HL),C  05H INC B ;04H 04H INC BC ;03H 03H LD (BC),A ;02H 02H LD BC,0101H EXTERNAL DRTVEC EXTERNAL STIVEC EXTERNAL CONAST EXTERNAL LNKPOL EXTERNAL WAIT EXTERNAL UNLINK EXTERNAL SIGNAL EXTERNAL INTSP EXTERNAL INTSTK EXTERNAL ATNCHR  LD (INTSP),SP LD SP,INTSTK PUSH AF ;u 0F5H PUSH BC ;E 0C5H PUSH DE ;U 0D5H PUSH HL ;e 0E5H IN A,(02DH) BIT 7,A JR Z,COMDRV+0200H IN A,(02FH) LD C,A ;O 04FH LD A,(@L20) BIT 5,A JR NZ,COMDRV+0200H LD HL,@L14 LD DE,@DATA ) EI ;{ 0FBH RETI LD (INTSP),SP LD SP,INTSTK PUSH AF ;u 0F5H LD A,030H OUT (033H),A POP AF ;q 0F1H LD SP,(INTSP) EI ;{ 0FBH RETI LD (INTSP),SP LD SP,INTSTK PUSH AF ;u 0F5H PUSH BC ;E 0C5H PUSH DE ;U 0D5H PUSH HLDRV+02A4H INC HL ;# 023H PUSH DE ;U 0D5H LD E,A ;_ 05FH LD D,00H EX DE,HL ;k 0EBH ADD HL,DE ;019H 019H LD C,(HL) ;N 04EH EX DE,HL ;k 0EBH POP DE ;Q 0D1H POP HL ;a 0E1H OR 0FFH RET ;I 0C9H POP HL ;a 0E1H XOR A ;/ 0AF ;q 071H EX DE,HL ;k 0EBH POP DE ;Q 0D1H DEC HL ;+ 02BH LD A,(HL) ;~ 07EH INC A ;< 03CH CP B ;8 0B8H JR C,COMDRV+02D5H XOR A ;/ 0AFH DEC HL ;+ 02BH CP (HL) ;> 0BEH RET Z ;H 0C8H INC HL ;# 023H LD (HL),A ;w 077H DEC H; END DEC HL ;+ 02BH BIT 0,(HL) RET Z ;H 0C8H EX DE,HL ;k 0EBH JP SIGNAL @L33: RET NZ ;@ 0C0H ADD A,B ;806TDOSAZIP X806TDOS2ZIP mWO806TDOS3ZIP /XS806TDOS4ZIP X̒_    ; ; 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 ISR 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 IT? ?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 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  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 ;0FB 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 @L2    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,C019H 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 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 ;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 0LD 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 JRLINK 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 0B7H     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 ALH 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 044H 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                                                                                                                                         !   !   "   "   #   #   $   $   %   %   &   &   '   '