Filter
Top Products
0604 E2E0 BE 1C A4 LDX ADDR,Y
0605 E2E3 4C 42 EA JMP WRAX
0606 E2E6
0607 E2E6 ;***** L COMMAND-GENERAL LOAD *****
0608 E2E6 ;LOAD OBJECT FROM TTY,USER,TYPE OR TAPE IN KIM-1 FORMAT
0609 E2E6 20 48 E8 LOAD JSR WHEREI ;WHERE INPUT
0610 E2E9 ;GET ";" , # OF BYTES AND SA
0611 E2E9 20 93 E9 LOAD1 JSR INALL ;GET FIRST CHAR
0612 E2EC C9 3B CMP #SEMICOLON ;LOOK FOR BEGINNING
0613 E2EE D0 F9 BNE LOAD1 ;IGNORE ALL CHARS BEFORE ";"
0614 E2F0 20 4D EB JSR CLRCK ;CLEAR CHECHSUM
0615 E2F3 20 4B E5 JSR CHEKAR ;READ RECORD LENGTH
0616 E2F6 AA TAX ;SAVE IN X THE # BYTES
0617 E2F7 20 4B E5 JSR CHEKAR ;READ UPPER HALF OF ADDRESS
0618 E2FA 8D 1D A4 STA ADDR+1
0619 E2FD 20 4B E5 JSR CHEKAR ;READ LOWER HALF OF ADDRESS
0620 E300 8D 1C A4 STA ADDR
0621 E303 8A TXA
0622 E304 F0 1B BEQ LOAD4 ;LAST RECORD (RECORD LENGTH=0)
0623 E306 ;GET DATA
0624 E306 20 FD E3 LOAD2 JSR RBYTE ;READ NEXT BYTE OF DATA
0625 E309 20 13 E4 JSR STBYTE ;STORE AT LOC (ADDR+1,ADDR)
0626 E30C CA DEX ;DECR RECORD LENGTH
0627 E30D D0 F7 BNE LOAD2
0628 E30F ;COMPARE CKSUM
0629 E30F 20 FD E3 JSR RBYTE ;READ UPPER HALF OF CHCKSUM
0630 E312 CD 1F A4 CMP CKSUM+1 ;COMPARE TO COMPUTED VALUE
0631 E315 D0 6E BNE CKERR ;CKSUM ERROR
0632 E317 20 FD E3 JSR RBYTE ;READ LOWER HALF OF CHECKSUM
0633 E31A CD 1E A4 CMP CKSUM
0634 E31D D0 66 BNE CKERR
0635 E31F F0 C8 BEQ LOAD1 ;UNTIL LAST RECORD
0636 E321 A2 05 LOAD4 LDX #5 ;READ 4 MORE ZEROS
0637 E323 20 FD E3 LOAD5 JSR RBYTE
0638 E326 CA DEX
0639 E327 D0 FA BNE LOAD5
0640 E329 20 93 E9 JSR INALL ;READ LAST <CR>
0641 E32C 4C 20 E5 JMP DU13 ;SET DEFAULT DEV & GO BACK
0642 E32F
0643 E32F ;LOAD ROUTINE FROM TAPE BY BLOCKS
0644 E32F ;CHECK FOR RIGHT FILE & LOAD FIRST BLOCK
0645 E32F A9 00 LOADTA LDA #$00 ;CLEAR BLOCK COUNT
0646 E331 8D 15 01 STA BLK
0647 E334 20 53 ED JSR TIBY1 ;LOAD BUFFER WITH A BLOCK
0648 E337 CA DEX ;SET X=0
0649 E338 8E 15 A4 STX CURPO2 ;CLEAR DISPLAY PTR
0650 E33B BD 16 01 LDA TABUFF,X ;BLK COUNT SHOULD BE ZERO
0651 E33E D0 EF BNE LOADTA ;NO, READ ANOTHER BLOCK
0652 E340 E8 INX
0653 E341 ;AFTER FIRST BLOCK OUTPUT FILE NAME
0654 E341 EE 11 A4 INC PRIFLG ;SO DO NOT GO TO PRINT.
0655 E344 A0 48 LDY #TMSG0-M1 ;PRINT "F="
0656 E346 20 AF E7 JSR KEP
0657 E349 BD 16 01 LOAD1A LDA TABUFF,X ;OUTPUT FILE NAME
0658 E34C 20 7A E9 JSR OUTPUT ;ONLY TO DISPLAY
0659 E34F E8 INX
0660 E350 E0 06 CPX #6
0661 E352 D0 F5 BNE LOAD1A
0662 E354 20 3E E8 JSR BLANK
0663 E357 A0 61 LDY #TMSG6-M1 ;PRINT "BLK= "
0664 E359 20 AF E7 JSR KEP
0665 E35C CE 11 A4 DEC PRIFLG ;RESTORE PRINTR FLG