Filter
Top Products
0675 84A1 20 D9 81 LDBYTE JSR INBYTE
0676 84A4 4C DD 82 JMP CHKSAD
0677 84A7 C9 44 DEPZ CMP #'D' ;DEPOSIT, 0 PARM - USE (OLD)
0678 84A9 D0 03 BNE MEMZ
0679 84AB 4C E1 84 JMP NEWLN
0680 84AE C9 4D MEMZ CMP #'M' ;MEM, 0 PARM - USE (OLD)
0681 84B0 D0 03 BNE VERZ
0682 84B2 4C 17 85 JMP NEWLOC
0683 84B5 C9 56 VERZ CMP #'V' ;VERIFY, 0 PARM - USE (OLD)
0684 84B7 D0 0D BNE L1ZB ; ... DO 8 BYTES (LIKE VER 1 PARM)
0685 84B9 A5 FE LDA $FE
0686 84BB 8D 4A A6 STA P3L
0687 84BE A5 FF LDA $FF
0688 84C0 8D 4B A6 STA P3H
0689 84C3 4C 9A 85 JMP VER1+4
0690 84C6 C9 12 L1ZB CMP #$12 ;LOAD KIM, ZERO PARM
0691 84C8 D0 05 BNE L2ZB
0692 84CA A0 00 LDY #0 ;MODE = KIM
0693 84CC 4C 78 8C L1J JMP LENTRY ;GO TO CASSETTE ROUTINE
0694 84CF C9 13 L2ZB CMP #$13 ;LOAD HS, ZERO PARM
0695 84D1 D0 04 BNE EZPARM
0696 84D3 A0 80 LDY #$80 ;MODE - HS
0697 84D5 D0 F5 BNE L1J ;(ALWAYS)
0698 84D7 6C 6D A6 EZPARM JMP (URCVEC+1) ;ELSE UNREC COMMAND
0699 84DA B1PARM =*
0700 84DA ;
0701 84DA ; 1 PARAMETER COMMAND EXEC BLOCKS
0702 84DA ;
0703 84DA C9 44 DEP1 CMP #'D' ;DEPOSIT, 1 PARM
0704 84DC D0 32 BNE MEM1
0705 84DE 20 A7 82 JSR P3SCR
0706 84E1 20 16 83 NEWLN JSR CRLFSZ
0707 84E4 A0 00 LDY #0
0708 84E6 A2 08 LDX #8
0709 84E8 20 42 83 DEPBYT JSR SPACE
0710 84EB 20 D9 81 JSR INBYTE
0711 84EE B0 11 BCS NH41
0712 84F0 91 FE STA ($FE),Y
0713 84F2 D1 FE CMP ($FE),Y ;VERIFY
0714 84F4 F0 03 BEQ DEPN
0715 84F6 20 20 83 JSR OUTQM ;TYPE "?" IF NG
0716 84F9 20 B2 82 DEPN JSR INCCMP
0717 84FC CA DEX
0718 84FD D0 E9 BNE DEPBYT
0719 84FF F0 E0 BEQ NEWLN
0720 8501 F0 0B NH41 BEQ DEPEC
0721 8503 C9 20 CMP #$20 ;SPACE = FWD
0722 8505 D0 4C BNE DEPES
0723 8507 70 F0 BVS DEPN
0724 8509 20 42 83 JSR SPACE
0725 850C 10 EB BPL DEPN
0726 850E 18 DEPEC CLC
0727 850F 60 RTS
0728 8510 C9 4D MEM1 CMP #'M' ;MEMORY, 1 PARM
0729 8512 D0 65 BNE GO1
0730 8514 20 A7 82 JSR P3SCR
0731 8517 20 16 83 NEWLOC JSR CRLFSZ
0732 851A 20 3A 83 JSR COMMA
0733 851D A0 00 LDY #0
0734 851F B1 FE LDA ($FE),Y
0735 8521 20 D3 81 JSR OBCMIN
0736 8524 B0 11 BCS NH42