ZXF1ROMSECTORT’·„ *L-  ORG #2160  ENT $+#C000 ( JP START 2MAP LD HL,9 < LD (23770),HL F LD (23772),HL P LD L,1 Z LD (23766),HL d LD A,"M" n LD (23769),A x LD HL,(23604) ‚ LD A,H Œ OR L – JR Z,M1   LD DE,(23631) ª DEC DE ´ ADD HL,DE ¾ PUSH HL È POP IX Ò CALL #119F ÜM1 CALL #10A5 æ RES 0,(IX+24) ð LD A,1 ú CALL #1532  LD BC,50  LD (23753),BC OPS6 CALL #1280 " PUSH AF , LD A,(IX+#29) 6 ADD A,3 @ LD HL,#5CC9 J CP (HL) T JR C,OPS1 ^ LD (HL),A hOPS1 POP AF r CALL Z,#13E3 | LD HL,#5CCA † LD A,(HL)  INC A š LD (HL),A ¤ DEC HL ® CP (HL) ¸ JR C,OPS6  LD DE,(23631) Ì AND A Ö PUSH IX à POP HL ê SBC HL,DE ô INC HL þ LD (23604),HL  RES 7,(IX+4)  XOR A  CALL #1532 & RET 0START : DEFB 215,32,0 D RST 16 N DEFW #2C8D X JR C,LETTER b CP 212 l JP NZ,DATA1 v DEFB 215,32,0 € CALL #5B7 Š SET 1,(IY+124) ” LD A,15 ž CALL #1718 ¨ LD (IY+124),0 ² JP #5C1 ¼LETTER RES 5,A Æ CP "M" Ð JR NZ,L1 Ú DEFB 215,32,0 ä CALL #5B7 îINIT LD A,15 ø LD (23768),A  CALL STRADD  LD L,(IX+26)  LD H,(IX+27)  LD B,32 *CLP LD (HL),255 4 INC HL > DJNZ CLP H CALL MAP R JP #5C1 \L1 PUSH AF f LD A,4 p LD (23768),A z DEFB 215,32,0 „ CP "#" Ž CALL Z,#64E ˜ LD C,A ¢ POP AF ¬ CP "N" ¶ JR NZ,L2 À LD A,C Ê CALL CHKEND Ô CALL STRADD Þ CALL #1E49 è JP #5C1 òSTRADD LD A,(23768) ü ADD A,A  ADD A,#16  LD L,A  LD H,#5C $ PUSH HL . LD E,(HL) 8 INC HL B LD D,(HL) L LD A,D V OR E ` JR NZ,STA1 j LD A,(23768) t PUSH AF ~ CALL #59F ˆ POP AF ’ LD (23768),A œ LD HL,1 ¦ LD (23766),HL ° LD L,10 º LD (23770),HL Ä LD (23772),HL Î CALL #10A5 Ø CALL #59F â RES 7,(IX+4) ì RES 0,(IX+24) ö PUSH IX  POP HL  LD DE,(23631)  DEC DE  AND A ( SBC HL,DE 2 EX DE,HL < POP HL F LD (HL),E P INC HL Z LD (HL),D d RET nSTA1 LD IX,(23631) x DEC DE ‚ ADD IX,DE Œ POP HL – RET  L2 CP "S" ª JR NZ,LOAD ´ LD A,C ¾ CALL #5B1 È JR NZ,L3 Ò DEFB 215,32,0 ÜL3 LD HL,65535 æ LD (23766),HL ð CP 13 ú JR Z,L4  CP 58  CALL NZ,#61E L4 CALL CHKEND " CALL STRADD , LD A,1 6 CALL #1532 @ LD A,(23767) J AND A T JR NZ,SNF ^ LD A,(23766) h LD (IX+13),A r CALL #1F85 |SEND XOR A † CALL #1532  JP #5C1 šSNF PUSH IX ¤ POP HL ® LD DE,67 ¸ ADD HL,DE  CALL #1426 Ì LD DE,15 Ö ADD HL,DE à CALL #142B ê CALL #135A ô JR SEND þLOAD CP "L"  JP NZ,VER  SET 4,(IY+124) LVER LD A,C & CALL #5B1 0 JR NZ,L6 : DEFB 215,32,0 DL6 RST 16 N DEFW #24FB X BIT 6,(IY+1) b JP Z,NAME l CALL CHKEND v CALL STRADD € BIT 4,(IY+124) Š CALL Z,#10A5 ” RST 16 ž DEFW #1E94 ¨ LD (IX+13),A ² LD A,1 ¼ CALL #1532 Æ LD HL,#FF Ð LD (#5CC9),HL ÚGSLP CALL #13A9 ä LD A,(IX+#29) î CP (IX+#0D) ø JR Z,GS1  CALL #13F7  JR NZ,GSLP  RST 32  DEFB 17 *GS1 PUSH IX 4 POP HL > LD DE,#43 H ADD HL,DE R CALL #15EB \ CALL #1426 f PUSH AF p PUSH HL z XOR A „ CALL #1532 Ž POP HL ˜ POP AF ¢ JR NZ,HCERR ¬ LD DE,15 ¶ ADD HL,DE À CALL #142B Ê JR NZ,DCERR ÔLVEND BIT 4,(IY+124) Þ RET Z è JP #5C1 òDCERR LD DE,DATA ü JR GM  HCERR LD DE,HEADER  GM PUSH DE  LD A,2 $ RST 16 . DEFW #1601 8 POP HL B CALL MESS L LD HL,ERROR V CALL MESS ` JP #5C1 j DATA t DEFM "Data" ~ DEFB 128 ˆ HEADER DEFM "Header" ’ DEFB 128 œ ERROR DEFM " checksum error." ¦ DEFB 13,128 ° NAME CALL #5B1 º JP NZ,#28 Ä DEFB 215,32,0 Î CALL #61E Ø CALL CHKEND â RST 16 ì DEFW #2BF1 ö CALL #636 CALL STRADD BIT 4,(IY+124)  CALL Z,#10A5  LD A,(23766) ( LD (IX+13),A 2 LD BC,(23770) < LD DE,(23772) F LD B,C P LD C,10 Z PUSH IX d N1 LD A,(DE) n LD (IX+14),A x INC DE ‚ INC IX Œ DEC C – DJNZ N1   LD A,C ª AND A ´ JR Z,N2 ¾ N3 LD (IX+14),32 È INC IX Ò DEC C Ü JR NZ,N3 æ N2 POP IX ð LD A,1 ú CALL #1532  LD BC,50  LD (#5CC9),BC  OP6 CALL #1280 " PUSH AF , LD A,(IX+#29) 6 ADD A,3 @ LD HL,#5CC9 J CP (HL) T JR C,OP1 ^ LD (HL),A h OP1 POP AF r JR C,OP2 | JR Z,OP2 † RES 0,(IX+24) LD A,(IX+68) š CP (IX+13) ¤ JR NZ,OP2 ® XOR A ¸ CALL #1532  PUSH IX Ì POP HL Ö LD DE,82 à ADD HL,DE ê CALL #142B ô JP Z,LVEND þ JP DCERR  OP2 LD HL,#5CCA  LD A,(HL)  INC A & LD (HL),A 0 DEC HL : CP (HL) D JR C,OP6 N RST 32 X DEFB 17 b VER CP "V" l JR NZ,GET v CALL LVER € PUSH IX Š CALL STRADD ” POP HL ž PUSH HL ¨ LD BC,512 ² LD DE,82 ¼ ADD HL,DE Æ ADD IX,DE Ð PUSH IX Ú POP DE ä VLP LD A,(DE) î CP (HL) ø JR NZ,VERR  INC HL INC DE  DEC BC LD A,B * OR C 4 JR NZ,VLP > POP IX H RST 16 R DEFW #10A5 \ JP #5C1 f VERR RST 32 p DEFW #15 z GET CP "G" „ RES 7,(IY+124) Ž JR Z,GP1 ˜ CP "P" ¢ SET 7,(IY+124) ¬ JP NZ,#1F0 ¶ GP1 LD A,C À CALL #5B1 Ê JR NZ,GP2 Ô DEFB 215,32,0 Þ GP2 RST 16 è DEFW #1C82 ò CALL #5B1 ü JR NZ,GP3  DEFB 215,32,0 GP3 RST 16  DEFW #1CDE $ DEFB 215,24,0 . CALL CHKEND 8 CALL STRADD B LD HL,512 L LD DE,82 V LD A,(IX+68) ` AND A j JR NZ,GP4 t BIT 2,(IX+67) ~ JR Z,GP4 ˆ LD HL,503 ’ LD DE,91 œGP4 ADD IX,DE ¦ PUSH HL ° RST 16 º DEFW #1E99 Ä LD A,B Î OR C Ø JR NZ,GP5 â POP BC ì PUSH BC öGP5 POP HL  AND A  SBC HL,BC  JR NC,GP6  LD (IY+0),10 ( RST #28 2GP6 PUSH BC < RST 16 F DEFW #1E99 P LD L,C Z LD H,B d POP BC n PUSH IX x POP DE ‚ BIT 7,(IY+124) Œ JR Z,GP7 – EX DE,HL  GP7 LDIR ª JP #5C1 ´DATA1 ¾ CP 228 È JP NZ,#1F0 Ò LD A,4 Ü LD (23768),A æ DEFB 215,32,0 ð CP "#" ú CALL Z,#64E  CALL CHKEND  LD A,2  RST 16 " DEFW #1601 , CALL STRADD 6 PUSH IX @ POP BC J LD HL,ADD T CALL MESS2 ^ CALL MESS h LD DE,44 r CALL PNAME | LD A,(IX+41) † CALL MESS1  LD A,(IX+67) š CALL MESS1 ¤ LD A,(IX+68) ® CALL MESS1 ¸ LD C,(IX+69)  LD B,(IX+70) Ì CALL MESS2 Ö CALL MESS à LD DE,71 ê CALL PNAME ô LD H,(IX+27) þ LD L,(IX+26)  LD B,32  LD D,0 DMLP1 LD C,8 & LD E,(HL) 0 INC HL :DMLP2 LD A,24 D RR E N JR C,DM1 X INC D bDM1 l RLA v RST 16 € DEFW 16 Š DEC C ” JR NZ,DMLP2 ž DJNZ DMLP1 ¨ LD A,D ² RRA ¼ PUSH AF Æ RST 16 Ð DEFW #2D28 Ú RST 16 ä DEFW #2DE3 î POP AF ø JR NC,DBUFF  LD A,"."  DEFB 215,16,0  LD A,"5"  DEFB 215,16,0 *DBUFF LD A,13 4 DEFB 215,16,0 > PUSH IX H POP HL R LD DE,82 \ ADD HL,DE f LD BC,512 pDBLP PUSH BC z PUSH HL „ LD B,H Ž LD C,L ˜ RST 16 ¢ DEFW #2D2B ¬ RST 16 ¶ DEFW #2DE3 À LD A,"_" Ê DEFB 215,16,0 Ô POP HL Þ PUSH HL è LD A,(HL) ò PUSH AF ü RST 16  DEFW #2D28  RST 16  DEFW #2DE3 $ LD A,23 . DEFB 215,16,0 8 LD A,12 B DEFB 215,16,0,215,16,0 L POP AF V CP 32 ` JR C,DB1 j DEFB 215,16,0 tDB1 LD A,13 ~ DEFB 215,16,0 ˆ POP HL ’ POP BC œ INC HL ¦ DEC BC ° LD A,B º OR C Ä JR NZ,DBLP Î JP #5C1 ØMESS LD A,(HL) â INC HL ì CP 128 ö RET Z  DEFB 215,16,0  JR MESS PNAME PUSH IX  EX (SP),HL ( ADD HL,DE 2 LD B,10 <PNLP LD A,(HL) F INC HL P DEFB 215,16,0 Z DJNZ PNLP d LD A,13 n DEFB 215,16,0 x POP HL ‚ RET ŒMESS1 LD C,A – LD B,0  MESS2 PUSH BC ª CALL MESS ´ POP BC ¾ PUSH HL È RST 16 Ò DEFW #2D2B Ü RST 16 æ DEFW #2DE3 ð LD A,13 ú DEFB 215,16,0  POP HL  RET ADD DEFB 13 " DEFM "ADDRESS:" , DEFB 128 6 DEFM "HDNAME=" @ DEFB 128 J DEFM "HDNUMB=" T DEFB 128 ^ DEFM "RECFLG=" h DEFB 128 r DEFM "RECNUM=" | DEFB 128 † DEFM "RECLEN="  DEFB 128 š DEFM "RECNAM=" ¤ DEFB 128 ®CHKEND CALL #5B7 ¸ LD A,(23678)  PUSH AF Ì LD HL,(23604) Ö LD A,H à OR L ê CALL Z,INIT ô POP AF þ LD (23678),A  RET ZZZ