3911 FDBB 38 CMPBR1 SEC ;COMPUTE BRANCH RELATIVE ADDRESS
3912 FDBC AD 35 A4 LDA OPCODE+1
3913 FDBF ED 26 01 SBC MOVAD
3914 FDC2 8D 35 A4 STA OPCODE+1
3915 FDC5 AD 36 A4 LDA OPCODE+2
3916 FDC8 ED 27 01 SBC MOVAD+1
3917 FDCB 8D 36 A4 STA OPCODE+2
3918 FDCE C9 00 CMP #00
3919 FDD0 F0 0E BEQ FORWRD
3920 FDD2 C9 FF CMP #$FF
3921 FDD4 F0 03 BEQ BACKWD
3922 FDD6 4C C5 FC ERRJMP JMP ERRORM
3923 FDD9 AD 35 A4 BACKWD LDA OPCODE+1 ;CHECK IN RANGE
3924 FDDC 30 09 BMI OK
3925 FDDE 10 F6 BPL ERRJMP
3926 FDE0 AD 35 A4 FORWRD LDA OPCODE+1
3927 FDE3 10 02 BPL OK
3928 FDE5 30 EF BMI ERRJMP
3929 FDE7 A9 02 OK LDA #02 ;SET UP FOR STASH
3930 FDE9 8D 2F A4 STA BYTESM
3931 FDEC 4C 2C FD JMP STASH
3932 FDEF
3933 FDEF ;###### SUBROUTINE ########
3934 FDEF ;SUBROUTINE FOR DETERMINING X OR Y OR NEITHER
3935 FDEF A2 04 XORY LDX #04
3936 FDF1 BD 33 01 XORYZ LDA ADFLD,X
3937 FDF4 C9 2C CMP #','
3938 FDF6 D0 04 BNE XORY1
3939 FDF8 E8 INX
3940 FDF9 BD 33 01 LDA ADFLD,X
3941 FDFC C9 58 XORY1 CMP #'X'
3942 FDFE F0 03 BEQ ISX
3943 FE00 C9 59 CMP #'Y'
3944 FE02 XORYRT
3945 FE02 60 RTS ;NOT ZERO IS NOT X OR NOT Y
3946 FE03 18 ISX CLC ;CARRY SET IS Y
3947 FE04 90 FC BCC XORYRT ; CARRY CLEAR IS X
3948 FE06 ;####### END OF SUB ########
3949 FE06
3950 FE06 ; INPUT FOR MNEMONIC CODE
3951 FE06 A0 00 MNEM LDY #00
3952 FE08 8C 34 A4 STY OPCODE
3953 FE0B 8C 35 A4 STY OPCODE+1
3954 FE0E 8C 36 A4 STY OPCODE+2 ;CLEARS OPCODE FOR NEW INPUT
3955 FE11 8C 26 01 STY MOVAD ;CLEARS UNUSED BIT IN FINAL FORMAT
3956 FE14 20 5F E9 RDLUP JSR RDRUP
3957 FE17 C9 2A CMP #'*' ;COMMAND TO LOAD POINTER
3958 FE19 F0 58 BEQ STLOAD ;GO TO SET CURRENT ADDRESS POINTER
3959 FE1B C9 20 CMP #' ' ;IGNORE SPACE BAR INPUT
3960 FE1D F0 F5 BEQ RDLUP
3961 FE1F 29 1F AND #$1F ;MASK OFF UPPER 3 BITS
3962 FE21 99 30 01 STA CH,Y
3963 FE24 98 TYA
3964 FE25 AA TAX ;Y----> X
3965 FE26 FE 30 01 INC CH,X ;FORMAT TO MATCH DISASSEMBLER TBL
3966 FE29 C8 INY
3967 FE2A C0 03 CPY #03 ;REPEAT FOR EACH OF 3 CHARACTERS
3968 FE2C D0 E6 BNE RDLUP
3969 FE2E
3970 FE2E ;COMPRESS 3 FORMATED CHARACTERS TO MOVAD & MOVAD+1
3971 FE2E A0 03 LDY #03 ;SET UP OUTER LOOP
3972 FE30 B9 2F 01 OUTLUP LDA CH-1,Y ;COMPRESS 3 CHARACTERS