Skip to content

Instantly share code, notes, and snippets.

@jedie

jedie/div by 10.asm

Created July 11, 2014 13:33
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jedie/a17def9a40f01e435d72 to your computer and use it in GitHub Desktop.
Save jedie/a17def9a40f01e435d72 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
div by 10.asm
pydev debugger: starting
CPU state pickle file: '/tmp/BASIC_simple6809_unittests.dat'
Load CPU init state from: '/tmp/BASIC_simple6809_unittests.dat'
______________________________________________________________________
test_divide_FPA0_by_10 (__main__.Test_simple6809_BASIC) ...
CPU test_run(): from $300 to $303
0300| bd JSR ea:edcb cc=54 a=00 b=0d dp=00 x=deae y=0000 u=deab s=0332 | .F.I.Z.. | $300: $0-$7fff - 32K RAM
edcb| bd JSR ea:eea8 cc=54 a=00 b=0d dp=00 x=deae y=0000 u=deab s=0330 | .F.I.Z.. | $edcb: MOVE FPA0 TO FPA1
eea8| dc LDD D=83a0 m:83a0 cc=58 a=83 b=a0 dp=00 x=deae y=0000 u=deab s=0330 | .F.IN... | $eea8: * TRANSFER EXPONENT & MS BYTE
eeaa| dd STD D=83a0 ea:005c cc=58 a=83 b=a0 dp=00 x=deae y=0000 u=deab s=0330 | .F.IN... | $eeaa: $db00-$ffff - BASIC Interpreter
eeac| 9e LDX X=0000 m:0 cc=54 a=83 b=a0 dp=00 x=0000 y=0000 u=deab s=0330 | .F.I.Z.. | $eeac: = TRANSFER MIDDLE TWO BYTES
eeae| 9f STX X=0000 ea:005e cc=54 a=83 b=a0 dp=00 x=0000 y=0000 u=deab s=0330 | .F.I.Z.. | $eeae: =
eeb0| 9e LDX X=0000 m:0 cc=54 a=83 b=a0 dp=00 x=0000 y=0000 u=deab s=0330 | .F.I.Z.. | $eeb0: * TRANSFER BOTTOM TWO BYTES
eeb2| 9f STX X=0000 ea:0060 cc=54 a=83 b=a0 dp=00 x=0000 y=0000 u=deab s=0330 | .F.I.Z.. | $eeb2: $db00-$ffff - BASIC Interpreter
eeb4| 4d TSTA A=83 cc=58 a=83 b=a0 dp=00 x=0000 y=0000 u=deab s=0330 | .F.IN... | $eeb4: SET FLAGS ACCORDING TO EXPONENT
eeb5| 39 RTS cc=58 a=83 b=a0 dp=00 x=0000 y=0000 u=deab s=0332 | .F.IN... | $eeb5: $db00-$ffff - BASIC Interpreter
edce| 8e LDX X=edc6 m:edc6 cc=58 a=83 b=a0 dp=00 x=edc6 y=0000 u=deab s=0332 | .F.IN... | $edce: POINT TO FLOATING POINT CONSTANT 10
edd1| 5f CLRB B=00 cc=54 a=83 b=00 dp=00 x=edc6 y=0000 u=deab s=0332 | .F.I.Z.. | $edd1: ZERO MANTISSA SIGN BYTE
edd2| d7 STB B=00 ea:0062 cc=54 a=83 b=00 dp=00 x=edc6 y=0000 u=deab s=0332 | .F.I.Z.. | $edd2: STORE THE QUOTIENT MANTISSA SIGN BYTE
edd4| bd JSR ea:ee5d cc=54 a=83 b=00 dp=00 x=edc6 y=0000 u=deab s=0330 | .F.I.Z.. | $edd4: UNPACK AN FP NUMBER FROM (X) INTO FPA0
ee5d| 34 PSHS S=032f m:2 cc=54 a=83 b=00 dp=00 x=edc6 y=0000 u=deab s=032f | .F.I.Z.. | $ee5d: SAVE ACCA
ee5f| ec LDD D=2000 m:2000 cc=50 a=20 b=00 dp=00 x=edc6 y=0000 u=deab s=032f | .F.I.... | $ee5f: GET TOP TWO MANTISSA BYTES
ee61| 97 STA A=20 ea:0054 cc=50 a=20 b=00 dp=00 x=edc6 y=0000 u=deab s=032f | .F.I.... | $ee61: SAVE MS BYTE OF MANTISSA AS MANTISSA SIGN
ee63| 8a ORA A=a0 m:80 cc=58 a=a0 b=00 dp=00 x=edc6 y=0000 u=deab s=032f | .F.IN... | $ee63: UNPACK MS BYTE
ee65| dd STD D=a000 ea:0050 cc=58 a=a0 b=00 dp=00 x=edc6 y=0000 u=deab s=032f | .F.IN... | $ee65: SAVE UNPACKED TOP 2 MANTISSA BYTES
ee67| 0f CLR ea:0063 cc=54 a=a0 b=00 dp=00 x=edc6 y=0000 u=deab s=032f | .F.I.Z.. | $ee67: CLEAR MANTISSA SUB BYTE
ee69| e6 LDB B=84 m:84 cc=58 a=a0 b=84 dp=00 x=edc6 y=0000 u=deab s=032f | .F.IN... | $ee69: GET EXPONENT TO ACCB
ee6b| ae LDX X=0000 m:0 cc=54 a=a0 b=84 dp=00 x=0000 y=0000 u=deab s=032f | .F.I.Z.. | $ee6b: * MOVE LAST 2
ee6d| 9f STX X=0000 ea:0052 cc=54 a=a0 b=84 dp=00 x=0000 y=0000 u=deab s=032f | .F.I.Z.. | $ee6d: * MANTISSA BYTES
ee6f| d7 STB B=84 ea:004f cc=58 a=a0 b=84 dp=00 x=0000 y=0000 u=deab s=032f | .F.IN... | $ee6f: SAVE EXPONENT
ee71| 35 PULS S=0332 m:82 cc=58 a=83 b=84 dp=00 x=0000 y=0000 u=deab s=0332 | .F.IN... | $ee71: RESTORE ACCA AND RETURN
$edda CMP16 X $0 - $8d9e = $-8d9e
edd7| 8c CMPX X=0000 m:8d9e cc=51 a=83 b=84 dp=00 x=0000 y=0000 u=deab s=0332 | .F.I...C | $edd7: SKIP TWO BYTES
edda| 27 BEQ ea:ee4f cc=51 a=83 b=84 dp=00 x=0000 y=0000 u=deab s=0332 | .F.I...C | $edda: /0' DIVIDE BY ZERO ERROR
eddc| 00 NEG ea:004f m:84 cc=51 a=83 b=84 dp=00 x=0000 y=0000 u=deab s=0332 | .F.I...C | $eddc: GET EXPONENT OF RECIPROCAL OF DIVISOR
edde| 8d BSR ea:ed91 cc=51 a=83 b=84 dp=00 x=0000 y=0000 u=deab s=0330 | .F.I...C | $edde: CALCULATE EXPONENT OF QUOTIENT
ed91| 4d TSTA A=83 cc=59 a=83 b=84 dp=00 x=0000 y=0000 u=deab s=0330 | .F.IN..C | $ed91: TEST EXPONENT OF FPA1
ed92| 27 BEQ ea:edaa cc=59 a=83 b=84 dp=00 x=0000 y=0000 u=deab s=0330 | .F.IN..C | $ed92: PURGE RETURN ADDRESS & SET FPA0 = 0
ed94| 9b ADDA A=ff m:7c cc=58 a=ff b=84 dp=00 x=0000 y=0000 u=deab s=0330 | .F.IN... | $ed94: ADD FPA1 EXPONENT TO FPA0 EXPONENT
ed96| 46 RORA A=7f cc=51 a=7f b=84 dp=00 x=0000 y=0000 u=deab s=0330 | .F.I...C | $ed96: ROTATE CARRY INTO BIT 7; BIT 0 INTO CARRY
ed97| 49 ROLA A=ff cc=5a a=ff b=84 dp=00 x=0000 y=0000 u=deab s=0330 | .F.IN.V. | $ed97: SET OVERFLOW FLAG
ed98| 28 BVC ea:edaa cc=5a a=ff b=84 dp=00 x=0000 y=0000 u=deab s=0330 | .F.IN.V. | $ed98: BRANCH IF EXPONENT TOO LARGE OR SMALL
ed9a| 8b ADDA A=7f m:80 cc=53 a=7f b=84 dp=00 x=0000 y=0000 u=deab s=0330 | .F.I..VC | $ed9a: ADD $80 BIAS TO EXPONENT
ed9c| 97 STA A=7f ea:004f cc=51 a=7f b=84 dp=00 x=0000 y=0000 u=deab s=0330 | .F.I...C | $ed9c: SAVE NEW EXPONENT
ed9e| 27 BEQ ea:edac cc=51 a=7f b=84 dp=00 x=0000 y=0000 u=deab s=0330 | .F.I...C | $ed9e: SET FPA0
eda0| 96 LDA A=00 m:0 cc=55 a=00 b=84 dp=00 x=0000 y=0000 u=deab s=0330 | .F.I.Z.C | $eda0: GET MANTISSA SIGN
eda2| 97 STA A=00 ea:0054 cc=55 a=00 b=84 dp=00 x=0000 y=0000 u=deab s=0330 | .F.I.Z.C | $eda2: SAVE AS MANTISSA SIGN OF FPA0
eda4| 39 RTS cc=55 a=00 b=84 dp=00 x=0000 y=0000 u=deab s=0332 | .F.I.Z.C | $eda4: $db00-$ffff - BASIC Interpreter
ede0| 0c INC ea:004f m:7f cc=5b a=00 b=84 dp=00 x=0000 y=0000 u=deab s=0332 | .F.IN.VC | $ede0: INCREMENT EXPONENT
ede2| 27 BEQ ea:edb0 cc=5b a=00 b=84 dp=00 x=0000 y=0000 u=deab s=0332 | .F.IN.VC | $ede2: OV' OVERFLOW ERROR
ede4| 8e LDX X=0013 m:13 cc=51 a=00 b=84 dp=00 x=0013 y=0000 u=deab s=0332 | .F.I...C | $ede4: POINT X TO MANTISSA OF FPA2 - HOLD
ede7| c6 LDB B=04 m:4 cc=51 a=00 b=04 dp=00 x=0013 y=0000 u=deab s=0332 | .F.I...C | $ede7: 5 BYTE DIVIDE
ede9| d7 STB B=04 ea:0003 cc=51 a=00 b=04 dp=00 x=0013 y=0000 u=deab s=0332 | .F.I...C | $ede9: SAVE BYTE COUNTER
edeb| c6 LDB B=01 m:1 cc=51 a=00 b=01 dp=00 x=0013 y=0000 u=deab s=0332 | .F.I...C | $edeb: SHIFT COUNTER-AND TEMPORARY QUOTIENT BYTE
eded| 96 LDA A=a0 m:a0 cc=59 a=a0 b=01 dp=00 x=0013 y=0000 u=deab s=0332 | .F.IN..C | $eded: * COMPARE THE TWO MS BYTES
edef| 91 CMPA A=a0 m:a0 cc=54 a=a0 b=01 dp=00 x=0013 y=0000 u=deab s=0332 | .F.I.Z.. | $edef: * OF FPA0 AND FPA1 AND
edf1| 26 BNE ea:ee06 cc=54 a=a0 b=01 dp=00 x=0013 y=0000 u=deab s=0332 | .F.I.Z.. | $edf1: * BRANCH IF <>
edf3| 96 LDA A=00 m:0 cc=54 a=00 b=01 dp=00 x=0013 y=0000 u=deab s=0332 | .F.I.Z.. | $edf3: = COMPARE THE NUMBER 2
edf5| 91 CMPA A=00 m:0 cc=54 a=00 b=01 dp=00 x=0013 y=0000 u=deab s=0332 | .F.I.Z.. | $edf5: = BYTES AND
edf7| 26 BNE ea:ee06 cc=54 a=00 b=01 dp=00 x=0013 y=0000 u=deab s=0332 | .F.I.Z.. | $edf7: = BRANCH IF <>
edf9| 96 LDA A=00 m:0 cc=54 a=00 b=01 dp=00 x=0013 y=0000 u=deab s=0332 | .F.I.Z.. | $edf9: * COMPARE THE NUMBER 3
edfb| 91 CMPA A=00 m:0 cc=54 a=00 b=01 dp=00 x=0013 y=0000 u=deab s=0332 | .F.I.Z.. | $edfb: * BYTES AND
edfd| 26 BNE ea:ee06 cc=54 a=00 b=01 dp=00 x=0013 y=0000 u=deab s=0332 | .F.I.Z.. | $edfd: * BRANCH IF <>
edff| 96 LDA A=00 m:0 cc=54 a=00 b=01 dp=00 x=0013 y=0000 u=deab s=0332 | .F.I.Z.. | $edff: = COMPARE THE LS BYTES
ee01| 91 CMPA A=00 m:0 cc=54 a=00 b=01 dp=00 x=0013 y=0000 u=deab s=0332 | .F.I.Z.. | $ee01: = AND BRANCH
ee03| 26 BNE ea:ee06 cc=54 a=00 b=01 dp=00 x=0013 y=0000 u=deab s=0332 | .F.I.Z.. | $ee03: = IF <>
ee05| 43 COMA A=ff cc=59 a=ff b=01 dp=00 x=0013 y=0000 u=deab s=0332 | .F.IN..C | $ee05: SET CARRY FLAG IF FPA0 = FPA1
ee06| 1f TFR m:a8 cc=59 a=00 b=01 dp=00 x=0013 y=0000 u=deab s=0332 | .F.IN..C | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=03 cc=50 a=00 b=03 dp=00 x=0013 y=0000 u=deab s=0332 | .F.I.... | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=50 a=00 b=03 dp=00 x=0013 y=0000 u=deab s=0332 | .F.I.... | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee15| 1f TFR m:8a cc=00 a=00 b=03 dp=00 x=0013 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=03 dp=00 x=0013 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=03 dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=03 dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=03 dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:a0 cc=03 a=00 b=03 dp=00 x=0013 y=0000 u=deab s=0332 | ......VC | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=03 a=00 b=03 dp=00 x=0013 y=0000 u=deab s=0332 | ......VC | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee06| 1f TFR m:a8 cc=03 a=00 b=03 dp=00 x=0013 y=0000 u=deab s=0332 | ......VC | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=07 cc=00 a=00 b=07 dp=00 x=0013 y=0000 u=deab s=0332 | ........ | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=00 a=00 b=07 dp=00 x=0013 y=0000 u=deab s=0332 | ........ | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee15| 1f TFR m:8a cc=00 a=00 b=07 dp=00 x=0013 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=07 dp=00 x=0013 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=07 dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=07 dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=07 dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:40 cc=0a a=00 b=07 dp=00 x=0013 y=0000 u=deab s=0332 | ....N.V. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=0a a=00 b=07 dp=00 x=0013 y=0000 u=deab s=0332 | ....N.V. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=0a a=00 b=07 dp=00 x=0013 y=0000 u=deab s=0332 | ....N.V. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
eded| 96 LDA A=a0 m:a0 cc=08 a=a0 b=07 dp=00 x=0013 y=0000 u=deab s=0332 | ....N... | $eded: * COMPARE THE TWO MS BYTES
edef| 91 CMPA A=a0 m:80 cc=00 a=a0 b=07 dp=00 x=0013 y=0000 u=deab s=0332 | ........ | $edef: * OF FPA0 AND FPA1 AND
edf1| 26 BNE ea:ee06 cc=00 a=a0 b=07 dp=00 x=0013 y=0000 u=deab s=0332 | ........ | $edf1: * BRANCH IF <>
ee06| 1f TFR m:a8 cc=00 a=00 b=07 dp=00 x=0013 y=0000 u=deab s=0332 | ........ | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=0e cc=00 a=00 b=0e dp=00 x=0013 y=0000 u=deab s=0332 | ........ | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=00 a=00 b=0e dp=00 x=0013 y=0000 u=deab s=0332 | ........ | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee15| 1f TFR m:8a cc=00 a=00 b=0e dp=00 x=0013 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=0e dp=00 x=0013 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=0e dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=0e dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=0e dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:80 cc=07 a=00 b=0e dp=00 x=0013 y=0000 u=deab s=0332 | .....ZVC | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=07 a=00 b=0e dp=00 x=0013 y=0000 u=deab s=0332 | .....ZVC | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee06| 1f TFR m:a8 cc=07 a=00 b=0e dp=00 x=0013 y=0000 u=deab s=0332 | .....ZVC | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=1d cc=00 a=00 b=1d dp=00 x=0013 y=0000 u=deab s=0332 | ........ | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=00 a=00 b=1d dp=00 x=0013 y=0000 u=deab s=0332 | ........ | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee15| 1f TFR m:8a cc=00 a=00 b=1d dp=00 x=0013 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=1d dp=00 x=0013 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=1d dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=1d dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=1d dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:0 cc=04 a=00 b=1d dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=04 a=00 b=1d dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=04 a=00 b=1d dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
ee25| 20 BRA ea:ee06 cc=04 a=00 b=1d dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee25: CARRY IS CLEAR, CHECK ANOTHER BIT
ee06| 1f TFR m:a8 cc=04 a=00 b=1d dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=3a cc=00 a=00 b=3a dp=00 x=0013 y=0000 u=deab s=0332 | ........ | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=00 a=00 b=3a dp=00 x=0013 y=0000 u=deab s=0332 | ........ | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee15| 1f TFR m:8a cc=00 a=00 b=3a dp=00 x=0013 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=3a dp=00 x=0013 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=3a dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=3a dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=3a dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:0 cc=04 a=00 b=3a dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=04 a=00 b=3a dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=04 a=00 b=3a dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
ee25| 20 BRA ea:ee06 cc=04 a=00 b=3a dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee25: CARRY IS CLEAR, CHECK ANOTHER BIT
ee06| 1f TFR m:a8 cc=04 a=00 b=3a dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=74 cc=00 a=00 b=74 dp=00 x=0013 y=0000 u=deab s=0332 | ........ | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=00 a=00 b=74 dp=00 x=0013 y=0000 u=deab s=0332 | ........ | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee15| 1f TFR m:8a cc=00 a=00 b=74 dp=00 x=0013 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=74 dp=00 x=0013 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=74 dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=74 dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=74 dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:0 cc=04 a=00 b=74 dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=04 a=00 b=74 dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=04 a=00 b=74 dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
ee25| 20 BRA ea:ee06 cc=04 a=00 b=74 dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee25: CARRY IS CLEAR, CHECK ANOTHER BIT
ee06| 1f TFR m:a8 cc=04 a=00 b=74 dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=e8 cc=0a a=00 b=e8 dp=00 x=0013 y=0000 u=deab s=0332 | ....N.V. | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=0a a=00 b=e8 dp=00 x=0013 y=0000 u=deab s=0332 | ....N.V. | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee15| 1f TFR m:8a cc=00 a=00 b=e8 dp=00 x=0013 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=e8 dp=00 x=0013 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=e8 dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=e8 dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=e8 dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:0 cc=04 a=00 b=e8 dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=04 a=00 b=e8 dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=04 a=00 b=e8 dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
ee25| 20 BRA ea:ee06 cc=04 a=00 b=e8 dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee25: CARRY IS CLEAR, CHECK ANOTHER BIT
ee06| 1f TFR m:a8 cc=04 a=00 b=e8 dp=00 x=0013 y=0000 u=deab s=0332 | .....Z.. | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=d0 cc=09 a=00 b=d0 dp=00 x=0013 y=0000 u=deab s=0332 | ....N..C | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=09 a=00 b=d0 dp=00 x=0013 y=0000 u=deab s=0332 | ....N..C | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee0b| e7 STB B=d0 ea:0013 cc=09 a=00 b=d0 dp=00 x=0014 y=0000 u=deab s=0332 | ....N..C | $ee0b: SAVE TEMPORARY QUOTIENT
ee0d| 0a DEC ea:0003 m:4 cc=01 a=00 b=d0 dp=00 x=0014 y=0000 u=deab s=0332 | .......C | $ee0d: DECREMENT BYTE COUNTER
ee0f| 2b BMI ea:ee45 cc=01 a=00 b=d0 dp=00 x=0014 y=0000 u=deab s=0332 | .......C | $ee0f: BRANCH IF DONE
ee11| 27 BEQ ea:ee41 cc=01 a=00 b=d0 dp=00 x=0014 y=0000 u=deab s=0332 | .......C | $ee11: BRANCH IF LAST BYTE
ee13| c6 LDB B=01 m:1 cc=01 a=00 b=01 dp=00 x=0014 y=0000 u=deab s=0332 | .......C | $ee13: RESET SHIFT COUNTER AND TEMPORARY QUOTIENT BYTE
ee15| 1f TFR m:8a cc=00 a=00 b=01 dp=00 x=0014 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=01 dp=00 x=0014 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=01 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=01 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=01 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:0 cc=04 a=00 b=01 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=04 a=00 b=01 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=04 a=00 b=01 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
ee25| 20 BRA ea:ee06 cc=04 a=00 b=01 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee25: CARRY IS CLEAR, CHECK ANOTHER BIT
ee06| 1f TFR m:a8 cc=04 a=00 b=01 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=02 cc=00 a=00 b=02 dp=00 x=0014 y=0000 u=deab s=0332 | ........ | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=00 a=00 b=02 dp=00 x=0014 y=0000 u=deab s=0332 | ........ | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee15| 1f TFR m:8a cc=00 a=00 b=02 dp=00 x=0014 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=02 dp=00 x=0014 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=02 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=02 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=02 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:0 cc=04 a=00 b=02 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=04 a=00 b=02 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=04 a=00 b=02 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
ee25| 20 BRA ea:ee06 cc=04 a=00 b=02 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee25: CARRY IS CLEAR, CHECK ANOTHER BIT
ee06| 1f TFR m:a8 cc=04 a=00 b=02 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=04 cc=00 a=00 b=04 dp=00 x=0014 y=0000 u=deab s=0332 | ........ | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=00 a=00 b=04 dp=00 x=0014 y=0000 u=deab s=0332 | ........ | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee15| 1f TFR m:8a cc=00 a=00 b=04 dp=00 x=0014 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=04 dp=00 x=0014 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=04 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=04 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=04 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:0 cc=04 a=00 b=04 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=04 a=00 b=04 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=04 a=00 b=04 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
ee25| 20 BRA ea:ee06 cc=04 a=00 b=04 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee25: CARRY IS CLEAR, CHECK ANOTHER BIT
ee06| 1f TFR m:a8 cc=04 a=00 b=04 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=08 cc=00 a=00 b=08 dp=00 x=0014 y=0000 u=deab s=0332 | ........ | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=00 a=00 b=08 dp=00 x=0014 y=0000 u=deab s=0332 | ........ | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee15| 1f TFR m:8a cc=00 a=00 b=08 dp=00 x=0014 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=08 dp=00 x=0014 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=08 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=08 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=08 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:0 cc=04 a=00 b=08 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=04 a=00 b=08 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=04 a=00 b=08 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
ee25| 20 BRA ea:ee06 cc=04 a=00 b=08 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee25: CARRY IS CLEAR, CHECK ANOTHER BIT
ee06| 1f TFR m:a8 cc=04 a=00 b=08 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=10 cc=00 a=00 b=10 dp=00 x=0014 y=0000 u=deab s=0332 | ........ | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=00 a=00 b=10 dp=00 x=0014 y=0000 u=deab s=0332 | ........ | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee15| 1f TFR m:8a cc=00 a=00 b=10 dp=00 x=0014 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=10 dp=00 x=0014 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=10 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=10 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=10 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:0 cc=04 a=00 b=10 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=04 a=00 b=10 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=04 a=00 b=10 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
ee25| 20 BRA ea:ee06 cc=04 a=00 b=10 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee25: CARRY IS CLEAR, CHECK ANOTHER BIT
ee06| 1f TFR m:a8 cc=04 a=00 b=10 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=20 cc=00 a=00 b=20 dp=00 x=0014 y=0000 u=deab s=0332 | ........ | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=00 a=00 b=20 dp=00 x=0014 y=0000 u=deab s=0332 | ........ | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee15| 1f TFR m:8a cc=00 a=00 b=20 dp=00 x=0014 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=20 dp=00 x=0014 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=20 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=20 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=20 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:0 cc=04 a=00 b=20 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=04 a=00 b=20 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=04 a=00 b=20 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
ee25| 20 BRA ea:ee06 cc=04 a=00 b=20 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee25: CARRY IS CLEAR, CHECK ANOTHER BIT
ee06| 1f TFR m:a8 cc=04 a=00 b=20 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=40 cc=00 a=00 b=40 dp=00 x=0014 y=0000 u=deab s=0332 | ........ | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=00 a=00 b=40 dp=00 x=0014 y=0000 u=deab s=0332 | ........ | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee15| 1f TFR m:8a cc=00 a=00 b=40 dp=00 x=0014 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=40 dp=00 x=0014 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=40 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=40 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=40 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:0 cc=04 a=00 b=40 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=04 a=00 b=40 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=04 a=00 b=40 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
ee25| 20 BRA ea:ee06 cc=04 a=00 b=40 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee25: CARRY IS CLEAR, CHECK ANOTHER BIT
ee06| 1f TFR m:a8 cc=04 a=00 b=40 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=80 cc=0a a=00 b=80 dp=00 x=0014 y=0000 u=deab s=0332 | ....N.V. | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=0a a=00 b=80 dp=00 x=0014 y=0000 u=deab s=0332 | ....N.V. | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee15| 1f TFR m:8a cc=00 a=00 b=80 dp=00 x=0014 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=80 dp=00 x=0014 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=80 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=80 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=80 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:0 cc=04 a=00 b=80 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=04 a=00 b=80 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=04 a=00 b=80 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
ee25| 20 BRA ea:ee06 cc=04 a=00 b=80 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee25: CARRY IS CLEAR, CHECK ANOTHER BIT
ee06| 1f TFR m:a8 cc=04 a=00 b=80 dp=00 x=0014 y=0000 u=deab s=0332 | .....Z.. | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=00 cc=07 a=00 b=00 dp=00 x=0014 y=0000 u=deab s=0332 | .....ZVC | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=07 a=00 b=00 dp=00 x=0014 y=0000 u=deab s=0332 | .....ZVC | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee0b| e7 STB B=00 ea:0014 cc=05 a=00 b=00 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.C | $ee0b: SAVE TEMPORARY QUOTIENT
ee0d| 0a DEC ea:0003 m:3 cc=01 a=00 b=00 dp=00 x=0015 y=0000 u=deab s=0332 | .......C | $ee0d: DECREMENT BYTE COUNTER
ee0f| 2b BMI ea:ee45 cc=01 a=00 b=00 dp=00 x=0015 y=0000 u=deab s=0332 | .......C | $ee0f: BRANCH IF DONE
ee11| 27 BEQ ea:ee41 cc=01 a=00 b=00 dp=00 x=0015 y=0000 u=deab s=0332 | .......C | $ee11: BRANCH IF LAST BYTE
ee13| c6 LDB B=01 m:1 cc=01 a=00 b=01 dp=00 x=0015 y=0000 u=deab s=0332 | .......C | $ee13: RESET SHIFT COUNTER AND TEMPORARY QUOTIENT BYTE
ee15| 1f TFR m:8a cc=00 a=00 b=01 dp=00 x=0015 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=01 dp=00 x=0015 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=01 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=01 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=01 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:0 cc=04 a=00 b=01 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=04 a=00 b=01 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=04 a=00 b=01 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
ee25| 20 BRA ea:ee06 cc=04 a=00 b=01 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee25: CARRY IS CLEAR, CHECK ANOTHER BIT
ee06| 1f TFR m:a8 cc=04 a=00 b=01 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=02 cc=00 a=00 b=02 dp=00 x=0015 y=0000 u=deab s=0332 | ........ | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=00 a=00 b=02 dp=00 x=0015 y=0000 u=deab s=0332 | ........ | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee15| 1f TFR m:8a cc=00 a=00 b=02 dp=00 x=0015 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=02 dp=00 x=0015 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=02 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=02 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=02 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:0 cc=04 a=00 b=02 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=04 a=00 b=02 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=04 a=00 b=02 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
ee25| 20 BRA ea:ee06 cc=04 a=00 b=02 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee25: CARRY IS CLEAR, CHECK ANOTHER BIT
ee06| 1f TFR m:a8 cc=04 a=00 b=02 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=04 cc=00 a=00 b=04 dp=00 x=0015 y=0000 u=deab s=0332 | ........ | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=00 a=00 b=04 dp=00 x=0015 y=0000 u=deab s=0332 | ........ | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee15| 1f TFR m:8a cc=00 a=00 b=04 dp=00 x=0015 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=04 dp=00 x=0015 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=04 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=04 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=04 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:0 cc=04 a=00 b=04 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=04 a=00 b=04 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=04 a=00 b=04 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
ee25| 20 BRA ea:ee06 cc=04 a=00 b=04 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee25: CARRY IS CLEAR, CHECK ANOTHER BIT
ee06| 1f TFR m:a8 cc=04 a=00 b=04 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=08 cc=00 a=00 b=08 dp=00 x=0015 y=0000 u=deab s=0332 | ........ | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=00 a=00 b=08 dp=00 x=0015 y=0000 u=deab s=0332 | ........ | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee15| 1f TFR m:8a cc=00 a=00 b=08 dp=00 x=0015 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=08 dp=00 x=0015 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=08 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=08 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=08 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:0 cc=04 a=00 b=08 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=04 a=00 b=08 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=04 a=00 b=08 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
ee25| 20 BRA ea:ee06 cc=04 a=00 b=08 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee25: CARRY IS CLEAR, CHECK ANOTHER BIT
ee06| 1f TFR m:a8 cc=04 a=00 b=08 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=10 cc=00 a=00 b=10 dp=00 x=0015 y=0000 u=deab s=0332 | ........ | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=00 a=00 b=10 dp=00 x=0015 y=0000 u=deab s=0332 | ........ | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee15| 1f TFR m:8a cc=00 a=00 b=10 dp=00 x=0015 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=10 dp=00 x=0015 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=10 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=10 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=10 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:0 cc=04 a=00 b=10 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=04 a=00 b=10 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=04 a=00 b=10 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
ee25| 20 BRA ea:ee06 cc=04 a=00 b=10 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee25: CARRY IS CLEAR, CHECK ANOTHER BIT
ee06| 1f TFR m:a8 cc=04 a=00 b=10 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=20 cc=00 a=00 b=20 dp=00 x=0015 y=0000 u=deab s=0332 | ........ | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=00 a=00 b=20 dp=00 x=0015 y=0000 u=deab s=0332 | ........ | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee15| 1f TFR m:8a cc=00 a=00 b=20 dp=00 x=0015 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=20 dp=00 x=0015 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=20 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=20 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=20 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:0 cc=04 a=00 b=20 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=04 a=00 b=20 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=04 a=00 b=20 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
ee25| 20 BRA ea:ee06 cc=04 a=00 b=20 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee25: CARRY IS CLEAR, CHECK ANOTHER BIT
ee06| 1f TFR m:a8 cc=04 a=00 b=20 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=40 cc=00 a=00 b=40 dp=00 x=0015 y=0000 u=deab s=0332 | ........ | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=00 a=00 b=40 dp=00 x=0015 y=0000 u=deab s=0332 | ........ | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee15| 1f TFR m:8a cc=00 a=00 b=40 dp=00 x=0015 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=40 dp=00 x=0015 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=40 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=40 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=40 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:0 cc=04 a=00 b=40 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=04 a=00 b=40 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=04 a=00 b=40 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
ee25| 20 BRA ea:ee06 cc=04 a=00 b=40 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee25: CARRY IS CLEAR, CHECK ANOTHER BIT
ee06| 1f TFR m:a8 cc=04 a=00 b=40 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=80 cc=0a a=00 b=80 dp=00 x=0015 y=0000 u=deab s=0332 | ....N.V. | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=0a a=00 b=80 dp=00 x=0015 y=0000 u=deab s=0332 | ....N.V. | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee15| 1f TFR m:8a cc=00 a=00 b=80 dp=00 x=0015 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=80 dp=00 x=0015 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=80 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=80 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=80 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:0 cc=04 a=00 b=80 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=04 a=00 b=80 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=04 a=00 b=80 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
ee25| 20 BRA ea:ee06 cc=04 a=00 b=80 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee25: CARRY IS CLEAR, CHECK ANOTHER BIT
ee06| 1f TFR m:a8 cc=04 a=00 b=80 dp=00 x=0015 y=0000 u=deab s=0332 | .....Z.. | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=00 cc=07 a=00 b=00 dp=00 x=0015 y=0000 u=deab s=0332 | .....ZVC | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=07 a=00 b=00 dp=00 x=0015 y=0000 u=deab s=0332 | .....ZVC | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee0b| e7 STB B=00 ea:0015 cc=05 a=00 b=00 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.C | $ee0b: SAVE TEMPORARY QUOTIENT
ee0d| 0a DEC ea:0003 m:2 cc=01 a=00 b=00 dp=00 x=0016 y=0000 u=deab s=0332 | .......C | $ee0d: DECREMENT BYTE COUNTER
ee0f| 2b BMI ea:ee45 cc=01 a=00 b=00 dp=00 x=0016 y=0000 u=deab s=0332 | .......C | $ee0f: BRANCH IF DONE
ee11| 27 BEQ ea:ee41 cc=01 a=00 b=00 dp=00 x=0016 y=0000 u=deab s=0332 | .......C | $ee11: BRANCH IF LAST BYTE
ee13| c6 LDB B=01 m:1 cc=01 a=00 b=01 dp=00 x=0016 y=0000 u=deab s=0332 | .......C | $ee13: RESET SHIFT COUNTER AND TEMPORARY QUOTIENT BYTE
ee15| 1f TFR m:8a cc=00 a=00 b=01 dp=00 x=0016 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=01 dp=00 x=0016 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=01 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=01 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=01 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:0 cc=04 a=00 b=01 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=04 a=00 b=01 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=04 a=00 b=01 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
ee25| 20 BRA ea:ee06 cc=04 a=00 b=01 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee25: CARRY IS CLEAR, CHECK ANOTHER BIT
ee06| 1f TFR m:a8 cc=04 a=00 b=01 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=02 cc=00 a=00 b=02 dp=00 x=0016 y=0000 u=deab s=0332 | ........ | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=00 a=00 b=02 dp=00 x=0016 y=0000 u=deab s=0332 | ........ | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee15| 1f TFR m:8a cc=00 a=00 b=02 dp=00 x=0016 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=02 dp=00 x=0016 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=02 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=02 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=02 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:0 cc=04 a=00 b=02 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=04 a=00 b=02 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=04 a=00 b=02 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
ee25| 20 BRA ea:ee06 cc=04 a=00 b=02 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee25: CARRY IS CLEAR, CHECK ANOTHER BIT
ee06| 1f TFR m:a8 cc=04 a=00 b=02 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=04 cc=00 a=00 b=04 dp=00 x=0016 y=0000 u=deab s=0332 | ........ | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=00 a=00 b=04 dp=00 x=0016 y=0000 u=deab s=0332 | ........ | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee15| 1f TFR m:8a cc=00 a=00 b=04 dp=00 x=0016 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=04 dp=00 x=0016 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=04 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=04 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=04 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:0 cc=04 a=00 b=04 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=04 a=00 b=04 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=04 a=00 b=04 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
ee25| 20 BRA ea:ee06 cc=04 a=00 b=04 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee25: CARRY IS CLEAR, CHECK ANOTHER BIT
ee06| 1f TFR m:a8 cc=04 a=00 b=04 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=08 cc=00 a=00 b=08 dp=00 x=0016 y=0000 u=deab s=0332 | ........ | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=00 a=00 b=08 dp=00 x=0016 y=0000 u=deab s=0332 | ........ | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee15| 1f TFR m:8a cc=00 a=00 b=08 dp=00 x=0016 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=08 dp=00 x=0016 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=08 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=08 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=08 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:0 cc=04 a=00 b=08 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=04 a=00 b=08 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=04 a=00 b=08 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
ee25| 20 BRA ea:ee06 cc=04 a=00 b=08 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee25: CARRY IS CLEAR, CHECK ANOTHER BIT
ee06| 1f TFR m:a8 cc=04 a=00 b=08 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=10 cc=00 a=00 b=10 dp=00 x=0016 y=0000 u=deab s=0332 | ........ | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=00 a=00 b=10 dp=00 x=0016 y=0000 u=deab s=0332 | ........ | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee15| 1f TFR m:8a cc=00 a=00 b=10 dp=00 x=0016 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=10 dp=00 x=0016 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=10 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=10 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=10 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:0 cc=04 a=00 b=10 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=04 a=00 b=10 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=04 a=00 b=10 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
ee25| 20 BRA ea:ee06 cc=04 a=00 b=10 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee25: CARRY IS CLEAR, CHECK ANOTHER BIT
ee06| 1f TFR m:a8 cc=04 a=00 b=10 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=20 cc=00 a=00 b=20 dp=00 x=0016 y=0000 u=deab s=0332 | ........ | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=00 a=00 b=20 dp=00 x=0016 y=0000 u=deab s=0332 | ........ | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee15| 1f TFR m:8a cc=00 a=00 b=20 dp=00 x=0016 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=20 dp=00 x=0016 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=20 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=20 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=20 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:0 cc=04 a=00 b=20 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=04 a=00 b=20 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=04 a=00 b=20 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
ee25| 20 BRA ea:ee06 cc=04 a=00 b=20 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee25: CARRY IS CLEAR, CHECK ANOTHER BIT
ee06| 1f TFR m:a8 cc=04 a=00 b=20 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=40 cc=00 a=00 b=40 dp=00 x=0016 y=0000 u=deab s=0332 | ........ | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=00 a=00 b=40 dp=00 x=0016 y=0000 u=deab s=0332 | ........ | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee15| 1f TFR m:8a cc=00 a=00 b=40 dp=00 x=0016 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=40 dp=00 x=0016 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=40 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=40 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=40 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:0 cc=04 a=00 b=40 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=04 a=00 b=40 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=04 a=00 b=40 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
ee25| 20 BRA ea:ee06 cc=04 a=00 b=40 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee25: CARRY IS CLEAR, CHECK ANOTHER BIT
ee06| 1f TFR m:a8 cc=04 a=00 b=40 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=80 cc=0a a=00 b=80 dp=00 x=0016 y=0000 u=deab s=0332 | ....N.V. | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=0a a=00 b=80 dp=00 x=0016 y=0000 u=deab s=0332 | ....N.V. | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee15| 1f TFR m:8a cc=00 a=00 b=80 dp=00 x=0016 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=80 dp=00 x=0016 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=80 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=80 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=80 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:0 cc=04 a=00 b=80 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=04 a=00 b=80 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=04 a=00 b=80 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
ee25| 20 BRA ea:ee06 cc=04 a=00 b=80 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee25: CARRY IS CLEAR, CHECK ANOTHER BIT
ee06| 1f TFR m:a8 cc=04 a=00 b=80 dp=00 x=0016 y=0000 u=deab s=0332 | .....Z.. | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=00 cc=07 a=00 b=00 dp=00 x=0016 y=0000 u=deab s=0332 | .....ZVC | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=07 a=00 b=00 dp=00 x=0016 y=0000 u=deab s=0332 | .....ZVC | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee0b| e7 STB B=00 ea:0016 cc=05 a=00 b=00 dp=00 x=0017 y=0000 u=deab s=0332 | .....Z.C | $ee0b: SAVE TEMPORARY QUOTIENT
ee0d| 0a DEC ea:0003 m:1 cc=05 a=00 b=00 dp=00 x=0017 y=0000 u=deab s=0332 | .....Z.C | $ee0d: DECREMENT BYTE COUNTER
ee0f| 2b BMI ea:ee45 cc=05 a=00 b=00 dp=00 x=0017 y=0000 u=deab s=0332 | .....Z.C | $ee0f: BRANCH IF DONE
ee11| 27 BEQ ea:ee41 cc=05 a=00 b=00 dp=00 x=0017 y=0000 u=deab s=0332 | .....Z.C | $ee11: BRANCH IF LAST BYTE
ee41| c6 LDB B=40 m:40 cc=01 a=00 b=40 dp=00 x=0017 y=0000 u=deab s=0332 | .......C | $ee41: USE ONLY TWO BITS OF THE LAST BYTE (FIFTH)
ee43| 20 BRA ea:ee15 cc=01 a=00 b=40 dp=00 x=0017 y=0000 u=deab s=0332 | .......C | $ee43: GO SHIFT THE LAST BYTE
ee15| 1f TFR m:8a cc=00 a=00 b=40 dp=00 x=0017 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=40 dp=00 x=0017 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=40 dp=00 x=0017 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=40 dp=00 x=0017 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=40 dp=00 x=0017 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:0 cc=04 a=00 b=40 dp=00 x=0017 y=0000 u=deab s=0332 | .....Z.. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=04 a=00 b=40 dp=00 x=0017 y=0000 u=deab s=0332 | .....Z.. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=04 a=00 b=40 dp=00 x=0017 y=0000 u=deab s=0332 | .....Z.. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
ee25| 20 BRA ea:ee06 cc=04 a=00 b=40 dp=00 x=0017 y=0000 u=deab s=0332 | .....Z.. | $ee25: CARRY IS CLEAR, CHECK ANOTHER BIT
ee06| 1f TFR m:a8 cc=04 a=00 b=40 dp=00 x=0017 y=0000 u=deab s=0332 | .....Z.. | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=80 cc=0a a=00 b=80 dp=00 x=0017 y=0000 u=deab s=0332 | ....N.V. | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=0a a=00 b=80 dp=00 x=0017 y=0000 u=deab s=0332 | ....N.V. | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee15| 1f TFR m:8a cc=00 a=00 b=80 dp=00 x=0017 y=0000 u=deab s=0332 | ........ | $ee15: RESTORE CARRY FLAG AND
ee17| 25 BLO ea:ee27 cc=00 a=00 b=80 dp=00 x=0017 y=0000 u=deab s=0332 | ........ | $ee17: BRANCH IF FPA0 =< FPA1
ee19| 08 LSL ea:0060 m:0 cc=04 a=00 b=80 dp=00 x=0017 y=0000 u=deab s=0332 | .....Z.. | $ee19: * SHIFT FPA1 MANTISSA 1 BIT TO LEFT
ee1b| 09 ROL ea:005f m:0 cc=04 a=00 b=80 dp=00 x=0017 y=0000 u=deab s=0332 | .....Z.. | $ee1b: $db00-$ffff - BASIC Interpreter
ee1d| 09 ROL ea:005e m:0 cc=04 a=00 b=80 dp=00 x=0017 y=0000 u=deab s=0332 | .....Z.. | $ee1d: $db00-$ffff - BASIC Interpreter
ee1f| 09 ROL ea:005d m:0 cc=04 a=00 b=80 dp=00 x=0017 y=0000 u=deab s=0332 | .....Z.. | $ee1f: $db00-$ffff - BASIC Interpreter
ee21| 25 BLO ea:ee06 cc=04 a=00 b=80 dp=00 x=0017 y=0000 u=deab s=0332 | .....Z.. | $ee21: BRANCH IF CARRY - ADD ONE TO PARTIAL QUOTIENT
ee23| 2b BMI ea:eded cc=04 a=00 b=80 dp=00 x=0017 y=0000 u=deab s=0332 | .....Z.. | $ee23: IF MSB OF HIGH ORDER MANTISSA BYTE IS
ee25| 20 BRA ea:ee06 cc=04 a=00 b=80 dp=00 x=0017 y=0000 u=deab s=0332 | .....Z.. | $ee25: CARRY IS CLEAR, CHECK ANOTHER BIT
ee06| 1f TFR m:a8 cc=04 a=00 b=80 dp=00 x=0017 y=0000 u=deab s=0332 | .....Z.. | $ee06: SAVE CARRY FLAG STATUS IN ACCA; CARRY
ee08| 59 ROLB B=00 cc=07 a=00 b=00 dp=00 x=0017 y=0000 u=deab s=0332 | .....ZVC | $ee08: ROTATE CARRY INTO TEMPORARY QUOTIENT BYTE
ee09| 24 BCC ea:ee15 cc=07 a=00 b=00 dp=00 x=0017 y=0000 u=deab s=0332 | .....ZVC | $ee09: CARRY WILL BE SET AFTER 8 SHIFTS
ee0b| e7 STB B=00 ea:0017 cc=05 a=00 b=00 dp=00 x=0018 y=0000 u=deab s=0332 | .....Z.C | $ee0b: SAVE TEMPORARY QUOTIENT
ee0d| 0a DEC ea:0003 m:0 cc=09 a=00 b=00 dp=00 x=0018 y=0000 u=deab s=0332 | ....N..C | $ee0d: DECREMENT BYTE COUNTER
ee0f| 2b BMI ea:ee45 cc=09 a=00 b=00 dp=00 x=0018 y=0000 u=deab s=0332 | ....N..C | $ee0f: BRANCH IF DONE
ee45| 56 RORB B=80 cc=08 a=00 b=80 dp=00 x=0018 y=0000 u=deab s=0332 | ....N... | $ee45: CARRY (ALWAYS SET HERE) INTO
ee46| 56 RORB B=40 cc=00 a=00 b=40 dp=00 x=0018 y=0000 u=deab s=0332 | ........ | $ee46: AND MOVE
ee47| 56 RORB B=20 cc=00 a=00 b=20 dp=00 x=0018 y=0000 u=deab s=0332 | ........ | $ee47: 1,0 TO BITS 7,6
ee48| d7 STB B=20 ea:0063 cc=00 a=00 b=20 dp=00 x=0018 y=0000 u=deab s=0332 | ........ | $ee48: SAVE SUB BYTE
ee4a| 8d BSR ea:ee54 cc=00 a=00 b=20 dp=00 x=0018 y=0000 u=deab s=0330 | ........ | $ee4a: MOVE MANTISSA OF FPA2 TO FPA0
ee54| 9e LDX X=d000 m:d000 cc=08 a=00 b=20 dp=00 x=d000 y=0000 u=deab s=0330 | ....N... | $ee54: * MOVE TOP 2 BYTES
ee56| 9f STX X=d000 ea:0050 cc=08 a=00 b=20 dp=00 x=d000 y=0000 u=deab s=0330 | ....N... | $ee56: $db00-$ffff - BASIC Interpreter
ee58| 9e LDX X=0000 m:0 cc=04 a=00 b=20 dp=00 x=0000 y=0000 u=deab s=0330 | .....Z.. | $ee58: = MOVE BOTTOM 2 BYTES
ee5a| 9f STX X=0000 ea:0052 cc=04 a=00 b=20 dp=00 x=0000 y=0000 u=deab s=0330 | .....Z.. | $ee5a: =
ee5c| 39 RTS cc=04 a=00 b=20 dp=00 x=0000 y=0000 u=deab s=0332 | .....Z.. | $ee5c: $db00-$ffff - BASIC Interpreter
ee4c| 7e JMP ea:ec65 cc=04 a=00 b=20 dp=00 x=0000 y=0000 u=deab s=0332 | .....Z.. | $ee4c: NORMALIZE FPA0
ec65| 5f CLRB B=00 cc=04 a=00 b=00 dp=00 x=0000 y=0000 u=deab s=0332 | .....Z.. | $ec65: CLEAR TEMPORARY EXPONENT ACCUMULATOR
ec66| 96 LDA A=d0 m:d0 cc=08 a=d0 b=00 dp=00 x=0000 y=0000 u=deab s=0332 | ....N... | $ec66: TEST MSB OF MANTISSA
ec68| 26 BNE ea:ec98 cc=08 a=d0 b=00 dp=00 x=0000 y=0000 u=deab s=0332 | ....N... | $ec68: BRANCH IF <> 0
ec98| 2a BPL ea:ec8d cc=08 a=d0 b=00 dp=00 x=0000 y=0000 u=deab s=0332 | ....N... | $ec98: BRANCH IF NOT YET NORMALIZED
ec9a| 96 LDA A=80 m:80 cc=08 a=80 b=00 dp=00 x=0000 y=0000 u=deab s=0332 | ....N... | $ec9a: GET CURRENT EXPONENT
ec9c| 34 PSHS S=0331 m:4 cc=08 a=80 b=00 dp=00 x=0000 y=0000 u=deab s=0331 | ....N... | $ec9c: SAVE EXPONENT MODIFIER CAUSED BY NORMALIZATION
ec9e| a0 SUBA A=80 m:0 cc=08 a=80 b=00 dp=00 x=0000 y=0000 u=deab s=0332 | ....N... | $ec9e: SUBTRACT ACCUMULATED EXPONENT MODIFIER
eca0| 97 STA A=80 ea:004f cc=08 a=80 b=00 dp=00 x=0000 y=0000 u=deab s=0332 | ....N... | $eca0: SAVE AS NEW EXPONENT
eca2| 23 BLS ea:ec82 cc=08 a=80 b=00 dp=00 x=0000 y=0000 u=deab s=0332 | ....N... | $eca2: SET FPA0 = 0 IF THE NORMALIZATION CAUSED
$eca7 CMP16 X $0 - $2508 = $-2508
eca4| 8c CMPX X=0000 m:2508 cc=09 a=80 b=00 dp=00 x=0000 y=0000 u=deab s=0332 | ....N..C | $eca4: SKIP 2 BYTES
eca7| 08 LSL ea:0063 m:20 cc=00 a=80 b=00 dp=00 x=0000 y=0000 u=deab s=0332 | ........ | $eca7: SUB BYTE BIT 7 TO CARRY - USE AS ROUND-OFF
eca9| 86 LDA A=00 m:0 cc=04 a=00 b=00 dp=00 x=0000 y=0000 u=deab s=0332 | .....Z.. | $eca9: CLRA, BUT DO NOT CHANGE CARRY FLAG
ecab| 97 STA A=00 ea:0063 cc=04 a=00 b=00 dp=00 x=0000 y=0000 u=deab s=0332 | .....Z.. | $ecab: CLEAR THE SUB BYTE
ecad| 20 BRA ea:ecbb cc=04 a=00 b=00 dp=00 x=0000 y=0000 u=deab s=0332 | .....Z.. | $ecad: GO ROUND-OFF RESULT
ecbb| 24 BCC ea:ecc1 cc=04 a=00 b=00 dp=00 x=0000 y=0000 u=deab s=0332 | .....Z.. | $ecbb: BRANCH IF NO ROUND-OFF NEEDED
ecc1| 39 RTS cc=04 a=00 b=00 dp=00 x=0000 y=0000 u=deab s=0334 | .....Z.. | $ecc1: $db00-$ffff - BASIC Interpreter
Memory dump from $004f to $0054:
$004f: $80 (dez: 128) | $4f: *PV FLOATING POINT ACCUMULATOR #0 FPA0 EXPONENT
$0050: $d0 (dez: 208) | $50: *PV FLOAT.ACCU #0 FPA0 MANTISSA MS Most Significant Byte
$0051: $00 (dez: 0) | $51: *PV FLOAT.ACCU #0 FPA0 MANTISSA NMS Next Most Significant Byte
$0052: $00 (dez: 0) | $52: *PV FLOAT.ACCU #0 FPA0 MANTISSA NLS Next Least Significant Byte
$0053: $00 (dez: 0) | $53: *PV FLOAT.ACCU #0 FPA0 MANTISSA LS Least Significant Byte
$0054: $00 (dez: 0) | $54: *PV FLOATING POINT ACCUMULATOR #0 FPA0 SIGN
Memory dump from $005c to $0062:
$005c: $83 (dez: 131) | $5c: *PV FLOATING POINT ACCUMULATOR #1 FPA0 EXPONENT
$005d: $00 (dez: 0) | $5d: *PV FLOAT.ACCU #1 FPA0 MANTISSA MS Most Significant Byte
$005e: $00 (dez: 0) | $5e: *PV FLOAT.ACCU #1 FPA0 MANTISSA NMS Next Most Significant Byte
$005f: $00 (dez: 0) | $5f: *PV FLOAT.ACCU #1 FPA0 MANTISSA NLS Next Least Significant Byte
$0060: $00 (dez: 0) | $60: *PV FLOAT.ACCU #1 FPA0 MANTISSA LS Least Significant Byte
$0061: $00 (dez: 0) | $61: *PV FLOATING POINT ACCUMULATOR #1 FPA0 SIGN
$0062: $00 (dez: 0) | $62: SIGN OF RESULT OF FLOATING POINT OPERATION
Float value was: 5
exponent......: dez.: 3 hex: $03
exponent byte.: dez.: 131 hex: $83
mantissa value: dez.: 0.625
mantissa bytes: dez.: [160, 0, 0, 0] hex: $a0, $00, $00, $00
matissa-sign..: hex: $00
binary........: hex: $83, $a0, $00, $00, $00, $00
exponent | mantissa | mantissa-sign
10000011 10100000 00000000 00000000 00000000 00000000
Float value was: 10
exponent......: dez.: 4 hex: $04
exponent byte.: dez.: 132 hex: $84
mantissa value: dez.: 0.625
mantissa bytes: dez.: [160, 0, 0, 0] hex: $a0, $00, $00, $00
matissa-sign..: hex: $00
binary........: hex: $84, $a0, $00, $00, $00, $00
exponent | mantissa | mantissa-sign
10000100 10100000 00000000 00000000 00000000 00000000
Float value was: 0.5
exponent......: dez.: 0 hex: $00
exponent byte.: dez.: 128 hex: $80
mantissa value: dez.: 0.5
mantissa bytes: dez.: [128, 0, 0, 0] hex: $80, $00, $00, $00
matissa-sign..: hex: $00
binary........: hex: $80, $80, $00, $00, $00, $00
exponent | mantissa | mantissa-sign
10000000 10000000 00000000 00000000 00000000 00000000
OK
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment