Apple II User Manual

0728   E3E5 4C D1 E3           JMP LOADK5      ;NEXT

0729   E3E8 20 FD E3    LOADK7 JSR RBYTE       ;END OF DATA CMP CKSUM
0730   E3EB CD 1E A4           CMP CKSUM       ;LOW

0731   E3EE D0 95              BNE CKERR
0732   E3F0 20 FD E3           JSR RBYTE

0733   E3F3 CD 1F A4           CMP CKSUM+1     ;HIGH
0734   E3F6 D0 8D              BNE CKERR

0735   E3F8 68                 PLA             ;CORRECT RTN INSTEAD OF WHEREI
0736   E3F9 68                 PLA

0737   E3FA 4C 20 E5           JMP DU13        ;TELL HIM & GO BACK TO COMMAN
0738   E3FD

0739   E3FD             ;GET 2 ASCII CHRS INTO 1 BYTE
0740   E3FD             ;FOR TAPE (T) GET ONLY ONE HEX CHR

0741   E3FD AD 12 A4    RBYTE  LDA INFLG       ;INPUT DEVICE
0742   E400 C9 54              CMP #'T'

0743   E402 D0 03              BNE RBYT1
0744   E404 4C 93 E9           JMP INALL       ;ONLY ONE BYTE FOR T (INPUT DEV)

0745   E407 20 93 E9    RBYT1  JSR INALL
0746   E40A 20 84 EA           JSR PACK

0747   E40D 20 93 E9           JSR INALL
0748   E410 4C 84 EA           JMP PACK

0749   E413
0750   E413             ;STORE AND CHECK MEMORY FAIL

0751   E413 20 4E E5    STBYTE JSR CHEKA       ;ADD TO CKSUM
0752   E416 A0 00              LDY #0

0753   E418 20 78 EB           JSR SADDR       ;STORE AND CHCK
0754   E41B F0 03              BEQ *+5

0755   E41D 4C 33 EB           JMP MEMERR      ;MEMORY WRITE ERROR
0756   E420 A0 01              LDY #1          ;INC ADDR+1,ADDR BY 1

0757   E422 4C CD E2           JMP NXTADD
0758   E425

0759   E425             ;GET ID FROM LAST 2 CHR OF FILENAM
0760   E425 A2 04       GETID  LDX #4          ;SEE WHAT HE GAVE US

0761   E427 BD 2E A4    GID1   LDA NAME,X      ;GET LAST 2 CHARS
0762   E42A CA                 DEX

0763   E42B C9 20              CMP #' '        ;<SPACE> ?
0764   E42D F0 F8              BEQ GID1

0765   E42F BD 2E A4           LDA NAME,X      ;CONVERT TO BINARY
0766   E432 20 84 EA           JSR PACK

0767   E435 BD 2F A4           LDA NAME+1,X
0768   E438 4C 84 EA           JMP PACK        ;ID IS IN STIY

0769   E43B
0770   E43B             ;***** D COMMAND-GENERAL DUMP *****

0771   E43B             ;TO TTY,PRINTR,USER,X ,TAPE,TAKIM-1
0772   E43B AD 10 A4    DUMP   LDA BKFLG       ;SAVE IT TO USE IT

0773   E43E 48                 PHA
0774   E43F A9 00              LDA #00

0775   E441 8D 10 A4           STA BKFLG
0776   E444 20 24 EA    DU1    JSR CRCK        ;<CR>

0777   E447 20 A3 E7    DU0    JSR FROM        ;GET START ADDR
0778   E44A B0 FB              BCS DU0         ;IN CASE OF ERROR DO IT AGAIN

0779   E44C 20 3E E8           JSR BLANK
0780   E44F 20 10 F9           JSR ADDRS1      ;TRANSFER ADDR TO S1

0781   E452 20 A7 E7    DU1B   JSR TO          ;GET END ADDR
0782   E455 B0 FB              BCS DU1B

0783   E457 20 13 EA           JSR CRLOW
0784   E45A AD 10 A4           LDA BKFLG       ;EXECUTE WHEREO ONLY ONCE

0785   E45D D0 0E              BNE DU1A
0786   E45F 20 71 E8           JSR WHEREO      ;WHICH DEV (OUTFLG)

0787   E462 A9 00              LDA #0
0788   E464 8D 06 01           STA S2          ;CLEAR RECORD COUNT

0789   E467 8D 07 01           STA S2+1