3849 FD38 F0 0B BEQ FORMDS
3850 FD3A 88 DEY
3851 FD3B B8 CLV
3852 FD3C 50 F2 BVC STSHLP ;REPEAT TILL THRU
3853 FD3E
3854 FD3E A9 01 ONEBYT LDA #01 ;SET BYTES = 1
3855 FD40 8D 2F A4 STA BYTESM
3856 FD43 D0 E7 BNE STASH
3857 FD45
3858 FD45 ;FORMAT FOR SYSTEM 65 DISPLAY (REFORMAT FOR AIM)
3859 FD45 20 44 EB FORMDS JSR CLR
3860 FD48 20 DD E5 JSR CGPC1 ;ADDR TO SAVPC FOR DISASSEMBLY
3861 FD4B 20 42 E8 JSR TTYTST ;IF TTY DO NOT GO TO DISASS
3862 FD4E D0 08 BNE FORMD1
3863 FD50 20 3B E8 JSR BLANK2 ;IT IS TTY
3864 FD53 20 3B E8 JSR BLANK2
3865 FD56 D0 11 BNE FORMD2 ;OUTPUT OPCODE
3866 FD58 20 6C F4 FORMD1 JSR DISASM
3867 FD5B 20 24 EA JSR CRCK ;<CR> IF PRI PTR DIFF FROM 0
3868 FD5E AD 37 A4 LDA CODFLG ;SEE IF HE WANTS CODE ALSO
3869 FD61 F0 1A BEQ FORM1
3870 FD63 20 3E E8 JSR BLANK
3871 FD66 20 3C F5 JSR PRPC ;PROG CNTR
3872 FD69 ;OUTPUT OPCODE
3873 FD69 AE 2F A4 FORMD2 LDX BYTESM
3874 FD6C A0 00 LDY #00
3875 FD6E A9 1C DISPLY LDA #ADDR ;DO LDA (ADDR),Y ,WHITOUT PAG 0
3876 FD70 20 58 EB JSR LDAY
3877 FD73 20 46 EA JSR NUMA
3878 FD76 20 3E E8 JSR BLANK
3879 FD79 C8 INY
3880 FD7A CA DEX
3881 FD7B D0 F1 BNE DISPLY
3882 FD7D
3883 FD7D ;POINT TO NEXT INSTRUCTION LOCATION
3884 FD7D AC 2F A4 FORM1 LDY BYTESM ;ADD BYTESM TO ADDR
3885 FD80 20 CD E2 JSR NXTADD
3886 FD83 4C 24 FF JMP PATC16 ;UPDATE PC
3887 FD86
3888 FD86 ;RELATIVE BRANCH ADDRESS COMPUTATION
3889 FD86 AD 31 A4 BRCOMP LDA TEMPX
3890 FD89 C9 02 CMP #02 ;IF REL BRANCH INPUT, USE IT
3891 FD8B D0 11 BNE COMPBR
3892 FD8D A2 00 LDX #00
3893 FD8F A0 01 LDY #01
3894 FD91 20 12 FD JSR CONVRT
3895 FD94 B0 40 BCS ERRJMP
3896 FD96 A9 02 LDA #02
3897 FD98 8D 2F A4 STA BYTESM ;SET PROPER BYTES
3898 FD9B 4C 2C FD JMP STASH
3899 FD9E A2 00 COMPBR LDX #00
3900 FDA0 A0 02 LDY #02
3901 FDA2 20 12 FD JSR CONVRT
3902 FDA5 B0 2F BCS ERRJMP
3903 FDA7 AD 1D A4 LDA ADDR+1 ;ADD BRANCH OFFSET
3904 FDAA 8D 27 01 STA MOVAD+1
3905 FDAD AD 1C A4 LDA ADDR
3906 FDB0 18 CLC
3907 FDB1 69 02 ADC #02
3908 FDB3 8D 26 01 STA MOVAD
3909 FDB6 90 03 BCC CMPBR1
3910 FDB8 EE 27 01 INC MOVAD+1