Apple II User Manual
0861 8619 ;
0862 8619 C9 10 STD2 CMP #$10 ;STORE DOUBLE BYTE
0863 861B D0 12 BNE MEM2
0863 861B D0 12 BNE MEM2
0864 861D 20 A7 82 JSR P3SCR
0865 8620 AD 4D A6 LDA P2H
0865 8620 AD 4D A6 LDA P2H
0866 8623 A0 01 LDY #1
0867 8625 91 FE STA ($FE),Y
0867 8625 91 FE STA ($FE),Y
0868 8627 88 DEY
0869 8628 AD 4C A6 LDA P2L
0869 8628 AD 4C A6 LDA P2L
0870 862B 91 FE STA ($FE),Y
0871 862D 18 CLC
0871 862D 18 CLC
0872 862E 60 RTS
0873 862F C9 4D MEM2 CMP #'M' ;CONTINUE MEM SEARCH W/OLD PTR
0873 862F C9 4D MEM2 CMP #'M' ;CONTINUE MEM SEARCH W/OLD PTR
0874 8631 D0 09 BNE VER2
0875 8633 AD 4C A6 LDA P2L
0875 8633 AD 4C A6 LDA P2L
0876 8636 8D 4E A6 STA P1L
0877 8639 4C 08 88 JMP MEM3C
0877 8639 4C 08 88 JMP MEM3C
0878 863C C9 56 VER2 CMP #'V' ;VERIFY MEM W/CHKSUMS , 2 PARM
0879 863E D0 48 BNE L12B
0879 863E D0 48 BNE L12B
0880 8640 20 9C 82 JSR P2SCR
0881 8643 20 2E 83 JSR ZERCK
0881 8643 20 2E 83 JSR ZERCK
0882 8646 20 16 83 VADDR JSR CRLFSZ
0883 8649 A2 08 LDX #8
0883 8649 A2 08 LDX #8
0884 864B 20 42 83 V2 JSR SPACE
0885 864E A0 00 LDY #0
0885 864E A0 00 LDY #0
0886 8650 B1 FE LDA ($FE),Y
0887 8652 20 DD 82 JSR CHKSAD
0887 8652 20 DD 82 JSR CHKSAD
0888 8655 20 FA 82 JSR OUTBYT
0889 8658 20 B2 82 JSR INCCMP
0889 8658 20 B2 82 JSR INCCMP
0890 865B 70 11 BVS V1
0891 865D F0 02 BEQ *+4
0891 865D F0 02 BEQ *+4
0892 865F B0 0D BCS V1
0893 8661 CA DEX
0893 8661 CA DEX
0894 8662 D0 E7 BNE V2
0895 8664 20 25 83 JSR OCMCK
0895 8664 20 25 83 JSR OCMCK
0896 8667 20 86 83 JSR INSTAT
0897 866A 90 DA BCC VADDR
0897 866A 90 DA BCC VADDR
0898 866C 18 CLC
0899 866D 60 RTS
0899 866D 60 RTS
0900 866E 20 BE 82 V1 JSR DECCMP
0901 8671 E0 08 CPX #8
0901 8671 E0 08 CPX #8
0902 8673 F0 03 BEQ *+5
0903 8675 E8 INX
0903 8675 E8 INX
0904 8676 10 F6 BPL V1
0905 8678 20 25 83 JSR OCMCK
0905 8678 20 25 83 JSR OCMCK
0906 867B 20 4D 83 JSR CRLF
0907 867E 20 42 83 JSR SPACE
0907 867E 20 42 83 JSR SPACE
0908 8681 AE 37 A6 LDX SCR7
0909 8684 20 F4 82 JSR OUTXAH
0909 8684 20 F4 82 JSR OUTXAH
0910 8687 60 RTS
0911 8688 C9 12 L12B CMP #$12 ;LOAD KIM FMT TAPE, 2 PARMS
0911 8688 C9 12 L12B CMP #$12 ;LOAD KIM FMT TAPE, 2 PARMS
0912 868A D0 0C BNE SP2B
0913 868C AD 4C A6 LDA P2L
0913 868C AD 4C A6 LDA P2L
0914 868F C9 FF CMP #$FF ;ID MUST BE FF
0915 8691 D0 F4 BNE L12B-1 ;ERR
0915 8691 D0 F4 BNE L12B-1 ;ERR
0916 8693 A0 00 LDY #0 ;MODE = HS
0917 8695 4C E9 85 JMP L11D
0917 8695 4C E9 85 JMP L11D
0918 8698 C9 1C SP2B CMP #$1C ;SAVE PAPER TAPE, 2 PARMS
0919 869A D0 75 BNE E2PARM
0919 869A D0 75 BNE E2PARM
0920 869C 18 CLC
0921 869D 20 88 81 JSR SAVER
0921 869D 20 88 81 JSR SAVER
0922 86A0 20 9C 82 JSR P2SCR