INC HL INC HL LD A,(HL) EX DE,HL CP 'K' JR Z,1756;OPEN.1 CP 'S' JR Z,1756;OPEN.1 CP 'P' JR NZ,1725;REPORT.O 1756 OPEN.1 CALL 175D;OPEN.2 LD (HL),E INC HL LD (HL),D RET 175D OPEN.2 PUSH HL CALL 2BF1;STK.FETCH LD A,B OR C JR NZ,1767;OPEN.3 1765 REPORT.F RST 0008;ERROR.1 DEFB 0E;"Invalid file name" 1767 OPEN.3 PUSH BC LD A,(DE) AND DF LD C,A LD HL,177A;"OPEN stream look-up table" CALL 16DC;INDEXER JR NC,1765;REPORT.F LD C,(HL) LD B,00 ADD HL,BC POP BC JP (HL) 177A DEFB 'K',1781-177A;OPEN.K DEFB 'S',1785-177C;OPEN.S DEFB 'P',1789-177E;OPEN.P DEFB 00 1781 OPEN.K LD E,01 JR 178B;OPEN.END 1785 OPEN.S LD E,06 JR 178B;OPEN.END 1789 OPEN.P LD E,10 178B OPEN.END DEC BC LD A,B OR C JR NZ,1765;REPORT.F LD D,A POP HL RET 1793 CAT.ETC JR 1725;REPORT.O 1795 AUTO.LIST LD (5C3F),SP;LIST.SP LD (IY+02),10;TV.FLAG CALL 0DAF;CL.ALL SET 0,(IY+02);TV.FLAG LD B,(IY+31);DF.SZ CALL 0E44;CL.LINE RES 0,(IY+02);TV.FLAG SET 0,(IY+30);FLAGS2 LD HL,(5C49);E.PPC LD DE,(5C6C);S.TOP AND A SBC HL,DE ADD HL,DE JR C,17E1;AUTO.L.2 PUSH DE CALL 196E;LINE.ADDR LD DE,02C0;22d x 32d EX DE,HL SBC HL,DE EX (SP),HL CALL 196E;LINE.ADDR POP BC 17CE AUTO.L.1 PUSH BC CALL 19B8;NEXT.ONE POP BC ADD HL,BC JR C,17E4;AUTO.L.3 EX DE,HL LD D,(HL) INC HL LD E,(HL) DEC HL LD (5C6C),DE;S.TOP JR 17CE;AUTO.L.1 17E1 AUTO.L.2 LD (5C6C),HL;S.TOP 17E4 AUTO.L.3 LD HL,(5C6C);S.TOP CALL 196E;LINE.ADDR JR Z,17ED;AUTO.L.4 EX DE,HL 17ED AUTO.L.4 CALL 1833;LIST.ALL RES 4,(IY+02);TV.FLAG RET 17F5 LLIST LD A,03 JR 17FB;LIST.1 17F9 LIST LD A,02 17FB LIST.1 LD (IY+02),00;TV.FLAG CALL 2530;SYNTAX.Z CALL NZ,1601;CHAN.OPEN RST 0018;GET.CHAR CALL 2070;STR.ALTER JR C,181F;LIST.4 RST 0018;GET.CHAR CP ';' JR Z,1814;LIST.2 CP ',' JR NZ,181A;LIST.3 1814 LIST.2 RST 0020;NEXT.CHAR CALL 1C82;EXPT.1NUM JR 1822;LIST.5 181A LIST.3 CALL 1CE6;USE.ZERO JR 1822;LIST.5 181F LIST.4 CALL 1CDE;FETCH.NUM 1822 LIST.5 CALL 1BEE;CHECK.END CALL 1E99;FIND.INT2 LD A,B AND 3F LD H,A LD L,C LD (5C49),HL;E.PPC CALL 196E;LINE.ADDR 1833 LIST.ALL LD E,01 1835 LIST.ALL.1 CALL 1855;OUT.LINE RST 0010;PRINT.A.1 BIT 4,(IY+02);TV.FLAG JR Z,1835;LIST.ALL.1 LD A,(5C6B);DF.SZ SUB A,(IY+4F);S.POSN hi JR NZ,1835;LIST.ALL.1 XOR E RET Z PUSH HL PUSH DE LD HL,5C6C;S.TOP CALL 190F;LN.FETCH POP DE POP HL JR 1835;LIST.ALL 1855 OUT.LINE LD BC,(5C49);E.PPC CALL 1980;CP.LINES LD D,'>' JR Z,1865;OUT.LINES LD DE,0000 RL E 1865 OUT.LINE1 LD (IY+2D),E;B.REG LD A,(HL) CP 40 POP BC RET NC PUSH BC CALL 1A28;OUT.NUM.2 INC HL INC HL INC HL RES 0,(IY+01);FLAGS LD A,D AND A JR Z,1881;OUT.LINE3 RST 0010;PRINT.A.1 187D OUT.LINE2 SET 0,(IY+01);FLAGS 1881 OUT.LINE3 PUSH DE EX DE,HL RES 2,(IY+30);FLAGS2 LD HL,5C3B;FLAGS RES 2,(HL) BIT 5,(IY+37);FLAGX JR Z,1894;OUT.LINE4 SET 2,(HL) 1894 OUT.LINE4 LD HL,(5C5F);X.PTR AND A SBC HL,DE JR NZ,18A1;OUT.LINE5 LD A,'?' CALL 18C1;OUT.FLASH 18A1 OUT.LINE5 CALL 18E1;OUT.CURS EX DE,HL LD A,(HL) CALL 18B6;NUMBER INC HL CP 0D JR Z,18B4;OUT.LINE6 EX DE,HL CALL 1937;OUT.CHAR JR 1894;OUT.LINE4 18B4 OUT.LINE6 POP DE RET 18B6 NUMBER CP 0E RET NZ INC HL INC HL INC HL INC HL INC HL INC HL LD A,(HL) RET 18C1 OUT.FLASH EXX LD HL,(5C8F);ATTR.T PUSH HL RES 7,H SET 7,L LD (5C8F),HL;ATTR.T LD HL,5C91;P.FLAG LD D,(HL) PUSH DE LD (HL),00 CALL 09F4;PRINT.OUT POP HL LD (IY+57),H;P.FLAG POP HL LD (5C8F),HL;ATTR.T EXX RET 18E1 OUT.CURS LD HL,(5C5B);K.CUR AND A SBC HL,DE RET NZ LD A,(5C41);MODE RLC A JR Z,18F3;OUT.C.1 ADD A,43 JR 1909;OUT.C.2 18F3 OUT.C.1 LD HL,5C3B;FLAGS RES 3,(HL) LD A,'K' BIT 2,(HL) JR Z,1909;OUT.C.2 SET 3,(HL) INC A BIT 3,(IY+30);FLAGS2 JR Z,1909;OUT.C.2 LD A,'C' 1909 OUT.C.2 PUSH DE CALL 18C1;OUT.FLASH POP DE RET 190F LN.FETCH LD E,(HL) INC HL LD D,(HL) PUSH HL EX DE,HL INC HL CALL 196E;LINE.ADDR CALL 1695;LINE.NO POP HL 191C LN.STORE BIT 5,(IY+37);FLAGX RET NZ LD (HL),D DEC HL LD (HL),E RET 1925 OUT.SP.2 LD A,E AND A RET M JR 1937;OUT.CHAR 192A OUT.SP.NO XOR A 192B OUT.SP.1 ADD HL,BC INC A JR C,192B;OUT.SP.1 SBC HL,BC DEC A JR Z,1925;OUT.SP.2 JP 15EF;OUT.CODE 1937 OUT.CHAR CALL 2D1B;NUMERIC JR NC,196C;OUT.CH.3 CP 21 JR C,196C;OUT.CH.3 RES 2,(IY+01);FLAGS CP 'THEN' JR Z,196C;OUT.CH.3 CP ':' JR NZ,195A;OUT.CH.1 BIT 5,(IY+37);FLAGX JR NZ,1968;OUT.CH.2 BIT 2,(IY+30);FLAGS2 JR Z,196C;OUT.CH.3 JR 1968;OUT.CH.2 195A OUT.CH.1 CP '"' JR NZ,1968;OUT.CH.2 PUSH AF LD A,(5C6A);FLAGS2 XOR 04 LD (5C6A),A;FLAGS2 POP AF 1968 OUT.CH.2 SET 2,(IY+01);FLAGS 196D OUT.CH.3 RST 0010;PRINT.A.1 RET 196E LINE.ADDR PUSH HL LD HL,(5C53);PROG LD D,H LD E,L 1974 LINE.AD.1 POP BC CALL 1980;CP.LINES RET NC PUSH BC CALL 19B8;NEXT.ONE EX DE,HL JR 1974;LINE.AD.1 1980 CP.LINES LD A,(HL) CP B
