Apple II User Manual
F60D: 86 3D 181 FORM7 STX A1H ;SAVE INDEX
F60F: CA 182 DEX ;DONE WITH FORMAT CHECK?
F610: 10 C9 183 BPL FORM2 ;NO.
F610: 10 C9 183 BPL FORM2 ;NO.
F612: A5 44 184 LDA FMT ;YES, PUT LENGTH
F614: 0A 185 ASL ;IN LOW BITS
F614: 0A 185 ASL ;IN LOW BITS
F615: 0A 186 ASL
F616: 05 35 187 ORA L
F616: 05 35 187 ORA L
F618: C9 20 188 CMP #$20
F61A: B0 06 189 BCS FORM8 ;ADD "$" IF NONZERO LENGTH
F61A: B0 06 189 BCS FORM8 ;ADD "$" IF NONZERO LENGTH
F61C: A6 35 190 LDX L ;AND DON'T ALREADY HAVE IT
F61E: F0 02 191 BEQ FORM8
F61E: F0 02 191 BEQ FORM8
F620: 09 80 192 ORA #$80
F622: 85 44 193 FORM8 STA FMT
F622: 85 44 193 FORM8 STA FMT
F624: 84 34 194 STY YSAV
F626: B9 00 02 195 LDA IN,Y ;GET NEXT NONBLANK
F626: B9 00 02 195 LDA IN,Y ;GET NEXT NONBLANK
F629: C9 BB 196 CMP #$BB ;';' START OF COMMENT?
F62B: F0 04 197 BEQ FORM9 ;YES
F62B: F0 04 197 BEQ FORM9 ;YES
F62D: C9 8D 198 CMP #$8D ;CARRIAGE RETURN?
F62F: D0 80 199 BNE ERR4 ;NO, ERR.
F62F: D0 80 199 BNE ERR4 ;NO, ERR.
F631: 4C 5C F5 200 FORM9 JMP TRYNEXT
F634: B9 00 02 201 GETNSP LDA IN,Y
F634: B9 00 02 201 GETNSP LDA IN,Y
F637: C8 202 INY
F638: C9 A0 203 CMP #$A0 ;GET NEXT NON BLANK CHAR
F638: C9 A0 203 CMP #$A0 ;GET NEXT NON BLANK CHAR
F63A: F0 F8 204 BEQ GETNSP
F63C: 60 205 RTS
F63C: 60 205 RTS
206 ORG $F666
F666: 4C 92 F5 207 MINIASM JMP RESETZ
F666: 4C 92 F5 207 MINIASM JMP RESETZ