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