IMD 1.17: 3/11/2012 17:57:02 turbodos televideo ts-806 nettpc1m modules dsdd                CONTP1 REL DSKTP1 REL DST8F RELFASLOD RELNETLOD RELNETSVC RELPARTP1 RELRTC803 REL '2"P3x0?f{M2On?v5dσ σ! σ1 σA σQ σa σq σ σ σ σ τq τ τ τ τ σ σш σ σ τ τ τ!P`I6Z.KUYZ+v` YA\ZVmo`GXgaP`Jb hAeW,  8CՇdX60Z+vjD 6܀Z,;>9j[W땶0#ؽ¡@I6Á@(tA1ӒS# =9I;ВRTԣ@Y- %MJ\` fP֐!>a q @1~N՘򀈤3;H"j4]0Af0!}%^2 VB3@ E`p*0ݐ:ysC8Pf`: q@8u@,  @`>ys1` XpmlpX'1Ga {?X x2@,͢#`1ZQ fؐ EyްW`fS$CveN=g(PbEPJ $P?#W+U:@ C6l6$d3ka> 6L*.Le@ٵt@a 6ͻ6C(mSf06m];XHnf| a0meQAn n@ iXt~-ٔ\ J3Xn7L-^ *fn7LQn0ESt b$E@,$Ͱ L ͥLVa   meQeueaۤ,r,9 QٶLP$WY#:+mH -V-ȋ EXPV"€ū%dpՕDdfe٠%j@B d#+:ϋVK6Ԁ@%n7LK6 E8E `C,&@ P0`:àCM 2à0Xt_m[E^m,a[7`3*灻TL+y\0AsW ڣa^0hY@3՛@,AǢm@2] >c"q]%R2QӐS#29 =9=UR3.V#49QeA =3?`1Q >2"#,`yU91%9.3jQSVg3՛@,AǢm@2] >c"q]%R2QӐS#29 Q =I%9 SU "Ȉ i -F@"@"g =I%9 SU "Ȉ i -F@"@"-&+՚ ,X d8(AhH6` C8CY`2à ͠@ ?h%?_AP轖e8twid@B<3@T9 K p 7W@`x(M`e;Ou誈(Iј 誈(Jq nɨH*q ȊiiQ@ 誈1 ?iʊK1P81 7M* ,<Y ^,<! X>4Fj3k-ެ͠@H EVeu??@M#s LF>j4F5`+XCCIuUgEgC64_dh!ͪMn`!nS3h!C`;Kx m4x?T# =I%9 SU 2LCLLODh ӘźrAj^`ʎ7OX 3@m4[hwf$Հc@mfCUҐMSƀPU8B 6mfPA*   1 EɨHqfh1誉ɨQ ,誈jH1bHjJIӀiȊH1"UՐ =I%9 SUҁ?INIT?d%5d8SLVFNSUMY 9%R:ՐTMY 5J; Ր"yLL d0`u;#A4`lh4|o +u[g3l34r\/ e]F#`Am#hYesu[_?OfYP nnYPnoYN,x-%@wh^: m- [@@u,[@@*X i-8  ???\ o???Oqͫv@`ͬv@88Ϳ63mx1j{x0fU# =I%9 SU1 ȪH` -f+f qh\.V+4hV4[ +jO帀je4XnXvGiH`~gj@ ;1,Vz@d3@©Z\di@@W+?[q6-땢pX,pvm[YmL?.(?cB(5Y@Bo@??Wa@hF#Yi,v<6ߣ`c_u[3 ( $0 'Džx[bY8|Xv<n?L:ٴnʮ!fҰ3onˍѱe^ |Zb -&:xw8 ;V DBYoFf ,nng,:~` f@EZ;ߣ`Qm6\m[6W f@GP?ߧp{[?Y`%N  s%~êGװv B1P<4B3@ ;v6/Lxe€+u|< o#YWͰη#bAV,fG  dl0/+jj; L@,eVmwx_@9\ m~[aø zn0fPpH#dsk4ZQ%Vʹ  @/jY"Ycݺ~L`P 6-Ӹ0nlm~[{D,:R)iQiȊH1"ND"do"@ fPg[4fg[TfF@~fFmnjfmR0c6>_` -6?\há` r_V~G.Zf0+Uhl E·k4[n<?=YdF@7 %~X8ʢ`O~ q6X9lfF~ W8r#e0Df@F @$Vm9~Z,daPm`Fy4/Ѡ0~g,`Nr~G maZF68_qY+E{\,n W0fpE :ܢp2+=Y:_rY'`A ?2[Yet]f@Fff̘9D"@   d;F#g&muj 620#+31AVm~;'Fsm~Mӹ~N7;hw2Ye3a߰m][!6 B #o #~'q ;ߧYF?7w@F}CmM[ /v 2?(~b#6Ѓ3@(?7Nwӹ`F~n"30LiʊK1p\KɉhH%ihL)iQȈ)Q@,]**jPLȈ *tIrP;gܤ#?7N1w0ӹF~n3tOr;Dg#?7N͵ū!-h#nqtX;ۧF?N6wOij~)mL#nqta;ۧqF?6wO~5mͳ a^80^)202?~ _7p$3l3T c =I%9 SU ?INIT?SUAI9%R:TU%@x&Zh! F3@m%`m?X0pvAy?ݧ !f ãɉj 鑔p Aʩɉ)s&Zh! F3@m%`msP B ?\K!S3tgdMfnm1 jJ Iq 誊q ʊK1<qij*jPLi*Zxk*hiq0L%ihL)iQȈ)Q@,]**jPLȈ *    =I%9 SUh?INIT?SUIQ 9%R:TԥxlL4ͱC|ibA Zb5 b x h @f C(x- {@ 06UP$@%9QMB2 S!1eQ%2P#@IQ M2JTԖU'b xŒ a!! 0!@ p [XC0y 2l+L>5CL!9q2!> 4 ._l3U@^ͦ$CC[L!##] 00 Zd!Bm  Zd& BFsW,Bs W,|iƙ|iƖ|id'0@d !m2 !6Na>C#L*``q|iF!;VoABmC d& @H|iƙ|iƖ ^vmdq@I@DBdBxOv&2Jz*l'&!F2Z U =I%9 SU%9%P(АSCHDWNITe$u$VECBASАSMQ%Y>@PM%=Y8Uc-  J?INIT?@!АSGvA$`f!a@@DF0NHP  ?BANK?֘3@h =I%9 SU@2PP?INIT?SU -Q%9:#@9L%MJ\` ` ` %d") pN;M ` ;H"z!]1G@b1 dHݒd!hn(YT mPf,ۂ ZeZXCdH&'%'FT" Jf) Fa@*"*b f*&$%u@jJrf$*)%q@I@DBdBxOv&2Jz*l'&!F2Z 4f 3@h4dؤ0PTaɗ;N}c[.땊H&vX-KH,諹;O}/t C(SERNITe$HXCONINAdE4ڈDSKINBe%D4Hڸ   CKTINAd4D(USRNITe$U4HBNKNITdD$HEMINITeECe$HXCONINAdE4ڈDSKINBe%D4HڸNETLOD REL NETSVC REL  PARTP1 REL RTC803 REL ; ; File CONTP1.MAC ; Created by ZREL/MAC V3.3 ; Copyright 1984 MicroSmith Computer Technology ; .Z80 ;set mode for M80 NAME ('CONTP1') ; Notice: symbol assumed public GLOBAL ?ORIG? ?ORIG? EQU 09H ; Notice: symbol assumed public GLOBAL ?UN ; Notice: symbol assumed public GLOBAL KBIISR KBIISR EQU CONDR@+01E5H ; Notice: symbol assumed public GLOBAL KBEISR KBEISR EQU CONDR@+025AH ; DSEG DEFB 07FH ;07FH DEFB 0FFH ;0FFH DEFB 097H ;097H DEFB 0CH ;0CH @L31: DEFB 00H ;NULL DEFB 03EH ;> DEFB 0C3H ;C DEFB 032H ;2 DEFB 030H ;0 DEFB 00H ;NUL DEFB 021H ;! DEFW @L2 DEFB 022H ;" DEFB 031H ;1 DEFB 00H ;NUL DEFB 021H ;! DEFW @L3 DEFB 01H ;01H DEFB 033H ;3 DEFB 0AH ;LF DEFB 0EDH ;m DEF 0CDH ;M DEFW @L7 DEFB 021H ;! DEFW @L8 DEFB 04EH ;N DEFB 0CBH ;K DEFB 079H ;y DEFB 020H ;SP DEFB 0AH ;LF DEFB 023H ;# DEFB 0E5H ;e DEFB 06H ;06H DEFB 06H ;06H DEFB 0CDH ;M DEFW XQTROM DEFB 0E1H ;a DEFB 018H ;0IT? ?UNIT? EQU 0480H ; Notice: symbol assumed public GLOBAL RMTATN RMTATN EQU RMTATN+00H ; Notice: symbol assumed public GLOBAL RMTBR RMTBR EQU RMTATN+02H ; Notice: symbol assumed public GLOBAL FFCHR FFCHR EQU RMTATN+03H ; Notice: symbol assu DEFB 00H ;NUL @L44: DEFB 00H ;NUL @L10: DEFB 00H ;NUL @L15: DEFB 00H ;NUL @L24: DEFB 00H ;NUL @L16: DEFB 00H ;NUL @L25: DEFB 00H ;NUL DEFB 00H ;NUL @L20: DEFB 00H ;NUL DEFB 00H ;NUL @L0: DEFW @L0 DEFW @L0 @L19: B 0B3H ;3 DEFB 021H ;! DEFW @L4 DEFB 01H ;01H DEFB 032H ;2 DEFB 0AH ;LF DEFB 0EDH ;m DEFB 0B3H ;3 DEFB 021H ;! DEFW KBIISR DEFB 022H ;" DEFW DRTVEC+0CH DEFB 021H ;! DEFW KBEISR DEFB 022H ;" DEFW DRTVEC+0EH DEFB 0118H DEFB 0F1H ;q DEFB 03EH ;> DEFB 0FFH ;0FFH DEFB 0D3H ;S DEFB 060H ;` DEFB 0AFH ;/ DEFB 0D3H ;S DEFB 0CEH ;N DEFB 032H ;2 DEFB 07H ;07H DEFB 0FFH ;0FFH DEFB 032H ;2 DEFB 0FFH ;0FFH DEFB 0FFH ;0FFH DEFB 032H ;2med public GLOBAL KEYCLK KEYCLK EQU RMTATN+05H ; Notice: symbol assumed public GLOBAL COMCAL COMCAL EQU RMTATN+0CH ; Notice: symbol assumed public GLOBAL CONIN@ CONIN@ EQU CONIN@+00H ; Notice: symbol assumed public GLOBAL CONDR@ CONDR@ EQU $ DEFB 00H ;NUL ; COMMON /?INIT?/ DEFB 06H ;06H DEFB 03H ;03H DEFB 0CDH ;M DEFW XQTROM DEFB 03EH ;> DEFB 0C3H ;C DEFB 032H ;2 DEFB 028H ;( DEFB 00H ;NUL DEFB 021H ;! DEFW @L1 DEFB 022H ;" DEFB 029H ;) DEFB 00H ;NUH ;01H DEFB 033H ;3 DEFB 02H ;02H DEFB 0EDH ;m DEFB 041H ;A DEFB 021H ;! DEFW DRTVEC DEFB 0EDH ;m DEFB 069H ;i DEFB 05H ;05H DEFB 0EDH ;m DEFB 041H ;A DEFB 06H ;06H DEFB 04H ;04H DEFB 0EDH ;m DEFB 041H ;A DEFB DEFB 08H ;08H DEFB 0FFH ;0FFH DEFB 011H ;011H DEFW USRTBL DEFB 021H ;! DEFW TIMTBL DEFB 037H ;7 DEFB 03FH ;? DEFB 0EDH ;m DEFB 052H ;R DEFB 0C8H ;H DEFB 021H ;! DEFW @L10 DEFB 035H ;5 DEFB 0C9H ;I @L8: DEFB 01B   H ;01BH DEFB 07CH ;| DEFB 031H ;1 DEFB 031H ;1 DEFB 01H ;01H DEFB 040H ;@ DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 032H ;2 DEFB 031H ;1 DEFB 01H ;01H DEFB 041H ;A DEFB 0DH ;CR DEFB 019H ;0EFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 037H ;7 DEFB 031H ;1 DEFB 01H ;01H DEFB 046H ;F DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 038H ;8 DEFB 031H ;1 DEFB 01H ;01H DEFH ;1 DEFB 01H ;01H DEFB 04BH ;K DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 048H ;H DEFB 031H ;1 DEFB 01H ;01H DEFB 04CH ;L DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 049H  DEFB 07CH ;| DEFB 03DH ;= DEFB 031H ;1 DEFB 01H ;01H DEFB 061H ;a DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 03EH ;> DEFB 031H ;1 DEFB 01H ;01H DEFB 062H ;b DEFB 0DH ;CR DEFB 019H ;019H DEF;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 043H ;C DEFB 031H ;1 DEFB 01H ;01H DEFB 067H ;g DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 044H ;D DEFB 031H ;1 DEFB 01H ;01H DEFB 068H ;EFB 01H ;01H DEFB 06CH ;l DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 04EH ;N DEFB 031H ;1 DEFB 01H ;01H DEFB 06DH ;m DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 04FH ;O DEF19H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 033H ;3 DEFB 031H ;1 DEFB 01H ;01H DEFB 042H ;B DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 034H ;4 DEFB 031H ;1 DEFB 01H ;01H DEFB 043H ;C DEFB 0DH ;CR B 047H ;G DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 039H ;9 DEFB 031H ;1 DEFB 01H ;01H DEFB 048H ;H DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 03AH ;: DEFB 031H ;1 DEFB 0 ;I DEFB 031H ;1 DEFB 01H ;01H DEFB 04DH ;M DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 04AH ;J DEFB 031H ;1 DEFB 01H ;01H DEFB 04EH ;N DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;B 01BH ;01BH DEFB 07CH ;| DEFB 03FH ;? DEFB 031H ;1 DEFB 01H ;01H DEFB 063H ;c DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 040H ;@ DEFB 031H ;1 DEFB 01H ;01H DEFB 064H ;d DEFB 0DH ;CR DEFB 019h DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 045H ;E DEFB 031H ;1 DEFB 01H ;01H DEFB 069H ;i DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 046H ;F DEFB 031H ;1 DEFB 01H ;01H B 031H ;1 DEFB 01H ;01H DEFB 06EH ;n DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 050H ;P DEFB 031H ;1 DEFB 01H ;01H DEFB 06FH ;o DEFB 0DH ;CR DEFB 019H ;019H DEFB 0FFH ;0FFH @L4: DEFB 018H ;018 DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 035H ;5 DEFB 031H ;1 DEFB 01H ;01H DEFB 044H ;D DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 036H ;6 DEFB 031H ;1 DEFB 01H ;01H DEFB 045H ;E D1H ;01H DEFB 049H ;I DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 03BH ;; DEFB 031H ;1 DEFB 01H ;01H DEFB 04AH ;J DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 047H ;G DEFB 031| DEFB 04BH ;K DEFB 031H ;1 DEFB 01H ;01H DEFB 04FH ;O DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 03CH ;< DEFB 031H ;1 DEFB 01H ;01H DEFB 060H ;` DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 041H ;A DEFB 031H ;1 DEFB 01H ;01H DEFB 065H ;e DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 042H ;B DEFB 031H ;1 DEFB 01H ;01H DEFB 066H ;f DEFB 0DH  DEFB 06AH ;j DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 04CH ;L DEFB 031H ;1 DEFB 01H ;01H DEFB 06BH ;k DEFB 0DH ;CR DEFB 019H ;019H DEFB 01BH ;01BH DEFB 07CH ;| DEFB 04DH ;M DEFB 031H ;1 DH DEFB 018H ;018H DEFB 014H ;014H DEFB 0CH ;0CH DEFB 05H ;05H DEFB 0EAH ;j DEFB 01H ;01H DEFB 018H ;018H DEFB 03H ;03H DEFB 0E1H ;a @L3: DEFB 018H ;018H DEFB 018H ;018H DEFB 014H ;014H DEFB 04CH ;L DEFB 05H ;05H     DEFB 0EAH ;j DEFB 01H ;01H DEFB 018H ;018H DEFB 03H ;03H DEFB 0E1H ;a ; CSEG LD A,B ;x 078H CP 02H JP NZ,@L11 @L36: LD A,E ;{ 07BH OR A ;7 0B7H JR Z,@L18 CP 0AH JP Z,@L12 DEC A ;= 03DH JR Z,CONDR@+050H DEC A ;= OR 0FFH RET ;I 0C9H XOR A ;/ 0AFH RET ;I 0C9H LD A,(@L10) OR A ;7 0B7H JR Z,CONDR@+05DH LD A,(@L15) OR A ;7 0B7H CALL NZ,@L17 DI ;s 0F3H CALL @L18 JR NZ,CONDR@+070H CPL ;/ 02FH LD (@L19),A EI ;{ 0FBH LD HL,@L20 ONDR@+0A2H XOR A ;/ 0AFH RET ;I 0C9H LD A,C ;y 079H AND 07FH SUB 01BH RET Z ;H 0C8H JP @L22 @L13: LD A,(@L10) OR A ;7 0B7H JR Z,@L22 LD A,(COMCAL) OR A ;7 0B7H JR NZ,@L22 LD A,(@L15) OR A ;7 0B7H JR Z,CONDR@+0CBH A CALL @L22 LD A,(@L15) OR A ;7 0B7H RET NZ ;@ 0C0H PUSH BC ;E 0C5H PUSH DE ;U 0D5H PUSH HL ;e 0E5H LD HL,TWLOCK CALL SIGNAL POP HL ;a 0E1H POP DE ;Q 0D1H POP BC ;A 0C1H RET ;I 0C9H @L22: DI ;s 0F3H LD B,06H CAL LD A,(RMTBR) LD C,A ;O 04FH LD E,03H CALL SERIAL LD A,(FFCHR) OR A ;7 0B7H JR Z,CONDR@+0169H POP BC ;A 0C1H PUSH BC ;E 0C5H LD C,A ;O 04FH LD E,02H CALL SERIAL POP BC ;A 0C1H POP DE ;Q 0D1H POP HL ;a 0E1H RET ;I 0CSERIAL POP BC ;A 0C1H POP DE ;Q 0D1H OR A ;7 0B7H JR NZ,CONDR@+01BFH LD A,(RMTBR) BIT 4,A JP NZ,@L39 PUSH DE ;U 0D5H PUSH BC ;E 0C5H LD HL,00H CALL DELAY POP BC ;A 0C1H POP DE ;Q 0D1H JR @L43 CALL SERIAL LD HL,RMTATN 03DH JP Z,@L13 SUB 06H JP Z,@L14 DEC A ;= 03DH JP Z,@L14 LD A,0FFH RET ;I 0C9H @L18: LD A,(@L10) OR A ;7 0B7H JR Z,CONDR@+03BH LD A,(@L15) OR A ;7 0B7H JR Z,CONDR@+03BH PUSH HL ;e 0E5H LD HL,(@L16) INC HL ;# 023H L CALL WAIT JR CONDR@+050H LD HL,KBDBFR LD A,(HL) ;~ 07EH INC A ;< 03CH CP 040H JR C,CONDR@+07AH XOR A ;/ 0AFH LD (HL),A ;w 077H EI ;{ 0FBH LD A,C ;y 079H RET ;I 0C9H @L17: XOR A ;/ 0AFH LD (@L15),A PUSH BC ;E 0C5H LD A,(@L24) DEC A ;= 03DH LD (@L24),A JR NZ,CONDR@+0EAH LD (@L15),A JR CONDR@+0EAH LD A,C ;y 079H AND 07FH CP 01BH JR NZ,CONDR@+0DEH OR 0FFH LD (@L15),A INC A ;< 03CH LD (@L16),A LD (@L25),A PUSH BC ;E 0C5H PUSH DE ;U 0L XQTROM EI ;{ 0FBH XOR A ;/ 0AFH LD (COMCAL),A OR 0FFH RET ;I 0C9H @L14: CALL DMS DEC C ;CR 0DH ADC A,D ;LF 08AH RET ;I 0C9H @L11: LD HL,@L31 LD A,(HL) ;~ 07EH OR A ;7 0B7H CALL Z,@L32 LD A,E ;{ 07BH OR A ;7 0B9H PUSH DE ;U 0D5H CALL SERIAL POP DE ;Q 0D1H OR A ;7 0B7H JP NZ,@L35 LD A,(RMTBR) BIT 4,A JP NZ,@L36 XOR A ;/ 0AFH RET ;I 0C9H @L35: LD A,(RMTATN) CP C ;9 0B9H JR NZ,CONDR@+018AH LD A,(ATNCHR) LD C,A ;O 04FH OR 0FF CP (HL) ;> 0BEH RET NZ ;@ 0C0H LD A,(ATNCHR) RET ;I 0C9H @L39: PUSH DE ;U 0D5H PUSH BC ;E 0C5H LD E,00H CALL @L36 POP BC ;A 0C1H POP DE ;Q 0D1H OR A ;7 0B7H JP NZ,@L36 PUSH DE ;U 0D5H PUSH BC ;E 0C5H LD HL,00H CAD (@L16),HL LD A,H ;| 07CH OR L ;5 0B5H CALL Z,@L17 LD HL,KBDBFR LD A,(HL) ;~ 07EH INC HL ;# 023H CP (HL) ;> 0BEH JR Z,CONDR@+04EH LD E,A ;_ 05FH LD D,00H INC HL ;# 023H ADD HL,DE ;019H 019H LD C,(HL) ;N 04EH RES 7,C  PUSH DE ;U 0D5H PUSH HL ;e 0E5H LD HL,TWLOCK CALL SIGNAL POP HL ;a 0E1H POP DE ;Q 0D1H POP BC ;A 0C1H RET ;I 0C9H @L12: LD A,(@L10) OR A ;7 0B7H JP Z,@L22 LD A,(TWLOCK) OR A ;7 0B7H RET Z ;H 0C8H LD A,(@L15) JR Z,CD5H PUSH HL ;e 0E5H LD HL,TWLOCK CALL WAIT POP HL ;a 0E1H POP DE ;Q 0D1H POP BC ;A 0C1H LD A,C ;y 079H AND 07FH CP 01BH JR NZ,CONDR@+0102H LD A,06H LD (@L24),A OR 0FFH LD (@L15),A INC A ;< 03CH LD (@L16),A LD (@L25),7H JR Z,CONDR@+016DH CP 0AH JR Z,CONDR@+019DH CP 01H JR Z,@L43 CP 02H JR Z,CONDR@+018DH CP 08H JR Z,@L14 CP 09H JR Z,@L14 LD A,0FFH RET ;I 0C9H @L32: DEC (HL) ;5 035H PUSH HL ;e 0E5H PUSH DE ;U 0D5H PUSH BC ;E 0C5H H RET ;I 0C9H PUSH DE ;U 0D5H PUSH BC ;E 0C5H CALL SERIAL POP BC ;A 0C1H POP DE ;Q 0D1H LD A,(RMTBR) BIT 4,A JP NZ,@L36 RET ;I 0C9H XOR A ;/ 0AFH RET ;I 0C9H @L43: PUSH DE ;U 0D5H PUSH BC ;E 0C5H LD E,00H CALL LL DELAY POP BC ;A 0C1H POP DE ;Q 0D1H JP @L43 LD (INTSP),SP LD SP,INTSTK PUSH AF ;u 0F5H PUSH BC ;E 0C5H PUSH DE ;U 0D5H PUSH HL ;e 0E5H PUSH IX PUSH IY IN A,(030H) LD B,A ;G 047H BIT 7,A JR Z,CONDR@+0216H CPL ;/ 0   2FH CP 01DH JR Z,CONDR@+0216H CP 02AH JR Z,CONDR@+0216H CP 036H JR Z,CONDR@+0216H CP 038H JR Z,CONDR@+0216H LD A,(0FF08H) OR A ;7 0B7H JR NZ,CONDR@+0216H LD A,0F0H OUT (031H),A LD A,B ;x 078H CP 01H JR Z,CONDR@+021FH CP  OUT (032H),A POP AF ;q 0F1H EI ;{ 0FBH RETI @L7: LD B,03FH CALL XQTROM RET ;I 0C9H @L1: DI ;s 0F3H LD B,09H CALL XQTROM EI ;{ 0FBH RET ;I 0C9H @L2: XOR A ;/ 0AFH LD B,A ;G 047H RET ;I 0C9H EXTERNAL XQTROM IT? ?UNIT? EQU 0480H ; 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 45: DEFB 0FFH ;0FFH @L44: DEFB 0FFH ;0FFH DEFB 0FFH ;0FFH DEFB 0FFH ;0FFH DEFB 0FFH ;0FFH @L2: DEFB 00H ;NUL @L28: DEFB 00H ;NUL DEFB 00H ;NUL @L47: DEFB 00H ;NUL DEFB 00H ;NUL @L52: DEFB 00H ;NUL @L48: DEFB 00H ;NDEFB 020H ;SP DEFB 0F6H ;v DEFB 080H ;NUL DEFB 0D3H ;S DEFB 020H ;SP DEFB 0F1H ;q DEFB 0D3H ;S DEFB 028H ;( DEFB 0C9H ;I ; CSEG LD HL,@L3 CALL WAIT CALL @L4 PUSH AF ;u 0F5H LD HL,@L3 CALL SIGNAL POP AF ;q 0F1H 03BH JR C,CONDR@+0225H LD A,(@L44) OR A ;7 0B7H JR NZ,CONDR@+024BH LD A,B ;x 078H LD HL,ATNCHR CP (HL) ;> 0BEH LD HL,KBDBFR JR NZ,CONDR@+0235H LD (HL),00H INC HL ;# 023H LD (HL),00H DEC HL ;+ 02BH LD D,040H LD B,0CH CAL EXTERNAL DRTVEC EXTERNAL USRTBL EXTERNAL TIMTBL EXTERNAL KBDBFR EXTERNAL WAIT EXTERNAL TWLOCK EXTERNAL SIGNAL EXTERNAL DMS EXTERNAL SERIAL EXTERNAL ATNCHR EXTERNAL DELAY EXTERNAL INTSP EXTERNAL INTSTK ; END 5H LD A,030H assumed public GLOBAL DSKDR@ DSKDR@ EQU $ ; Notice: symbol assumed public GLOBAL DSKTIC DSKTIC EQU DSKDR@+0365H ; DSEG DEFB 00H ;NUL DEFB 02CH ;, DEFB 01H ;01H @L37: DEFB 00H ;NUL @L3: DEFB 01H ;01H DEFB 00H ;NUL @L0: DEFW UL @L32: DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL @L33: DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL @L36: DEFB 00H ;NUL @L23: DEFB 00H ;NUL DEFB 00H ;NUL @L24: DEFB 00H ;NUL DEFB 00H ;NUL @L58: DEFB 00H ;NUL DEFB RET ;I 0C9H @L4: LD (@L5),SP LD A,(IX+00H) OR A ;7 0B7H JR Z,DSKDR@+02CH DEC A ;= 03DH JR Z,DSKDR@+051H DEC A ;= 03DH JP Z,@L6 DEC A ;= 03DH JP Z,@L7 DEC A ;= 03DH JP Z,@L8 RET ;I 0C9H LD A,0AH LD (@L9),A CALL @L10L XQTROM LD HL,@L19 BIT 0,(HL) JR Z,CONDR@+024BH LD (HL),00H LD HL,@L20 CALL SIGNAL POP IY POP IX POP HL ;a 0E1H POP DE ;Q 0D1H POP BC ;A 0C1H POP AF ;q 0F1H LD SP,(INTSP) EI ;{ 0FBH RETI PUSH AF ;u 0F5H LD A,030H ; ; File DSKTP1.MAC ; Created by ZREL/MAC V3.3 ; Copyright 1984 MicroSmith Computer Technology ; .Z80 ;set mode for M80 NAME ('DSKTP1') ; Notice: symbol assumed public GLOBAL ?ORIG? ?ORIG? EQU 09H ; Notice: symbol assumed public GLOBAL ?UN@L0 DEFW @L0 @L39: DEFB 00H ;NUL DEFB 00H ;NUL @L1: DEFW @L1 DEFW @L1 @L5: DEFB 00H ;NUL DEFB 00H ;NUL @L15: DEFB 00H ;NUL @L9: DEFB 00H ;NUL @L26: DEFB 00H ;NUL DEFB 00H ;NUL @L25: DEFB 00H ;NUL DEFB 00H ;NUL @L00H ;NUL ; COMMON /?INIT?/ DEFB 03EH ;> DEFB 0FEH ;~ DEFB 0D3H ;S DEFB 090H ;090H DEFB 032H ;2 DEFW @L2 DEFB 0DBH ;[ DEFB 028H ;( DEFB 0F5H ;u DEFB 03EH ;> DEFB 05H ;05H DEFB 0D3H ;S DEFB 028H ;( DEFB 0DBH ;[  JR NZ,DSKDR@+04CH CALL @L11 LD DE,0881DH CALL @L12 CALL @L13 CALL @L14 JR NZ,DSKDR@+036H LD A,(@L15) OR A ;7 0B7H RET Z ;H 0C8H CALL @L16 JR DSKDR@+031H LD A,0AH LD (@L9),A CALL @L10 JR NZ,DSKDR@+08DH CALL @L11 LD DE,   0A85DH CALL @L12 CALL @L17 CALL @L14 JR NZ,DSKDR@+05BH LD A,(@L15) OR A ;7 0B7H JR NZ,DSKDR@+08DH CALL @L10 JR NZ,DSKDR@+08DH CALL @L11 LD DE,08819H CALL @L12 CALL @L18 CALL @L14 JR NZ,DSKDR@+077H LD A,(@L15) OR A ;7 0B7IX+05H) LD (@L25),HL LD L,(IX+06H) LD H,(IX+07H) LD (@L26),HL LD L,(IX+0AH) LD H,(IX+0BH) LD (@L23),HL LD B,(IX+012H) INC B ;04H 04H LD HL,040H ADD HL,HL ;) 029H DJNZ DSKDR@+0101H LD (@L24),HL XOR A ;/ 0AFH LD (@L15),A CAH RET ;I 0C9H @L12: RET ;I 0C9H LD A,(@L2) BIT 2,A RET NZ ;@ 0C0H SET 3,D RET ;I 0C9H @L14: LD HL,@L15 OR (HL) ;6 0B6H LD (HL),A ;w 077H LD HL,(@L23) LD DE,(@L24) ADD HL,DE ;019H 019H LD (@L23),HL LD HL,(@L25) IN019H RET ;I 0C9H @L31: LD L,(IX+0CH) LD H,(IX+0DH) RET ;I 0C9H @L6: CALL @L19 JR Z,DSKDR@+020AH IN A,(081H) INC A ;< 03CH CALL Z,@L21 LD HL,@L32 LD (@L23),HL LD HL,06H LD (@L24),HL LD A,0AH LD (@L9),A LD DE,0C81DH C0AFH RET ;I 0C9H INC HL ;# 023H INC HL ;# 023H OR 0FFH LD (IX+0CH),L LD (IX+0DH),H RET ;I 0C9H @L21: CALL @L34 LD A,(STEPRT) OR 08H CALL @L35 LD HL,@L36 LD (HL),04H RET ;I 0C9H @L22: LD A,0FFH LD (@L37),A @L27:  IN A,(080H) AND 01H RET NZ ;@ 0C0H LD HL,@L39 CALL SIGNAL LD HL,@L38 JP UNLINK @L7: LD A,0FEH LD (@L2),A @L19: CALL @L42 CALL @L34 XOR A ;/ 0AFH OUT (082H),A LD B,0FH DJNZ $ IN A,(082H) OR A ;7 0B7H JR NZ,DSKDR@+02EH RET Z ;H 0C8H CALL @L16 JR DSKDR@+056H @L8: LD A,0AH LD (@L9),A CALL @L19 JP Z,@L20 LD A,(@L2) BIT 7,(IX+04H) JR NZ,DSKDR@+0A8H SET 3,A BIT 7,(IX+05H) JR Z,DSKDR@+0B0H RES 2,A OUT (090H),A LD (@L2),A LD A,(IX+02H) ORLL @L19 JP Z,@L20 CALL @L27 RET ;I 0C9H @L11: LD HL,(UNLDTM) LD (@L28),HL CALL @L29 BIT 3,(HL) JR NZ,DSKDR@+0127H LD HL,@L2 SET 3,(HL) CALL @L29 LD A,(@L25) BIT 2,(HL) LD HL,@L2 JR Z,DSKDR@+013FH LD C,(IX+013H) SRL C C HL ;# 023H LD (@L25),HL LD HL,(@L26) DEC HL ;+ 02BH LD (@L26),HL LD A,H ;| 07CH OR L ;5 0B5H RET ;I 0C9H @L16: CP 04H RET Z ;H 0C8H LD HL,@L9 DEC (HL) ;5 035H JP Z,@L20 BIT 0,(HL) CALL Z,@L21 LD C,07H CALL CONOUT ALL @L13 JR Z,DSKDR@+01E6H LD HL,@L9 DEC (HL) ;5 035H JR Z,DSKDR@+020AH LD A,(@L2) XOR 08H OUT (090H),A LD (@L2),A JR DSKDR@+01CCH LD A,(@L33) LD C,A ;O 04FH LD A,(@L2) BIT 3,A JR NZ,DSKDR@+01F3H SET 3,C SET 2,C SET 4,C IN A,(081H) INC A ;< 03CH CALL Z,@L21 LD B,(IX+02H) IN A,(081H) CP B ;8 0B8H RET Z ;H 0C8H LD A,B ;x 078H OUT (083H),A LD A,(STEPRT) LD D,A ;W 057H LD A,(@L37) OR A ;7 0B7H LD A,01CH JR Z,DSKDR@+024FH XOR A ;/ 0AFH LDEH LD A,(IX+01H) CP 04H JR NC,DSKDR@+02EEH LD B,A ;G 047H INC B ;04H 04H LD A,08H ADD A,A ;087H 087H DJNZ DSKDR@+029EH CPL ;/ 02FH RES 1,A RES 3,A LD HL,@L2 LD B,(HL) ;F 046H LD (HL),A ;w 077H OUT (090H),A BIT 1,B J A ;7 0B7H CALL Z,@L21 CALL @L22 JR NZ,DSKDR@+0DAH LD L,(IX+0AH) LD H,(IX+0BH) LD (@L23),HL LD L,(IX+08H) LD H,(IX+09H) LD (@L24),HL LD DE,0F061H CALL @L17 RET Z ;H 0C8H CALL @L16 JR DSKDR@+097H @L10: LD L,(IX+04H) LD H,(CP C ;9 0B9H JR C,DSKDR@+013FH SUB C ;091H 091H RES 2,(HL) LD C,090H OUTI LD C,A ;O 04FH CALL @L30 JR Z,DSKDR@+014DH LD B,00H ADD HL,BC ;TAB 09H LD C,(HL) ;N 04EH LD A,C ;y 079H INC A ;< 03CH OUT (082H),A XOR A ;/ 0AF RET ;I 0C9H @L30: CALL @L31 LD DE,XLTBL ADD HL,DE ;019H 019H LD E,(HL) ;^ 05EH INC HL ;# 023H LD D,(HL) ;V 056H EX DE,HL ;k 0EBH LD A,H ;| 07CH OR L ;5 0B5H RET ;I 0C9H @L29: CALL @L31 LD DE,TYPCOD ADD HL,DE ;019H  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@+020CH LD E,(HL) ;^ 05EH INC HL ;# 023H LD D,(HL) ;V 056H LD A,D ;z 07AH OR E ;3 0B3H JR NZ,DSKDR@+01FAH XOR A ;/  (@L37),A LD A,018H OR D ;2 0B2H CALL @L35 AND 018H RET ;I 0C9H @L35: OUT (080H),A LD DE,@L38 CALL LNKPOL LD HL,@L39 CALL WAIT IN A,(080H) RET ;I 0C9H @L38: NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H R Z,DSKDR@+02B7H LD HL,03CH CALL DELAY LD A,(@L2) XOR B ;( 0A8H AND 0F0H CALL NZ,@L43 JR NZ,DSKDR@+02EEH LD DE,@L44 LD A,(@L45) CP (IX+01H) JR Z,DSKDR@+02E5H INC A ;< 03CH JR Z,DSKDR@+02D8H DEC A ;= 03DH LD L,A ;o 06FH L   D H,00H ADD HL,DE ;019H 019H IN A,(081H) LD (HL),A ;w 077H LD A,(IX+01H) LD (@L45),A LD L,A ;o 06FH LD H,00H ADD HL,DE ;019H 019H LD A,(HL) ;~ 07EH OUT (081H),A LD HL,(UNLDTM) LD (@L28),HL OR 0FFH RET ;I 0C9H CALL @L46 LL Z,@L46 LD A,0FEH JR Z,DSKDR@+0356H LD A,(@L2) CP 0FEH LD A,0FFH JR Z,DSKDR@+0356H IN A,(023H) AND 080H RET Z ;H 0C8H LD A,07FH OUT (023H),A LD A,0D4H OUT (080H),A LD HL,@L48 DEC (HL) ;5 035H RET NZ ;@ 0C0H XOR A ;/ LL @L34 LD A,D ;z 07AH LD HL,@L36 OR (HL) ;6 0B6H LD (HL),00H LD HL,(@L23) LD DE,(@L24) LD B,E ;C 043H DEC DE ;01BH 01BH LD C,083H DI ;s 0F3H OUT (080H),A LD E,07H DEC E ;01DH 01DH JR NZ,DSKDR@+03B7H @L60: DI ;s 0F3H POP AF ;q 0F1H RET ;I 0C9H @L34: LD A,0D0H OUT (080H),A LD A,0FH DEC A ;= 03DH JR NZ,DSKDR@+0408H IN A,(083H) IN A,(080H) RET ;I 0C9H @L20: LD SP,(@L5) LD A,0FFH RET ;I 0C9H EXTERNAL WAIT EXTERNAL SIGNAL EXTERNAL ; ; File DST8F.MAC ; Created by ZREL/MAC V3.3 ; Copyright 1984 MicroSmith Computer Technology ; .Z80 ;set mode for M80 NAME ('DST8F') ; Notice: symbol assumed public GLOBAL ?ORIG? ?ORIG? EQU 09H ; Notice: symbol assumed public GLOBAL ?UNITNUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H RRA ;01FH 01FH @L0: DEFW @L1 INC B ;04H 04H SUB B ;090H 090H LD BC,0304H LD A,(BC) ;LF 0AH NOP ;NUL 00H LD D,B ;P 050H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H  XOR A ;/ 0AFH RET ;I 0C9H @L43: LD HL,078H LD (@L28),HL LD HL,01F40H LD (@L47),HL EI ;{ 0FBH LD A,03H LD (@L48),A LD A,07FH OUT (023H),A LD A,0D4H OUT (080H),A LD DE,@L49 CALL LNKPOL LD HL,@L39 CALL WAIT LD A,(@L520AFH LD (@L52),A LD HL,@L39 CALL SIGNAL LD HL,@L49 JP UNLINK LD HL,(@L28) BIT 7,H RET NZ ;@ 0C0H DEC HL ;+ 02BH LD (@L28),HL BIT 7,H RET Z ;H 0C8H CALL @L34 @L46: LD A,0FEH OUT (090H),A LD (@L2),A @L42: LD HL,0FFFFH  @L59: IN A,(080H) BIT 1,A RET NZ ;@ 0C0H DEC E ;01DH 01DH JP NZ,@L59 EI ;{ 0FBH AND 01H JP NZ,@L60 OR 0FFH POP HL ;a 0E1H JR @L55 @L61: IN A,(080H) AND 06H JP Z,@L61 @L56: INI JP NZ,@L61 DEC D ;015H 015H JP P,CONOUT EXTERNAL XLTBL EXTERNAL TYPCOD EXTERNAL DSTBLS EXTERNAL DTCO EXTERNAL LNKPOL EXTERNAL UNLINK EXTERNAL DELAY ; END IN A,(080H) BIT 0,A JR NZ,DSKDR@+03F2H LD HL,@L58 AND (HL) ;& 0A6H @L55: PUSH AF ;u 0F5H CALL @L34? ?UNIT? EQU 0480H ; 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 GLOBNOP ;NUL 00H NOP ;NUL 00H CCF ;? 03FH @L1: NOP ;NUL 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 ;) OR A ;7 0B7H PUSH AF ;u 0F5H CALL @L42 CALL @L34 POP AF ;q 0F1H RET ;I 0C9H @L49: NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H LD HL,(@L47) DEC HL ;+ 02BH LD (@L47),HL LD A,H ;| 07CH OR L ;5 0B5H CA LD (@L28),HL RET ;I 0C9H @L18: CALL @L34 LD A,D ;z 07AH PUSH DE ;U 0D5H CALL @L35 POP DE ;Q 0D1H AND E ;# 0A3H JP @L55 @L13: LD HL,@L56 JR DSKDR@+0398H @L17: LD HL,@L57 PUSH HL ;e 0E5H LD A,E ;{ 07BH LD (@L58),A CA@L61 JR DSKDR@+03F1H @L62: IN A,(080H) AND 06H JP Z,@L62 @L57: OUTI JP NZ,@L62 DEC D ;015H 015H JP P,@L62 EI ;{ 0FBH IN A,(080H) BIT 0,A JR NZ,DSKDR@+03F2H LD HL,@L58 AND (HL) ;& 0A6H @L55: PUSH AF ;u 0F5H CALL @L34AL 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 ;NUL 00H DEC E ;01DH 01DH ; END  NOP ;NUL 00H RRA ;01FH 01FH @L0: DEFW @L1 INC B ;04H 04H SUB B ;090H NETLOD REL NETSVC REL  PARTP1 REL RTC803 REL    ymbol assumed public GLOBAL ?UNIT? ?UNIT? EQU 0480H ; 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 (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 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 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 LHL) ;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 E; ; 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 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    ; ; 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+05DH) 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+05DH) INC B ;04H 04H PUSH BC ;E 0C5H CALL PRCREQ OR A ;7 0B7H JR NZ,NETLOD+0153H SET 2,(IY+0EH) POP DE ;Q 0D1H PUSH DE ;U 0D0FEH CALL GETREP OR A ;7 0B7H JR NZ,NETLOD+014EH PUSH HL ;e 0E5H POP IY CALL PRCREP JR NETLOD+0157H LD (IX+033H),A JR NETLOD+015AH LD (IX+033H),A POP BC ;A 0C1H CALL DMBCOM POP IY LD A,(IX+02FH) CP 022H CALL Z,RESRRN POIT? ?UNIT? EQU 0480H ; 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 CA5H DEC D ;015H 015H JR NZ,NETLOD+0112H RES 2,(IY+0EH) PUSH IY POP DE ;Q 0D1H PUSH HL ;e 0E5H PUSH BC ;E 0C5H CALL SNDREQ POP DE ;Q 0D1H POP HL ;a 0E1H OR A ;7 0B7H JR NZ,NETLOD+014EH PUSH DE ;U 0D5H PUSH HL ;e 0E5H CAP HL ;a 0E1H JP SETDMA EXTERNAL ALOCMB EXTERNAL PRCREQ EXTERNAL SNDREQ EXTERNAL GETREP EXTERNAL GETDMA EXTERNAL MEMBAS EXTERNAL MEMRES EXTERNAL PRCREP EXTERNAL SETDMA EXTERNAL DMBCOM EXTERNAL GETNMB EXTERNAL SAVRRN EXTERNAL GET; ; File NETSVC.MAC ; Created by ZREL/MAC V3.3 ; Copyright 1984 MicroSmith Computer Technology ; .Z80 ;set mode for M80 NAME ('NETSVC') ; Notice: symbol assumed public GLOBAL ?ORIG? ?ORIG? EQU 09H ; Notice: symbol assumed public GLOBAL ?UN PUSH HL ;e 0E5H POP IY CALL PRCREQ OR A ;7 0B7H JR NZ,NETLOD+076H PUSH IY POP DE ;Q 0D1H POP IY PUSH HL ;e 0E5H PUSH BC ;E 0C5H CALL SNDREQ POP DE ;Q 0D1H POP HL ;a 0E1H OR A ;7 0B7H JR NZ,NETLOD+07BH CALL GETREP ORY+0EH) CALL NZ,SETDMA BIT 2,(IY+0EH) PUSH AF ;u 0F5H CALL DMBCOM POP AF ;q 0F1H POP HL ;a 0E1H POP IY RET Z ;H 0C8H CALL GETNMB JR NETLOD+020H CALL DMBCOM POP IY LD (IX+02EH),0FFH RET ;I 0C9H CALL GETDMA PUSH HL ;e 0ELL SETDMA BIT 2,(IY+0EH) PUSH AF ;u 0F5H CALL DMBCOM POP AF ;q 0F1H POP HL ;a 0E1H POP IY JR Z,NETLOD+0E2H CALL GETNMB JR NETLOD+0AAH CALL DMBCOM POP IY LD (IX+033H),0FFH POP HL ;a 0E1H JP SETDMA CALL GETDMA PUSH HL ;e LL GETDMA LD DE,080H ADD HL,DE ;019H 019H CALL SETDMA CALL GETCRA LD A,(HL) ;~ 07EH INC A ;< 03CH AND 07FH LD (HL),A ;w 077H LD A,(IX+02FH) CP 022H CALL Z,INCRRC POP HL ;a 0E1H POP DE ;Q 0D1H POP BC ;A 0C1H DJNZ NETLOD+CRA EXTERNAL INCRRC EXTERNAL RESRRN ; END H PUSH HL ;e 0E5H POP IY CALL PRCREP JR NETLOD+0157H LD (IX+033NETLOD REL NETSVC REL  PARTP1 REL RTC803 REL IT? ?UNIT? EQU 0480H ; Notice: symbol assumed public GLOBAL NMBSVC NMBSVC EQU NMBSVC+00H ; Notice: symbol assumed public GLOBAL SLVFN SLVFN EQU NMBSVC+01H ; Notice: symbol assumed public GLOBAL SVCNIT SVCNIT EQU SVCNIT+00H ; Notice: symbol as   sumed public GLOBAL SVCERR SVCERR EQU $ ; Notice: symbol assumed public GLOBAL SVCMGR SVCMGR EQU SVCERR+07H ; Notice: symbol assumed public GLOBAL SVCOSC SVCOSC EQU SVCERR+04FDH ; DSEG DEFB 02H ;02H DEFB 04FH ;O DEFB 053H ;S DEFB 0 @L22: CALL @L2 CALL RCVREQ PUSH HL ;e 0E5H POP IY LD A,(IY+04H) CP 0CH JP Z,@L3 PUSH DE ;U 0D5H LD DE,@L4 LD C,07H CALL OTNTRY LD DE,@L5 LD C,08H CALL OTNTRY POP DE ;Q 0D1H RES 5,(IX+05BH) RES 7,(IX+05BH) LD A,(IY+0 ;~ 07EH INC HL ;# 023H CP (IY+05H) JR NZ,SVCERR+08AH LD A,(HL) ;~ 07EH CP (IY+06H) JR Z,SVCERR+0A4H INC HL ;# 023H INC HL ;# 023H INC HL ;# 023H DJNZ SVCERR+07DH RES 2,(IX+05AH) CALL FWDREQ JP @L8 LD (IY+0FH),0FFH LD (IY LD H,(IY+09H) LD (IY+0AH),L LD (IY+0BH),H CALL @L7 OR A ;7 0B7H JP Z,@L14 LD DE,00H LD C,07H CALL OTNTRY LD DE,00H LD C,08H CALL OTNTRY LD A,(COMPAT) LD (IX+05CH),A LD (IX+040H),00H SET 4,(IX+05BH) CALL @L17 LD A,H ;| 0 ;w 077H LD C,0FH CALL SVCOSC OR A ;7 0B7H JR NZ,SVCERR+016DH CALL @L18 EX DE,HL ;k 0EBH CALL SETDMA CALL @L17 EX DE,HL ;k 0EBH PUSH DE ;U 0D5H LD C,014H CALL SVCOSC POP DE ;Q 0D1H OR A ;7 0B7H JR NZ,SVCERR+0168H LD (,0FH ADD HL,DE ;019H 019H EX DE,HL ;k 0EBH PUSH IX POP HL ;a 0E1H LD BC,08H LDIR LD A,(IX+02DH) LD (DE),A ;012H 012H CALL XCHGSD PUSH HL ;e 0E5H PUSH DE ;U 0D5H PUSH IY POP DE ;Q 0D1H CALL SNDREP POP DE ;Q 0D1H POP 53H ;S DEFB 04CH ;L DEFB 041H ;A DEFB 056H ;V DEFB 045H ;E DEFB 020H ;SP DEFB 053H ;S DEFB 059H ;Y DEFB 053H ;S @L0: DEFW @L0 DEFW @L0 ; COMMON /?INIT?/ DEFB 03AH ;: DEFW NMBSVC DEFB 0B7H ;7 DEFB 0C8H ;H DEFB 016H) BIT 7,A JR Z,SVCERR+049H SET 5,(IX+05BH) BIT 6,A JR Z,SVCERR+049H SET 7,(IX+05BH) BIT 5,A PUSH AF ;u 0F5H AND 01FH LD (IX+040H),A SET 4,(IX+05BH) POP AF ;q 0F1H JR Z,SVCERR+06EH RES 4,(IX+05BH) LD A,(IY+010H) OR A ;7+014H),0FFH JP @L8 LD A,(IY+010H) BIT 4,(IX+05BH) JR Z,SVCERR+0B4H LD HL,@L9 CP 030H JR SVCERR+0B9H LD HL,@L10 CP 02CH JR NC,@L11 LD C,A ;O 04FH LD B,00H ADD HL,BC ;TAB 09H ADD HL,BC ;TAB 09H LD C,(HL) ;N 04EH INC HL ;#7CH OR L ;5 0B5H JR NZ,SVCERR+014DH LD HL,024H CALL ALLOC OR A ;7 0B7H JR NZ,SVCERR+016DH LD (IX+06BH),L LD (IX+06CH),H PUSH HL ;e 0E5H LD A,(SYSDSK) INC A ;< 03CH LD (HL),A ;w 077H INC HL ;# 023H EX DE,HL ;k 0EBH LD HLIY+04H),08BH JR @L8 LD C,010H CALL SVCOSC CALL @L1 RES 4,(IX+05BH) CALL @L19 @L14: LD A,(SYSDSK) LD (IY+0FH),A LD (IY+04H),0CH JR @L8 @L5: CALL GETTOS LD SP,HL ;y 0F9H LD (IY+04H),0BH LD (IY+0EH),00H @L8: CALL @L1 CALL XHL ;a 0E1H OR A ;7 0B7H JR NZ,SVCERR+01EFH LD C,(IX+02DH) CALL RCVREP OR A ;7 0B7H JR NZ,SVCERR+01EFH EX DE,HL ;k 0EBH LD HL,0FH ADD HL,DE ;019H 019H LD A,(HL) ;~ 07EH PUSH AF ;u 0F5H CALL DEALMB POP AF ;q 0F1H POP IY 47H ;G DEFB 0C5H ;E DEFB 011H ;011H DEFW SVCMGR DEFB 0CDH ;M DEFW CRPROC DEFB 0CDH ;M DEFW SETDDF DEFB 0C1H ;A DEFB 010H ;010H DEFB 0F3H ;s DEFB 0C9H ;I ; CSEG CALL GETTOS LD SP,HL ;y 0F9H CALL @L1 SET 1,(IX+05BH) 0B7H JR Z,SVCERR+0A4H CP 017H JR Z,SVCERR+076H CP 018H JR Z,SVCERR+076H CP 021H JR Z,SVCERR+076H PUSH DE ;U 0D5H CALL @L7 POP DE ;Q 0D1H OR A ;7 0B7H JR Z,SVCERR+099H LD A,(NMBCKT) LD B,A ;G 047H LD HL,CKTAST LD A,(HL)  023H LD B,(HL) ;F 046H LD A,B ;x 078H OR C ;1 0B1H JR Z,@L11 LD A,B ;x 078H OR A ;7 0B7H JR Z,SVCERR+0D1H LD HL,@L11 PUSH HL ;e 0E5H PUSH BC ;E 0C5H RET ;I 0C9H CALL @L12 @L11: CALL @L13 JP @L8 @L3: LD L,(IY+08H) ,SLVFN LD BC,0BH LDIR XOR A ;/ 0AFH LD (DE),A ;012H 012H POP DE ;Q 0D1H LD HL,06H ADD HL,DE ;019H 019H SET 7,(HL) INC HL ;# 023H INC HL ;# 023H LD C,(IY+0FH) LD (HL),C ;q 071H LD HL,020H ADD HL,DE ;019H 019H LD (HL),ACHGSD PUSH IY POP DE ;Q 0D1H CALL SNDREP JP @L22 @L4: CALL ALOCMB EX DE,HL ;k 0EBH PUSH IY POP HL ;a 0E1H PUSH IY PUSH DE ;U 0D5H POP IY LD BC,0EH LDIR LD (IY+0EH),00H LD (IY+04H),014H PUSH IY POP HL ;a 0E1H LD DERET ;I 0C9H @L13: LD (IY+04H),013H BIT 5,(IY+0EH) JR Z,SVCERR+0204H LD A,(IY+04H) ADD A,025H LD (IY+04H),A BIT 6,(IY+0EH) JP Z,@L25 LD A,(IY+04H) ADD A,080H LD (IY+04H),A @L25: RET ;I 0C9H @L9: NOP ;NUL 00H NOP ;NUL 0    0H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00L 00H NOP ;NUL 00H DEFW @L26 NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H DEFW @L28 DEFW @L29 DEFW @L26 DEFW @L26 NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H DFH NOP ;NUL 00H RST 56 ;0FFH 0FFH NOP ;NUL 00H RST 56 ;0FFH 0FFH NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H DEFW @L31 NOP ;NUL 00H NOP ;NUL 00H NOP ;NULFW @L33 RST 56 ;0FFH 0FFH NOP ;NUL 00H RST 56 ;0FFH 0FFH NOP ;NUL 00H RST 56 ;0FFH 0FFH NOP ;NUL 00H RST 56 ;0FFH 0FFH NOP ;NUL 00H RST 56 ;0FFH 0FFH NOP ;NUL 00H RST 56 ;0FFH 0FFH NOP ;NUL 00H RST 56 ;0FFH 0FFH8 JP NZ,@L39 CALL @L13 SET 2,(IY+0EH) SET 4,(IX+05BH) SET 7,(IY+01DH) LD (IY+023H),00H LD (IY+010H),0FH CALL @L26 OR A ;7 0B7H JR NZ,SVCERR+034BH LD (IY+037H),A LD (IY+010H),014H CALL @L26 OR A ;7 0B7H JR NZ,SVCERR+033DH C A,(NMBCKT) LD B,A ;G 047H LD HL,CKTAST LD A,(HL) ;~ 07EH INC HL ;# 023H CP E ;; 0BBH JR NZ,SVCERR+037AH LD A,(HL) ;~ 07EH CP D ;: 0BAH INC HL ;# 023H INC HL ;# 023H INC HL ;# 023H JR Z,SVCERR+0391H DJNZ SVCERR+0373H LDH NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H DEFW @L26 DEFW @L26 DEFW @LEFW @L29 NOP ;NUL 00H NOP ;NUL 00H DEFW @L30 DEFW @L30 NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H @L10: DEFW @L19 NOP ;NUL 00H NOP ;NUL 00H  00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H RST 56 ;0FFH 0FFH NOP ;NUL 00H RST 56 ;0FFH 0FFH NOP ;NUL 00H RST 56 ;0FFH 0FFH NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H RST 56 ;0FFH 0FFH NOP ;NUL 00H RST 56 ;0FF NOP ;NUL 00H RST 56 ;0FFH 0FFH NOP ;NUL 00H RST 56 ;0FFH 0FFH NOP ;NUL 00H RST 56 ;0FFH 0FFH NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H @L19: LD A,(IY+07H) INC A ;< 03CH JR Z,SVCERR+02D9H CALL @L34 OR A ;7 0B7H ALL XCHGSD PUSH IY POP DE ;Q 0D1H CALL SNDREP OR A ;7 0B7H JP NZ,SVCERR CALL XCHGSD JR SVCERR+0321H PUSH AF ;u 0F5H LD (IY+010H),010H CALL @L26 POP AF ;q 0F1H DEC A ;= 03DH JR Z,SVCERR+034BH LD A,0FFH LD (IY+0FH),A RES  C,(IY+017H) DEC C ;CR 0DH LD HL,DSKAST CALL DEXLAT INC A ;< 03CH JR Z,SVCERR+0394H LD (IY+017H),A JP @L26 LD (IY+0FH),0FFH RET ;I 0C9H @L33: LD A,(IY+013H) INC A ;< 03CH BIT 7,(IX+05AH) JR Z,SVCERR+03A8H CP (IX+03CH) JR27 DEFW @L27 DEFW @L26 DEFW @L28 DEFW @L29 DEFW @L26 DEFW @L26 NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NU NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H RST 56 ;0FFH 0FH 0FFH NOP ;NUL 00H RST 56 ;0FFH 0FFH NOP ;NUL 00H RST 56 ;0FFH 0FFH NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H RST 56 ;0FFH 0FFH NOP ;NUL 00H DEFW @L32 NOP ;NUL 00H NOP ;NUL 00H DERET Z ;H 0C8H JR SVCERR+02E3H CALL @L35 OR A ;7 0B7H RET Z ;H 0C8H LD C,01CH CALL SVCOSC LD C,00H CALL SVCOSC CALL @L17 LD A,H ;| 07CH OR L ;5 0B5H CALL NZ,DEALOC CALL @L36 CALL DEALOC CALL @L2 JR @L19 @L31: CALL @L36,(IY+0EH) RES 2,(IY+0EH) RET ;I 0C9H @L32: LD C,(IY+015H) LD B,00H LD HL,QUEAST ADD HL,BC ;TAB 09H ADD HL,BC ;TAB 09H ADD HL,BC ;TAB 09H LD A,(HL) ;~ 07EH INC A ;< 03CH JR Z,SVCERR+0394H LD E,(IY+025H) LD D,(IY+026H) LD Z,SVCERR+03B2H LD D,A ;W 057H LD E,00H LD B,0FFH LD C,01BH CALL SVCOSC LD A,(IY+012H) LD C,01CH INC A ;< 03CH JP Z,SVCOSC LD C,01FH DEC A ;= 03DH JP Z,SVCOSC PUSH AF ;u 0F5H CALL @L45 EX DE,HL ;k 0EBH POP AF ;q 0F1H      LD B,A ;G 047H LD E,(HL) ;^ 05EH INC HL ;# 023H PUSH BC ;E 0C5H PUSH HL ;e 0E5H LD C,05H SET 4,(IX+05BH) CALL SVCOSC POP HL ;a 0E1H POP BC ;A 0C1H DJNZ SVCERR+03C8H RET ;I 0C9H @L27: CALL @L46 LD HL,0FH ADD HL,DE ;01OR A ;7 0B7H JP NZ,SVCERR CALL XCHGSD POP BC ;A 0C1H INC (IY+038H) JR NZ,SVCERR+040BH INC (IY+039H) JR NZ,SVCERR+040BH INC (IY+03AH) JR SVCERR+040BH RES 6,(IY+0EH) RES 2,(IY+0EH) POP BC ;A 0C1H LD (IY+03AH),B LD (IY+039H),C F5H CALL DEALMB POP AF ;q 0F1H POP HL ;a 0E1H JR NZ,SVCERR+0472H RES 2,(IY+0EH) RET ;I 0C9H @L38: LD C,(IY+017H) DEC C ;CR 0DH LD B,00H LD HL,DSKAST ADD HL,BC ;TAB 09H ADD HL,BC ;TAB 09H ADD HL,BC ;TAB 09H LD A,(HL) ;~ INC HL ;# 023H LD C,(HL) ;N 04EH INC HL ;# 023H LD B,(HL) ;F 046H INC HL ;# 023H LD E,(HL) ;^ 05EH INC HL ;# 023H LD D,(HL) ;V 056H INC HL ;# 023H LD A,(HL) ;~ 07EH INC HL ;# 023H LD H,(HL) ;f 066H LD L,A ;o 06FH CAL,A BIT 4,(IX+05BH) JP NZ,OCNTRY JP OTNTRY @L7: CALL @L34 OR A ;7 0B7H RET NZ ;@ 0C0H LD HL,01BH CALL ALLOC INC A ;< 03CH RET Z ;H 0C8H CALL @L59 INC HL ;# 023H INC HL ;# 023H INC HL ;# 023H INC HL ;# 023H LD A,(IY+0: LD HL,@L0 LD E,(HL) ;^ 05EH INC HL ;# 023H LD D,(HL) ;V 056H LD HL,@L0 XOR A ;/ 0AFH SBC HL,DE RET Z ;H 0C8H LD HL,04H ADD HL,DE ;019H 019H LD A,(IY+08H) CP (HL) ;> 0BEH JR NZ,SVCERR+0580H INC HL ;# 023H LD A,(IY+09H9H 019H LD A,(HL) ;~ 07EH LD (IX+03DH),A CALL @L26 INC A ;< 03CH RET NZ ;@ 0C0H RES 6,(IY+0EH) RET ;I 0C9H @L28: CALL @L38 JP NZ,@L39 LD C,(IY+038H) PUSH BC ;E 0C5H LD C,(IY+039H) LD B,(IY+03AH) PUSH BC ;E 0C5H CALL @L POP BC ;A 0C1H LD (IY+038H),C RET ;I 0C9H @L29: CALL @L38 JP NZ,@L39 PUSH DE ;U 0D5H CALL @L26 POP HL ;a 0E1H BIT 2,(IY+0EH) RET Z ;H 0C8H OR A ;7 0B7H JR NZ,SVCERR+0472H PUSH HL ;e 0E5H PUSH IY POP DE ;Q 0D1H CALL  07EH INC A ;< 03CH RET Z ;H 0C8H BIT 7,(HL) RET ;I 0C9H @L39: SET 2,(IX+05AH) JP FWDREQ @L30: LD A,(IY+011H) LD (IX+05DH),A CALL @L26 LD (IX+05DH),B RET ;I 0C9H @L26: CALL @L46 LD (IX+04CH),E LD (IX+04DH),D LD HL,024L SVCOSC PUSH HL ;e 0E5H PUSH BC ;E 0C5H CALL @L55 LD (HL),A ;w 077H INC HL ;# 023H POP BC ;A 0C1H LD (HL),C ;q 071H INC HL ;# 023H LD (HL),B ;p 070H INC HL ;# 023H LD (HL),E ;s 073H INC HL ;# 023H LD (HL),D ;r 072H 8H) LD (HL),A ;w 077H INC HL ;# 023H LD A,(IY+09H) LD (HL),A ;w 077H INC HL ;# 023H LD A,(IY+0AH) LD (HL),A ;w 077H INC HL ;# 023H LD A,(IY+0BH) LD (HL),A ;w 077H INC HL ;# 023H LD A,(IY+0CH) LD (HL),A ;w 077H INC HL ;) CP (HL) ;> 0BEH EX DE,HL ;k 0EBH JR NZ,SVCERR+0567H CALL @L59 CALL UNLINK LD HL,0AH ADD HL,DE ;019H 019H LD A,(HL) ;~ 07EH LD (IX+05AH),A INC HL ;# 023H LD A,(HL) ;~ 07EH LD (IX+03CH),A INC HL ;# 023H LD A,(HL) ;~ 07EH13 SET 2,(IY+0EH) LD B,(IY+011H) INC B ;04H 04H PUSH BC ;E 0C5H CALL @L26 POP BC ;A 0C1H OR A ;7 0B7H JR NZ,SVCERR+0437H DEC B ;05H 05H JR Z,SVCERR+043BH PUSH BC ;E 0C5H CALL XCHGSD PUSH IY POP DE ;Q 0D1H CALL SNDREP DEALMB POP HL ;a 0E1H CALL RRRMSG OR A ;7 0B7H JP NZ,SVCERR PUSH HL ;e 0E5H POP IY JR @L29 CALL RRRMSG OR A ;7 0B7H JP NZ,SVCERR EX DE,HL ;k 0EBH PUSH HL ;e 0E5H LD HL,0EH ADD HL,DE ;019H 019H BIT 2,(HL) PUSH AF ;u 0H ADD HL,DE ;019H 019H LD A,(HL) ;~ 07EH LD (IX+05CH),A CALL @L55 INC HL ;# 023H INC HL ;# 023H INC HL ;# 023H LD (HL),E ;s 073H INC HL ;# 023H LD (HL),D ;r 072H @L12: CALL @L45 EX DE,HL ;k 0EBH CALL SETDMA CALL @L55 INC HL ;# 023H POP DE ;Q 0D1H LD (HL),E ;s 073H INC HL ;# 023H LD (HL),D ;r 072H RET ;I 0C9H LD A,(IY+0AH) LD (IX+062H),A LD A,(IY+0BH) LD (IX+063H),A LD A,(IY+0CH) LD (IX+064H),A LD A,(IY+0DH) INC A ;< 03CH LD (IX+065H)# 023H LD A,(IY+0DH) LD (HL),A ;w 077H INC HL ;# 023H PUSH HL ;e 0E5H LD B,011H LD (HL),00H INC HL ;# 023H DJNZ SVCERR+0555H POP HL ;a 0E1H JR SVCERR+058DH @L34: CALL @L60 OR A ;7 0B7H RET Z ;H 0C8H JR SVCERR+0583H @L35 LD (IX+058H),A INC HL ;# 023H LD A,(HL) ;~ 07EH LD (IX+059H),A INC HL ;# 023H LD A,(HL) ;~ 07EH LD (IX+049H),A INC HL ;# 023H LD A,(HL) ;~ 07EH LD (IX+04AH),A INC HL ;# 023H LD A,(HL) ;~ 07EH LD (IX+04BH),A INC HL ;# 0    23H LD A,(HL) ;~ 07EH LD (IX+052H),A INC HL ;# 023H LD A,(HL) ;~ 07EH LD (IX+053H),A INC HL ;# 023H LD A,(HL) ;~ 07EH LD (IX+060H),A INC HL ;# 023H LD A,(HL) ;~ 07EH LD (IX+061H),A INC HL ;# 023H LD A,(HL) ;~ 07EH LD (IH) LD (HL),A ;w 077H INC HL ;# 023H LD A,(IX+058H) LD (HL),A ;w 077H INC HL ;# 023H LD A,(IX+059H) LD (HL),A ;w 077H INC HL ;# 023H LD A,(IX+049H) LD (HL),A ;w 077H INC HL ;# 023H LD A,(IX+04AH) LD (HL),A ;w 077H INC HLH LD A,(IX+06BH) LD (HL),A ;w 077H INC HL ;# 023H LD A,(IX+06CH) LD (HL),A ;w 077H CALL @L2 POP DE ;Q 0D1H LD HL,@L0 JP LNKBEG @L60: LD HL,@L0 LD E,(HL) ;^ 05EH INC HL ;# 023H LD D,(HL) ;V 056H LD HL,@L0 XOR A ;/ 0AFH AND 028H JR NZ,@L61 @L46: LD BC,017H JR @L61 @L18: LD BC,0FH @L61: PUSH IY POP HL ;a 0E1H ADD HL,BC ;TAB 09H EX DE,HL ;k 0EBH RET ;I 0C9H @L2: LD HL,00H @L59: LD (IX+066H),L LD (IX+067H),H RET ;I 0C9H @L36: LD L,( EXTERNAL UNLINK EXTERNAL LNKBEG ; END  LD L,(IX+06BH) LD H,(IX+06CH) RET ;I 0C9H EXTERNAL CRPROC EXTERNAL NETLOD REL NETSVC REL  PARTP1 REL RTC803 REL X+04EH),A INC HL ;# 023H LD A,(HL) ;~ 07EH LD (IX+04FH),A INC HL ;# 023H LD A,(HL) ;~ 07EH LD (IX+050H),A INC HL ;# 023H LD A,(HL) ;~ 07EH LD (IX+051H),A INC HL ;# 023H LD A,(HL) ;~ 07EH LD (IX+06BH),A INC HL ;# 023H LD ;# 023H LD A,(IX+04BH) LD (HL),A ;w 077H INC HL ;# 023H LD A,(IX+052H) LD (HL),A ;w 077H INC HL ;# 023H LD A,(IX+053H) LD (HL),A ;w 077H INC HL ;# 023H LD A,(IX+060H) LD (HL),A ;w 077H INC HL ;# 023H LD A,(IX+061H) LD  SBC HL,DE RET Z ;H 0C8H PUSH DE ;U 0D5H LD HL,06H ADD HL,DE ;019H 019H LD A,(IY+0AH) CP (HL) ;> 0BEH JR NZ,SVCERR+0678H INC HL ;# 023H LD A,(IY+0BH) CP (HL) ;> 0BEH JR NZ,SVCERR+0678H INC HL ;# 023H LD A,(IY+0CH) CP (HIX+066H) LD H,(IX+067H) RET ;I 0C9H @L17: LD L,(IX+06BH) LD H,(IX+06CH) RET ;I 0C9H EXTERNAL CRPROC EXTERNAL SETDDF EXTERNAL GETTOS EXTERNAL RCVREQ EXTERNAL OTNTRY EXTERNAL NMBCKT EXTERNAL CKTAST EXTERNAL FWDREQ EXTERNAL CO; ; File PARTP1.MAC ; Created by ZREL/MAC V3.3 ; Copyright 1984 MicroSmith Computer Technology ; .Z80 ;set mode for M80 NAME ('PARTP1') ; DSEG ORG 0 @DATA: CSEG ; Notice: symbol assumed public GLOBAL ?ORIG? ?ORIG? EQU 09H ; Notice: s A,(HL) ;~ 07EH LD (IX+06CH),A LD A,0FFH RET ;I 0C9H @L1: CALL @L36 LD A,H ;| 07CH OR L ;5 0B5H RET Z ;H 0C8H PUSH HL ;e 0E5H LD DE,0AH ADD HL,DE ;019H 019H LD A,(IX+05AH) LD (HL),A ;w 077H INC HL ;# 023H LD A,(IX+03C(HL),A ;w 077H INC HL ;# 023H LD A,(IX+04EH) LD (HL),A ;w 077H INC HL ;# 023H LD A,(IX+04FH) LD (HL),A ;w 077H INC HL ;# 023H LD A,(IX+050H) LD (HL),A ;w 077H INC HL ;# 023H LD A,(IX+051H) LD (HL),A ;w 077H INC HL ;# 023L) ;> 0BEH JR NZ,SVCERR+0678H INC HL ;# 023H LD A,(IY+0DH) CP (HL) ;> 0BEH POP HL ;a 0E1H JR NZ,SVCERR+0650H LD A,0FFH RET ;I 0C9H @L55: LD BC,0FH CALL @L61 EX DE,HL ;k 0EBH RET ;I 0C9H @L45: LD BC,03CH LD A,(IY+0EH) MPAT EXTERNAL ALLOC EXTERNAL SYSDSK EXTERNAL SETDMA EXTERNAL XCHGSD EXTERNAL SNDREP EXTERNAL ALOCMB EXTERNAL RCVREP EXTERNAL DEALMB EXTERNAL DEALOC EXTERNAL QUEAST EXTERNAL DSKAST EXTERNAL DEXLAT EXTERNAL RRRMSG EXTERNAL OCNTRY ymbol assumed public GLOBAL ?UNIT? ?UNIT? EQU 0480H ; 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     @L0 @L6: DEFB 00H ;NUL DEFB 00H ;NUL @L1: DEFW @L1 DEFW @L1 @L3: DEFB 0FFH ;0FFH ; COMMON /?INIT?/ DEFB 0C9H ;I ; CSEG PUSH BC ;E 0C5H LD HL,@DATA CALL WAIT LD HL,@L3 POP BC ;A 0C1H LD (HL),C ;q 071H LD DE,@L4 CA; ; File RTC803.MAC ; Created by ZREL/MAC V3.3 ; Copyright 1984 MicroSmith Computer Technology ; .Z80 ;set mode for M80 NAME ('RTC803') ; DSEG ORG 0 @DATA: CSEG ; Notice: symbol assumed public GLOBAL ?ORIG? ?ORIG? EQU 09H ; Notice: s DEFB 0DBH ;[ DEFB 020H ;SP DEFB 0F6H ;v DEFB 010H ;010H DEFB 0D3H ;S DEFB 020H ;SP DEFB 03EH ;> DEFB 01H ;01H DEFB 0D3H ;S DEFB 028H ;( DEFB 03EH ;> DEFB 0CDH ;M DEFB 0D3H ;S DEFB 020H ;SP DEFB 03EH ;> DEFB 0IVEC EXTERNAL INTSP EXTERNAL INTSTK EXTERNAL DLYTIC EXTERNAL DSKTIC EXTERNAL RTCSEC EXTERNAL ISRXIT ; END EFNETLOD REL NETSVC REL  PARTP1 REL RTC803 REL ymbol assumed public GLOBAL ?UNIT? ?UNIT? EQU 0480H ; Notice: symbol assumed public GLOBAL CKTIN@ CKTIN@ EQU CKTIN@+00H ; Notice: symbol assumed public GLOBAL CKTDR@ CKTDR@ EQU $ ; Notice: symbol assumed public GLOBAL S0AISR S0AISR EQU CKTDRLL LNKPOL CALL @L5 LD HL,@L6 CALL WAIT LD HL,@DATA JP SIGNAL @L4: NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H @L5: LD C,060H IN A,(C) BIT 7,A RET NZ ;@ 0C0H LD A,(@L3) LD C,070H OUT (C),A LD C,060H LD ymbol assumed public GLOBAL ?UNIT? ?UNIT? EQU 0480H ; Notice: symbol assumed public GLOBAL RTCNIT RTCNIT EQU RTCNIT+00H ; Notice: symbol assumed public GLOBAL RTCISR RTCISR EQU $ ; DSEG DEFB 03CH ;< ; COMMON /?INIT?/ DEFB 021H ;! D7H ;07H DEFB 0D3H ;S DEFB 028H ;( DEFB 03EH ;> DEFB 06H ;06H DEFB 0D3H ;S DEFB 020H ;SP DEFB 0F1H ;q DEFB 0D3H ;S DEFB 028H ;( DEFB 0C9H ;I ; CSEG LD (INTSP),SP LD SP,INTSTK PUSH AF ;u 0F5H PUSH BC ;E 0C5H PUSH@+01B2H ; DSEG DEFB 00H ;NUL DEFB 00H ;NUL @L0: DEFW @L0 DEFW @L0 @L11: DEFB 00H ;NUL DEFB 00H ;NUL @L1: DEFW @L1 DEFW @L1 @L12: DEFB 01H ;01H DEFB 00H ;NUL @L2: DEFW @L2 DEFW @L2 @L10: DEFB 00H ;NUL @L19: DEFB A,0FEH OUT (C),A LD A,0FFH OUT (C),A LD HL,@L4 CALL UNLINK LD HL,@L6 JP SIGNAL EXTERNAL WAIT EXTERNAL LNKPOL EXTERNAL SIGNAL EXTERNAL UNLINK ; END  CALL WAIT LD HL,@L3 POP BC ;A 0C1H LD (HL),C ;q 071H LD DE,@L4 CAEFW RTCISR DEFB 022H ;" DEFW STIVEC+08H DEFB 0DBH ;[ DEFB 026H ;& DEFB 0F6H ;v DEFB 010H ;010H DEFB 0D3H ;S DEFB 026H ;& DEFB 0DBH ;[ DEFB 028H ;( DEFB 0F5H ;u DEFB 03EH ;> DEFB 04H ;04H DEFB 0D3H ;S DEFB 028H ;( DE ;U 0D5H PUSH HL ;e 0E5H CALL DLYTIC CALL DSKTIC LD HL,@DATA DEC (HL) ;5 035H JR NZ,RTCISR+01CH LD (HL),03CH CALL RTCSEC POP HL ;a 0E1H POP DE ;Q 0D1H POP BC ;A 0C1H POP AF ;q 0F1H LD SP,(INTSP) JP ISRXIT EXTERNAL ST; ; File SCD803.MAC ; Created by ZREL/MAC V3.3 ; Copyright 1984 MicroSmith Computer Technology ; .Z80 ;set mode for M80 NAME ('SCD803') ; DSEG ORG 0 @DATA: CSEG ; Notice: symbol assumed public GLOBAL ?ORIG? ?ORIG? EQU 09H ; Notice: s00H ;NUL DEFB 00H ;NUL ; COMMON /?INIT?/ DEFB 021H ;! DEFW S0AISR DEFB 022H ;" DEFW SIOVEC+0CH DEFB 022H ;" DEFW SIOVEC+0EH DEFB 01H ;01H DEFB 043H ;C DEFB 02H ;02H DEFB 0EDH ;m DEFB 041H ;A DEFB 021H ;! DEFW SIOVE    C DEFB 0EDH ;m DEFB 069H ;i DEFB 06H ;06H DEFB 01H ;01H DEFB 0EDH ;m DEFB 041H ;A DEFB 06H ;06H DEFB 04H ;04H DEFB 0EDH ;m DEFB 041H ;A DEFB 021H ;! DEFW @L5 DEFB 01H ;01H DEFB 042H ;B DEFB 0DH ;CR DEFB 0EDH ;03H ;03H DEFB 0D9H ;Y DEFB 076H ;v DEFB 00H ;NUL DEFB 07H ;07H DEFB 07EH ;~ DEFB 011H ;011H DEFB 01CH ;01CH ; CSEG LD A,C ;y 079H OR A ;7 0B7H JR Z,CKTDR@+09H DEC A ;= 03DH JP Z,@L6 RET ;I 0C9H INC DE ;013H 013HL WAIT LD HL,@L10 BIT 1,(HL) JR Z,CKTDR@+057H EI ;{ 0FBH LD HL,@L10 SET 2,(HL) LD HL,@L11 CALL WAIT JR CKTDR@+042H DI ;s 0F3H LD A,010H OUT (042H),A IN A,(042H) AND 020H JR NZ,CKTDR@+049H LD A,05H OUT (042H),A LD A,0OP ;NUL 00H LD HL,@L10 BIT 0,(HL) RET NZ ;@ 0C0H LD A,010H OUT (042H),A IN A,(042H) AND 020H RET Z ;H 0C8H SET 1,(HL) SET 0,(HL) LD HL,@DATA CALL SIGNAL LD HL,@L7 JP UNLINK @L9: LD A,010H OUT (042H),A IN A,(042H) AN DEC B ;05H 05H INIR LD B,0CH DJNZ $ LD A,01H OUT (042H),A LD A,024H OUT (042H),A IN A,(040H) NOP ;NUL 00H IN A,(040H) EI ;{ 0FBH LD B,00H LD A,01H OUT (042H),A IN A,(042H) BIT 7,A JR NZ,CKTDR@+012EH DJNZ CKTDR@+0 C,040H LD A,0B0H OUT (042H),A LD A,0C0H DI ;s 0F3H OUTI OUT (042H),A OTIR EI ;{ 0FBH LD A,010H OUT (042H),A IN A,(042H) AND 040H JR Z,CKTDR@+0186H LD B,00H LD A,010H OUT (042H),A IN A,(042H) AND 020H JR Z,CKTDR@m DEFB 0B3H ;3 DEFB 03AH ;: DEFW NMBCKT DEFB 047H ;G DEFB 021H ;! DEFW CKTAST+01H DEFB 03AH ;: DEFB 081H ;081H DEFB 00H ;NUL DEFB 0BEH ;> DEFB 028H ;( DEFB 07H ;07H DEFB 023H ;# DEFB 023H ;# DEFB 023H ;# DEFB 02 INC DE ;013H 013H INC DE ;013H 013H INC DE ;013H 013H PUSH DE ;U 0D5H LD DE,@L7 CALL LNKPOL LD HL,@DATA CALL WAIT POP HL ;a 0E1H CALL @L9 PUSH AF ;u 0F5H LD HL,@L10 RES 0,(HL) RES 1,(HL) BIT 2,(HL) JR Z,CKTDR@+032H 6BH OUT (042H),A LD A,010H OUT (042H),A IN A,(042H) AND 020H JR Z,CKTDR@+089H EX (SP),HL ;c 0E3H EX (SP),HL ;c 0E3H EX (SP),HL ;c 0E3H EX (SP),HL ;c 0E3H LD A,05H OUT (042H),A LD A,069H OUT (042H),A EI ;{ 0FBH LD HL,00D 020H JR Z,@L9 @L18: LD A,010H OUT (042H),A IN A,(042H) AND 0A0H CP 020H JR NZ,@L18 DI ;s 0F3H LD A,03H OUT (042H),A LD A,0D9H OUT (042H),A IN A,(040H) NOP ;NUL 00H IN A,(040H) NOP ;NUL 00H IN A,(040H) LD A,01H 11FH JP @L18 AND 060H JP NZ,@L18 IN A,(042H) AND 080H JP NZ,@L18 LD A,01H OUT (042H),A LD A,01CH OUT (042H),A LD A,05H OUT (042H),A LD A,069H OUT (042H),A LD A,010H OUT (042H),A IN A,(042H) AND 020H JR NZ,CKTDR@+014AH +01A0H DJNZ CKTDR@+0192H JR CKTDR@+0172H LD A,01H OUT (042H),A LD A,01CH OUT (042H),A LD A,05H OUT (042H),A LD A,069H OUT (042H),A XOR A ;/ 0AFH RET ;I 0C9H LD (INTSP),SP LD SP,INTSTK PUSH AF ;u 0F5H IN A,(042H) BIT 0,3H ;# DEFB 010H ;010H DEFB 0F7H ;w DEFB 0C9H ;I DEFB 02BH ;+ DEFB 03AH ;: DEFB 080H ;NUL DEFB 00H ;NUL DEFB 077H ;w DEFB 0C9H ;I @L5: DEFB 018H ;018H DEFB 04H ;04H DEFB 020H ;SP DEFB 05H ;05H DEFB 069H ;i DEFB RES 2,(HL) LD HL,@L11 CALL SIGNAL POP AF ;q 0F1H RET ;I 0C9H @L6: INC DE ;013H 013H INC DE ;013H 013H INC DE ;013H 013H INC DE ;013H 013H LD A,(DE) ;01AH 01AH OR A ;7 0B7H RET Z ;H 0C8H PUSH DE ;U 0D5H LD HL,@L12 CALH CALL DELAY JR CKTDR@+042H EI ;{ 0FBH SET 0,(HL) POP HL ;a 0E1H CALL @L15 PUSH AF ;u 0F5H LD HL,@L12 CALL SIGNAL LD HL,@L10 RES 0,(HL) POP AF ;q 0F1H RET ;I 0C9H @L7: NOP ;NUL 00H NOP ;NUL 00H NOP ;NUL 00H N OUT (042H),A LD A,0A4H OUT (042H),A LD C,040H LD A,070H OUT (042H),A LD A,05H OUT (042H),A LD A,06BH OUT (042H),A IN A,(042H) RRCA ;0FH 0FH JR NC,CKTDR@+0FEH IN A,(040H) LD (HL),A ;w 077H INC HL ;# 023H LD B,A ;G 047H  RET ;I 0C9H @L15: LD (@L19),HL LD A,05H OUT (042H),A LD A,06BH OUT (042H),A LD A,010H OUT (042H),A IN A,(042H) AND 020H JR Z,CKTDR@+0160H LD A,01H OUT (042H),A LD A,084H OUT (042H),A LD HL,(@L19) LD B,(HL) ;F 046H LDA JR Z,CKTDR@+01D2H IN A,(040H) CP 05H JR NZ,CKTDR@+01D2H LD A,0B0H OUT (042H),A LD A,06H OUT (040H),A LD A,0C0H OUT (042H),A POP AF ;q 0F1H LD SP,(INTSP) EI ;{ 0FBH RETI EXTERNAL SIOVEC EXTERNAL NMBCKT EXTERNAL CKTAST     EXTERNAL LNKPOL EXTERNAL WAIT EXTERNAL SIGNAL EXTERNAL DELAY EXTERNAL UNLINK EXTERNAL INTSP EXTERNAL INTSTK ; END  OUT (042H),A XOR A ;/ 0AFH RET ;I 0C9H LD (INTSP),SP LD SP,INTSTK PUSH AF ;u 0F5H IN A,(042H) BIT 0,IT? ?UNIT? EQU 0480H ; Notice: symbol assumed public GLOBAL HDWNIT HDWNIT EQU HDWNIT+00H ; Notice: symbol assumed public GLOBAL PROGRM PROGRM EQU HDWNIT+06FH ; Notice: symbol assumed public GLOBAL VECBAS VECBAS EQU 0FD00H ; Notice: symbol ass 0EDH ;m DEFB 047H ;G DEFB 0EDH ;m DEFB 05EH ;^ DEFB 03EH ;> DEFB 0FEH ;~ DEFB 0D3H ;S DEFB 090H ;090H DEFB 0CDH ;M DEFW PROGRM DEFB 032H ;2 DEFB 018H ;018H DEFB 033H ;3 DEFB 018H ;018H DEFB 042H ;B DEFB 018H ;020H ;SP DEFB 024H ;$ DEFB 021H ;! DEFB 00H ;NUL DEFB 0FFH ;0FFH DEFB 021H ;! DEFW STIVEC DEFB 07DH ;} DEFB 0D3H ;S DEFB 028H ;( DEFB 0CDH ;M DEFB 00H ;NUL DEFB 00H ;NUL DEFB 0CDH ;M DEFB 00H ;NUL DEFB 00H ;NUL 0CDH ;M DEFB 00H ;NUL DEFB 00H ;NUL DEFB 0CDH ;M DEFB 00H ;NUL DEFB 00H ;NUL DEFB 0C9H ;I DEFB 0E3H ;c @L0: DEFB 0C5H ;E DEFB 04EH ;N @L2: DEFB 023H ;# DEFB 0CH ;0CH DEFB 028H ;( DEFB 05H ;05H DEFB 0DH ;CR DEF DEFB 041H ;A DEFB 0C1H ;A DEFB 0DDH ;] DEFB 0E9H ;i DEFB 0C5H ;E DEFB 01H ;01H DEFB 013H ;013H DEFB 01H ;01H DEFB 0EDH ;m DEFB 041H ;A DEFB 0C1H ;A DEFB 0DDH ;] DEFB 02AH ;* DEFW @L2 DEFB 0EDH ;m DEFB 07BH ;{umed public GLOBAL STIVEC STIVEC EQU STIVEC+00H ; Notice: symbol assumed public GLOBAL DRTVEC DRTVEC EQU STIVEC+020H ; Notice: symbol assumed public GLOBAL SIOVEC SIOVEC EQU STIVEC+030H ; Notice: symbol assumed public GLOBAL XQTROM XQTROM EQ18H DEFB 043H ;C DEFB 018H ;018H DEFB 028H ;( DEFB 04H ;04H DEFB 020H ;SP DEFB 00H ;NUL DEFB 028H ;( DEFB 05H ;05H DEFB 020H ;SP DEFB 00H ;NUL DEFB 022H ;" DEFB 00H ;NUL DEFB 023H ;# DEFB 00H ;NUL DEFB 024H ;$  DEFB 0CDH ;M DEFB 00H ;NUL DEFB 00H ;NUL DEFB 0CDH ;M DEFB 00H ;NUL DEFB 00H ;NUL DEFB 0CDH ;M DEFB 00H ;NUL DEFB 00H ;NUL DEFB 0CDH ;M DEFB 00H ;NUL DEFB 00H ;NUL DEFB 0CDH ;M DEFB 00H ;NUL DEFB 00H ;NUL DEFB B 0EDH ;m DEFB 0A3H ;# DEFB 018H ;018H DEFB 0F6H ;v DEFB 0C1H ;A DEFB 0E3H ;c DEFB 0C9H ;I ; COMMON /?BANK?/ ORG 040H DEFB 0EDH ;m DEFB 073H ;s DEFW @L0 DEFB 031H ;1 DEFW @L1 DEFB 0DDH ;] DEFB 022H ;" DEFW @L2  DEFW @L0 DEFB 0C9H ;I ORG 074H DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;; ; File SIT803.MAC ; Created by ZREL/MAC V3.3 ; Copyright 1984 MicroSmith Computer Technology ; .Z80 ;set mode for M80 NAME ('SIT803') ; Notice: symbol assumed public GLOBAL ?ORIG? ?ORIG? EQU 09H ; Notice: symbol assumed public GLOBAL ?UNU 0FD40H ; Notice: symbol assumed public GLOBAL KBDBFR KBDBFR EQU STIVEC+074H ; COMMON /?INIT?/ DEFB 021H ;! DEFB 00H ;NUL DEFB 0FEH ;~ DEFB 022H ;" DEFB 00H ;NUL DEFB 0FFH ;0FFH DEFB 021H ;! DEFW STIVEC DEFB 07CH ;| DEFB DEFB 00H ;NUL DEFB 025H ;% DEFB 00H ;NUL DEFB 026H ;& DEFB 00H ;NUL DEFB 027H ;' DEFB 00H ;NUL DEFB 028H ;( DEFB 07H ;07H DEFB 020H ;SP DEFB 00H ;NUL DEFB 029H ;) DEFB 00H ;NUL DEFB 028H ;( DEFB 06H ;06H DEFB 00CDH ;M DEFB 00H ;NUL DEFB 00H ;NUL DEFB 0CDH ;M DEFB 00H ;NUL DEFB 00H ;NUL DEFB 0CDH ;M @L3: DEFB 00H ;NUL DEFB 00H ;NUL DEFB 0CDH ;M DEFB 00H ;NUL DEFB 00H ;NUL DEFB 0CDH ;M DEFB 00H ;NUL DEFB 00H ;NUL DEFB  DEFB 0DDH ;] DEFB 021H ;! DEFW @L3 DEFB 0DDH ;] DEFB 0E5H ;e DEFB 0C5H ;E DEFB 048H ;H DEFB 06H ;06H DEFB 00H ;NUL DEFB 0C5H ;E DEFB 0DDH ;] DEFB 0E1H ;a DEFB 01H ;01H DEFB 013H ;013H DEFB 00H ;NUL DEFB 0EDH ;mNUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;N    UL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUCKTINA EXTERNAL CKTINB EXTERNAL USRNIT EXTERNAL RESNIT EXTERNAL BNKNIT EXTERNAL NITBNK EXTERNAL EMINIT EXTERNAL TPNIT1 ORG 0300H ;force size ; CSEG @L1 EQU STIVEC+0100H ; END L DEFB 00H ;NUL DEFB 00H ;NUL DEFB 00H ;NUL SER803 ; MUST INCLUDE IF USING SERIAL PORTS ; FDSKTPC1 ; FLOPPY DISK DRIVER FOR TPC-1 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 EXTERNAL SERNIT EXTERNAL PARNIT EXTERNAL CONINA EXTERNAL DSKINA EXTERNAL DSKINB EXTERNAL RTCNIT EXTERNAL  COMPLEX SLAVE FOR TPC-1 NETTPC1 ; STANDARD DRIVERS FOR TPC-1 ; ; SLVMTM ; UNCOMMENT IF SLAVE HAS GLOBAL DEVICES ; ** ALSO CHANGE NETWORK PARAMETERS IN PAR FILE ** ;                                                                                                                                !   !   "   "   #   #   $   $   %   %   &   &   '   '