Apple II User Manual

0666   E35F 20 BD ED           JSR ADDBK1      ;JUST OUTPUT BLK CNT

0667   E362 A2 01              LDX #1          ;RESTORE X
0668   E364             ;CHECK IF FILE IS CORRECT

0669   E364 BD 16 01    LOADT2 LDA TABUFF,X    ;NOW CHCK FILE NAME
0670   E367 DD 2D A4           CMP NAME-1,X

0671   E36A D0 C3              BNE LOADTA      ;IF NO FILENAME GET
0672   E36C E8                 INX             ;ANOTHER BLOCK

0673   E36D E0 06              CPX #6          ;FILENAME=5 CHRS
0674   E36F D0 F3              BNE LOADT2

0675   E371 8E 36 A4           STX TAPTR       ;SAVE TAPE BUFF PTR
0676   E374 EE 11 A4           INC PRIFLG      ;OUTPUT MSG ONLY TO DISPLAY

0677   E377 A9 00              LDA #0          ;CLEAR DISPLAY POINTER
0678   E379 8D 15 A4           STA CURPO2

0679   E37C A0 66              LDY #TMSG7-M1   ;PRINT "LOAD " WITHOUT CLR DISPL
0680   E37E 20 96 E3           JSR CKER1

0681   E381 CE 11 A4           DEC PRIFLG
0682   E384 60                 RTS

0683   E385
0684   E385             ;LINE CKSUM ERROR

0685   E385 20 8E E3    CKERR  JSR CKER0       ;SUBR SO MNEM ENTRY CAN USE IT
0686   E388 20 DB E2           JSR WRITAZ      ;WRITE ADDR

0687   E38B 4C A1 E1           JMP COMIN
0688   E38E 20 FE E8    CKER0  JSR LL          ;SET DEFAULT DEVICES

0689   E391 20 24 EA           JSR CRCK        ;<CR>
0690   E394 A0 52       CKER00 LDY #TMSG3-M1   ;PRINT "ERROR"

0691   E396 B9 00 E0    CKER1  LDA M1,Y        ;DONT CLR DISPLAY TO THE RIGHT
0692   E399 C9 3B              CMP #SEMICOLON

0693   E39B F0 06              BEQ CKER2
0694   E39D 20 7A E9           JSR OUTPUT      ;ONLY TO TERMINAL

0695   E3A0 C8                 INY
0696   E3A1 D0 F3              BNE CKER1

0697   E3A3 60          CKER2  RTS
0698   E3A4

0699   E3A4             ;LOAD ROUTINE FROM TAPE WITH KIM-1 FORMAT
0700   E3A4 20 4D EB    LOADKI JSR CLRCK       ;CLEAR CKSUM

0701   E3A7 20 EA ED    LOADK1 JSR TAISET      ;SET TAPE FOR INPUT
0702   E3AA 20 29 EE    LOADK2 JSR GETTAP      ;READ CHARACTER FROM TAPE

0703   E3AD C9 2A              CMP #'*'        ;BEGINNING OF FILE?
0704   E3AF F0 06              BEQ LOADK3      ;YES,BRNCH

0705   E3B1 C9 16              CMP #$16        ;IF NOT *  SHOULD BE SYN
0706   E3B3 D0 F2              BNE LOADK1

0707   E3B5 F0 F3              BEQ LOADK2
0708   E3B7 20 FD E3    LOADK3 JSR RBYTE       ;READ ID FROM TAPE

0709   E3BA 8D 21 A4           STA SAVA        ;SAVE ID
0710   E3BD             ;NOW GET ADDR TO DISPLAY

0711   E3BD             ;& COMPARE ID AFTERWARDS
0712   E3BD 20 4B E5           JSR CHEKAR      ;GET START ADDR LOW

0713   E3C0 8D 1C A4           STA ADDR
0714   E3C3 20 4B E5           JSR CHEKAR      ;GET START ADDR HIGH

0715   E3C6 8D 1D A4           STA ADDR+1
0716   E3C9 20 25 E4           JSR GETID       ;ID FROM HIM

0717   E3CC CD 21 A4           CMP SAVA        ;DO IDS MATCH?
0718   E3CF D0 D3              BNE LOADKI      ;NO ,GET ANOTHER FILE

0719   E3D1 A2 02       LOADK5 LDX #$02        ;GET 2 CHARS
0720   E3D3 20 29 EE    LOADK6 JSR GETTAP      ;1 CHAR FROM TAPE

0721   E3D6 C9 2F              CMP #'/'        ;LAST CHAR ?
0722   E3D8 F0 0E              BEQ LOADK7      ;YES,BRNCH

0723   E3DA 20 84 EA           JSR PACK        ;CONVERT TO HEX
0724   E3DD B0 A6              BCS CKERR       ;NOT HEX CHAR SO ERROR

0725   E3DF CA                 DEX
0726   E3E0 D0 F1              BNE LOADK6

0727   E3E2 20 13 E4           JSR STBYTE      ;STORE & CHCK MEM FAIL