IMD 1.17: 3/11/2012 17:52:32 turbodos televideo ts-806 net806 modules dsdd                LD1803 RELLD180X RELLD2803 RELLD280X RELMMD806 RELNETFWD RELLD1803 MAC LD180X MAC DSK80F MACO+,-./DSK8MX MAC@0123F548X1 MAC 4FASLOD MAC 56NETLOD MAC78NIT80X MAC9:PAR80X MAC ;RTC80X MAC <LD2803 MAC* LD280X MAC$ MMD806 MACNETFWD MACNET806 RELXDSK8MX REL F548X1 REL!DSK80F REL "SER80X MACR=>?@AB-NET806 C N # =I%8SU bp`uf2ib6YP G 6a>4Ͱs@VmclM@Y0p-0sl@ Ͱs c-0sl0:d.,X$ PP"pr(G @ dp`8VmclM@Y0pPAR80X REL#SER80X REL $RTC80X REL%NIT80X REL&DEF806 REL'NETLOD REL(FASLOD REL)DEF806 MAC* N =I%8SU bp`g-y-04#L!9 !6Ne@ zM  Y l>C[L! @m۵dY;V@ -2l?cl!9);FY2 !d&' Y l>C[L! @m۵dY;V@    =I%8SUQdp`gɈGqܰOFj(( ,fYFj*jiŠ,dp`g-y@ ?@#`^i|iϭ2! 2E\9BXBVb DT Bs`0+y@ !m2 !6Na>CL͚~$ ,d!QN`7j} 0sl ` 6a qA`~i8|XiV8|ii-& |3CkLM0h 6e@ z-0pm0p6cl>84;Vc+L>5 L9l@ L9`~i8|XiV8|ii9satEb@ [g(`)L2|>՛|id'1P Bsg 1|iV|ii`p?_aH )<٠|id'2 = Bs(>CL 6 ! 2cL>5M<`m28ڲZd!B -2l? sLP l@0h XbG|iV|iicL!9iD.Bjea8FF"[p5@B$t[`YPmQ@|!iG8|i9vCAlsDE@((BL+=j>directory of the A: floppy disk, overwriting existing files: - EXPORT A:\*.* -MO$ CP/M file not found. Aborting.$ Error 1 -`ڰvɀ66h@g ^dnLTR[j[d&YPmQ@$  `:,|@,d!@0d' E}I iN9"vщQ rI` bB`i ɖ9`A8,|@,d!@ # =I%8SU@Qdp`ɈG  ``eK ((PK *jidp`-y@ v G`L>LHb3d՛lF#ɔ7O*jMp 6a@B&B !dm0h m0p 6a>L0h~   <<9" A A0-mf0¨CEͳ ;͹`Z? cX26n#EͳUaܠ& ̲!jr4hFX0PL& ]g稌#+qk@ FzX!F?5Р <.!dY e^ 23h!YxPe7`E` d@=!t8 Cŀ(6""3iX#wA- D82:Le,5/'q0e=P`| F`˴ ?#- 2(GTP ,! am6yFTdEDK`M"r#*8 :,d>O#ͽヴP @ YGWi|vGU| :qyvEMM23U c1`UQ 3 #9Y18b3 ?Y183J Pӕ#.yU91%9.3 Г<@5MA"3 P%2T#/YHSQ =I%8SUಆx?INIT?d#C#(CKT422eCC#(@CAT422 e55CC#(TC8TBLdduD$`MASTICe4eD8pPOLTICe$5eE%SNDTRYdTE%CFT422SU -Q%9:%`H&"` W @ <[XC0y˴+>tO#<9Sqc+>4O/B3@ D0etC@ú/[r"LeYP"g0@eX~Xe-RXͥ`ۺPmsx^LefZe,82c2̵0C%Yd;,(UZy!@`kfa6[!@`kf>OHunküC6قÙ w.˴0f:e7+˴ #]@ ??cSr0+X0{?-]y]y;O.Ø 3ox `O#KD#6Y|v]0avrY,rXa";T";TrXa";T";T!€!dpd02@rh,pͮn"O̳\ /(z"@Xe@<u@XJYofZye,ۺ D 7:4< <.Œj^B3ip łp\V+Ct Y16JT## 19-A=23 RU# 0BEH POP HL ;a 0E1H RET C ;X 0D8H SET 1,(HL) LD HL,@L10 CALL SIGNAL LD HL,@L9 JP UNLINK @L19: LD A,C ;y 079H DEC A ;= 03DH DEC A ;= 03DH LD (@L40),A LD (@L41),HL LD E,(HL) ;^  057H LD A,01H OUT (C),A IN A,(C) AND 080H JR NZ,CKTDR@+03DDH LD A,(TICCNT) SUB E ;093H 093H CP D ;: 0BAH JR C,CKTDR@+03C1H LD HL,@L44 DEC (HL) ;5 035H JR NZ,CKTDR@+0398H CALL @L48 JR CKTDR@+0423H IN A,(C) AND 080H JR N LD B,0DH OTIR LD A,05H OUT (C),A LD A,06BH OUT (C),A LD A,05H OUT (C),A LD A,069H OUT (C),A LD B,0FH PUSH BC ;E 0C5H LD HL,03CH CALL DELAY POP BC ;A 0C1H CALL @L13 LD A,010H OUT (C),A IN A,(C) AND 018H CP 08H  LDI POP BC ;A 0C1H POP DE ;Q 0D1H LD HL,SST422 ADD HL,DE ;019H 019H LD A,(HL) ;~ 07EH LD (RXQSSL),A CP 020H JR NZ,CKTDR@+0277H LD A,040H LD (R3QSSL),A LD HL,TC8TBL ADD HL,DE ;019H 019H LD A,(HL) ;~ 07EH CP 020H LD A,02 LD HL,LD280X LD DE,LN280X LD A,(SLVTIC) LD (@L18),A CALL @L29 JR CKTDR@+0304H POP DE ;Q 0D1H LD HL,FLGTBL ADD HL,DE ;019H 019H SET 6,(HL) RES 3,(HL) RES 4,(HL) RES 0,(HL) POP HL ;a 0E1H CALL @L20 OR 0FFH INC E ;01CH 0 04EH LD HL,FLGTBL ADD HL,DE ;019H 019H RET ;I 0C9H @L9: NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H LD A,(NMB422) DEC A ;= 03DH LD HL,@L37 INC (HL) ;4 034H CP (HL) ;> 0BEH JR NC,CKTDR@+0340H LD (HL),00H 05EH LD D,00H INC DE ;013H 013H EX DE,HL ;k 0EBH LD (@L42),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 (@L43),A LD A,(RCVTRY) LD (@L44),A LD A,Z,CKTDR@+03D2H LD A,01H OUT (C),A IN A,(C) AND 060H JR NZ,CKTDR@+03D2H CALL @L48 LD A,(TICCNT) LD E,A ;_ 05FH LD A,(@L18) LD D,A ;W 057H LD A,010H OUT (C),A IN A,(C) AND 08H JR Z,CKTDR@+040BH LD A,(TICCNT) SUB E ;093H 0JR Z,CKTDR@+0235H DJNZ CKTDR@+0217H POP DE ;Q 0D1H POP HL ;a 0E1H JP @L16 CALL @L17 POP DE ;Q 0D1H POP HL ;a 0E1H PUSH HL ;e 0E5H PUSH DE ;U 0D5H PUSH BC ;E 0C5H LD (HL),020H INC HL ;# 023H LD DE,RXQSID LDI LDI INC8H JR Z,CKTDR@+0287H LD A,018H LD (TC001),A LD (TC002),A POP HL ;a 0E1H PUSH HL ;e 0E5H PUSH DE ;U 0D5H PUSH HL ;e 0E5H LD A,(SLVTIC) LD (@L18),A LD A,0FFH LD (@L33),A CALL @L19 POP HL ;a 0E1H JR NZ,CKTDR@+0304H LD DE,01CH JP @L15 LD HL,LD1803 LD DE,080H CALL @L29 JR NZ,CKTDR@+0304H LD HL,LD2803 LD DE,LN2803 CALL @L29 PUSH BC ;E 0C5H CALL @L20 POP BC ;A 0C1H POP DE ;Q 0D1H POP HL ;a 0E1H JP NZ,@L16 @L15: PUSH AF ;u 0F5H LD HL,@L36  CALL @L11 BIT 0,(HL) RET NZ ;@ 0C0H LD A,010H OUT (C),A IN A,(C) AND 018H CP 08H JR NZ,CKTDR@+0356H SET 0,(HL) JR CKTDR@+0368H BIT 6,(HL) RET NZ ;@ 0C0H PUSH HL ;e 0E5H LD HL,@L36 ADD HL,DE ;019H 019H LD A,(TICCNT) SU01H OUT (C),A LD A,0E0H OUT (C),A CALL @L13 LD A,070H OUT (C),A PUSH BC ;E 0C5H LD HL,@L45 LD BC,01090H OTIR POP BC ;A 0C1H LD A,05H OUT (C),A LD A,0E9H OUT (C),A LD A,(TICCNT) LD E,A ;_ 05FH LD A,(@L18) LD D,A ;W93H CP D ;: 0BAH JR C,CKTDR@+03F8H JR CKTDR@+0423H LD HL,(@L41) LD A,(@L33) OR A ;7 0B7H JR NZ,CKTDR@+041DH LD A,(HL) ;~ 07EH CP 0BH JR C,CKTDR@+0423H CP 0B9H JR NC,CKTDR@+0423H XOR A ;/ 0AFH LD (@L33),A JR CKTDR@+0425H    OR 0FFH POP HL ;a 0E1H POP DE ;Q 0D1H LD (HL),E ;s 073H INC HL ;# 023H LD (HL),D ;r 072H RET ;I 0C9H @L29: LD A,05H OUT (C),A LD A,0E9H OUT (C),A LD A,01H OUT (C),A LD A,0C0H OUT (C),A LD A,C ;y 079H DEC A ;= 03DH  ;s 0F3H OUT (090H),A OUT (C),B EI ;{ 0FBH LD A,010H OUT (C),A IN A,(C) AND 040H JR Z,CKTDR@+0487H LD A,(TICCNT) LD E,A ;_ 05FH LD A,(@L18) RRA ;01FH 01FH LD D,A ;W 057H LD A,010H OUT (C),A IN A,(C) AND 08H JR Z,@L 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 ;I 0C9H @L13: LD A,03H OP ;NUL 00H ADC A,D ;LF 08AH RST 8 ;O 0CFH @L43: DEC B ;05H 05H RST 8 ;O 0CFH ADD A,A ;087H 087H EXTERNAL LD180X EXTERNAL LD1803 EXTERNAL CKTAST EXTERNAL LNKPOL EXTERNAL WAIT EXTERNAL SIGNAL EXTERNAL DELAY EXTERNAL MCDTPS ; ; File NETFWD.MAC ; Created by ZREL/MAC V3.3 ; Copyright 1984 MicroSmith Computer Technology ; .Z80 ;set mode for M80 NAME ('NETFWD') ; Notice: symbol assumed public GLOBAL ?ORIG? ?ORIG? EQU 09H ; Notice: symbol assumed public GLOBAL ?UNX+024H),L LD (IX+025H),H LD (IX+026H),C LD (IX+027H),B PUSH DE ;U 0D5H CALL SNDREQ POP DE ;Q 0D1H OR A ;7 0B7H JP NZ,REQERR CALL GETDER LD BC,0EH ADD HL,BC ;TAB 09H BIT 2,(HL) CALL NZ,DEALMB SCF ;7 037H RET ;I 0C9H C DEC A ;= 03DH LD (@L40),A DEC DE ;01BH 01BH LD (@L42),DE LD (@L41),HL LD A,05H LD (@L43),A LD A,(SNDTRY) LD (@L51),A PUSH BC ;E 0C5H LD HL,@L45 LD BC,0F90H OTIR POP BC ;A 0C1H LD B,(HL) ;F 046H LD A,(TICCNT) LD E,A 48 LD A,(TICCNT) SUB E ;093H 093H CP D ;: 0BAH JR C,CKTDR@+049AH LD HL,@L51 DEC (HL) ;5 035H JR NZ,CKTDR@+0454H OR 0FFH @L48: PUSH AF ;u 0F5H LD A,(@L45) OUT (090H),A LD A,01H OUT (C),A LD A,040H OUT (C),A LD A,05H OUOUT (C),A LD A,0D9H OUT (C),A DEC C ;CR 0DH DEC C ;CR 0DH IN A,(C) IN A,(C) IN A,(C) INC C ;0CH 0CH INC C ;0CH 0CH RET ;I 0C9H @L31: JR CKTDR@+0508H JR NZ,CKTDR@+050BH LD L,C ;i 069H INC BC ;03H 03H EXX ;Y 0D9H HA EXTERNAL RXQSID EXTERNAL RXQDID EXTERNAL R3QSID EXTERNAL R3QDID EXTERNAL RXQSSL EXTERNAL R3QSSL EXTERNAL TC001 EXTERNAL TC002 EXTERNAL LD280X EXTERNAL LN280X EXTERNAL LD2803 EXTERNAL LN2803 EXTERNAL TICCNT EXTERNAL UNLINK EXTEIT? ?UNIT? EQU 030FH ; Notice: symbol assumed public GLOBAL NETFWD NETFWD EQU $ ; Notice: symbol assumed public GLOBAL FWDREQ FWDREQ EQU NETFWD+099H LD A,(IX+030H) DEC A ;= 03DH JR Z,NETFWD+053H DEC A ;= 03DH JR Z,NETFWD+064H CALL ALALL DEALMB LD A,0FFH JP REQERR LD L,(IX+024H) LD H,(IX+025H) LD E,(IX+026H) LD D,(IX+027H) CALL GETREP JR NETFWD+06DH LD L,(IX+028H) LD H,(IX+029H) CALL GETNMB OR A ;7 0B7H JP NZ,REQERR LD (IX+028H),E LD (IX+029H),D PUSH HL;_ 05FH LD A,(@L18) LD D,A ;W 057H LD A,010H OUT (C),A IN A,(C) AND 08H JR NZ,CKTDR@+047AH LD A,(TICCNT) SUB E ;093H 093H CP D ;: 0BAH JR C,CKTDR@+0467H JR CKTDR@+04B1H LD A,0B0H OUT (C),A LD A,B ;x 078H LD B,0C0H DI T (C),A LD A,069H OUT (C),A POP AF ;q 0F1H RET ;I 0C9H @L17: 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 ;aLT ;v 076H NOP ;NUL 00H RLCA ;07H 07H LD A,(HL) ;~ 07EH LD DE,0C340H ADC A,E ;08BH 08BH LD A,C ;y 079H @L41: NOP ;NUL 00H NOP ;NUL 00H @L42: NOP ;NUL 00H NOP ;NUL 00H INC D ;014H 014H JR Z,CKTDR@+049EH @L40: NRNAL LOKBNK EXTERNAL DMASPH EXTERNAL FREBNK @L45 EQU CKTDR@+050FH ; END ;O 0CFH ADD A,A ;087H 087H EXTERNAL LDOCMB PUSH IY PUSH HL ;e 0E5H POP IY LD BC,04H ADD HL,BC ;TAB 09H EX DE,HL ;k 0EBH CALL GETDER ADD HL,BC ;TAB 09H LD C,(HL) ;N 04EH LDIR CALL SETIDS PUSH IY POP DE ;Q 0D1H POP IY OR A ;7 0B7H JR NZ,NETFWD+04BH LD (I ;e 0E5H LD BC,04H ADD HL,BC ;TAB 09H EX DE,HL ;k 0EBH CALL GETDER ADD HL,BC ;TAB 09H LD A,(DE) ;01AH 01AH LD (HL),A ;w 077H LD C,A ;O 04FH PUSH BC ;E 0C5H LD BC,0AH ADD HL,BC ;TAB 09H EX DE,HL ;k 0EBH ADD HL,BC ;TAB 09   H EX (SP),HL ;c 0E3H OR A ;7 0B7H SBC HL,BC EX (SP),HL ;c 0E3H POP BC ;A 0C1H LDIR POP DE ;Q 0D1H CALL DEALMB SCF ;7 037H RET ;I 0C9H RES 4,(IX+05CH) LD L,(IY+05H) LD H,(IY+06H) LD (IX+05FH),L LD (IX+060H),H BIT 2,013EH BIT 2,(IY+0EH) JR Z,NETFWD+0FAH PUSH HL ;e 0E5H PUSH IY POP DE ;Q 0D1H CALL DEALMB POP HL ;a 0E1H CALL RRRMSG OR A ;7 0B7H JP NZ,SVCERR PUSH HL ;e 0E5H POP IY JR NETFWD+09DH LD B,01H PUSH IY POP DE ;Q 0D1H LD CXTERNAL GETDER EXTERNAL SETIDS EXTERNAL SNDREQ EXTERNAL REQERR EXTERNAL DEALMB EXTERNAL GETREP EXTERNAL GETNMB EXTERNAL DSKAST EXTERNAL SVCOSC EXTERNAL RRRMSG EXTERNAL SVCERR EXTERNAL DEXLAT EXTERNAL XCHGSD EXTERNAL SNDREP ; ENu誈(Iј 誈(Jq nɨH*q ȊiiQ@ 誈1 ?iʊK1P8U# =I%8SU揠1 ȪH` -f+f qh\.V+4hV4[ +jO帀je4XU# =I%8SU戠1 H2`=G4~\٠$X3@땢p6H: [3t'j@݄3h@nfpN#t%nҰ-pf@ 7NbR[6CGr{ ]`Bq]6 -YqL7_`3t_n Yl(?OwP(IX+05BH) JR Z,NETFWD+0D1H LD A,(IY+017H) CP 03FH JR Z,NETFWD+0D1H DEC A ;= 03DH LD C,A ;O 04FH LD B,00H LD HL,DSKAST ADD HL,BC ;TAB 09H ADD HL,BC ;TAB 09H ADD HL,BC ;TAB 09H LD A,(HL) ;~ 07EH INC HL ;# 023H AND 0FH INC,040H CALL SVCOSC OR A ;7 0B7H JR NZ,NETFWD+013EH BIT 2,(IX+05BH) JR Z,NETFWD+0125H LD A,(IY+017H) CP 03FH JR Z,NETFWD+0125H DEC A ;= 03DH LD C,A ;O 04FH LD E,(IX+05FH) LD D,(IX+060H) CALL DEXLAT INC A ;< 03CH JR Z,NETFWD+D  LD (IY+017H),A BIT 2,(IY+0EH) RET Z ;H 0C8H CALL XCHGSD PUSH IY POP DE ;Q 0D1H CALL SNDREP OR A ;7 0B7HMMD806 REL NETFWD REL LD1803 MAC LD180X MAC T# =I%8SU 2LCLLODh ӘźrAj^`ʎ7OX 3@m4[hwf$Հc@mfCUҐMSƀPU8B 6mfPA*nXvGiH`~gj@ ;1,Vz@d3@©Z\di@@W+?q6-땢pX,pvm[/+jj; L@,eVmwx_@9\ m~[aø zn0fPpH#dk4ZQ%Vʹ  n !ZVm O70ӒU#`AI=I6:PS 5I\` /wiyHI@hI P  / /54T8`ISRXITT # =I%8SU R?INIT?d5E44SASIZEe4%4XSCSIZESUMI9%R:QMI%2;TRTԣUM %MJ:*TTԥ8pbab@b`9$'eP%d(['liW YP iC€t ntnn LmnY-+6؁   C-p4|v]7jN#ô>;O.΀՛u@ qf!@ ~\,땛l@ylYPeۤ{->ݧiep[Vm{->;O.½koYlPeۮK @땺! xd`F vݪ0kF v y1D8p` I@8A@8;O {u4|vGiCH@0d($)*FF@" Jd@&'%'FQ2J:r de*&$%  =I%8SUrp?INIT?e5DU%HUNLDTMSUM-%9:d`,e"B;abP EVH YV f Rfp/γՒͶ!2n05ͰBnHXGR!@,$!XP| b "`3j&!@Q@uQbÌu@ X/L-p@h <g?gBh@ xudl@'ii]y X< AtnG1Fstf ӨtNf:@KC@.pe)fF=eS*YUzʴ`#U %rm"?`MNnY/~@F7nqp`9Ѐ! n[b\p=HnfͺZȀ(7`;tn-Ѱ VM&[JNF:@tnn7LPe) VN`f?ctj n0YW\- źvMD8p\(7D9l?*qh`D"T@"DB(TE #yM-Q%\"@ @ hP)g{L 0(C6=D8 TL>j6cB HDm `nHM NHPXf0'2EӨA8$AuP 8$C5 +XSۧ 0)B e8wiY @ e K q@7W@hx(M`e$`Gv202~i@.hfP5{$B}hb6Fj3k6l(V/SU`R0?INIT? dE5D5H8%9%P>S#M-I\` ` @p@@@K@83hCŒ9`MG=eXH 2@ |;`63h: vC6(%]%R2P"M%92p # =I%8SU ?INIT?SUIQ 9%R:TԥC@R@`$<i.Y@jWԴs Պr@h!Q0u@3@ Ev d5D5dT88CTCPRTTE5(INTSTKdDŕD8xDSKTICe%Dl@tnbsth n0Y/63mӨ tM~[#tn Ұ6hJC3tnӘ!rۮKuͶ B9N.,( Y`>;O.)Z%AnGKu¯d\b(1[tfՠ t nmҰQ,7ۦ`67M4HF#@np`, +tCn!D"P)"@DHpBRAPRTe44%HBRBPRTe44%%H@BRCPRT5e445%HSIOVECT8ϠWAITdSIGNALTĔ`INTSPdE5DSLVRESdD4)T # =I%8SU?INIT?SUAI9%R:TU%@ͪ`Nd՛a@ٶ ͭ"- "ZC,DͰLr:ŀ X 2X(2>2ŀ n̥ Lj 7M"@ p!fXP"xڦfѺn7LQ%n0ESt a $V"€ !dl*܁ikYeCmmbPYXC8&G4-@=h@E@0N<r@  xj̨l _s q1UL f@! aנ!V-e-e iِ!,,Za6ʁl(Eۺ@Na@{8<$6mShޣӭl ʹoHӬn7ےX6ݏdZW4 `\,+U6m-f EvɌdDE%H̐FDCPRTtHxSIGNAL̀4UH( X3m6 ͠"(-Vmf0`@e!HC exqulfY m?r@ ^ӒY3X0n7LX f n7LQMn0ESt `$V" QfU Y@$Ӓ_pH(--dEY4F"ɠ+dՒ!   @VU٠)2̖md7N YfY  p f,& A,aXeBl, Gqʹ#,{i/$`# 03m %iGXT$#"3m %^Gd:i, %$!8Ar@p di. $r@p @08C7 pDn*?e$5eE%SNDTRYdTE%CFT422SU -Q%9:%`H&"` W @ <Q-e0f3fp x8N :GX6{@Ӭ$quaH  -RXͥ`ۺPmsx^LefZe,82c2̵0C%Yd;,(UZy!@`kfa6[!@`kf>O#[>O#KD#6Y|v]0avrY,rXa";T";TrXa";T";T!€!dpd(*8 :,fP @YHê_cp LHb3d՛lF#ɔ7O*jMp 6a@B&B !dm0h m0p 6a>L0h~՘`7j} 0sl ` 6a qA`~i8|XiVd&' =I%8SUQdp`gɈGqܰOFj(( ,fYFj*jiŠ,dp`g-y@ ?@#`^i|iϭ2! 2E\9BXBVb DT Bs`0+y@ !m2 !6Na>CL͚~$O2?mzx<GxHF{$# `f! "8 u `z`A ,ʹ- 8s7dm6؀ >EX0V@ h$`N`@*Ym`(ʹLbےW'0 Pv( m,Ͷ@L+Ufo^,j^Pͺ,"pHd2~ìw 8220-<Q*2GXz 0L&6h! Gdf: ,h>;O.Ø 3ox ` Y16JT## 19-A=23 RU#84;Vc+L>5 L9l@ L9`~i8|XiV8|ii9satEb@ [g(`)L2|>iD.Bjea8FF"[p5@B$t[`YPmQ@|!iG8| ,d!QN՛|id'1P Bsg 1|iV|ii`p?_aH )<٠|id'2 = Bs(>CL 6 ! 2cL>5M<`m28ڲZd!B -2l? sLP l@0h XbG|iV|iihY.H?1` Ȋj*(i(),,iꪑʩɉ)qP,ȉ*j ,8SQ =I%8SUಆx?INIT?d#C#(CKT422eCC#(@CAT422 e55CC#(TC8TBLdduD$`MASTICe4eD8pPOLTICg稌#+qk@ FzX!F?5Р <.!dY e^ 23h!YxPe7`E` d@=![XC0y˴+>tO#<9Sqc+>4O/B3@ D0etC@ú/[r"LeYP"g0@eX~Xe am6yFTdEDK`M"r#*8 :,d>O#ͽヴP @ YGWi|vGU| :qyvHunküC6قÙ w.˴0f:e7+˴ #]@ ??cSr0+X0{?-]y]y4Ͱs@VmclM@Y0p-0sl@ Ͱs c-0sl0:d.,X$ PP"pr(G @ dp`8 # =I%8SU@Qdp`ɈG  ``eK i9vCAlsDE@((BL+=j N =I%8SU bp`g-y-04#L!9 !6Ne@ zM  Y l>C[L! @m۵dY;V@ -2l?cl!9);FY2 !cL!91 -`ڰvɀ66h@g ^dnLTR[j[d&YPmQ@$  `:,|@,d!@0d' E}I iN9"vщQ rI` bB`i ɖ9`A8    Y4F"ɠ+dՒ!@VU٠)2̖md7N YfY  p f,& A,aXeBl, Gqʹ#,{i/$`# 03m %iGXT$#"3m %^Gd:i, %$!8Ar@p di. $r@p @08C7 M c =I%8SU "Ȉ i -F@""gc =I%8SU "Ȉ i -F@""V# =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+Ufoh: vC6(%3m6 ͠"(-Vmf0`@e!HC exqulfY m?r@ ^ӒY3X0n7LX f n7LQMn0ESt `$V" QfU Y@$Ӓ_pH(--dE^,j^Pͺ,hY.H?1` Ȋj*(i(),,iꪑʩɉ)qP,ȉ*j ,8ͺ,hY.H?1` Ȋj*(i(),,iꪑʩɉ)qP,ȉ*j     &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 "€ !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ـE4HPDSTBLSDED4LNKPOLT # =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%8SUrp?INIT?e5DU%HUNLDTMSUM-%9:#yM-Q%\"@ @ hP)g{L 0(C6=D8 ;O.΀՛u@ qf!@ ~\,땛l@ylYPeۤ{->ݧiep[Vm{->;O.½koYlPeۮK @땺! ~@F7nqp`9>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)"@U # =I%8SU@`?INIT?d5D5dT8SIOVECe5dT8PIOVECdD58%9%P>ӒU#`AI=I6:PS 5I\` /wiyHI@hI P  / /4f 3@hth 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Ĕ`INTSPdE # =I%8SU ?INIT?SUIQ 9%R:TԥC@R@`$<i.Y@jWԴs Պr@h!Q0u@3@ Ev d5D5dT88CTCPRTTE5(INTSTKdDŕD8xDSKTICe%D54T8`ISRXIT Պr4f 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    Q =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#] /+jj; L@,eVmwx_@9\ m~[aø zn0fPpH#dk4ZQ%Vʹ  n !ZVmmn21 3@;10f fڀ~Y0 na;t3`n? &`aҰϘALOCMB$5$USNDREQtUE$U GETDMAdT$8(MEMRES$5$USETDMAD$4ΨGETNMBe4e%$ɨGETCRAtUDepINCRRN$U5%$tUE$U GETDMAdT$8(MEMRES$5$USETDMAD$4ΨGETNMBe4e%$ɨGETCRAtUDepINCRRN$U# =I%8SU揠1 ȪH` -f+f qh\.V+4hV4[ +jO帀je4XnXvGiH`~gj@ ;1,Vz@d3@©Z\di@@W+?q6-땢pX,pvm[    u誈(Iј 誈(Jq nɨH*q ȊiiQ@ 誈1 ?iʊK1P81 ; ; 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 ?UNlic 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 assT# =I%8SU 2LCLLODh ӘźrAj^`ʎ7OX 3@m4[hwf$Հc@mfCUҐMSƀPU8B 6mfPA*IT? ?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 GLumed 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: sy-&+՚ 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 LD16 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 L 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 war5 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+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 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 ; ; 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 JLL @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 EXTEymbol 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 ;[ 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 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),HL     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,(@L47AH ; 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 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 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+07HH 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 0bytes. 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    : 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 0CIT? ?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 L9H 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 @L79OBAL 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 ;/ 0; ; 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 ;NUD 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; ; 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 ;NUL0H 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 (   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 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 ,(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 CA 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  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 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 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 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+0168H SET 2,(IY+0EH) POP DE ;Q 0D1H PUSH DE ;U 0D   5H 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 POP BC ;A 0C1H OR A ;7 0B7H JR NZ,NETLOD+0163H PUSH BC ;E 0C5H PUSFEH CALL GETREP OR A ;7 0B7H JR NZ,NETLOD+0163H PUSH HL ;e 0E5H POP IY CALL PRCREP JR NETLOD+016CH LD (IX+033H),A JR NETLOD+016FH LD (IX+033H),A POP BC ;A 0C1H CALL DMBCOM POP IY LD A,(IX+02FH) CP 022H CALL Z,RESRRN POP; ; 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 H DE ;U 0D5H PUSH HL ;e 0E5H CALL GETDMA LD DE,080H ADD HL,DE ;019H 019H CALL SETDMA LD A,(IX+02FH) CP 022H JR Z,NETLOD+014DH CALL GETCRA LD A,(HL) ;~ 07EH INC A ;< 03CH AND 07FH LD (HL),A ;w 077H JR NZ,NETLOD+0150H CALL 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 GETCIT? ?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  GETFXA LD A,(HL) ;~ 07EH INC A ;< 03CH AND 01FH LD (HL),A ;w 077H JR NZ,NETLOD+0150H INC HL ;# 023H INC HL ;# 023H INC (HL) ;4 034H JR NETLOD+0150H CALL INCRRN POP HL ;a 0E1H POP DE ;Q 0D1H POP BC ;A 0C1H DJNZ NETLOD+0RA EXTERNAL GETFXA EXTERNAL INCRRN EXTERNAL RESRRN ; END 5H POP IY CALL PRCREP JR NETLOD+016CH LD (IX+033HOBAL 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   @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 ;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 DEC; ; 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 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 INTymbol 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: 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   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 ; 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 074H; ; 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    ;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 ;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 SLVRET ;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 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 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     ;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 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  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 803 MAC LD280X MAC MMD806 MAC ?NETFWD MAC  NET806 REL ,DSK8MX REL !F548X1 REL "DSK80F REL #                                                                                                  !   !   "   "   #   #   $   $   %   %   &   &   '   '