Apple II User Manual
3663 FBB8 20 3B E8 JSR BLANK2
3664 FBBB 20 3B E8 JSR BLANK2
3665 FBBE 4C 06 FE JMP MNEM ;JUMP TO INPUT MNEMONIC OPCODE
3665 FBBE 4C 06 FE JMP MNEM ;JUMP TO INPUT MNEMONIC OPCODE
3666 FBC1 A9 00 MODEM LDA #00 ;SET UP TO FORM MODE MATCH
3667 FBC3 8D 26 01 STA TMASK1
3667 FBC3 8D 26 01 STA TMASK1
3668 FBC6 8D 27 01 STA TMASK2
3669 FBC9 20 3E E8 JSR BLANK
3669 FBC9 20 3E E8 JSR BLANK
3670 FBCC AC 2E 01 LDY TYPE
3671 FBCF 38 SEC
3671 FBCF 38 SEC
3672 FBD0 6E 26 01 PNTLUP ROR TMASK1 ;SHIFT POINTER TO INSTRUCTION TYPE
3673 FBD3 6E 27 01 ROR TMASK2
3673 FBD3 6E 27 01 ROR TMASK2
3674 FBD6 88 DEY
3675 FBD7 D0 F7 BNE PNTLUP
3675 FBD7 D0 F7 BNE PNTLUP
3676 FBD9
3677 FBD9 ;TEST FOR ONE BYTE INSTRUCTION
3677 FBD9 ;TEST FOR ONE BYTE INSTRUCTION
3678 FBD9 AC 2E 01 LDY TYPE
3679 FBDC C0 0D CPY #$0D
3679 FBDC C0 0D CPY #$0D
3680 FBDE D0 05 BNE RDADDR
3681 FBE0 A2 00 LDX #00
3681 FBE0 A2 00 LDX #00
3682 FBE2
3683 FBE2 ;INPUT ADRESS FIELD
3683 FBE2 ;INPUT ADRESS FIELD
3684 FBE2 4C CB FC JMP OPCOMP
3685 FBE5 A0 06 RDADDR LDY #06 ;CLEAR ADDRESS FIELD (NON HEX)
3685 FBE5 A0 06 RDADDR LDY #06 ;CLEAR ADDRESS FIELD (NON HEX)
3686 FBE7 A9 51 LDA #'Q'
3687 FBE9 99 32 01 CLRLUP STA ADFLD-1,Y
3687 FBE9 99 32 01 CLRLUP STA ADFLD-1,Y
3688 FBEC 88 DEY
3689 FBED D0 FA BNE CLRLUP ;(LEAVES Y = 0 FOR NEXT PHASE)
3689 FBED D0 FA BNE CLRLUP ;(LEAVES Y = 0 FOR NEXT PHASE)
3690 FBEF 20 5F E9 JSR RDRUP ;WITH RUBOUT
3691 FBF2 C9 20 CMP #' ' ;IGNORE SPACE CHARACTERS
3691 FBF2 C9 20 CMP #' ' ;IGNORE SPACE CHARACTERS
3692 FBF4 F0 EF BEQ RDADDR
3693 FBF6 99 33 01 STORCH STA ADFLD,Y ;STORE ADDRESS CHARACTER
3693 FBF6 99 33 01 STORCH STA ADFLD,Y ;STORE ADDRESS CHARACTER
3694 FBF9 C8 INY
3695 FBFA C0 07 CPY #07
3695 FBFA C0 07 CPY #07
3696 FBFC B0 5C BCS TRY56
3697 FBFE 20 5F E9 JSR RDRUP ;READ REMAINDER OF ADDRESS CHARS
3697 FBFE 20 5F E9 JSR RDRUP ;READ REMAINDER OF ADDRESS CHARS
3698 FC01 C9 20 CMP #' ' ;THRU WHEN <SPACE> OR <CR>
3699 FC03 D0 05 BNE STOR1
3699 FC03 D0 05 BNE STOR1
3700 FC05 EE 37 A4 INC CODFLG ;SET CODE FLG
3701 FC08 D0 04 BNE EVAL
3701 FC08 D0 04 BNE EVAL
3702 FC0A C9 0D STOR1 CMP #CR ;CHECK FOR <CR>
3703 FC0C D0 E8 BNE STORCH
3703 FC0C D0 E8 BNE STORCH
3704 FC0E
3705 FC0E ;SEPARATE ADDRESS MODE FROM ADDRESS FIELD
3705 FC0E ;SEPARATE ADDRESS MODE FROM ADDRESS FIELD
3706 FC0E 8C 31 A4 EVAL STY TEMPX ;TEMPX NOW HAS NUMBER OF CHAR
3707 FC11 AD 33 01 LDA ADFLD ;CHECK FIRST CHAR FOR # OR (
3707 FC11 AD 33 01 LDA ADFLD ;CHECK FIRST CHAR FOR # OR (
3708 FC14 C9 23 CMP #'#'
3709 FC16 F0 25 BEQ HATCJ
3709 FC16 F0 25 BEQ HATCJ
3710 FC18 C9 28 CMP #'('
3711 FC1A F0 5A BEQ PAREN
3711 FC1A F0 5A BEQ PAREN
3712 FC1C AD 31 A4 LDA TEMPX ;CHECK FOR ACCUMULATOR MODE
3713 FC1F C9 01 CMP #01
3713 FC1F C9 01 CMP #01
3714 FC21 D0 05 BNE TRYZP
3715 FC23 A2 01 ACCUM LDX #01
3715 FC23 A2 01 ACCUM LDX #01
3716 FC25 4C CB FC JMP OPCOMP
3717 FC28 C9 02 TRYZP CMP #02 ;CHECK FOR ZERO PAGE MODE
3717 FC28 C9 02 TRYZP CMP #02 ;CHECK FOR ZERO PAGE MODE
3718 FC2A D0 14 BNE TRY34
3719 FC2C AD 2E 01 LDA TYPE ;CHCK FOR BRNCH WITH RELATIVE ADDR`
3719 FC2C AD 2E 01 LDA TYPE ;CHCK FOR BRNCH WITH RELATIVE ADDR`
3720 FC2F C9 0C CMP #$0C
3721 FC31 D0 05 BNE ZPAGE
3721 FC31 D0 05 BNE ZPAGE
3722 FC33 A2 02 LDX #02
3723 FC35 4C CB FC JMP OPCOMP
3723 FC35 4C CB FC JMP OPCOMP
3724 FC38 A2 05 ZPAGE LDX #05