Apple II User Manual
2846 F45F 5D5B
2847 F461
2848 F461 ;DISASSEMBLE INSTRUCTIONS AND SHOW REGS IS REGF SET
2848 F461 ;DISASSEMBLE INSTRUCTIONS AND SHOW REGS IS REGF SET
2849 F461 AD 0E A4 REGQ LDA REGF ;GET FLAG
2850 F464 F0 06 BEQ DISASM
2850 F464 F0 06 BEQ DISASM
2851 F466 20 32 E2 JSR REG1 ;SHOW THE SIX REGS
2852 F469 20 24 EA JSR CRCK ;<CR>
2852 F469 20 24 EA JSR CRCK ;<CR>
2853 F46C
2854 F46C 20 45 F5 DISASM JSR PRBL2
2854 F46C 20 45 F5 DISASM JSR PRBL2
2855 F46F 20 3C F5 JSR PRPC ;OUTPUT PROG COUNTR
2856 F472 A0 00 LDY #0
2856 F472 A0 00 LDY #0
2857 F474 20 56 EB JSR PCLLD
2858 F477 A8 TAY
2858 F477 A8 TAY
2859 F478 4A LSR A
2860 F479 90 0B BCC IEVEN
2860 F479 90 0B BCC IEVEN
2861 F47B 4A LSR A
2862 F47C B0 17 BCS ERR
2862 F47C B0 17 BCS ERR
2863 F47E C9 22 CMP #$22
2864 F480 F0 13 BEQ ERR
2864 F480 F0 13 BEQ ERR
2865 F482 29 07 AND #7
2866 F484 09 80 ORA #$80
2866 F484 09 80 ORA #$80
2867 F486 4A IEVEN LSR A
2868 F487 AA TAX
2868 F487 AA TAX
2869 F488 BD 5B F5 LDA MODE,X
2870 F48B B0 04 BCS RTMODE
2870 F48B B0 04 BCS RTMODE
2871 F48D 4A LSR A
2872 F48E 4A LSR A
2872 F48E 4A LSR A
2873 F48F 4A LSR A
2874 F490 4A LSR A
2874 F490 4A LSR A
2875 F491 29 0F RTMODE AND #$F
2876 F493 D0 04 BNE GETFMT
2876 F493 D0 04 BNE GETFMT
2877 F495 A0 80 ERR LDY #$80
2878 F497 A9 00 LDA #0
2878 F497 A9 00 LDA #0
2879 F499 AA GETFMT TAX
2880 F49A BD 9F F5 LDA MODE2,X
2880 F49A BD 9F F5 LDA MODE2,X
2881 F49D 8D 16 01 STA FORMA
2882 F4A0 29 03 AND #3
2882 F4A0 29 03 AND #3
2883 F4A2 85 EA STA LENGTH
2884 F4A4 98 TYA ;OPCODE
2884 F4A4 98 TYA ;OPCODE
2885 F4A5 29 8F AND #$8F
2886 F4A7 AA TAX
2886 F4A7 AA TAX
2887 F4A8 98 TYA ;OPCODE IN A AGAIN
2888 F4A9 A0 03 LDY #3
2888 F4A9 A0 03 LDY #3
2889 F4AB E0 8A CPX #$8A
2890 F4AD F0 0B BEQ MNNDX3
2890 F4AD F0 0B BEQ MNNDX3
2891 F4AF 4A MNNDX1 LSR A
2892 F4B0 90 08 BCC MNNDX3
2892 F4B0 90 08 BCC MNNDX3
2893 F4B2 4A LSR A
2894 F4B3 4A MNNDX2 LSR A
2894 F4B3 4A MNNDX2 LSR A
2895 F4B4 09 20 ORA #$20
2896 F4B6 88 DEY
2896 F4B6 88 DEY
2897 F4B7 D0 FA BNE MNNDX2
2898 F4B9 C8 INY
2898 F4B9 C8 INY
2899 F4BA 88 MNNDX3 DEY
2900 F4BB D0 F2 BNE MNNDX1
2900 F4BB D0 F2 BNE MNNDX1
2901 F4BD 48 PHA ;SAVE MNEMONIC TABLE INDEX
2902 F4BE 20 56 EB JSR PCLLD
2902 F4BE 20 56 EB JSR PCLLD
2903 F4C1 20 46 EA JSR NUMA
2904 F4C4 20 45 F5 JSR PRBL2 ;PRINT LAST BLANK
2904 F4C4 20 45 F5 JSR PRBL2 ;PRINT LAST BLANK
2905 F4C7 68 PLA
2906 F4C8 A8 TAY
2906 F4C8 A8 TAY
2907 F4C9 B9 B9 F5 LDA MNEML,Y