Apple II User Manual

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