0000 FLTPT IDTProgram Identifier
Directive that affects the Assembler output

[<label>] b IDT b '<string>' b [<comment>]
 

0000 TITLPage Title
Directive that affects the Assembler output

[<label>] b TITL b '<string>' b [<comment>]
 'T.I. 99/4A FLOATING POINT & CASSETTE'Character String operand 

0000 *

0000 * HIGH ROM >0FF4 TO >1FFF

0000 *

0000 *

0000 * MEMORY ALLOCATION:

0000 * 0 - >1FFF       INTERNAL ROM

0000 * >2000 - >3FFF   MEMORY EXPANSION PERIPHERAL

0000 * >4000 - >5FFF   PERIPHERAL EXPANSION ( DECODED TO I/O CON)

0000 * >6000 - >7FFF   CARTRIDGE ROM/RAM (GROM CONNECTOR)

0000 * >8000 - >83FF   INTERNAL RAM (ONLY 8300 - 83FF USED)

0000 * >8300 - >83FF   SCRATCH PAD RAM

0000 * >8400           SOUND

0000 * >8800           VDP READ DATA

0000 * >8802           VDP READ STATUS

0000 * >8C00           VDP WRITE DATA

0000 * >8C02           VDP WRITE ADDRESS

0000 * >9000           SPEECH READ

0000 * >9400           SPEECH WRITE

0000 * >9800           GROM READ DATA

0000 * >9802           GROM READ ADDRESS

0000 * >9C00           GROM WRITE DATA

0000 * >9C02           GROM WRITE ADDRESS

0000 * >A000 - >FFFF   MEMORY EXPANSION PERIPHERAL

0000 *

0000 * CRU ALLOCATION

0000 * 0000-0FFE INTERNAL USE

0000 * 1000-10FE UNASSIGNED

0000 * 1100-11FE DISK CONTROLLER CARD

0000 * 1200-12FE MODEMS

0000 * 1300-13FE RS232 (PRIMARY)

0000 * 1400-14FE UNASSIGNED

0000 * 1500-15FE RS232 (SECONDARY)

0000 * 1600-16FE UNASSIGNED

0000 * 1700-17FE HEX-BUS

0000 * 1800-18FE THERMAL PRINTER

0000 * 1900-19FE EPROM PROGRAMMER

0000 * 1A00-1BFE UNASSIGNED

0000 * 1C00-1CFE VIDEO CONTROLLER CARD

0000 * 1D00-1DFE IEE 488 CONTROLLER CARD

0000 * 1E00-1EFE UNASSIGNED

0000 * 1F00-1FFE P-CODE CARD

0000 *

0000 * 9901 CRU BIT ALLOCATIONS

0000 * 0    CONTROL

0000 * 1    EXTERNAL INTERRUPT

0000 * 2    VDP VERT. SYNC INTERRUPT

0000 * 3    9901 INTERNAL TIMER INTERRUPT

0000 *      KEYBOARD '=' LINE

0000 *      JOYSTICK 'FIRE'

0000 * 4    KEYBOARD 'SPACE' LINE

0000 *      JOYSTICK 'LEFT'

0000 * 5    KEYBOARD 'ENTER' LINE

0000 *      JOYSTICK 'RIGHT'

0000 * 6    KEYBOARD '0' LINE

0000 *      JOYSTICK 'DOWN'

0000 * 7    KEYBOARD 'FCTN' LINE

0000 *      JOYSTICK 'UP'

0000 * 8    KEYBOARD 'SHIFT' LINE

0000 * 9    KEYBOARD 'CTRL' LINE

0000 * 10   KEYBOARD 'Z' LINE

0000 * 11   NOT USED AS INTERRUPT

0000 * 12   RESERVED, HIGH LEVEL

0000 * 13-15 NOT USED AS INTERRUPT

0000 *

0000 * 16   RESERVED

0000 * 17   RESERVED

0000 * 18   BIT 2 OF KEYBOARD SELECT

0000 * 19   BIT 1 OF KEYBOARD SELECT

0000 * 20   BIT 0 (MSB) OF KEYBOARD SELECT

0000 * 21   KEYBOARD ALPHA LOCK

0000 * 22   CASSETTE CONTROL 1 (MOTOR CONTROL)

0000 * 23   CASSETTE CONTROL 2 (MOTOR CONTROL)

0000 * 24   AUDIO GATE

0000 * 25   MAG TAPE OUT

0000 * 26   RESERVED

0000 * 27   MAG TAPE INPUT

0000 * 28-31 NOT USED IN I/O MAPPING

0000 *

0000 *************************************

0000 *  DEFINITIONS FOR BASIC INTERPRETER

0000 *

0000 DEFExternal Definition
Directive that Links programs

[<label>] b DEF b <symbol>[,<symbol>]... b [<comment>]
 CSNGRSymbol operand,SADDSymbol operand,SCOMPBSymbol operand,SSUBSymbol operand,SDIVSymbol operand,CFISymbol operand,SMULTSymbol operand 

0000 *

0000 *  DEFINITIONS FOR GPL INTERPRETER

0000 *

0000 DEFExternal Definition
Directive that Links programs

[<label>] b DEF b <symbol>[,<symbol>]... b [<comment>]
 XTABSymbol operand,WRITESymbol operand,TIMERSymbol operand,VERIFYSymbol operand,READSymbol operand 

0000 *

0000 * REFERENCES INTO GPL ROM FROM FPT ROM

0000 *

0000 HX0020 EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 S+>0032Expression operand
Definition: S+>0032
Results to: >0032

Symbol S is defined at location >0000
Symbol S is defined as 0
 

0000 NEXT EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 S+>0070Expression operand
Definition: S+>0070
Results to: >0070

Symbol S is defined at location >0000
Symbol S is defined as 0
 

0000 SROM EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 S+>0AC0Expression operand
Definition: S+>0AC0
Results to: >0AC0

Symbol S is defined at location >0000
Symbol S is defined as 0
 

0000 SGROM EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 S+>0B24Expression operand
Definition: S+>0B24
Results to: >0B24

Symbol S is defined at location >0000
Symbol S is defined as 0
 

0000 *

0000 * REFERENCES INTO BASIC ROM FROM FPT ROM

0000 *

0000 SYMB EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 S+>1648Expression operand
Definition: S+>1648
Results to: >1648

Symbol S is defined at location >0000
Symbol S is defined as 0
 

0000 SMBB EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 S+>164EExpression operand
Definition: S+>164E
Results to: >164E

Symbol S is defined at location >0000
Symbol S is defined as 0
 

0000 ASSGNV EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 S+>1642Expression operand
Definition: S+>1642
Results to: >1642

Symbol S is defined at location >0000
Symbol S is defined as 0
 

0000 FBSYMB EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 S+>15D6Expression operand
Definition: S+>15D6
Results to: >15D6

Symbol S is defined at location >0000
Symbol S is defined as 0
 

0000 VPUSHG EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 S+>163CExpression operand
Definition: S+>163C
Results to: >163C

Symbol S is defined at location >0000
Symbol S is defined as 0
 

0000 VPOP EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 S+>1F2EExpression operand
Definition: S+>1F2E
Results to: >1F2E

Symbol S is defined at location >0000
Symbol S is defined as 0
 

0000 PGMCH EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 S+>1868Expression operand
Definition: S+>1868
Results to: >1868

Symbol S is defined at location >0000
Symbol S is defined as 0
 

0000 POPSTK EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 S+>1FA8Expression operand
Definition: S+>1FA8
Results to: >1FA8

Symbol S is defined at location >0000
Symbol S is defined as 0
 

0000 GETCH EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 S+>1FC8Expression operand
Definition: S+>1FC8
Results to: >1FC8

Symbol S is defined at location >0000
Symbol S is defined as 0
 

0000 GETCHG EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 S+>1FDAExpression operand
Definition: S+>1FDA
Results to: >1FDA

Symbol S is defined at location >0000
Symbol S is defined as 0
 

0000 *

0000 * EQUATES

0000 *

0000 VWDOFF EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 -2Expression operand VDP WRITE DATA OFFSET (FROM R15)

0000 GRAOFF EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 2Expression operand GROM READ ADDRESS OFFSET (FROM R13)

0000 GWDOFF EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 >400Expression operand GROM WRITE DATA OFFSET (FROM R13)

0000 VRSOFF EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 ->400Expression operand VDP READ STATUS OFFSET (FROM R15)

0000 GWAOFF EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 >402Expression operand WRITE ADDRESS OFFSET(FROM R13)

0000 VRDOFF EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 ->402Expression operand VDP READ DATA OFFSET (FROM R15)

0000 SGCADR EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 >8400Expression operand SOUND CHIP

0000 *

0000 * RAM EQUATES

0000 *

0000 PAD EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 >8300Expression operand 

0000 FAC EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 PAD+>4AExpression operand
Definition: PAD+>4A
Results to: >834A

Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 

0000 FDVSR EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 FAC+10Expression operand
Definition: FAC+10
Results to: >8354

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 DIVISOR STORE DURING DIVISION

0000 ARG EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 PAD+>5CExpression operand
Definition: PAD+>5C
Results to: >835C

Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 

0000 PLAYER EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 PAD+>74Expression operand
Definition: PAD+>74
Results to: >8374

Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 

0000 SIGN EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 PAD+>75Expression operand
Definition: PAD+>75
Results to: >8375

Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 

0000 EXP EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 PAD+>76Expression operand
Definition: PAD+>76
Results to: >8376

Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 

0000 STATUS EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 PAD+>7CExpression operand
Definition: PAD+>7C
Results to: >837C

Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 

0000 ERRCD EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 STATUSExpression operand
Definition: STATUS
Results to: >837C

Symbol STATUS is defined at location >0000
Symbol STATUS is defined as PAD+>7C
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 

0000 GROMFG EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 PAD+>89Expression operand
Definition: PAD+>89
Results to: >8389

Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 

0000 *

0000 WKSC EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 PAD+>C0Expression operand
Definition: PAD+>C0
Results to: >83C0

Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 INT. 1 WORKSPACE

0000 WKSE EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 PAD+>E0Expression operand
Definition: PAD+>E0
Results to: >83E0

Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 MAIN WORKSPACE

0000 R0LSB EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 WKSE+R0+R0+1Expression operand
Definition: WKSE+R0+R0+1
Results to: >83E1

Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R0 resolves to the Register number.
Register R0 resolves to the Register number.
 

0000 R1LSB EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 WKSE+R1+R1+1Expression operand
Definition: WKSE+R1+R1+1
Results to: >83E3

Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R1 resolves to the Register number.
Register R1 resolves to the Register number.
 

0000 R2LSB EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 WKSE+R2+R2+1Expression operand
Definition: WKSE+R2+R2+1
Results to: >83E5

Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R2 resolves to the Register number.
Register R2 resolves to the Register number.
 

0000 R3LSB EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 WKSE+R3+R3+1Expression operand
Definition: WKSE+R3+R3+1
Results to: >83E7

Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R3 resolves to the Register number.
Register R3 resolves to the Register number.
 

0000 R6LSB EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 WKSE+R6+R6+1Expression operand
Definition: WKSE+R6+R6+1
Results to: >83ED

Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R6 resolves to the Register number.
Register R6 resolves to the Register number.
 

0000 R7LSB EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 WKSE+R7+R7+1Expression operand
Definition: WKSE+R7+R7+1
Results to: >83EF

Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R7 resolves to the Register number.
Register R7 resolves to the Register number.
 

0000 R8LSB EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 WKSE+R8+R8+1Expression operand
Definition: WKSE+R8+R8+1
Results to: >83F1

Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R8 resolves to the Register number.
Register R8 resolves to the Register number.
 

0000 R9LSB EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 WKSE+R9+R9+1Expression operand
Definition: WKSE+R9+R9+1
Results to: >83F3

Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R9 resolves to the Register number.
Register R9 resolves to the Register number.
 

0000 R10LSB EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 WKSE+R10+R10+1Expression operand
Definition: WKSE+R10+R10+1
Results to: >83F5

Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R10 resolves to the Register number.
Register R10 resolves to the Register number.
 

0000 *

0000 VDPREG EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 >8000Expression operand 

0000 *

0000 GR EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 >9800Expression operand GROM READ (DATA)

0000 VRD EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 >8800Expression operand VDP READ DATA

0000 VRS EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 >8802Expression operand VDP READ STATUS

0000 VWD EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 >8C00Expression operand VDP WRITE DATA

0000 VWA EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 >8C02Expression operand VDP WRITE ADDRESS

0000 *

0000 * MISC. EQUATES

0000 HIBYTE EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 >0100Expression operand 

0000 OFERR EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 >0100Expression operand OVERFLOW ERROR CODE

0000 DZERR EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 >0200Expression operand DIVIDE BY ZERO ERROR CODE

0000 SGNBIT EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 >8000Expression operand 

0000 *

0000 S EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 0Expression operand 

0D1A AORGAbsolute Origin
Directive that affects the Location Counter

[<label>] b AORG b <wd-exp> b [<comment>]
 S+>0D1AExpression operand
Definition: S+>0D1A
Results to: >0D1A

Symbol S is defined at location >0000
Symbol S is defined as 0
 

0D1A *

0D1A FLTTAB DATAInitialize Word
Directive that initializes constants

[<label>] b DATA b <exp>[,<exp>]... b [<comment>]
 0Expression operand,ROUNDExpression operand
Definition: ROUND
Results to: >0F54

Symbol ROUND is a pointer to location >0F54
,ROUNUExpression operand
Definition: ROUNU
Results to: >0FB2

Symbol ROUNU is a pointer to location >0FB2
,STEXITExpression operand
Definition: STEXIT
Results to: >0FA4

Symbol STEXIT is a pointer to location >0FA4
,OVEXPExpression operand
Definition: OVEXP
Results to: >0FC2

Symbol OVEXP is a pointer to location >0FC2
,OVExpression operand
Definition: OV
Results to: >0FCC

Symbol OV is a pointer to location >0FCC
,FADDExpression operand
Definition: FADD
Results to: >0D80

Symbol FADD is a pointer to location >0D80
,FSUBExpression operand
Definition: FSUB
Results to: >0D7C

Symbol FSUB is a pointer to location >0D7C
 

0D2A DATAInitialize Word
Directive that initializes constants

[<label>] b DATA b <exp>[,<exp>]... b [<comment>]
 FMULTExpression operand
Definition: FMULT
Results to: >0E88

Symbol FMULT is a pointer to location >0E88
,FDIVExpression operand
Definition: FDIV
Results to: >0FF4

Symbol FDIV is a pointer to location >0FF4
,FCOMPExpression operand
Definition: FCOMP
Results to: >0D3A

Symbol FCOMP is a pointer to location >0D3A
,SADDExpression operand
Definition: SADD
Results to: >0D84

Symbol SADD is a pointer to location >0D84
,SSUBExpression operand
Definition: SSUB
Results to: >0D74

Symbol SSUB is a pointer to location >0D74
,SMULTExpression operand
Definition: SMULT
Results to: >0E8C

Symbol SMULT is a pointer to location >0E8C
,SDIVExpression operand
Definition: SDIV
Results to: >0FF8

Symbol SDIV is a pointer to location >0FF8
,SCOMPExpression operand
Definition: SCOMP
Results to: >0D46

Symbol SCOMP is a pointer to location >0D46
 

0D3A *

0D3A * FLOATING COMPARE

0D3A *

0D3A * = BR TABLE

0D3A FCOMP MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R11Workspace Register operand,R10Workspace Register operand 

0D3C LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R3Workspace Register operand,STEX01Immediate Value operand
Definition: STEX01
Results to: >0FAA

Symbol STEX01 is a pointer to location >0FAA
 LOAD EXIT FOR GPL COMPARE

0D40 JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 FCOMP1Expression operand
Definition: FCOMP1
Results to: >0D50

Symbol FCOMP1 is a pointer to location >0D50
 

0D42 *

0D42 * STACK COMPARE ENTRY FOR BASIC

0D42 *

0D42 * = BL

0D42 SCOMPB MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R11Workspace Register operand,R3Workspace Register operand DON'T USE STEX01 FOR BASIC

0D44 JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 SCOMP1Expression operand
Definition: SCOMP1
Results to: >0D4C

Symbol SCOMP1 is a pointer to location >0D4C
 

0D46 *

0D46 * STACK COMPARE ENTRY FOR GPL

0D46 *

0D46 SCOMP LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R3Workspace Register operand,STEX01Immediate Value operand
Definition: STEX01
Results to: >0FAA

Symbol STEX01 is a pointer to location >0FAA
 EXIT FOR GPL COMPARE

0D4A MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R11Workspace Register operand,R10Workspace Register operand 

0D4C SCOMP1 BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 @POPSTKSymbolic Memory operand
Definition: @POPSTK
Results to: >1FA8

Symbol POPSTK is defined at location >0000
Symbol POPSTK is defined as S+>1FA8
Symbol S is defined at location >0000
Symbol S is defined as 0
 STACK COMPARE

0D50 FCOMP1 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R7Workspace Register operand,ARGImmediate Value operand
Definition: ARG
Results to: >835C

Symbol ARG is defined at location >0000
Symbol ARG is defined as PAD+>5C
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 

0D54 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R5Workspace Register operand,FACImmediate Value operand
Definition: FAC
Results to: >834A

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 

0D58 CCompare Words
Compare instruction

[<label>] b C b <gas>,<gad> b [<comment>]
 *R7Indirect Workspace Register operand,*R5+Indirect Workspace Register Auto Increment operand COMPARE THE 1ST WORDS

0D5A JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 FCOMRTExpression operand
Definition: FCOMRT
Results to: >0D72

Symbol FCOMRT is a pointer to location >0D72
 DONE COMPARING IF NOT EQ

0D5C MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 *R7+Indirect Workspace Register Auto Increment operand,R6Workspace Register operand SIGN OF NUMBERS

0D5E JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 FCOMRTExpression operand
Definition: FCOMRT
Results to: >0D72

Symbol FCOMRT is a pointer to location >0D72
 NUMBERS ARE ZERO AND EQ

0D60 JGTJump if Greater Than
Jump and Branch instruction

[<label>] b JGT b <exp> b [<comment>]
 FCOM01Expression operand
Definition: FCOM01
Results to: >0D68

Symbol FCOM01 is a pointer to location >0D68
 BOTH NEGATIVE

0D62 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R5Workspace Register operand,R6Workspace Register operand 

0D64 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R7Workspace Register operand,R5Workspace Register operand 

0D66 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R6Workspace Register operand,R7Workspace Register operand 

0D68 FCOM01 CCompare Words
Compare instruction

[<label>] b C b <gas>,<gad> b [<comment>]
 *R7+Indirect Workspace Register Auto Increment operand,*R5+Indirect Workspace Register Auto Increment operand BOTH +VE

0D6A JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 FCOMRTExpression operand
Definition: FCOMRT
Results to: >0D72

Symbol FCOMRT is a pointer to location >0D72
 CONTINUE COMP'G UNTIL UNEQUAL

0D6C CCompare Words
Compare instruction

[<label>] b C b <gas>,<gad> b [<comment>]
 *R7+Indirect Workspace Register Auto Increment operand,*R5+Indirect Workspace Register Auto Increment operand OR END OF NUMBER

0D6E JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 FCOMRTExpression operand
Definition: FCOMRT
Results to: >0D72

Symbol FCOMRT is a pointer to location >0D72
 

0D70 CCompare Words
Compare instruction

[<label>] b C b <gas>,<gad> b [<comment>]
 *R7Indirect Workspace Register operand,*R5Indirect Workspace Register operand THE LAST ENVELOPE!

0D72 FCOMRT BBranch
Jump and Branch instruction

[<label>] b B b <gas> b [<comment>]
 *R3Indirect Workspace Register operand EXIT AS SPECIFIED

0D74 *

0D74 * FLOATING ADDITION AND SUBTRACTION

0D74 * THE TOP 2 STACK ELEMENTS ARE POPPED, ADDED (OR SUBT'D)

0D74 * AND THE RESULT PUSHED ONTO THE STACK

0D74 * = BL *R2

0D74 SSUB MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R11Workspace Register operand,R10Workspace Register operand SAVE RTN ADR

0D76 BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 @POPSTKSymbolic Memory operand
Definition: @POPSTK
Results to: >1FA8

Symbol POPSTK is defined at location >0000
Symbol POPSTK is defined as S+>1FA8
Symbol S is defined at location >0000
Symbol S is defined as 0
 STACK SUBTRACTION

0D7A MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R10Workspace Register operand,R11Workspace Register operand 

0D7C FSUB NEGNegate
Arithmetic instruction

[<label>] b NEG b <gas> b [<comment>]
 @FACSymbolic Memory operand
Definition: @FAC
Results to: >834A

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 NEGATE THE RH ARGUMENT

0D80 FADD MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R11Workspace Register operand,R10Workspace Register operand SAVE RTN

0D82 JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 FADD1Expression operand
Definition: FADD1
Results to: >0D8A

Symbol FADD1 is a pointer to location >0D8A
 

0D84 * = BL *R2

0D84 SADD MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R11Workspace Register operand,R10Workspace Register operand SAVE RTN

0D86 BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 @POPSTKSymbolic Memory operand
Definition: @POPSTK
Results to: >1FA8

Symbol POPSTK is defined at location >0000
Symbol POPSTK is defined as S+>1FA8
Symbol S is defined at location >0000
Symbol S is defined as 0
 

0D8A FADD1 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 @ARGSymbolic Memory operand
Definition: @ARG
Results to: >835C

Symbol ARG is defined at location >0000
Symbol ARG is defined as PAD+>5C
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
,R7Workspace Register operand
 IS ARG. ZERO?

0D8E JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 FADD02Expression operand
Definition: FADD02
Results to: >0DA4

Symbol FADD02 is a pointer to location >0DA4
 YES, NO CHANGE TO FAC

0D90 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 @FACSymbolic Memory operand
Definition: @FAC
Results to: >834A

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
,R8Workspace Register operand
 IS FAC ZERO?

0D94 JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 FADD03Expression operand
Definition: FADD03
Results to: >0DA8

Symbol FADD03 is a pointer to location >0DA8
 NO, GO ADD FAC TO ARG

0D96 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R1Workspace Register operand,-8Immediate Value operand YES, MOVE ARG TO FAC

0D9A FADD01 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 @ARG+8(R1)Indexed Memory operand
Definition: @ARG+8(R1)
Results to: >8366

Symbol ARG is defined at location >0000
Symbol ARG is defined as PAD+>5C
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
,@FAC+8(R1)Indexed Memory operand
Definition: @FAC+8(R1)
Results to: >8354

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 

0DA0 INCTIncrement by Two
Arithmetic instruction

[<label>] b INCT b <gas> b [<comment>]
 R1Workspace Register operand 

0DA2 JLTJump if Less Than
Jump and Branch instruction

[<label>] b JLT b <exp> b [<comment>]
 FADD01Expression operand
Definition: FADD01
Results to: >0D9A

Symbol FADD01 is a pointer to location >0D9A
 

0DA4 FADD02 BBranch
Jump and Branch instruction

[<label>] b B b <gas> b [<comment>]
 @STEXSymbolic Memory operand
Definition: @STEX
Results to: >0FA6

Symbol STEX is a pointer to location >0FA6
 EXIT TO GLI WITH STATUS

0DA8 FADD03 XORExclusive OR
Logical instruction

[<label>] b XOR b <gas>,<wad> b [<comment>]
 R8Workspace Register operand,R7Workspace Register operand SIGN DIFFERENCE

0DAA ABSAbsolute Value
Arithmetic instruction

[<label>] b ABS b <gas> b [<comment>]
 @FACSymbolic Memory operand
Definition: @FAC
Results to: >834A

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 TAKE ABSOLUTE VAL OF FAC

0DAE ABSAbsolute Value
Arithmetic instruction

[<label>] b ABS b <gas> b [<comment>]
 @ARGSymbolic Memory operand
Definition: @ARG
Results to: >835C

Symbol ARG is defined at location >0000
Symbol ARG is defined as PAD+>5C
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 AND ARG

0DB2 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R3Workspace Register operand,-8Immediate Value operand ENSURE THAT THE LARGEST NO.

0DB6 *                                           IS IN FAC

0DB6 FADD20 CCompare Words
Compare instruction

[<label>] b C b <gas>,<gad> b [<comment>]
 @FAC+8(R3)Indexed Memory operand
Definition: @FAC+8(R3)
Results to: >8358

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
,@ARG+8(R3)Indexed Memory operand
Definition: @ARG+8(R3)
Results to: >836A

Symbol ARG is defined at location >0000
Symbol ARG is defined as PAD+>5C
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 

0DBC JGTJump if Greater Than
Jump and Branch instruction

[<label>] b JGT b <exp> b [<comment>]
 FADD05Expression operand
Definition: FADD05
Results to: >0DDA

Symbol FADD05 is a pointer to location >0DDA
 TRUE INITIALLY

0DBE JLTJump if Less Than
Jump and Branch instruction

[<label>] b JLT b <exp> b [<comment>]
 FADD21Expression operand
Definition: FADD21
Results to: >0DC6

Symbol FADD21 is a pointer to location >0DC6
 NEED TO SWAY THIS WORD & FOLLOWING

0DC0 INCTIncrement by Two
Arithmetic instruction

[<label>] b INCT b <gas> b [<comment>]
 R3Workspace Register operand 

0DC2 JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 FADD20Expression operand
Definition: FADD20
Results to: >0DB6

Symbol FADD20 is a pointer to location >0DB6
 COMPARE ALL 4 WORDS

0DC4 JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 FADD05Expression operand
Definition: FADD05
Results to: >0DDA

Symbol FADD05 is a pointer to location >0DDA
 FAC = ARG

0DC6 FADD21 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 @ARG+8(R3)Indexed Memory operand
Definition: @ARG+8(R3)
Results to: >836A

Symbol ARG is defined at location >0000
Symbol ARG is defined as PAD+>5C
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
,R0Workspace Register operand
 

0DCA MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 @FAC+8(R3)Indexed Memory operand
Definition: @FAC+8(R3)
Results to: >8358

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
,@ARG+8(R3)Indexed Memory operand
Definition: @ARG+8(R3)
Results to: >836A

Symbol ARG is defined at location >0000
Symbol ARG is defined as PAD+>5C
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 

0DD0 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R0Workspace Register operand,@FAC+8(R3)Indexed Memory operand
Definition: @FAC+8(R3)
Results to: >8358

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 

0DD4 INCTIncrement by Two
Arithmetic instruction

[<label>] b INCT b <gas> b [<comment>]
 R3Workspace Register operand 

0DD6 JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 FADD21Expression operand
Definition: FADD21
Results to: >0DC6

Symbol FADD21 is a pointer to location >0DC6
 CONTINUE THE SWAP

0DD8 XORExclusive OR
Logical instruction

[<label>] b XOR b <gas>,<wad> b [<comment>]
 R7Workspace Register operand,R8Workspace Register operand 

0DDA FADD05 CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R5Workspace Register operand HANDY ZERO

0DDC CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 @FAC+8Symbolic Memory operand
Definition: @FAC+8
Results to: >8352

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 CLEAR GUARD DIGITS FOR FAC

0DE0 CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 @ARG+8Symbolic Memory operand
Definition: @ARG+8
Results to: >8364

Symbol ARG is defined at location >0000
Symbol ARG is defined as PAD+>5C
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 AND ARG

0DE4 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 R8Workspace Register operand,@SIGNSymbolic Memory operand
Definition: @SIGN
Results to: >8375

Symbol SIGN is defined at location >0000
Symbol SIGN is defined as PAD+>75
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 SAVE RESULT SIGN

0DE8 CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R6Workspace Register operand CLEAR HIGH BYTE OF EXP DIFF

0DEA MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @FACSymbolic Memory operand
Definition: @FAC
Results to: >834A

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
,@R6LSBSymbolic Memory operand
Definition: @R6LSB
Results to: >83ED

Symbol R6LSB is defined at location >0000
Symbol R6LSB is defined as WKSE+R6+R6+1
Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R6 resolves to the Register number.
Register R6 resolves to the Register number.
 FAC EXP TO R6 LSB

0DF0 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R6Workspace Register operand,@EXPSymbolic Memory operand
Definition: @EXP
Results to: >8376

Symbol EXP is defined at location >0000
Symbol EXP is defined as PAD+>76
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 USE FAC EXP AS RESULT EXP

0DF4 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 R5Workspace Register operand,@FACSymbolic Memory operand
Definition: @FAC
Results to: >834A

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 CLEAR HIGH BYTE OF FAC TO CHECK

0DF8 *                                           FOR OVERFLOW

0DF8 SBSubtract Bytes
Arithmetic instruction

[<label>] b SB b <gas>,<gad> b [<comment>]
 @ARGSymbolic Memory operand
Definition: @ARG
Results to: >835C

Symbol ARG is defined at location >0000
Symbol ARG is defined as PAD+>5C
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
,@R6LSBSymbolic Memory operand
Definition: @R6LSB
Results to: >83ED

Symbol R6LSB is defined at location >0000
Symbol R6LSB is defined as WKSE+R6+R6+1
Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R6 resolves to the Register number.
Register R6 resolves to the Register number.
 SUBTRACT SMALLER EXPONENT

0DFE CICompare Immediate
Compare instruction

[<label>] b CI b <wa>,<iop> b [<comment>]
 R6Workspace Register operand,7Immediate Value operand SMALLER NUMBER TOO SMALL TO

0E02 *                            AFFECT THE SUM?

0E02 JGTJump if Greater Than
Jump and Branch instruction

[<label>] b JGT b <exp> b [<comment>]
 FADD15Expression operand
Definition: FADD15
Results to: >0E84

Symbol FADD15 is a pointer to location >0E84
 YES, RTN WITH LARGER NO. IN FAC

0E04 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R6Workspace Register operand,R0Workspace Register operand EXPONENT DIFFERENCE

0E06 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R8Workspace Register operand,HIBYTEImmediate Value operand
Definition: HIBYTE
Results to: >0100

Symbol HIBYTE is defined at location >0000
Symbol HIBYTE is defined as >0100
 1 FOR BYTE OPERATIONS

0E0A LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R9Workspace Register operand,100*HIBYTEImmediate Value operand
Definition: 100*HIBYTE
Results to: >6400

Symbol HIBYTE is defined at location >0000
Symbol HIBYTE is defined as >0100
 100 FOR BYTE OPERATIONS

0E0E LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R5Workspace Register operand,FAC+9Immediate Value operand
Definition: FAC+9
Results to: >8353

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 POINTER TO LOW BYTE OF BIG NO.

0E12 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R6Workspace Register operand,ARG+9Immediate Value operand
Definition: ARG+9
Results to: >8365

Symbol ARG is defined at location >0000
Symbol ARG is defined as PAD+>5C
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 AND LOW BYTE OF SMALL NO.

0E16 SSubtract Words
Arithmetic instruction

[<label>] b S b <gas>,<gad> b [<comment>]
 R0Workspace Register operand,R6Workspace Register operand ADJ ARG POINTER TO ALIGN RADIX

0E18 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R0Workspace Register operand,R4Workspace Register operand ADD/SUB LOOP COUNT IS

0E1A AIAdd Immediate
Arithmetic instruction

[<label>] b AI b <wa>,<iop> b [<comment>]
 R4Workspace Register operand,-9Immediate Value operand BYTES LEFT IN SMALL NUMBER

0E1E MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R7Workspace Register operand,R1Workspace Register operand 2 NO'S HAVE SAME SIGN?

0E20 JLTJump if Less Than
Jump and Branch instruction

[<label>] b JLT b <exp> b [<comment>]
 FADD11Expression operand
Definition: FADD11
Results to: >0E62

Symbol FADD11 is a pointer to location >0E62
 NO, SUB THEN, YES ADD THEM

0E22 FADD06 ABAdd Bytes
Arithmetic instruction

[<label>] b AB b <gas>,<gad> b [<comment>]
 *R6Indirect Workspace Register operand,*R5Indirect Workspace Register operand ADD A BYTE OF SMALL TO LARGER

0E24 CBCompare Bytes
Compare instruction

[<label>] b CB b <gas>,<gad> b [<comment>]
 *R5Indirect Workspace Register operand,R9Workspace Register operand IF SUM LT RADIX

0E26 JLJump if Logical Low
Jump and Branch instruction

[<label>] b JL b <exp> b [<comment>]
 FADD07Expression operand
Definition: FADD07
Results to: >0E2E

Symbol FADD07 is a pointer to location >0E2E
  THEN CONTINUE TO NEXT BYTE

0E28 SBSubtract Bytes
Arithmetic instruction

[<label>] b SB b <gas>,<gad> b [<comment>]
 R9Workspace Register operand,*R5Indirect Workspace Register operand SUBTACT RADIX FROM THIS BYTE

0E2A ABAdd Bytes
Arithmetic instruction

[<label>] b AB b <gas>,<gad> b [<comment>]
 R8Workspace Register operand,@-1(R5)Indexed Memory operand
Definition: @-1(R5)
Results to: >0009
  AND ADD CARRY TO NEXT BYTE

0E2E FADD07 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R5Workspace Register operand TO NEXT HIGHER BIG NO. BYTE

0E30 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R6Workspace Register operand  AND NEXT HIGHER SMALL BYTE

0E32 INCIncrement
Arithmetic instruction

[<label>] b INC b <gas> b [<comment>]
 R4Workspace Register operand IF NOT ALL SIGN IF BYTES OF SMALL

0E34 JLTJump if Less Than
Jump and Branch instruction

[<label>] b JLT b <exp> b [<comment>]
 FADD06Expression operand
Definition: FADD06
Results to: >0E22

Symbol FADD06 is a pointer to location >0E22
  ADDED, THEN CONTINUE

0E36 JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 FADD09Expression operand
Definition: FADD09
Results to: >0E3C

Symbol FADD09 is a pointer to location >0E3C
 ELSE PROPAGATE CARRY

0E38 FADD08 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R5Workspace Register operand WAS LARGER, POINT TO NEXT BYTE

0E3A ABAdd Bytes
Arithmetic instruction

[<label>] b AB b <gas>,<gad> b [<comment>]
 R8Workspace Register operand,*R5Indirect Workspace Register operand ADD CARRY TO NEXT BYTE

0E3C FADD09 SBSubtract Bytes
Arithmetic instruction

[<label>] b SB b <gas>,<gad> b [<comment>]
 R9Workspace Register operand,*R5Indirect Workspace Register operand SUB RADIX FROM NEXT BYTE

0E3E JGTJump if Greater Than
Jump and Branch instruction

[<label>] b JGT b <exp> b [<comment>]
 FADD08Expression operand
Definition: FADD08
Results to: >0E38

Symbol FADD08 is a pointer to location >0E38
 DONE IF REACHED ONE BYTE

0E40 *                             SMALLER THAN RADIX

0E40 JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 FADD08Expression operand
Definition: FADD08
Results to: >0E38

Symbol FADD08 is a pointer to location >0E38
 CONTINUE IF RESULT = RADIX

0E42 ABAdd Bytes
Arithmetic instruction

[<label>] b AB b <gas>,<gad> b [<comment>]
 R9Workspace Register operand,*R5Indirect Workspace Register operand RADIX SUB'S ONCE TOO OFTEN

0E44 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @FACSymbolic Memory operand
Definition: @FAC
Results to: >834A

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
,R1Workspace Register operand
 CARRY OUT OF HIGH ORDER RESULT?

0E48 JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 FADD10Expression operand
Definition: FADD10
Results to: >0E60

Symbol FADD10 is a pointer to location >0E60
 NO, ROUND RESULT

0E4A INCIncrement
Arithmetic instruction

[<label>] b INC b <gas> b [<comment>]
 @EXPSymbolic Memory operand
Definition: @EXP
Results to: >8376

Symbol EXP is defined at location >0000
Symbol EXP is defined as PAD+>76
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 

0E4E LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R1Workspace Register operand,FAC+8Immediate Value operand
Definition: FAC+8
Results to: >8352

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 

0E52 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R2Workspace Register operand,9Immediate Value operand 

0E56 FADD30 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 *R1Indirect Workspace Register operand,@1(R1)Indexed Memory operand
Definition: @1(R1)
Results to: >0003
 SHIFT FAC RIGHT ONE BYTE

0E5A HX01 EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 $-1Expression operand
Definition: $-1
Results to: >0E59

$ represents the location >0E5A
 

0E5A DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R1Workspace Register operand 

0E5C DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R2Workspace Register operand 

0E5E JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 FADD30Expression operand
Definition: FADD30
Results to: >0E56

Symbol FADD30 is a pointer to location >0E56
 

0E60 FADD10 JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 ROUN1Expression operand
Definition: ROUN1
Results to: >0F56

Symbol ROUN1 is a pointer to location >0F56
 

0E62 *

0E62 FADD11 SBSubtract Bytes
Arithmetic instruction

[<label>] b SB b <gas>,<gad> b [<comment>]
 *R6Indirect Workspace Register operand,*R5Indirect Workspace Register operand SUB A BYTE OF SMALL FROM BIG

0E64 JGTJump if Greater Than
Jump and Branch instruction

[<label>] b JGT b <exp> b [<comment>]
 FADD12Expression operand
Definition: FADD12
Results to: >0E6E

Symbol FADD12 is a pointer to location >0E6E
 

0E66 JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 FADD12Expression operand
Definition: FADD12
Results to: >0E6E

Symbol FADD12 is a pointer to location >0E6E
 

0E68 ABAdd Bytes
Arithmetic instruction

[<label>] b AB b <gas>,<gad> b [<comment>]
 R9Workspace Register operand,*R5Indirect Workspace Register operand 

0E6A SBSubtract Bytes
Arithmetic instruction

[<label>] b SB b <gas>,<gad> b [<comment>]
 R8Workspace Register operand,@-1(R5)Indexed Memory operand
Definition: @-1(R5)
Results to: >0009
 

0E6E FADD12 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R5Workspace Register operand 

0E70 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R6Workspace Register operand 

0E72 INCIncrement
Arithmetic instruction

[<label>] b INC b <gas> b [<comment>]
 R4Workspace Register operand 

0E74 JLTJump if Less Than
Jump and Branch instruction

[<label>] b JLT b <exp> b [<comment>]
 FADD11Expression operand
Definition: FADD11
Results to: >0E62

Symbol FADD11 is a pointer to location >0E62
 

0E76 JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 FADD14Expression operand
Definition: FADD14
Results to: >0E7E

Symbol FADD14 is a pointer to location >0E7E
 

0E78 FADD13 ABAdd Bytes
Arithmetic instruction

[<label>] b AB b <gas>,<gad> b [<comment>]
 R9Workspace Register operand,*R5Indirect Workspace Register operand 

0E7A DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R5Workspace Register operand 

0E7C SBSubtract Bytes
Arithmetic instruction

[<label>] b SB b <gas>,<gad> b [<comment>]
 R8Workspace Register operand,*R5Indirect Workspace Register operand 

0E7E FADD14 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 *R5Indirect Workspace Register operand,R4Workspace Register operand 

0E80 JLTJump if Less Than
Jump and Branch instruction

[<label>] b JLT b <exp> b [<comment>]
 FADD13Expression operand
Definition: FADD13
Results to: >0E78

Symbol FADD13 is a pointer to location >0E78
 

0E82 JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 NORMALExpression operand
Definition: NORMAL
Results to: >0F1C

Symbol NORMAL is a pointer to location >0F1C
 

0E84 FADD15 BBranch
Jump and Branch instruction

[<label>] b B b <gas> b [<comment>]
 @PACKUPSymbolic Memory operand
Definition: @PACKUP
Results to: >0F86

Symbol PACKUP is a pointer to location >0F86
 

0E88 *

0E88 * FLATING MULTIPLICATION    FAC:= ARG * FAC

0E88 *

0E88 * ENTRY NOT KNOWN

0E88 FMULT MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R11Workspace Register operand,R10Workspace Register operand SAVE RTN

0E8A JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 FMULT1Expression operand
Definition: FMULT1
Results to: >0E92

Symbol FMULT1 is a pointer to location >0E92
 

0E8C * = BL *R2

0E8C SMULT MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R11Workspace Register operand,R10Workspace Register operand STACK MULTIPLICATION

0E8E BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 @POPSTKSymbolic Memory operand
Definition: @POPSTK
Results to: >1FA8

Symbol POPSTK is defined at location >0000
Symbol POPSTK is defined as S+>1FA8
Symbol S is defined at location >0000
Symbol S is defined as 0
 

0E92 FMULT1 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R3Workspace Register operand,FACImmediate Value operand
Definition: FAC
Results to: >834A

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 IF FAC IS ZERO

0E96 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R5Workspace Register operand,ARGImmediate Value operand
Definition: ARG
Results to: >835C

Symbol ARG is defined at location >0000
Symbol ARG is defined as PAD+>5C
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 

0E9A MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 *R3Indirect Workspace Register operand,R8Workspace Register operand IF FAC IS ZERO

0E9C JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 FMULZRExpression operand
Definition: FMULZR
Results to: >0F2A

Symbol FMULZR is a pointer to location >0F2A
 THEN RESULT IS ZERO

0E9E XORExclusive OR
Logical instruction

[<label>] b XOR b <gas>,<wad> b [<comment>]
 *R5Indirect Workspace Register operand,R8Workspace Register operand COMPUTE SIGN RESULT

0EA0 ABSAbsolute Value
Arithmetic instruction

[<label>] b ABS b <gas> b [<comment>]
 *R5Indirect Workspace Register operand IF ARG IS ZERO

0EA2 JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 FMULZRExpression operand
Definition: FMULZR
Results to: >0F2A

Symbol FMULZR is a pointer to location >0F2A
 THEN ZERO FAC AND RTN

0EA4 ABSAbsolute Value
Arithmetic instruction

[<label>] b ABS b <gas> b [<comment>]
 *R3Indirect Workspace Register operand TAKE ABS VALUE OF FAC

0EA6 CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R9Workspace Register operand   TO ZERO LOW BYTE OF RESULT EXP

0EA8 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 *R3Indirect Workspace Register operand,R9Workspace Register operand RESULT EXP = FAC EXP

0EAA ABAdd Bytes
Arithmetic instruction

[<label>] b AB b <gas>,<gad> b [<comment>]
 *R5Indirect Workspace Register operand,R9Workspace Register operand  +ARG EXP

0EAC SWPBSwap Bytes
Load and Move instruction

[<label>] b SWPB b <gas> b [<comment>]
 R9Workspace Register operand 

0EAE AIAdd Immediate
Arithmetic instruction

[<label>] b AI b <wa>,<iop> b [<comment>]
 R9Workspace Register operand,-63Immediate Value operand  - BIAS

0EB2 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R9Workspace Register operand,@EXPSymbolic Memory operand
Definition: @EXP
Results to: >8376

Symbol EXP is defined at location >0000
Symbol EXP is defined as PAD+>76
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 

0EB6 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 R8Workspace Register operand,@SIGNSymbolic Memory operand
Definition: @SIGN
Results to: >8375

Symbol SIGN is defined at location >0000
Symbol SIGN is defined as PAD+>75
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 SAVE TILL NORMAL, ROUND

0EBA LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R5Workspace Register operand,FAC+8Immediate Value operand
Definition: FAC+8
Results to: >8352

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 LOW ORDER DIGITS

0EBE FMCLR CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 *R5+Indirect Workspace Register Auto Increment operand  WILL BE

0EC0 CICompare Immediate
Compare instruction

[<label>] b CI b <wa>,<iop> b [<comment>]
 R5Workspace Register operand,FAC+16Immediate Value operand
Definition: FAC+16
Results to: >835A

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
  FORMED

0EC4 JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 FMCLRExpression operand
Definition: FMCLR
Results to: >0EBE

Symbol FMCLR is a pointer to location >0EBE
  HERE

0EC6 *

0EC6 *  R0-R1    WORK REGISTERS FOR MPY, DIV

0EC6 *  R2       CURRENT RESULT DIGIT

0EC6 *  R3       CURRENT FAC DIGIT

0EC6 *  R4       REGISTER NUMBER LOOP COUNT

0EC6 *  R5       FAC LOOP COUNT

0EC6 *  R6       POINTER TO RESULT IN FAC

0EC6 *  R7       NUMBER OF SIGNIF. BYTES IN ARG FRACTION

0EC6 *  R8       RB(R0) POINTER

0EC6 *  R9       RADIX 100 VALUE

0EC6 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R5Workspace Register operand,FAC+8Immediate Value operand
Definition: FAC+8
Results to: >8352

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 BYTES IN FAC +1

0ECA FMUL02 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R5Workspace Register operand CHANGE SIGNIF. BYTE COUNT

0ECC MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 *R5Indirect Workspace Register operand,R0Workspace Register operand IF NEXT FAC BYTE IS ZERO

0ECE CECE JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 FMUL02Expression operand
Definition: FMUL02
Results to: >0ECA

Symbol FMUL02 is a pointer to location >0ECA
   THEN DECREMENT COUNT FOR IT

0ED0 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R7Workspace Register operand,8Immediate Value operand COUNT SIGNIF. BYTES IN ARG

0ED4 FMUL03 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R7Workspace Register operand DEC. FOR ZERO BYTE

0ED6 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @ARG(R7)Indexed Memory operand
Definition: @ARG(R7)
Results to: >836A

Symbol ARG is defined at location >0000
Symbol ARG is defined as PAD+>5C
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
,R0Workspace Register operand
 IF THIS BYTE OF ARG IS ZERO

0EDA JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 FMUL03Expression operand
Definition: FMUL03
Results to: >0ED4

Symbol FMUL03 is a pointer to location >0ED4
  THEN DEC. COUNT

0EDC CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R0Workspace Register operand MPY, DIV WORK REGR

0EDE MPYMultiply
Arithmetic instruction

[<label>] b MPY b <gas>,<wad> b [<comment>]
 R0Workspace Register operand,R2Workspace Register operand CURRENT RESULT IN HIGH BYTE

0EE0 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R5Workspace Register operand,R6Workspace Register operand 

0EE2 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R8Workspace Register operand,R0LSBImmediate Value operand
Definition: R0LSB
Results to: >83E1

Symbol R0LSB is defined at location >0000
Symbol R0LSB is defined as WKSE+R0+R0+1
Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R0 resolves to the Register number.
Register R0 resolves to the Register number.
 RB (R0)

0EE6 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R9Workspace Register operand,100Immediate Value operand RADIX

0EEA FMUL04 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R7Workspace Register operand,R4Workspace Register operand INNER LOOP CTR = BYTES IN ARG

0EEC AAdd Words
Arithmetic instruction

[<label>] b A b <gas>,<gad> b [<comment>]
 R7Workspace Register operand,R6Workspace Register operand RESULT PTR TO END OF NEXT PARTIAL

0EEE *                             PRODUCT

0EEE MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 *R5Indirect Workspace Register operand,@R3LSBSymbolic Memory operand
Definition: @R3LSB
Results to: >83E7

Symbol R3LSB is defined at location >0000
Symbol R3LSB is defined as WKSE+R3+R3+1
Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R3 resolves to the Register number.
Register R3 resolves to the Register number.
  RB(R3) IS NEXT DIGIT OF FAC

0EF2 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 R3Workspace Register operand,*R5Indirect Workspace Register operand CLEAR FAC DIGIT FOR NEXT PARTIAL

0EF4 FMUL05 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @ARG(R4)Indexed Memory operand
Definition: @ARG(R4)
Results to: >8364

Symbol ARG is defined at location >0000
Symbol ARG is defined as PAD+>5C
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
,*R8Indirect Workspace Register operand
 GET NEXT DIGIT OF ARG

0EF8 MPYMultiply
Arithmetic instruction

[<label>] b MPY b <gas>,<wad> b [<comment>]
 R3Workspace Register operand,R0Workspace Register operand  AND MPY IT

0EFA MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 *R6Indirect Workspace Register operand,@R2LSBSymbolic Memory operand
Definition: @R2LSB
Results to: >83E5

Symbol R2LSB is defined at location >0000
Symbol R2LSB is defined as WKSE+R2+R2+1
Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R2 resolves to the Register number.
Register R2 resolves to the Register number.
 TO CORRESPONDING PARTIAL PRODUCT

0EFE *                             DIGIT IN RB (R2)

0EFE AAdd Words
Arithmetic instruction

[<label>] b A b <gas>,<gad> b [<comment>]
 R2Workspace Register operand,R1Workspace Register operand ADD IN NEXT PARTIAL PROD DIGIT

0F00 DIVDivide
Arithmetic instruction

[<label>] b DIV b <gas>,<wad> b [<comment>]
 R9Workspace Register operand,R0Workspace Register operand CONVERT PRODUCT TO RADIX DIGIT

0F02 *                             AND CARRY

0F02 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @R1LSBSymbolic Memory operand
Definition: @R1LSB
Results to: >83E3

Symbol R1LSB is defined at location >0000
Symbol R1LSB is defined as WKSE+R1+R1+1
Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R1 resolves to the Register number.
Register R1 resolves to the Register number.
,*R6Indirect Workspace Register operand
 STORE NEW RESULT DIGIT IN FAC

0F06 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R6Workspace Register operand POINT TO NEXT HIGHER BYTE OF RESULT

0F08 ABAdd Bytes
Arithmetic instruction

[<label>] b AB b <gas>,<gad> b [<comment>]
 *R8Indirect Workspace Register operand,*R6Indirect Workspace Register operand ADD IN CARRY TO NEXT HIGHER BYTE

0F0A *                             OF RESULT

0F0A DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R4Workspace Register operand IF ALL ARG DIGITS NOT DONE,

0F0C JGTJump if Greater Than
Jump and Branch instruction

[<label>] b JGT b <exp> b [<comment>]
 FMUL05Expression operand
Definition: FMUL05
Results to: >0EF4

Symbol FMUL05 is a pointer to location >0EF4
  THEN CONTINUE

0F0E DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R6Workspace Register operand POINT TO START OF NEXT PARTIAL PROD

0F10 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R5Workspace Register operand IF FAC DIGITS REMAIN

0F12 CICompare Immediate
Compare instruction

[<label>] b CI b <wa>,<iop> b [<comment>]
 R5Workspace Register operand,FACImmediate Value operand
Definition: FAC
Results to: >834A

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 

0F16 JGTJump if Greater Than
Jump and Branch instruction

[<label>] b JGT b <exp> b [<comment>]
 FMUL04Expression operand
Definition: FMUL04
Results to: >0EEA

Symbol FMUL04 is a pointer to location >0EEA
 THEN CONTINUE

0F18 FMEND CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 @FAC+10Symbolic Memory operand
Definition: @FAC+10
Results to: >8354

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 CLEAR ERROR INDICATOR

0F1C *

0F1C * SIGN      DESTROYS R0 - R2

0F1C *

0F1C NORMAL LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R1Workspace Register operand,-9Immediate Value operand NUMBER OF BYTES IN FAC INCLUDING

0F20 *                             GUARD BYTES

0F20 NORM01 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @FAC+10(R1)Indexed Memory operand
Definition: @FAC+10(R1)
Results to: >8356

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
,R2Workspace Register operand
 IS NEXT BYTE OF FAC NON-ZERO?

0F24 JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 NORM02Expression operand
Definition: NORM02
Results to: >0F34

Symbol NORM02 is a pointer to location >0F34
 YES, SHIFT REST LEFT

0F26 INCIncrement
Arithmetic instruction

[<label>] b INC b <gas> b [<comment>]
 R1Workspace Register operand NO, ALL BYTES ZERO?

0F28 JLTJump if Less Than
Jump and Branch instruction

[<label>] b JLT b <exp> b [<comment>]
 NORM01Expression operand
Definition: NORM01
Results to: >0F20

Symbol NORM01 is a pointer to location >0F20
  YES, LOOK AT NEXT BYTE

0F2A *

0F2A * ZERO FAC, SETS FAC =0

0F2A *

0F2A FMULZR CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 @FACSymbolic Memory operand
Definition: @FAC
Results to: >834A

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 INSTALL FLOATING ZERO

0F2E CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 @FAC+2Symbolic Memory operand
Definition: @FAC+2
Results to: >834C

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 CLEAR POSSIBLE BASIC TYPE CODE

0F32 JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 STEXExpression operand
Definition: STEX
Results to: >0FA6

Symbol STEX is a pointer to location >0FA6
 AND EXIT WITH STATUS

0F34 NORM02 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R1Workspace Register operand,R0Workspace Register operand NUMBER OF NON-ZERO BYTES

0F36 AIAdd Immediate
Arithmetic instruction

[<label>] b AI b <wa>,<iop> b [<comment>]
 R0Workspace Register operand,9Immediate Value operand FIRST BYTE NON-ZERO?

0F3A JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 ROUN1Expression operand
Definition: ROUN1
Results to: >0F56

Symbol ROUN1 is a pointer to location >0F56
 YES, FINISH

0F3C SSubtract Words
Arithmetic instruction

[<label>] b S b <gas>,<gad> b [<comment>]
 R0Workspace Register operand,@EXPSymbolic Memory operand
Definition: @EXP
Results to: >8376

Symbol EXP is defined at location >0000
Symbol EXP is defined as PAD+>76
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 NO, ADJUST EXPONENT FOR SHIFT

0F40 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R2Workspace Register operand,FAC+1Immediate Value operand
Definition: FAC+1
Results to: >834B

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 POINT TO FIRST BYTE OF FAC

0F44 NORM03 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @FAC+10(R1)Indexed Memory operand
Definition: @FAC+10(R1)
Results to: >8356

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
,*R2+Indirect Workspace Register Auto Increment operand
 MOVE NON-ZERO BYTE

0F48 *                             TO FAC FIRST DIGIT

0F48 INCIncrement
Arithmetic instruction

[<label>] b INC b <gas> b [<comment>]
 R1Workspace Register operand IF NON-ZERO BYTES REMAIN

0F4A JLTJump if Less Than
Jump and Branch instruction

[<label>] b JLT b <exp> b [<comment>]
 NORM03Expression operand
Definition: NORM03
Results to: >0F44

Symbol NORM03 is a pointer to location >0F44
  THEN MOVE ANOTHER BYTE

0F4C NORM04 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 R1Workspace Register operand,*R2+Indirect Workspace Register Auto Increment operand MOVE A ZERO

0F4E DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R0Workspace Register operand LAST BYTE DONE?

0F50 JGTJump if Greater Than
Jump and Branch instruction

[<label>] b JGT b <exp> b [<comment>]
 NORM04Expression operand
Definition: NORM04
Results to: >0F4C

Symbol NORM04 is a pointer to location >0F4C
 NO, CONTINUE

0F52 *                            YES, ROUND THE NO. IN FAC AND FINISH

0F52 *

0F52 * ROUND THE NUMBER IN THE FAC USING THE GUARD DIGITS

0F52 *           DESTROYS R0-R2

0F52 * ENTRY NOT KNOWN

0F52 JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 ROUN1Expression operand
Definition: ROUN1
Results to: >0F56

Symbol ROUN1 is a pointer to location >0F56
 SKIP SAVE IF INTERNAL CALL

0F54 ROUND MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R11Workspace Register operand,R10Workspace Register operand SAVE RTN

0F56 ROUN1 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R0Workspace Register operand,50*HIBYTEImmediate Value operand
Definition: 50*HIBYTE
Results to: >3200

Symbol HIBYTE is defined at location >0000
Symbol HIBYTE is defined as >0100
 

0F5A CCompare Words
Compare instruction

[<label>] b C b <gas>,<gad> b [<comment>]
 @FAC+8Symbolic Memory operand
Definition: @FAC+8
Results to: >8352

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
,R0Workspace Register operand
 IS ROUNDING NECESSARY?

0F5E JLTJump if Less Than
Jump and Branch instruction

[<label>] b JLT b <exp> b [<comment>]
 PACKUPExpression operand
Definition: PACKUP
Results to: >0F86

Symbol PACKUP is a pointer to location >0F86
 NO, PUT EXPONENT BACK

0F60 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R1Workspace Register operand,7Immediate Value operand ROUND UP, GET NO. OF FAC BYTES

0F64 ROUNUP LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R2Workspace Register operand,1*HIBYTEImmediate Value operand
Definition: 1*HIBYTE
Results to: >0100

Symbol HIBYTE is defined at location >0000
Symbol HIBYTE is defined as >0100
 1 (FOR BYTE INSTN)

0F68 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R0Workspace Register operand,100*HIBYTEImmediate Value operand
Definition: 100*HIBYTE
Results to: >6400

Symbol HIBYTE is defined at location >0000
Symbol HIBYTE is defined as >0100
 100 (SAME)

0F6C ROUN02 ABAdd Bytes
Arithmetic instruction

[<label>] b AB b <gas>,<gad> b [<comment>]
 R2Workspace Register operand,@FAC(R1)Indexed Memory operand
Definition: @FAC(R1)
Results to: >834C

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 ADD ONE TO A BYTE OF FAC

0F70 CBCompare Bytes
Compare instruction

[<label>] b CB b <gas>,<gad> b [<comment>]
 @FAC(R1)Indexed Memory operand
Definition: @FAC(R1)
Results to: >834C

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
,R0Workspace Register operand
 IF BYTE NOT GREATER THAN RADIX

0F74 JLJump if Logical Low
Jump and Branch instruction

[<label>] b JL b <exp> b [<comment>]
 PACKUPExpression operand
Definition: PACKUP
Results to: >0F86

Symbol PACKUP is a pointer to location >0F86
 THEN PUT EXPONENT IN FAC

0F76 SBSubtract Bytes
Arithmetic instruction

[<label>] b SB b <gas>,<gad> b [<comment>]
 R0Workspace Register operand,@FAC(R1)Indexed Memory operand
Definition: @FAC(R1)
Results to: >834C

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 BRING DIGIT BACK IN RANGE

0F7A DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R1Workspace Register operand IF CARRY PAST HIGH BYTE OF FAC

0F7C JGTJump if Greater Than
Jump and Branch instruction

[<label>] b JGT b <exp> b [<comment>]
 ROUN02Expression operand
Definition: ROUN02
Results to: >0F6C

Symbol ROUN02 is a pointer to location >0F6C
 THEN CARRY TO NEXT HIGHER BYTE

0F7E INCIncrement
Arithmetic instruction

[<label>] b INC b <gas> b [<comment>]
 @EXPSymbolic Memory operand
Definition: @EXP
Results to: >8376

Symbol EXP is defined at location >0000
Symbol EXP is defined as PAD+>76
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 FRACTION HAS OVERFLOWED (WAS ALL 9'S)

0F82 *                             SHIFT NO. BY ADDING 1 TO EXP

0F82 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 R2Workspace Register operand,@FAC+1Symbolic Memory operand
Definition: @FAC+1
Results to: >834B

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 MAKE THE HIGH BYTE A 1

0F86 *

0F86 * PUT SIGN AND EXPONENT IN FAC

0F86 *

0F86 PACKUP MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 @EXPSymbolic Memory operand
Definition: @EXP
Results to: >8376

Symbol EXP is defined at location >0000
Symbol EXP is defined as PAD+>76
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
,R3Workspace Register operand
 

0F8A CICompare Immediate
Compare instruction

[<label>] b CI b <wa>,<iop> b [<comment>]
 R3Workspace Register operand,128Immediate Value operand 

0F8E JHEJump if High or Equal
Jump and Branch instruction

[<label>] b JHE b <exp> b [<comment>]
 OVEXP1Expression operand
Definition: OVEXP1
Results to: >0FC4

Symbol OVEXP1 is a pointer to location >0FC4
 

0F90 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @R3LSBSymbolic Memory operand
Definition: @R3LSB
Results to: >83E7

Symbol R3LSB is defined at location >0000
Symbol R3LSB is defined as WKSE+R3+R3+1
Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R3 resolves to the Register number.
Register R3 resolves to the Register number.
,@FACSymbolic Memory operand
Definition: @FAC
Results to: >834A

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 PUT EXPONENT IN FAC

0F96 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @SIGNSymbolic Memory operand
Definition: @SIGN
Results to: >8375

Symbol SIGN is defined at location >0000
Symbol SIGN is defined as PAD+>75
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
,R2Workspace Register operand
 

0F9A INVInvert
Logical instruction

[<label>] b INV b <gas> b [<comment>]
 R2Workspace Register operand IF SIGN IS -VE

0F9C JLTJump if Less Than
Jump and Branch instruction

[<label>] b JLT b <exp> b [<comment>]
 PACK01Expression operand
Definition: PACK01
Results to: >0FA2

Symbol PACK01 is a pointer to location >0FA2
 

0F9E NEGNegate
Arithmetic instruction

[<label>] b NEG b <gas> b [<comment>]
 @FACSymbolic Memory operand
Definition: @FAC
Results to: >834A

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 THEN INVERT 1ST WORD

0FA2 PACK01 JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 STEXExpression operand
Definition: STEX
Results to: >0FA6

Symbol STEX is a pointer to location >0FA6
 SKIP SAVE IF INTERNAL CALL

0FA4 * ENTRY NOT KNOWN

0FA4 STEXIT MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R11Workspace Register operand,R10Workspace Register operand SAVE RETURN ADR

0FA6 STEX MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 @FACSymbolic Memory operand
Definition: @FAC
Results to: >834A

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
,R1Workspace Register operand
 SET STATUS ON FAC

0FAA STEX01 STSTStore Status
Load and Move instruction

[<label>] b STST b <wa> b [<comment>]
 R2Workspace Register operand AND PUT IT

0FAC MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 R2Workspace Register operand,@STATUSSymbolic Memory operand
Definition: @STATUS
Results to: >837C

Symbol STATUS is defined at location >0000
Symbol STATUS is defined as PAD+>7C
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 IN THE STATUS REGISTER

0FB0 BBranch
Jump and Branch instruction

[<label>] b B b <gas> b [<comment>]
 *R10Indirect Workspace Register operand THEN RETURN TO GLI

0FB2 * ROUND FAC BEGINING AT DIGIT SPECIFIED IN ARG

0FB2 * ENTRY NOT KNOWN

0FB2 ROUNU MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R11Workspace Register operand,R10Workspace Register operand SAVE RTN

0FB4 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @FAC+10Symbolic Memory operand
Definition: @FAC+10
Results to: >8354

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
,R1Workspace Register operand
 PICK UP OFFSET

0FB8 SRLShift Right Logical
Workspace Register shift instruction

[<label>] b SRL b <wa>,<scnt> b [<comment>]
 R1Workspace Register operand,8Shift Count operand 

0FBA JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 ROUNUPExpression operand
Definition: ROUNUP
Results to: >0F64

Symbol ROUNUP is a pointer to location >0F64
 AND DO IT

0FBC *

0FBC * ERROR ROUTINE EXITS

0FBC *

0FBC *  DIVIDE BY ZERO EXIT

0FBC *

0FBC * ENTRY NOT KNOWN

0FBC DIVZER LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R9Workspace Register operand,DZERRImmediate Value operand
Definition: DZERR
Results to: >0200

Symbol DZERR is defined at location >0000
Symbol DZERR is defined as >0200
Symbol DZERR DIVIDE BY ZERO ERROR CODE
 DIVIDE BY ZERO CODE FOR USER

0FC0 JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 BIGFLTExpression operand
Definition: BIGFLT
Results to: >0FD2

Symbol BIGFLT is a pointer to location >0FD2
 LARGEST MAGNITUDE WITH SIGN

0FC2 * ----- OVER/UNDERFLOW -----

0FC2 * ENTRY NOT KNOWN

0FC2 OVEXP MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R11Workspace Register operand,R10Workspace Register operand SAVE RTN

0FC4 OVEXP1 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @EXPSymbolic Memory operand
Definition: @EXP
Results to: >8376

Symbol EXP is defined at location >0000
Symbol EXP is defined as PAD+>76
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
,R2Workspace Register operand
 IS EXPONENT -VE?

0FC8 JLTJump if Less Than
Jump and Branch instruction

[<label>] b JLT b <exp> b [<comment>]
 FMULZRExpression operand
Definition: FMULZR
Results to: >0F2A

Symbol FMULZR is a pointer to location >0F2A
 YES, RETURN ZERO

0FCA JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 OV1Expression operand
Definition: OV1
Results to: >0FCE

Symbol OV1 is a pointer to location >0FCE
 SKIP SAVE IF INTERNAL CALL

0FCC * ENTRY NOT KNOWN

0FCC OV MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R11Workspace Register operand,R10Workspace Register operand SAVE RTN

0FCE OV1 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R9Workspace Register operand,OFERRImmediate Value operand
Definition: OFERR
Results to: >0100

Symbol OFERR is defined at location >0000
Symbol OFERR is defined as >0100
Symbol OFERR OVERFLOW ERROR CODE
 

0FD2 * SUPPLY THE LARGEST MAGNITUDE VALUE WITH PROPER SIGN

0FD2 BIGFLT LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R0Workspace Register operand,->7F63Immediate Value operand HIGH WORD OF LARGEST VALUE

0FD6 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @SIGNSymbolic Memory operand
Definition: @SIGN
Results to: >8375

Symbol SIGN is defined at location >0000
Symbol SIGN is defined as PAD+>75
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
,R2Workspace Register operand
 IS FAC -VE

0FDA JLTJump if Less Than
Jump and Branch instruction

[<label>] b JLT b <exp> b [<comment>]
 BIGF01Expression operand
Definition: BIGF01
Results to: >0FDE

Symbol BIGF01 is a pointer to location >0FDE
 YES, PUT HIGH WORD IN FAC

0FDC NEGNegate
Arithmetic instruction

[<label>] b NEG b <gas> b [<comment>]
 R0Workspace Register operand 

0FDE BIGF01 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R2Workspace Register operand,FACImmediate Value operand
Definition: FAC
Results to: >834A

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 GET PRT TO FAC

0FE2 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R0Workspace Register operand,*R2+Indirect Workspace Register Auto Increment operand PUT APPROPRIATE HIGH WORD IN FAC

0FE4 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R0Workspace Register operand,>6363Immediate Value operand GET 99'S

0FE8 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R0Workspace Register operand,*R2+Indirect Workspace Register Auto Increment operand PUT IN FAC TO GIVE LARGEST POS

0FEA MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R0Workspace Register operand,*R2+Indirect Workspace Register Auto Increment operand OR MOST NEG NUMBER

0FEC MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R0Workspace Register operand,*R2Indirect Workspace Register operand 

0FEE MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 R9Workspace Register operand,@FAC+10Symbolic Memory operand
Definition: @FAC+10
Results to: >8354

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 PLACE ERROR CODE IN RAM

0FF2 JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 STEXExpression operand
Definition: STEX
Results to: >0FA6

Symbol STEX is a pointer to location >0FA6
 NO ROUTINE SPECIFIED, RETURN

0FF4 *

0FF4 * FLOATING DIVISION   FAC = ARG / FAC

0FF4 *

0FF4 * = BR TABLE

0FF4 FDIV MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R11Workspace Register operand,R10Workspace Register operand 

0FF6 JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 FDIV1Expression operand
Definition: FDIV1
Results to: >0FFE

Symbol FDIV1 is a pointer to location >0FFE
 

0FF8 SDIV MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R11Workspace Register operand,R10Workspace Register operand SVE RTN

0FFA BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 @POPSTKSymbolic Memory operand
Definition: @POPSTK
Results to: >1FA8

Symbol POPSTK is defined at location >0000
Symbol POPSTK is defined as S+>1FA8
Symbol S is defined at location >0000
Symbol S is defined as 0
 STACK DIVISION

0FFE FDIV1 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R3Workspace Register operand,FACImmediate Value operand
Definition: FAC
Results to: >834A

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 PTR TO FAC

1002 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 *R3Indirect Workspace Register operand,R8Workspace Register operand GET DIVISOR 1ST WORD

1004 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R0Workspace Register operand,ARGImmediate Value operand
Definition: ARG
Results to: >835C

Symbol ARG is defined at location >0000
Symbol ARG is defined as PAD+>5C
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 PTR TO ARG

1008 XORExclusive OR
Logical instruction

[<label>] b XOR b <gas>,<wad> b [<comment>]
 *R0Indirect Workspace Register operand,R8Workspace Register operand NO, COMPUTE SIGN OF QUOTIENT

100A MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 R8Workspace Register operand,@SIGNSymbolic Memory operand
Definition: @SIGN
Results to: >8375

Symbol SIGN is defined at location >0000
Symbol SIGN is defined as PAD+>75
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 SAVE SAME

100E ABSAbsolute Value
Arithmetic instruction

[<label>] b ABS b <gas> b [<comment>]
 *R3Indirect Workspace Register operand ABS OF DIVISOR

1010 D010 JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 DIVZERExpression operand
Definition: DIVZER
Results to: >0FBC

Symbol DIVZER is a pointer to location >0FBC
 CAN'T BE ZERO

1012 ABSAbsolute Value
Arithmetic instruction

[<label>] b ABS b <gas> b [<comment>]
 *R0Indirect Workspace Register operand IS DIVIDEND ZERO?

1014 JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 FMULZRExpression operand
Definition: FMULZR
Results to: >0F2A

Symbol FMULZR is a pointer to location >0F2A
 YES, RESULT IS ZERO

1016 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 *R0Indirect Workspace Register operand,R9Workspace Register operand GET DIVIDENT EXP

1018 SBSubtract Bytes
Arithmetic instruction

[<label>] b SB b <gas>,<gad> b [<comment>]
 *R3Indirect Workspace Register operand,R9Workspace Register operand SUB EXP'S TO GET QUOTIENT EXP

101A SRAShift Right Arithmetic
Workspace Register shift instruction

[<label>] b SRA b <wa>,<scnt> b [<comment>]
 R9Workspace Register operand,8Shift Count operand GET DIFF IN LOW BYTE

101C AIAdd Immediate
Arithmetic instruction

[<label>] b AI b <wa>,<iop> b [<comment>]
 R9Workspace Register operand,64Immediate Value operand ADD BIAS TO EXPONENT

1020 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R9Workspace Register operand,@EXPSymbolic Memory operand
Definition: @EXP
Results to: >8376

Symbol EXP is defined at location >0000
Symbol EXP is defined as PAD+>76
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 AND SAVE FOR RESULT

1024 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R4Workspace Register operand,4Immediate Value operand 

1028 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R5Workspace Register operand,ARG+8Immediate Value operand
Definition: ARG+8
Results to: >8364

Symbol ARG is defined at location >0000
Symbol ARG is defined as PAD+>5C
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 

102C FDV01 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 *R3+Indirect Workspace Register Auto Increment operand,@10-2(R3)Indexed Memory operand
Definition: @10-2(R3)
Results to: >000E
 

1030 CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 *R5+Indirect Workspace Register Auto Increment operand 

1032 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R4Workspace Register operand 

1034 JGTJump if Greater Than
Jump and Branch instruction

[<label>] b JGT b <exp> b [<comment>]
 FDV01Expression operand
Definition: FDV01
Results to: >102C

Symbol FDV01 is a pointer to location >102C
 LOOP TILL 4 BYTE MOVED

1036 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 R4Workspace Register operand,@ARGSymbolic Memory operand
Definition: @ARG
Results to: >835C

Symbol ARG is defined at location >0000
Symbol ARG is defined as PAD+>5C
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 CLEAR EXTRA HIGH BYTE OF DIVIDEND

103A *

103A * REFS FOR DIVISION ALGORITHM:

103A * DONALD E. KNUTH, THE ART OF COMPUTER PROGRAMMING, VOLUME 2

103A * SEMINUMERICAL ALGORITHMS, ADDISON-WESLEY, 1969, P 235 FF

103A *

103A * THE DIVIDEND IS THE SERIES OF RADIX DIGITS:

103A *    U0,U1,U2 .... U7  (IN ARG)

103A * THE DIVISOR IS THE SERIES OF RADIX DIGITS:

103A *    V1,V2,V3 .... V7  (IN FAC+8 OR FDVSR)

103A * (U0 IS THE EXTRA HIGH BYTE OF THE DIVIDEND)

103A *

103A * NORMALIZE DIVISOR AND DIVIDEND SO V1 GT 50

103A * IF V1 LT 50, MULTIPLY DIVISOR AND DIVIDEND BY

103A * INT(100/(V1+1))

103A *

103A * R0-R1     MPY, DIV WORK REGS

103A * R2        CARRY

103A * R3        MULTIPLIER

103A * R4        LOOP COUNT

103A * R5        PTR TO RB (R0)

103A * R6        PRT TO RB(R1)

103A * R77       100

103A *

103A LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R5Workspace Register operand,R0LSBImmediate Value operand
Definition: R0LSB
Results to: >83E1

Symbol R0LSB is defined at location >0000
Symbol R0LSB is defined as WKSE+R0+R0+1
Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R0 resolves to the Register number.
Register R0 resolves to the Register number.
 GET POINTERS INTO MULTIPLY

103E LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R6Workspace Register operand,R1LSBImmediate Value operand
Definition: R1LSB
Results to: >83E3

Symbol R1LSB is defined at location >0000
Symbol R1LSB is defined as WKSE+R1+R1+1
Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R1 resolves to the Register number.
Register R1 resolves to the Register number.
  WORK AREA

1042 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R7Workspace Register operand,100Immediate Value operand RADIX

1046 HX0064 EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 $-2Expression operand
Definition: $-2
Results to: >1044

$ represents the location >1046
 

1046 D045 EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 $-1Expression operand
Definition: $-1
Results to: >1045

$ represents the location >1046
 

1046 CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R2Workspace Register operand CLEARR HIGH BYTE OF WHERE V1 WILL BE

1048 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @FDVSR+1Symbolic Memory operand
Definition: @FDVSR+1
Results to: >8355

Symbol FDVSR is defined at location >0000
Symbol FDVSR is defined as FAC+10
Symbol FDVSR DIVISOR STORE DURING DIVISION
Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
,@R2LSBSymbolic Memory operand
Definition: @R2LSB
Results to: >83E5

Symbol R2LSB is defined at location >0000
Symbol R2LSB is defined as WKSE+R2+R2+1
Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R2 resolves to the Register number.
Register R2 resolves to the Register number.
 GET V1 IN RB(R2)

104E CICompare Immediate
Compare instruction

[<label>] b CI b <wa>,<iop> b [<comment>]
 R2Workspace Register operand,49Immediate Value operand IS V1 ALREADY NORMALIZED?

1052 JGTJump if Greater Than
Jump and Branch instruction

[<label>] b JGT b <exp> b [<comment>]
 FDIV06Expression operand
Definition: FDIV06
Results to: >1090

Symbol FDIV06 is a pointer to location >1090
 YES, PROCEED WITH DIVISION

1054 INCIncrement
Arithmetic instruction

[<label>] b INC b <gas> b [<comment>]
 R2Workspace Register operand NO, COMPUTE V1+1

1056 CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R3Workspace Register operand GET RADIX IN 2 REGS FOR DIV

1058 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R7Workspace Register operand,R4Workspace Register operand GET RADIX

105A DIVDivide
Arithmetic instruction

[<label>] b DIV b <gas>,<wad> b [<comment>]
 R2Workspace Register operand,R3Workspace Register operand COMPUTE MULTIPLIER =INT(100/V1+1))

105C LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R9Workspace Register operand,FDVSR+8Immediate Value operand
Definition: FDVSR+8
Results to: >835C

Symbol FDVSR is defined at location >0000
Symbol FDVSR is defined as FAC+10
Symbol FDVSR DIVISOR STORE DURING DIVISION
Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 

1060 FDVLP LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R4Workspace Register operand,8Immediate Value operand GET NO. OF BYTES IN DIVIDEND+1

1064 FDIV04 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R4Workspace Register operand IGNORE ZERO BYTES AT END

1066 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R9Workspace Register operand 

1068 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 *R9Indirect Workspace Register operand,R0Workspace Register operand IS NEXT HIGHER ORDER BYTE ZERO?

106A JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 FDIV04Expression operand
Definition: FDIV04
Results to: >1064

Symbol FDIV04 is a pointer to location >1064
 YES, KEEP LOOKING FOR NON-ZERO

106C CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R0Workspace Register operand NO, LEAR CARRY INTO LOW ORDER BYTE

106E FDIV05 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R0Workspace Register operand,R2Workspace Register operand SAVE CARRY FROM LAST BYTE

1070 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 *R9Indirect Workspace Register operand,*R5Indirect Workspace Register operand GET NEXT BYTE OF DIVIDEND

1072 MPYMultiply
Arithmetic instruction

[<label>] b MPY b <gas>,<wad> b [<comment>]
 R3Workspace Register operand,R0Workspace Register operand MULTIPLY THIS BYTE BY MULTIPLIER

1074 AAdd Words
Arithmetic instruction

[<label>] b A b <gas>,<gad> b [<comment>]
 R2Workspace Register operand,R1Workspace Register operand ADD IN CARRY FROM PREVIOUS BYTE

1076 DIVDivide
Arithmetic instruction

[<label>] b DIV b <gas>,<wad> b [<comment>]
 R7Workspace Register operand,R0Workspace Register operand CNVRT TO A RADIX DIGIT AND A CARRY

1078 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 *R6Indirect Workspace Register operand,*R9Indirect Workspace Register operand PUT RESULT BYTE IN DIVIDEND

107A DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R9Workspace Register operand 

107C DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R4Workspace Register operand LOOP UNTIL ALL DIVIDEND BYTES

107E JGTJump if Greater Than
Jump and Branch instruction

[<label>] b JGT b <exp> b [<comment>]
 FDIV05Expression operand
Definition: FDIV05
Results to: >106E

Symbol FDIV05 is a pointer to location >106E
 NO, CONTINUE MULTIPLYING

1080 CICompare Immediate
Compare instruction

[<label>] b CI b <wa>,<iop> b [<comment>]
 R9Workspace Register operand,FDVSRImmediate Value operand
Definition: FDVSR
Results to: >8354

Symbol FDVSR is defined at location >0000
Symbol FDVSR is defined as FAC+10
Symbol FDVSR DIVISOR STORE DURING DIVISION
Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 

1084 JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 FDVLPAExpression operand
Definition: FDVLPA
Results to: >108C

Symbol FDVLPA is a pointer to location >108C
 

1086 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R9Workspace Register operand,ARG+8Immediate Value operand
Definition: ARG+8
Results to: >8364

Symbol ARG is defined at location >0000
Symbol ARG is defined as PAD+>5C
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 

108A JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 FDVLPExpression operand
Definition: FDVLP
Results to: >1060

Symbol FDVLP is a pointer to location >1060
 

108C FDVLPA MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 *R5Indirect Workspace Register operand,@ARGSymbolic Memory operand
Definition: @ARG
Results to: >835C

Symbol ARG is defined at location >0000
Symbol ARG is defined as PAD+>5C
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 YES, PUT CARRY OUT OF HIGH ORDER

1090 *                             IN HIGHEST BYTE

1090 *

1090 * DIVIDE LOOP:

1090 *  U(J) IS THE HIGHEST ORDER BYTE OF WHAT IS LEFT OF THE DIVIDEND

1090 *  EACH QUOTIENT DIGIT IS ESTIMATED AS FOLLOWS:

1090 *   IF U(J) = V1 THEN Q := 99

1090 *       ELSE Q:= INT((100*U(J)+U(J+1))/V1)

1090 *   IF V2*Q GT (100*U(J)+U(J+1)-Q*V1)*100+U(J+2)

1090 *       THEN Q := Q-1 ADN THE TEST IS REPEATED.

1090 * THIS WILL ENSURE THAT Q-1 LE NEXT-QUOTIENT-DIGIT LE Q.

1090 *  NOTE THAT 100*U(J)+U(J+1)-Q*V1 =

1090 *  REMAINDER ((100*U(J)+U(J+1))/V1

1090 * Q*V IS THEN SUBTRACTED FROM U

1090 * IF THE RESULT IS -VE, V IS ADDED BACK IN AND A:= Q-1 (THE PROB

1090 * -ABILITY OF ADDING BACK IS APPROX .03)

1090 *

1090 * R0-R1     TEMPORARY

1090 * R2        NEXT QUOTIENT DIGIT

1090 * R3-R4     TEMPORARY

1090 * R5        QUOTIENT BYTE LOOP COUNT

1090 * R6        NUMBER OF SIGNIFICANT BYTES IN DIVISOR

1090 * R7        V1

1090 * R8        V2

1090 * R9        100*V1+V2

1090 * R11       POINTER INTO DIVIDEND (USUALLY POINTS TO U(J)

1090 *

1090 FDIV06 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R6Workspace Register operand,8Immediate Value operand NUMBER OF DIVISOR BYTES +1

1094 FDIV07 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R6Workspace Register operand COMPUTE NO. OF SIG BYTES IN

1096 *                            DIVISOR

1096 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @FDVSR(R6)Indexed Memory operand
Definition: @FDVSR(R6)
Results to: >8360

Symbol FDVSR is defined at location >0000
Symbol FDVSR is defined as FAC+10
Symbol FDVSR DIVISOR STORE DURING DIVISION
Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
,R0Workspace Register operand
 GET NEXT HIGHER ORDER BYTE

109A JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 FDIV07Expression operand
Definition: FDIV07
Results to: >1094

Symbol FDIV07 is a pointer to location >1094
 IGNORE IF ZERO

109C CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R7Workspace Register operand CLR HIGH BYTE OF WHERE V1 WILL BE

109E MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @FDVSR+1Symbolic Memory operand
Definition: @FDVSR+1
Results to: >8355

Symbol FDVSR is defined at location >0000
Symbol FDVSR is defined as FAC+10
Symbol FDVSR DIVISOR STORE DURING DIVISION
Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
,@R7LSBSymbolic Memory operand
Definition: @R7LSB
Results to: >83EF

Symbol R7LSB is defined at location >0000
Symbol R7LSB is defined as WKSE+R7+R7+1
Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R7 resolves to the Register number.
Register R7 resolves to the Register number.
 RB(R7) IS V1

10A4 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R7Workspace Register operand,R8Workspace Register operand COPY V1 TO COMPUTE 100*V1

10A6 MPYMultiply
Arithmetic instruction

[<label>] b MPY b <gas>,<wad> b [<comment>]
 @HX0064Symbolic Memory operand
Definition: @HX0064
Results to: >1044

Symbol HX0064 is defined at location >1046
Symbol HX0064 is defined as $-2
$ represents the location >1046
,R8Workspace Register operand
 COMPUTE 100*V1

10AA MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @FDVSR+2Symbolic Memory operand
Definition: @FDVSR+2
Results to: >8356

Symbol FDVSR is defined at location >0000
Symbol FDVSR is defined as FAC+10
Symbol FDVSR DIVISOR STORE DURING DIVISION
Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
,@R8LSBSymbolic Memory operand
Definition: @R8LSB
Results to: >83F1

Symbol R8LSB is defined at location >0000
Symbol R8LSB is defined as WKSE+R8+R8+1
Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R8 resolves to the Register number.
Register R8 resolves to the Register number.
 GET V2 (HIGH BYTE IS ZERO)

10B0 AAdd Words
Arithmetic instruction

[<label>] b A b <gas>,<gad> b [<comment>]
 R8Workspace Register operand,R9Workspace Register operand COMPUTE 100*V1+V2

10B2 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R5Workspace Register operand,-9Immediate Value operand COMPUTE 9 BYTES OF QUOTIENT

10B6 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R11Workspace Register operand,ARGImmediate Value operand
Definition: ARG
Results to: >835C

Symbol ARG is defined at location >0000
Symbol ARG is defined as PAD+>5C
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 PTR TO HIGH BYTE OF DIVIDEND

10BA FDIV08 CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R2Workspace Register operand CLEAR HIGH BYTE OF WHERE U(J) WILL BE

10BC MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 *R11Indirect Workspace Register operand,@R2LSBSymbolic Memory operand
Definition: @R2LSB
Results to: >83E5

Symbol R2LSB is defined at location >0000
Symbol R2LSB is defined as WKSE+R2+R2+1
Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R2 resolves to the Register number.
Register R2 resolves to the Register number.
 RB(R2) IS U(J)

10C0 MPYMultiply
Arithmetic instruction

[<label>] b MPY b <gas>,<wad> b [<comment>]
 @HX0064Symbolic Memory operand
Definition: @HX0064
Results to: >1044

Symbol HX0064 is defined at location >1046
Symbol HX0064 is defined as $-2
$ represents the location >1046
,R2Workspace Register operand
 COMPUTE 100*U(J)

10C4 CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R0Workspace Register operand WHERE U(J+1) WILL BE

10C6 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @1(R11)Indexed Memory operand
Definition: @1(R11)
Results to: >0017
,@R0LSBSymbolic Memory operand
Definition: @R0LSB
Results to: >83E1

Symbol R0LSB is defined at location >0000
Symbol R0LSB is defined as WKSE+R0+R0+1
Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R0 resolves to the Register number.
Register R0 resolves to the Register number.
 GET U(J+1)

10CC AAdd Words
Arithmetic instruction

[<label>] b A b <gas>,<gad> b [<comment>]
 R0Workspace Register operand,R3Workspace Register operand 100*U(J)+U(J+1)

10CE DIVDivide
Arithmetic instruction

[<label>] b DIV b <gas>,<wad> b [<comment>]
 R7Workspace Register operand,R2Workspace Register operand GET Q AND REMAINDER

10D0 MPYMultiply
Arithmetic instruction

[<label>] b MPY b <gas>,<wad> b [<comment>]
 @HX0064Symbolic Memory operand
Definition: @HX0064
Results to: >1044

Symbol HX0064 is defined at location >1046
Symbol HX0064 is defined as $-2
$ represents the location >1046
,R3Workspace Register operand
 100* REMAINDER

10D4 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @2(R11)Indexed Memory operand
Definition: @2(R11)
Results to: >0018
,@R0LSBSymbolic Memory operand
Definition: @R0LSB
Results to: >83E1

Symbol R0LSB is defined at location >0000
Symbol R0LSB is defined as WKSE+R0+R0+1
Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R0 resolves to the Register number.
Register R0 resolves to the Register number.
 U(J+2)

10DA AAdd Words
Arithmetic instruction

[<label>] b A b <gas>,<gad> b [<comment>]
 R0Workspace Register operand,R4Workspace Register operand 100*REM + U(J+2)

10DC MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R2Workspace Register operand,R0Workspace Register operand GET Q FOR THE TEST

10DE MPYMultiply
Arithmetic instruction

[<label>] b MPY b <gas>,<wad> b [<comment>]
 R8Workspace Register operand,R0Workspace Register operand COMPUTE V2*Q

10E0 CCompare Words
Compare instruction

[<label>] b C b <gas>,<gad> b [<comment>]
 R2Workspace Register operand,@HX0064Symbolic Memory operand
Definition: @HX0064
Results to: >1044

Symbol HX0064 is defined at location >1046
Symbol HX0064 is defined as $-2
$ represents the location >1046
 DOES Q=100?

10E4 JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 FDIV09Expression operand
Definition: FDIV09
Results to: >10EA

Symbol FDIV09 is a pointer to location >10EA
 YES, MAKE Q=99

10E6 SSubtract Words
Arithmetic instruction

[<label>] b S b <gas>,<gad> b [<comment>]
 R4Workspace Register operand,R1Workspace Register operand NO, COMPUTE V2*Q-(100*REM+U(J+2)

10E8 JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 FDIV11Expression operand
Definition: FDIV11
Results to: >10F0

Symbol FDIV11 is a pointer to location >10F0
 GO CHECK IF IT IS IN RANGE

10EA FDIV09 SSubtract Words
Arithmetic instruction

[<label>] b S b <gas>,<gad> b [<comment>]
 R4Workspace Register operand,R1Workspace Register operand COMPUTE V2*Q-(100*REM+U(J+2))

10EC FDIV10 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R2Workspace Register operand DECREMENT Q

10EE SSubtract Words
Arithmetic instruction

[<label>] b S b <gas>,<gad> b [<comment>]
 R9Workspace Register operand,R1Workspace Register operand COMPUTE ABOVE FOR NEW Q

10F0 FDIV11 JGTJump if Greater Than
Jump and Branch instruction

[<label>] b JGT b <exp> b [<comment>]
 FDIV10Expression operand
Definition: FDIV10
Results to: >10EC

Symbol FDIV10 is a pointer to location >10EC
 IF Q TOO BIG, MAKE IT SMALLER

10F2 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R2Workspace Register operand,R2Workspace Register operand IS Q ZERO?

10F4 JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 FDIV16Expression operand
Definition: FDIV16
Results to: >1148

Symbol FDIV16 is a pointer to location >1148
 YES, DO NOTHING

10F6 *                            NO, SUBTRACT Q*V FROM U

10F6 *

10F6 * R0-R1     TEMPORARY

10F6 * R2        NEXT QUOTIENT DIGIT

10F6 * R3        CARRY

10F6 * R4        LOOP COUNT

10F6 * R5        QUOTIENT BYTE LOOP COUNT

10F6 * R6        NUMBER OF SIGNIFICANT BYTES IN DIVISOR

10F6 * R7        V1

10F6 * R8        V2

10F6 * R9        100*V1+V2

10F6 * R11       POINTER INTO DIVIDEND (USUALLY POINTS TO U(J)

10F6 *

10F6 CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R3Workspace Register operand CLEAR CARRY INTO 1ST BYTE

10F8 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R6Workspace Register operand,R4Workspace Register operand GET DIVISOR LOOP COUNT

10FA AAdd Words
Arithmetic instruction

[<label>] b A b <gas>,<gad> b [<comment>]
 R6Workspace Register operand,R11Workspace Register operand TO LOW BYTE OF DIVID. OF INTEREST

10FC FDIV12 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R0Workspace Register operand,R3Workspace Register operand SAVE CARRY FROM PREV. BYTE

10FE MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @FDVSR(R4)Indexed Memory operand
Definition: @FDVSR(R4)
Results to: >835C

Symbol FDVSR is defined at location >0000
Symbol FDVSR is defined as FAC+10
Symbol FDVSR DIVISOR STORE DURING DIVISION
Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
,@R0LSBSymbolic Memory operand
Definition: @R0LSB
Results to: >83E1

Symbol R0LSB is defined at location >0000
Symbol R0LSB is defined as WKSE+R0+R0+1
Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R0 resolves to the Register number.
Register R0 resolves to the Register number.
                GET NXT BYTE DIVISOR

1104 MPYMultiply
Arithmetic instruction

[<label>] b MPY b <gas>,<wad> b [<comment>]
 R2Workspace Register operand,R0Workspace Register operand MPY BYTE OF DIVSR BY QUOTIENT

1106 AAdd Words
Arithmetic instruction

[<label>] b A b <gas>,<gad> b [<comment>]
 R3Workspace Register operand,R1Workspace Register operand ADD IN CARRY FROM LAST DVSR BYTE

1108 DIVDivide
Arithmetic instruction

[<label>] b DIV b <gas>,<wad> b [<comment>]
 @HX0064Symbolic Memory operand
Definition: @HX0064
Results to: >1044

Symbol HX0064 is defined at location >1046
Symbol HX0064 is defined as $-2
$ represents the location >1046
,R0Workspace Register operand
 CONVERT TO A RADIX 100 DIGIT

110C SBSubtract Bytes
Arithmetic instruction

[<label>] b SB b <gas>,<gad> b [<comment>]
 @R1LSBSymbolic Memory operand
Definition: @R1LSB
Results to: >83E3

Symbol R1LSB is defined at location >0000
Symbol R1LSB is defined as WKSE+R1+R1+1
Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R1 resolves to the Register number.
Register R1 resolves to the Register number.
,*R11Indirect Workspace Register operand
 SUB. PRODUCT BYTE FROM DIVIDEND

1110 JGTJump if Greater Than
Jump and Branch instruction

[<label>] b JGT b <exp> b [<comment>]
 FDIV13Expression operand
Definition: FDIV13
Results to: >111A

Symbol FDIV13 is a pointer to location >111A
 IS RESULT +VE?

1112 JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 FDIV13Expression operand
Definition: FDIV13
Results to: >111A

Symbol FDIV13 is a pointer to location >111A
 OR ZERO ?

1114 ABAdd Bytes
Arithmetic instruction

[<label>] b AB b <gas>,<gad> b [<comment>]
 @HX0064+1Symbolic Memory operand
Definition: @HX0064+1
Results to: >1045

Symbol HX0064 is defined at location >1046
Symbol HX0064 is defined as $-2
$ represents the location >1046
,*R11Indirect Workspace Register operand
 NO, ADD RADIX BACK

1118 INCIncrement
Arithmetic instruction

[<label>] b INC b <gas> b [<comment>]
 R0Workspace Register operand INC PRODUCT CARRY TO BORROW FROM

111A *                             NEXT BYTE

111A FDIV13 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R11Workspace Register operand POINT TO NEXT HIGHER BYTE OF DVDND

111C DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R4Workspace Register operand SUB'D ALL BYTES OF DIVISOR?

111E JGTJump if Greater Than
Jump and Branch instruction

[<label>] b JGT b <exp> b [<comment>]
 FDIV12Expression operand
Definition: FDIV12
Results to: >10FC

Symbol FDIV12 is a pointer to location >10FC
 NO, CONTINUE SUBTRACTING

1120 SBSubtract Bytes
Arithmetic instruction

[<label>] b SB b <gas>,<gad> b [<comment>]
 @R0LSBSymbolic Memory operand
Definition: @R0LSB
Results to: >83E1

Symbol R0LSB is defined at location >0000
Symbol R0LSB is defined as WKSE+R0+R0+1
Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R0 resolves to the Register number.
Register R0 resolves to the Register number.
,*R11Indirect Workspace Register operand
 YES, SUB CARRY FROM DIVISOR PRODUCT

1124 JGTJump if Greater Than
Jump and Branch instruction

[<label>] b JGT b <exp> b [<comment>]
 FDIV16Expression operand
Definition: FDIV16
Results to: >1148

Symbol FDIV16 is a pointer to location >1148
 HIGH ORDER FROM HIGHEST ORDER

1126 JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 FDIV16Expression operand
Definition: FDIV16
Results to: >1148

Symbol FDIV16 is a pointer to location >1148
  DIVIDEND BYTE. -VE RESULT?

1128 *                            YES, ADD DIVIDEND BACK IN, Q WAS

1128 *                            ONE TOO BIG

1128 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R2Workspace Register operand DEC Q, WAS ONE TOO BIG

112A MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R6Workspace Register operand,R4Workspace Register operand GET ADD-BACK LOOP COUNT

112C AAdd Words
Arithmetic instruction

[<label>] b A b <gas>,<gad> b [<comment>]
 R6Workspace Register operand,R11Workspace Register operand PNT TO LOW ORDER BYTE OF DVDND

112E *                            OF INTEREST

112E FDIV14 ABAdd Bytes
Arithmetic instruction

[<label>] b AB b <gas>,<gad> b [<comment>]
 @FDVSR(R4)Indexed Memory operand
Definition: @FDVSR(R4)
Results to: >835C

Symbol FDVSR is defined at location >0000
Symbol FDVSR is defined as FAC+10
Symbol FDVSR DIVISOR STORE DURING DIVISION
Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
,*R11Indirect Workspace Register operand
 ADD BYTE OF DVSR TO DVDND

1132 CBCompare Bytes
Compare instruction

[<label>] b CB b <gas>,<gad> b [<comment>]
 *R11Indirect Workspace Register operand,@HX0064+1Symbolic Memory operand
Definition: @HX0064+1
Results to: >1045

Symbol HX0064 is defined at location >1046
Symbol HX0064 is defined as $-2
$ represents the location >1046
 RESULT LARGER THAN RADIX?

1136 JLJump if Logical Low
Jump and Branch instruction

[<label>] b JL b <exp> b [<comment>]
 FDIV15Expression operand
Definition: FDIV15
Results to: >1142

Symbol FDIV15 is a pointer to location >1142
 NO, RESULT IS CORRECT

1138 SBSubtract Bytes
Arithmetic instruction

[<label>] b SB b <gas>,<gad> b [<comment>]
 @HX0064+1Symbolic Memory operand
Definition: @HX0064+1
Results to: >1045

Symbol HX0064 is defined at location >1046
Symbol HX0064 is defined as $-2
$ represents the location >1046
,*R11Indirect Workspace Register operand
 YES, SUBTRACT RADIX

113C ABAdd Bytes
Arithmetic instruction

[<label>] b AB b <gas>,<gad> b [<comment>]
 @HX01Symbolic Memory operand
Definition: @HX01
Results to: >0E59

Symbol HX01 is defined at location >0E5A
Symbol HX01 is defined as $-1
$ represents the location >0E5A
,@-1(R11)Indexed Memory operand
Definition: @-1(R11)
Results to: >0015
 ADD 1 FOR CARRY TO HIGHER BYTE

1142 FDIV15 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R11Workspace Register operand TO NEXT HIGHER BYTE OF DIVIDEND

1144 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R4Workspace Register operand DONE ADDING IN ALL BYTES OF DVDND?

1146 JGTJump if Greater Than
Jump and Branch instruction

[<label>] b JGT b <exp> b [<comment>]
 FDIV14Expression operand
Definition: FDIV14
Results to: >112E

Symbol FDIV14 is a pointer to location >112E
 NO, ADD IN THE NEXT ONE

1148 FDIV16 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @R2LSBSymbolic Memory operand
Definition: @R2LSB
Results to: >83E5

Symbol R2LSB is defined at location >0000
Symbol R2LSB is defined as WKSE+R2+R2+1
Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R2 resolves to the Register number.
Register R2 resolves to the Register number.
,@FDVSR(R5)Indexed Memory operand
Definition: @FDVSR(R5)
Results to: >835E

Symbol FDVSR is defined at location >0000
Symbol FDVSR is defined as FAC+10
Symbol FDVSR DIVISOR STORE DURING DIVISION
Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
                PUT AWAY NEXT QUOT BYTE

114E INCIncrement
Arithmetic instruction

[<label>] b INC b <gas> b [<comment>]
 R11Workspace Register operand HIGH ORDER OF NEXT SIGNIF DVDND

1150 INCIncrement
Arithmetic instruction

[<label>] b INC b <gas> b [<comment>]
 R5Workspace Register operand COMPUTED ALL NECESS. BYTES OF QUO?

1152 JLTJump if Less Than
Jump and Branch instruction

[<label>] b JLT b <exp> b [<comment>]
 FDIV08Expression operand
Definition: FDIV08
Results to: >10BA

Symbol FDIV08 is a pointer to location >10BA
 NO, CONTINUE

1154 BBranch
Jump and Branch instruction

[<label>] b B b <gas> b [<comment>]
 @FMENDSymbolic Memory operand
Definition: @FMEND
Results to: >0F18

Symbol FMEND is a pointer to location >0F18
 YES, NORMALIZE AND FINISH UP

1158 *

1158 * STRING TO NUMBER CONVERSIONS

1158 * R0   POINTER

1158 * R1   EXPONENT SIGN

1158 * R2   TP1 (SAVED TEXT POINTER)

1158 * R3   ADR. OF GETCH (FOR BL)

1158 * R4   ACCUMULATOR FOR CSINT

1158 * R5   ACCUMULATOR FOR CSINT

1158 * R6   TEXT POINTER

1158 * R7   RELATIVE POSITION COUNTER

1158 * R8   CURRENT CHARACTER (LSBYTE)

1158 * R9   UNUSED

1158 * R10  SAVED LINK

1158 * R11  LINK

1158 * R12  NON-ZERO CHARACTER POINTER

1158 *

1158 * CALLED WITH FAX = ADR. OF STRING

1158 * RETURNS WITH CONTAINING NUMBER

1158 *

1158 * RPOS-RELATIVE POSITION OF FIRST NONZERO DIGIT

1158 *       WRT ONE'S DIGIT

1158 *      EG. 10,+1; 1,+0; .1,-1; .01,-2

1158 *

1158 *

1158 *  CONVERT STRING TO INTEGER, VALUE RETURNED IN R4

1158 *

1158 HX3203 DATAInitialize Word
Directive that initializes constants

[<label>] b DATA b <exp>[,<exp>]... b [<comment>]
 >3203Expression operand 

115A * = BL, REQUIRES R3 SET UP ON ENTRY

115A CSINT CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R4Workspace Register operand 

115C CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R0Workspace Register operand CHAR COUNTER FOR EXPONENT

115E MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R11Workspace Register operand,R9Workspace Register operand 

1160 JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 CSI02Expression operand
Definition: CSI02
Results to: >1172

Symbol CSI02 is a pointer to location >1172
 

1162 CSI01 MPYMultiply
Arithmetic instruction

[<label>] b MPY b <gas>,<wad> b [<comment>]
 @HX000ASymbolic Memory operand
Definition: @HX000A
Results to: >117A

Symbol HX000A is defined at location >117C
Symbol HX000A is defined as $-2
$ represents the location >117C
,R4Workspace Register operand
 

1166 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R4Workspace Register operand,R4Workspace Register operand TEST FOR OVERFLOW

1168 JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 CSI05Expression operand
Definition: CSI05
Results to: >1184

Symbol CSI05 is a pointer to location >1184
 YES, OVERFLOW

116A INCIncrement
Arithmetic instruction

[<label>] b INC b <gas> b [<comment>]
 R0Workspace Register operand COUNT THE CHAR

116C AAdd Words
Arithmetic instruction

[<label>] b A b <gas>,<gad> b [<comment>]
 R8Workspace Register operand,R5Workspace Register operand 

116E MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R5Workspace Register operand,R4Workspace Register operand IS INTEGER >32767

1170 JLTJump if Less Than
Jump and Branch instruction

[<label>] b JLT b <exp> b [<comment>]
 CSI05Expression operand
Definition: CSI05
Results to: >1184

Symbol CSI05 is a pointer to location >1184
 YES, TOO BIG

1172 CSI02 BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 *R3Indirect Workspace Register operand GET NEXT DIGIT

1174 AIAdd Immediate
Arithmetic instruction

[<label>] b AI b <wa>,<iop> b [<comment>]
 R8Workspace Register operand,-'0'Immediate Value operand ASCII TO BINARY

1178 CICompare Immediate
Compare instruction

[<label>] b CI b <wa>,<iop> b [<comment>]
 R8Workspace Register operand,10Immediate Value operand COMPARE TO TEN

117C HX000A EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 $-2Expression operand
Definition: $-2
Results to: >117A

$ represents the location >117C
 

117C JLJump if Logical Low
Jump and Branch instruction

[<label>] b JL b <exp> b [<comment>]
 CSI01Expression operand
Definition: CSI01
Results to: >1162

Symbol CSI01 is a pointer to location >1162
 CHAR OK

117E MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R0Workspace Register operand,R0Workspace Register operand ANY CHARS?

1180 JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 CSNZ10Expression operand
Definition: CSNZ10
Results to: >118E

Symbol CSNZ10 is a pointer to location >118E
 NO - ERROR

1182 BBranch
Jump and Branch instruction

[<label>] b B b <gas> b [<comment>]
 *R9Indirect Workspace Register operand RETURN GOOD

1184 CSI05 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R9Workspace Register operand,CSNOFLImmediate Value operand
Definition: CSNOFL
Results to: >1190

Symbol CSNOFL is a pointer to location >1190
 SET RTN ADR. TO ERROR

1188 JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 CSI02Expression operand
Definition: CSI02
Results to: >1172

Symbol CSI02 is a pointer to location >1172
 CONTINUE WITH STRING

118A CSNZER BBranch
Jump and Branch instruction

[<label>] b B b <gas> b [<comment>]
 @FMULZRSymbolic Memory operand
Definition: @FMULZR
Results to: >0F2A

Symbol FMULZR is a pointer to location >0F2A
 

118E CSNZ10 BBranch
Jump and Branch instruction

[<label>] b B b <gas> b [<comment>]
 *R10Indirect Workspace Register operand RETURN

1190 * = B *R9

1190 CSNOFL DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R6Workspace Register operand 

1192 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R6Workspace Register operand,@FAC+12Symbolic Memory operand
Definition: @FAC+12
Results to: >8356

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 

1196 CCompare Words
Compare instruction

[<label>] b C b <gas>,<gad> b [<comment>]
 R12Workspace Register operand,R2Workspace Register operand IS MANTISSA ZERO?

1198 JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 CSNZERExpression operand
Definition: CSNZER
Results to: >118A

Symbol CSNZER is a pointer to location >118A
 YES, NUMBER IS ZERO

119A MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R1Workspace Register operand,@EXPSymbolic Memory operand
Definition: @EXP
Results to: >8376

Symbol EXP is defined at location >0000
Symbol EXP is defined as PAD+>76
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 SET EXPONENT SIGN

119E BBranch
Jump and Branch instruction

[<label>] b B b <gas> b [<comment>]
 @OVEXP1Symbolic Memory operand
Definition: @OVEXP1
Results to: >0FC4

Symbol OVEXP1 is a pointer to location >0FC4
 GO TO ERROR ROUTINE

11A2 *

11A2 * CONVERT STRING TO NUMBER    GROM ENTRY

11A2 *

11A2 * =BL

11A2 CSNGR MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @GROMFGSymbolic Memory operand
Definition: @GROMFG
Results to: >8389

Symbol GROMFG is defined at location >0000
Symbol GROMFG is defined as PAD+>89
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
,R3Workspace Register operand
 TEST FOR GROM

11A6 JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 CSNExpression operand
Definition: CSN
Results to: >11AE

Symbol CSN is a pointer to location >11AE
 

11A8 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R3Workspace Register operand,GETCHGImmediate Value operand
Definition: GETCHG
Results to: >1FDA

Symbol GETCHG is defined at location >0000
Symbol GETCHG is defined as S+>1FDA
Symbol S is defined at location >0000
Symbol S is defined as 0
 ROUTINE TO GET GROM CHAR

11AC JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 CSN01Expression operand
Definition: CSN01
Results to: >11B2

Symbol CSN01 is a pointer to location >11B2
 

11AE CSN LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R3Workspace Register operand,GETCHImmediate Value operand
Definition: GETCH
Results to: >1FC8

Symbol GETCH is defined at location >0000
Symbol GETCH is defined as S+>1FC8
Symbol S is defined at location >0000
Symbol S is defined as 0
 ADDR OF GETCH ROUTINE

11B2 CSN01 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R11Workspace Register operand,R10Workspace Register operand 

11B4 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 @>8356Symbolic Memory operand
Definition: @>8356
Results to: >8356
,R6Workspace Register operand
 INIT TEXT POINTER

11B8 BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 *R3Indirect Workspace Register operand GET CHAR

11BA CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R7Workspace Register operand SIGN

11BC MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R6Workspace Register operand,R2Workspace Register operand SAVE REQUIRED DIGIT POINTER

11BE CICompare Immediate
Compare instruction

[<label>] b CI b <wa>,<iop> b [<comment>]
 R8Workspace Register operand,'+'Immediate Value operand IS CHAR A PLUS?

11C2 JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 CSN02Expression operand
Definition: CSN02
Results to: >11CC

Symbol CSN02 is a pointer to location >11CC
 YES, IGNORE

11C4 CICompare Immediate
Compare instruction

[<label>] b CI b <wa>,<iop> b [<comment>]
 R8Workspace Register operand,'-'Immediate Value operand IS IT A MINUS?

11C8 JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 CSN04Expression operand
Definition: CSN04
Results to: >11D0

Symbol CSN04 is a pointer to location >11D0
 NO

11CA SETOSet to One
Logical instruction

[<label>] b SETO b <gas> b [<comment>]
 R7Workspace Register operand NEGATIVE

11CC CSN02 INCIncrement
Arithmetic instruction

[<label>] b INC b <gas> b [<comment>]
 R2Workspace Register operand 

11CE CSN03 BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 *R3Indirect Workspace Register operand GET NEXT CHAR

11D0 CSN04 CICompare Immediate
Compare instruction

[<label>] b CI b <wa>,<iop> b [<comment>]
 R8Workspace Register operand,'0'Immediate Value operand ZERO?

11D4 JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 CSN03Expression operand
Definition: CSN03
Results to: >11CE

Symbol CSN03 is a pointer to location >11CE
 YES

11D6 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 R7Workspace Register operand,@SIGNSymbolic Memory operand
Definition: @SIGN
Results to: >8375

Symbol SIGN is defined at location >0000
Symbol SIGN is defined as PAD+>75
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 SAVE S[GO

11DA MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R6Workspace Register operand,R12Workspace Register operand 

11DC DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R12Workspace Register operand FIRST NON-ZERO CHARR

11DE SETOSet to One
Logical instruction

[<label>] b SETO b <gas> b [<comment>]
 R7Workspace Register operand INIT RELATIVE POSN

11E0 JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 CSN06Expression operand
Definition: CSN06
Results to: >11E6

Symbol CSN06 is a pointer to location >11E6
 

11E2 CSN05 INCIncrement
Arithmetic instruction

[<label>] b INC b <gas> b [<comment>]
 R7Workspace Register operand INC RELATIVE POSN

11E4 BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 *R3Indirect Workspace Register operand 

11E6 CSN06 CICompare Immediate
Compare instruction

[<label>] b CI b <wa>,<iop> b [<comment>]
 R8Workspace Register operand,'0'Immediate Value operand LESS THAN A ZERO?

11EA JLJump if Logical Low
Jump and Branch instruction

[<label>] b JL b <exp> b [<comment>]
 CSN07Expression operand
Definition: CSN07
Results to: >11F2

Symbol CSN07 is a pointer to location >11F2
 YES

11EC CICompare Immediate
Compare instruction

[<label>] b CI b <wa>,<iop> b [<comment>]
 R8Workspace Register operand,'9'Immediate Value operand LESS THAN 9?

11F0 JLEJump if Low or Equal
Jump and Branch instruction

[<label>] b JLE b <exp> b [<comment>]
 CSN05Expression operand
Definition: CSN05
Results to: >11E2

Symbol CSN05 is a pointer to location >11E2
 YES

11F2 CSN07 CICompare Immediate
Compare instruction

[<label>] b CI b <wa>,<iop> b [<comment>]
 R8Workspace Register operand,'.'Immediate Value operand END OF INTEGER PART?

11F6 JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 CSNGExpression operand
Definition: CSNG
Results to: >1220

Symbol CSNG is a pointer to location >1220
 LOOK FOR EXPONENT OR END

11F8 *

11F8 * COVERT A FLOATING POINT NUMBER

11F8 *

11F8 INCIncrement
Arithmetic instruction

[<label>] b INC b <gas> b [<comment>]
 R2Workspace Register operand MOVE DIGIT POINTER PAST DEC. POINT

11FA MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R7Workspace Register operand,R7Workspace Register operand 

11FC JLTJump if Less Than
Jump and Branch instruction

[<label>] b JLT b <exp> b [<comment>]
 CSNF03Expression operand
Definition: CSNF03
Results to: >1202

Symbol CSNF03 is a pointer to location >1202
 NO SIGNIF DIGIT TO LEFT OF

11FE JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 CSNF04Expression operand
Definition: CSNF04
Results to: >120E

Symbol CSNF04 is a pointer to location >120E
 LOOK FOR LAST DIGIT

1200 CSNF02 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R7Workspace Register operand 

1202 CSNF03 BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 *R3Indirect Workspace Register operand GET NEXT CHAR

1204 CICompare Immediate
Compare instruction

[<label>] b CI b <wa>,<iop> b [<comment>]
 R8Workspace Register operand,'0'Immediate Value operand IGNORE LEADING ZEROS

1208 JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 CSNF02Expression operand
Definition: CSNF02
Results to: >1200

Symbol CSNF02 is a pointer to location >1200
 

120A DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R6Workspace Register operand 

120C * THIS IS FIRST SIGNIFICANT DIGIT OF THE END OF THE NUMBER,

120C * POINT BACK TO FIRST NON-ZERO CHAR.

120C MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R6Workspace Register operand,R12Workspace Register operand 

120E CSNF04 BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 *R3Indirect Workspace Register operand 

1210 CICompare Immediate
Compare instruction

[<label>] b CI b <wa>,<iop> b [<comment>]
 R8Workspace Register operand,'0'Immediate Value operand 

1214 JLJump if Logical Low
Jump and Branch instruction

[<label>] b JL b <exp> b [<comment>]
 CSNF05Expression operand
Definition: CSNF05
Results to: >121C

Symbol CSNF05 is a pointer to location >121C
 TOO SMALL FOR DIGIT

1216 CICompare Immediate
Compare instruction

[<label>] b CI b <wa>,<iop> b [<comment>]
 R8Workspace Register operand,'9'Immediate Value operand 

121A JLEJump if Low or Equal
Jump and Branch instruction

[<label>] b JLE b <exp> b [<comment>]
 CSNF04Expression operand
Definition: CSNF04
Results to: >120E

Symbol CSNF04 is a pointer to location >120E
 IN RANGE, KEEP LOOKING

121C CSNF05 CCompare Words
Compare instruction

[<label>] b C b <gas>,<gad> b [<comment>]
 R6Workspace Register operand,R2Workspace Register operand 

121E JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 CSNZERExpression operand
Definition: CSNZER
Results to: >118A

Symbol CSNZER is a pointer to location >118A
 NUMBER HAS NO DIGITS **BAD**

1220 * --- LOOK FOR EXPONENT OR END OF NUMBER

1220 CSNG MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R6Workspace Register operand,R2Workspace Register operand POINTER TO LAST CHAR +2

1222 CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R4Workspace Register operand 

1224 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R2Workspace Register operand 

1226 CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R1Workspace Register operand 

1228 CICompare Immediate
Compare instruction

[<label>] b CI b <wa>,<iop> b [<comment>]
 R8Workspace Register operand,'E'Immediate Value operand IS NEXT CHAR AN 'E'

122C JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 CSNHExpression operand
Definition: CSNH
Results to: >124C

Symbol CSNH is a pointer to location >124C
 NO, EXP. DEFAULT = 0

122E BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 *R3Indirect Workspace Register operand 

1230 CICompare Immediate
Compare instruction

[<label>] b CI b <wa>,<iop> b [<comment>]
 R8Workspace Register operand,'+'Immediate Value operand GET A PLUS

1234 JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 CSNG03Expression operand
Definition: CSNG03
Results to: >1242

Symbol CSNG03 is a pointer to location >1242
 IGNORE PLUS SIGN

1236 CICompare Immediate
Compare instruction

[<label>] b CI b <wa>,<iop> b [<comment>]
 R8Workspace Register operand,'-'Immediate Value operand GET A MINUS

123A JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 CSNG02Expression operand
Definition: CSNG02
Results to: >1240

Symbol CSNG02 is a pointer to location >1240
 NOT MINUS SIGN

123C D23C DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R1Workspace Register operand CHANGE SIGN TO NEGATIVE

123E JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 CSNG03Expression operand
Definition: CSNG03
Results to: >1242

Symbol CSNG03 is a pointer to location >1242
 

1240 *

1240 CSNG02 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R6Workspace Register operand BACK UP

1242 CSNG03 BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 @CSINTSymbolic Memory operand
Definition: @CSINT
Results to: >115A

Symbol CSINT is a pointer to location >115A
 GET INTEGER VALUE

1246 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 R1Workspace Register operand,R1Workspace Register operand 

1248 JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 CSNHExpression operand
Definition: CSNH
Results to: >124C

Symbol CSNH is a pointer to location >124C
 

124A NEGNegate
Arithmetic instruction

[<label>] b NEG b <gas> b [<comment>]
 R4Workspace Register operand 

124C * ------ PACK FRACTION INTO FAC

124C CSNH DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R6Workspace Register operand POINT TO 1ST CHAR AFTER

124E MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R6Workspace Register operand,@FAC+12Symbolic Memory operand
Definition: @FAC+12
Results to: >8356

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 STORE FIRST NON CONVERTED POSN

1252 CCompare Words
Compare instruction

[<label>] b C b <gas>,<gad> b [<comment>]
 R12Workspace Register operand,R2Workspace Register operand WAS THE FRACTION ZERO?

1254 JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 CSNZERExpression operand
Definition: CSNZER
Results to: >118A

Symbol CSNZER is a pointer to location >118A
 YES

1256 AIAdd Immediate
Arithmetic instruction

[<label>] b AI b <wa>,<iop> b [<comment>]
 R4Workspace Register operand,128Immediate Value operand 

125A CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R1Workspace Register operand CLEAR WORK REGISTER

125C AAdd Words
Arithmetic instruction

[<label>] b A b <gas>,<gad> b [<comment>]
 R7Workspace Register operand,R4Workspace Register operand COPY EXPONENT FOR PLACE FLAG

125E MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R4Workspace Register operand,R7Workspace Register operand 

1260 SRAShift Right Arithmetic
Workspace Register shift instruction

[<label>] b SRA b <wa>,<scnt> b [<comment>]
 R4Workspace Register operand,1Shift Count operand BASE 100

1262 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R4Workspace Register operand,@EXPSymbolic Memory operand
Definition: @EXP
Results to: >8376

Symbol EXP is defined at location >0000
Symbol EXP is defined as PAD+>76
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 

1266 SRCShift Right Circular
Workspace Register shift instruction

[<label>] b SRC b <wa>,<scnt> b [<comment>]
 R7Workspace Register operand,1Shift Count operand 

1268 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R5Workspace Register operand,8Immediate Value operand INIT LOOP

126C LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R0Workspace Register operand,FAC+1Immediate Value operand
Definition: FAC+1
Results to: >834B

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 

1270 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R12Workspace Register operand,R6Workspace Register operand 

1272 CSNH01 CCompare Words
Compare instruction

[<label>] b C b <gas>,<gad> b [<comment>]
 R6Workspace Register operand,R2Workspace Register operand END OF FRACTION

1274 JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 CSNH03Expression operand
Definition: CSNH03
Results to: >1294

Symbol CSNH03 is a pointer to location >1294
 YES ZERO UNUSED FRACTION

1276 BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 *R3Indirect Workspace Register operand GET NEXT CHAR

1278 CICompare Immediate
Compare instruction

[<label>] b CI b <wa>,<iop> b [<comment>]
 R8Workspace Register operand,'.'Immediate Value operand IGNORE DECIMAL POINT

127C JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 CSNH01Expression operand
Definition: CSNH01
Results to: >1272

Symbol CSNH01 is a pointer to location >1272
 

127E AIAdd Immediate
Arithmetic instruction

[<label>] b AI b <wa>,<iop> b [<comment>]
 R8Workspace Register operand,-'0'Immediate Value operand ASCII TO BINARY

1282 INVInvert
Logical instruction

[<label>] b INV b <gas> b [<comment>]
 R7Workspace Register operand 

1284 JLTJump if Less Than
Jump and Branch instruction

[<label>] b JLT b <exp> b [<comment>]
 CSNH02Expression operand
Definition: CSNH02
Results to: >1290

Symbol CSNH02 is a pointer to location >1290
 1'S DIGIT

1286 MPYMultiply
Arithmetic instruction

[<label>] b MPY b <gas>,<wad> b [<comment>]
 @HX000ASymbolic Memory operand
Definition: @HX000A
Results to: >117A

Symbol HX000A is defined at location >117C
Symbol HX000A is defined as $-2
$ represents the location >117C
,R8Workspace Register operand
 

128A MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @R9LSBSymbolic Memory operand
Definition: @R9LSB
Results to: >83F3

Symbol R9LSB is defined at location >0000
Symbol R9LSB is defined as WKSE+R9+R9+1
Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R9 resolves to the Register number.
Register R9 resolves to the Register number.
,R1Workspace Register operand
 SAVE

128E JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 CSNH01Expression operand
Definition: CSNH01
Results to: >1272

Symbol CSNH01 is a pointer to location >1272
 GET ONE'S DIGIT

1290 CSNH02 ABAdd Bytes
Arithmetic instruction

[<label>] b AB b <gas>,<gad> b [<comment>]
 @R8LSBSymbolic Memory operand
Definition: @R8LSB
Results to: >83F1

Symbol R8LSB is defined at location >0000
Symbol R8LSB is defined as WKSE+R8+R8+1
Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R8 resolves to the Register number.
Register R8 resolves to the Register number.
,R1Workspace Register operand
 ADD ONES AND TENS DIGIT

1294 CSNH03 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 R1Workspace Register operand,*R0+Indirect Workspace Register Auto Increment operand STORE DIGIT

1296 CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R1Workspace Register operand IN CASE NUMBER ENDS

1298 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R5Workspace Register operand MORE?

129A JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 CSNH01Expression operand
Definition: CSNH01
Results to: >1272

Symbol CSNH01 is a pointer to location >1272
 YES

129C BBranch
Jump and Branch instruction

[<label>] b B b <gas> b [<comment>]
 @ROUN1Symbolic Memory operand
Definition: @ROUN1
Results to: >0F56

Symbol ROUN1 is a pointer to location >0F56
 RETURN

12A0 * BRANCH TABLE, REF NOT KNOWN

12A0 XTAB DATAInitialize Word
Directive that initializes constants

[<label>] b DATA b <exp>[,<exp>]... b [<comment>]
 CSNExpression operand
Definition: CSN
Results to: >11AE

Symbol CSN is a pointer to location >11AE
 

12A2 DATAInitialize Word
Directive that initializes constants

[<label>] b DATA b <exp>[,<exp>]... b [<comment>]
 CSNGRExpression operand
Definition: CSNGR
Results to: >11A2

Symbol CSNGR is a pointer to location >11A2
 

12A4 DATAInitialize Word
Directive that initializes constants

[<label>] b DATA b <exp>[,<exp>]... b [<comment>]
 CFIExpression operand
Definition: CFI
Results to: >12B8

Symbol CFI is a pointer to location >12B8
 

12A6 DATAInitialize Word
Directive that initializes constants

[<label>] b DATA b <exp>[,<exp>]... b [<comment>]
 SYMBExpression operand
Definition: SYMB
Results to: >1648

Symbol SYMB is defined at location >0000
Symbol SYMB is defined as S+>1648
Symbol S is defined at location >0000
Symbol S is defined as 0
 

12A8 DATAInitialize Word
Directive that initializes constants

[<label>] b DATA b <exp>[,<exp>]... b [<comment>]
 SMBBExpression operand
Definition: SMBB
Results to: >164E

Symbol SMBB is defined at location >0000
Symbol SMBB is defined as S+>164E
Symbol S is defined at location >0000
Symbol S is defined as 0
 

12AA DATAInitialize Word
Directive that initializes constants

[<label>] b DATA b <exp>[,<exp>]... b [<comment>]
 ASSGNVExpression operand
Definition: ASSGNV
Results to: >1642

Symbol ASSGNV is defined at location >0000
Symbol ASSGNV is defined as S+>1642
Symbol S is defined at location >0000
Symbol S is defined as 0
 

12AC DATAInitialize Word
Directive that initializes constants

[<label>] b DATA b <exp>[,<exp>]... b [<comment>]
 FBSYMBExpression operand
Definition: FBSYMB
Results to: >15D6

Symbol FBSYMB is defined at location >0000
Symbol FBSYMB is defined as S+>15D6
Symbol S is defined at location >0000
Symbol S is defined as 0
 

12AE DATAInitialize Word
Directive that initializes constants

[<label>] b DATA b <exp>[,<exp>]... b [<comment>]
 VPUSHGExpression operand
Definition: VPUSHG
Results to: >163C

Symbol VPUSHG is defined at location >0000
Symbol VPUSHG is defined as S+>163C
Symbol S is defined at location >0000
Symbol S is defined as 0
 

12B0 DATAInitialize Word
Directive that initializes constants

[<label>] b DATA b <exp>[,<exp>]... b [<comment>]
 VPOPExpression operand
Definition: VPOP
Results to: >1F2E

Symbol VPOP is defined at location >0000
Symbol VPOP is defined as S+>1F2E
Symbol S is defined at location >0000
Symbol S is defined as 0
 

12B2 DATAInitialize Word
Directive that initializes constants

[<label>] b DATA b <exp>[,<exp>]... b [<comment>]
 SROMExpression operand
Definition: SROM
Results to: >0AC0

Symbol SROM is defined at location >0000
Symbol SROM is defined as S+>0AC0
Symbol S is defined at location >0000
Symbol S is defined as 0
 

12B4 DATAInitialize Word
Directive that initializes constants

[<label>] b DATA b <exp>[,<exp>]... b [<comment>]
 SGROMExpression operand
Definition: SGROM
Results to: >0B24

Symbol SGROM is defined at location >0000
Symbol SGROM is defined as S+>0B24
Symbol S is defined at location >0000
Symbol S is defined as 0
 

12B6 DATAInitialize Word
Directive that initializes constants

[<label>] b DATA b <exp>[,<exp>]... b [<comment>]
 PGMCHExpression operand
Definition: PGMCH
Results to: >1868

Symbol PGMCH is defined at location >0000
Symbol PGMCH is defined as S+>1868
Symbol S is defined at location >0000
Symbol S is defined as 0
 

12B8 *

12B8 * FLOATING TO INTEGER CONVERSION

12B8 * FAC HAS FLOATING NUMBER, RETURNS WITH INTEGER IN FAC'S FIRST

12B8 * INTEGER IS 16 BIT TWO'S COMPLEMENT

12B8 * = BL

12B8 CFI MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 @FACSymbolic Memory operand
Definition: @FAC
Results to: >834A

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
,R4Workspace Register operand
 IS FAC ZERO?

12BC JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 CFISI1Expression operand
Definition: CFISI1
Results to: >1342

Symbol CFISI1 is a pointer to location >1342
 YES, ALL DONE

12BE CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R0Workspace Register operand ZERO RESULT IN CASE FAC = 0

12C0 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R2Workspace Register operand,FAC+1Immediate Value operand
Definition: FAC+1
Results to: >834B

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 GET PTR R0 HIGH ORDER BYTE OF FAC

12C4 CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R3Workspace Register operand CLEAR HI BYTE OF CURRENT FRACTION D

12C6 ABSAbsolute Value
Arithmetic instruction

[<label>] b ABS b <gas> b [<comment>]
 @FACSymbolic Memory operand
Definition: @FAC
Results to: >834A

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 MAKE SURE 1ST DIGIT IS +VE

12CA CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R5Workspace Register operand CLR LOW BYTE OF WHERE EXPONENT WILL BE

12CC MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @FACSymbolic Memory operand
Definition: @FAC
Results to: >834A

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
,R5Workspace Register operand
 GET EXPONENT

12D0 CICompare Immediate
Compare instruction

[<label>] b CI b <wa>,<iop> b [<comment>]
 R5Workspace Register operand,>3F00Immediate Value operand IS NUMBER LESS THAN ONE?

12D4 JLTJump if Less Than
Jump and Branch instruction

[<label>] b JLT b <exp> b [<comment>]
 CFIRIExpression operand
Definition: CFIRI
Results to: >133E

Symbol CFIRI is a pointer to location >133E
 YES RESULT IS <.01, RESULT =0

12D6 JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 CFI03Expression operand
Definition: CFI03
Results to: >1308

Symbol CFI03 is a pointer to location >1308
 .01<NUMBER<1, RESULT = 1

12D8 CICompare Immediate
Compare instruction

[<label>] b CI b <wa>,<iop> b [<comment>]
 R5Workspace Register operand,>4100Immediate Value operand IS NUMBER LESS THAN 100000

12DC JLTJump if Less Than
Jump and Branch instruction

[<label>] b JLT b <exp> b [<comment>]
 CFI02Expression operand
Definition: CFI02
Results to: >1302

Symbol CFI02 is a pointer to location >1302
 IT IS BETWEEN 1 AND 100

12DE JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 CFI01Expression operand
Definition: CFI01
Results to: >12F0

Symbol CFI01 is a pointer to location >12F0
 IT IS BETWEEN 100 AND 10000

12E0 CICompare Immediate
Compare instruction

[<label>] b CI b <wa>,<iop> b [<comment>]
 R5Workspace Register operand,>4200Immediate Value operand IS NUMBER TOO BIG TO CONVERT

12E4 JHJump if Logical High
Jump and Branch instruction

[<label>] b JH b <exp> b [<comment>]
 CFI08Expression operand
Definition: CFI08
Results to: >1330

Symbol CFI08 is a pointer to location >1330
 TOO BIG, ERROR

12E6 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 *R2+Indirect Workspace Register Auto Increment operand,@R0LSBSymbolic Memory operand
Definition: @R0LSB
Results to: >83E1

Symbol R0LSB is defined at location >0000
Symbol R0LSB is defined as WKSE+R0+R0+1
Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R0 resolves to the Register number.
Register R0 resolves to the Register number.
 GET DIGIT

12EA MPYMultiply
Arithmetic instruction

[<label>] b MPY b <gas>,<wad> b [<comment>]
 @DEC100Symbolic Memory operand
Definition: @DEC100
Results to: >1320

Symbol DEC100 is a pointer to location >1320
,R0Workspace Register operand
 MPY BY RADIX TO CONVERT TO BI

12EE MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R1Workspace Register operand,R0Workspace Register operand GET RESULT OF MPY FOR NEXT DIGIT

12F0 CFI01 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 *R2+Indirect Workspace Register Auto Increment operand,@R3LSBSymbolic Memory operand
Definition: @R3LSB
Results to: >83E7

Symbol R3LSB is defined at location >0000
Symbol R3LSB is defined as WKSE+R3+R3+1
Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R3 resolves to the Register number.
Register R3 resolves to the Register number.
 GET NEXT DIGIT

12F4 AAdd Words
Arithmetic instruction

[<label>] b A b <gas>,<gad> b [<comment>]
 R3Workspace Register operand,R0Workspace Register operand ADD TO PREVIOUS RESULT

12F6 MPYMultiply
Arithmetic instruction

[<label>] b MPY b <gas>,<wad> b [<comment>]
 @DEC100Symbolic Memory operand
Definition: @DEC100
Results to: >1320

Symbol DEC100 is a pointer to location >1320
,R0Workspace Register operand
 MULTIPLY BY RADIX

12FA MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R0Workspace Register operand,R0Workspace Register operand TEST FOR OVERFLOW

12FC JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 CFI08Expression operand
Definition: CFI08
Results to: >1330

Symbol CFI08 is a pointer to location >1330
 YES, ERROR

12FE MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R1Workspace Register operand,R0Workspace Register operand NO - GET RESULT FOR LAST DIGIT

1300 JLTJump if Less Than
Jump and Branch instruction

[<label>] b JLT b <exp> b [<comment>]
 CFI08Expression operand
Definition: CFI08
Results to: >1330

Symbol CFI08 is a pointer to location >1330
 OVERFLOW IF HI BIT SET

1302 CFI02 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 *R2+Indirect Workspace Register Auto Increment operand,@R3LSBSymbolic Memory operand
Definition: @R3LSB
Results to: >83E7

Symbol R3LSB is defined at location >0000
Symbol R3LSB is defined as WKSE+R3+R3+1
Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R3 resolves to the Register number.
Register R3 resolves to the Register number.
 GET LAST RADIX DIGIT TO LEFT OF PO

1306 AAdd Words
Arithmetic instruction

[<label>] b A b <gas>,<gad> b [<comment>]
 R3Workspace Register operand,R0Workspace Register operand ADD IT TO RESULT

1308 CFI03 CBCompare Bytes
Compare instruction

[<label>] b CB b <gas>,<gad> b [<comment>]
 *R2+Indirect Workspace Register Auto Increment operand,@HX3203Symbolic Memory operand
Definition: @HX3203
Results to: >1158

Symbol HX3203 is a pointer to location >1158
 IS ROUNDING NECESSARY

130C JLTJump if Less Than
Jump and Branch instruction

[<label>] b JLT b <exp> b [<comment>]
 CFI06Expression operand
Definition: CFI06
Results to: >1324

Symbol CFI06 is a pointer to location >1324
 NO PUT ON PROPER SIGN

130E JGTJump if Greater Than
Jump and Branch instruction

[<label>] b JGT b <exp> b [<comment>]
 CFI05Expression operand
Definition: CFI05
Results to: >1322

Symbol CFI05 is a pointer to location >1322
 YES ADD A 1 TO IT

1310 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R4Workspace Register operand,R4Workspace Register operand MAYBE -- ??????

1312 JGTJump if Greater Than
Jump and Branch instruction

[<label>] b JGT b <exp> b [<comment>]
 CFI05Expression operand
Definition: CFI05
Results to: >1322

Symbol CFI05 is a pointer to location >1322
 NONZERO ROUND UP

1314 CFI04 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 *R2+Indirect Workspace Register Auto Increment operand,R3Workspace Register operand GET NEXT RADIX DIGIT

1316 JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 CFI05Expression operand
Definition: CFI05
Results to: >1322

Symbol CFI05 is a pointer to location >1322
 NON ZERO, ROUND UP

1318 CICompare Immediate
Compare instruction

[<label>] b CI b <wa>,<iop> b [<comment>]
 R2Workspace Register operand,FAC+8Immediate Value operand
Definition: FAC+8
Results to: >8352

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 LOOK AT REST OF DIGITS

131C JLJump if Logical Low
Jump and Branch instruction

[<label>] b JL b <exp> b [<comment>]
 CFI04Expression operand
Definition: CFI04
Results to: >1314

Symbol CFI04 is a pointer to location >1314
 NO LOOK AT NEXT ONE

131E JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 CFI06Expression operand
Definition: CFI06
Results to: >1324

Symbol CFI06 is a pointer to location >1324
 ROUND DOWN

1320 DEC100 DATAInitialize Word
Directive that initializes constants

[<label>] b DATA b <exp>[,<exp>]... b [<comment>]
 100Expression operand 

1322 CFI05 INCIncrement
Arithmetic instruction

[<label>] b INC b <gas> b [<comment>]
 R0Workspace Register operand ROUND UP

1324 CFI06 CICompare Immediate
Compare instruction

[<label>] b CI b <wa>,<iop> b [<comment>]
 R0Workspace Register operand,SGNBITImmediate Value operand
Definition: SGNBIT
Results to: >8000

Symbol SGNBIT is defined at location >0000
Symbol SGNBIT is defined as >8000
 IS RESULT 32768?

1328 JLJump if Logical Low
Jump and Branch instruction

[<label>] b JL b <exp> b [<comment>]
 CFIRSIExpression operand
Definition: CFIRSI
Results to: >1338

Symbol CFIRSI is a pointer to location >1338
 NO PUT ON THE PROPER SIGN

132A JHJump if Logical High
Jump and Branch instruction

[<label>] b JH b <exp> b [<comment>]
 CFI08Expression operand
Definition: CFI08
Results to: >1330

Symbol CFI08 is a pointer to location >1330
 NO IT IS GREATER -- OVERFLOW

132C MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R4Workspace Register operand,R4Workspace Register operand IS NUMBER NEGATIVE?

132E JLTJump if Less Than
Jump and Branch instruction

[<label>] b JLT b <exp> b [<comment>]
 CFIRS2Expression operand
Definition: CFIRS2
Results to: >133C

Symbol CFIRS2 is a pointer to location >133C
 YES, PUT ON CORRECT SIGN

1330 CFI08 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @HX3203+1Symbolic Memory operand
Definition: @HX3203+1
Results to: >1159

Symbol HX3203 is a pointer to location >1158
,@FDVSRSymbolic Memory operand
Definition: @FDVSR
Results to: >8354

Symbol FDVSR is defined at location >0000
Symbol FDVSR is defined as FAC+10
Symbol FDVSR DIVISOR STORE DURING DIVISION
Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 OVERFLOW RTN TO ERROR LCN

1336 RTReturn


[<label>] b RT b [<comment>]
    (ERROR CODE)

1338 CFIRSI INVInvert
Logical instruction

[<label>] b INV b <gas> b [<comment>]
 R4Workspace Register operand IS NUMBER -VE?

133A JLTJump if Less Than
Jump and Branch instruction

[<label>] b JLT b <exp> b [<comment>]
 CFIRIExpression operand
Definition: CFIRI
Results to: >133E

Symbol CFIRI is a pointer to location >133E
 NO RETURN +VE NUMBER

133C CFIRS2 NEGNegate
Arithmetic instruction

[<label>] b NEG b <gas> b [<comment>]
 R0Workspace Register operand RTN -VE NO.

133E CFIRI MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R0Workspace Register operand,@FACSymbolic Memory operand
Definition: @FAC
Results to: >834A

Symbol FAC is defined at location >0000
Symbol FAC is defined as PAD+>4A
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 RTN NO. IN FAC

1342 CFISI1 RTReturn


[<label>] b RT b [<comment>]
 

1344 *

1344 * THIS IS A SET OF ROUTINES DEFINED FOR AUDIO CASSETTE

1344 * COMMUNICATION. THEY ARE ENTERED THROUGH A GRAPHICS

1344 * LANGUAGE PROGRAM, WHICH GIVES INFORMATION LIKE THE NO.

1344 * OF BLOCKS (=64 BYTES) TO BE WRITTEN, OR THE NUMBER OF

1344 * FREE BLOCKS IN CASE OF READ MODE; THE VDP START ADR.

1344 * AND THE BAUD RATE.

1344 *   THE ROUTINES TAKE CARE OF THE NECESSARY ENCODING/

1344 * DECODING AND THE ERROR CHECKING.

1344 *

1344 * THE BIPHASE FORMAT, USED IN THIS SET OF ROUTINES, HAS

1344 * THE FOLLOWING REPRESENTATIONS FOR THE BINARY DIGITS:

1344 *

1344 *     ---------------             ---------         ----

1344 *    |               |           |         |       |

1344 * ---                 ---     ---           -------

1344 *     <-----"0"----->            <---- "1"--------->

1344 *

1344 * REPRESENTATIONS OF THE BITS MAY BE CHANGED IN PHASE BY

1344 * 180 DEGREES, DEPENDING UPON THE VALUE OF THE BIT STREAM

1344 * AFTER THE PREVIOUS BIT.

1344 *

1344 *    PRINCIPLES OF OPERATION

1344 *

1344 *          WRITING

1344 *   THE ACTUAL IMPLEMENTATION OF THE BIPHASE RECORDING SCHEME

1344 * IS RELATIVELY SIMPLE. THE VALUE FOR THE DATA RATE, AS INDICATED

1344 * BY THE GRAPHICS LANGUAGE PROGRAM, IS USED AS A TIMER VALUE FOR

1344 * THE INTERNAL TMS9985 TIMER/COUNTER. IT IS USED AS A TIMER VALUE

1344 * FOR HALF A BIT CELL.

1344 *

1344 *      ------------                    ------        ----

1344 *     |            |                  |      |      |

1344 *  ---              ---            ---        ------

1344 *     |<----><---->                    <-----><----->

1344 *         DRATE                            DRATE

1344 *

1344 *   EACH BIT CELL THUS CONSISTS OF TWO TIMER INTERVALS. THE TIMER

1344 * INTERRUPT AT THE BEGINING OF EACH BIT CELL CAUSES THE OUTPUT LINE

1344 * TO CHANGE VALUE. THE NEXT TIMER INTERRUPT, IN THE MIDDLE OF THE

1344 * BIT CELL, ONLY CHANGES THE VALUE OF THE OUTPUT LINE IF THE BIT TO

1344 * BE OUTPUT EQUALS A BINARY "1".

1344 *

1344 *          READING

1344 *    ON READING BACK, THE BASIC TIMER INTERVAL TIME IS SET TO 1.5

1344 * TIMES THE DRATE OF THE WRITE SECTION. THE TIMER IS SYYNCHRONIZED

1344 * ON THE FLUX CHANGE AT THE BEGINING OF THE BIT CELL. AFTER THE TIMER

1344 * HAS GIVEN AN INTERRUPT, THE CURRENT INPUT LINE VALUE IS COMPARED TO

1344 * THE VALUE AT THE BEGINING OF THE BIT CELL. IF THIS VALUE HAS

1344 * CHANGED, THE BIT VALUE IS ASSUMED TO BE "1" IF NOT, IT WILL BE

1344 * A "0"

1344 *      TO PROVIDE A TIME-OUT MECHANISM THE TIMER AUTOMATICALLY

1344 * RESTARTS ITSELF WITH THE SAME RATE.  IF THE TIMER TIMES OUT BEFORE

1344 * THE NEXT FLUX CHANGE, AN ILLEGAL BIT LENGTH IS ASSUMED, AND AN

1344 * ERROR RETURN CODE IS PRODUCED.

1344 *

1344 *********************************************************************

1344 *

1344 *    CASSETTE WRITE ROUTINE

1344 *

1344 * WRITES N BLOCKS OF 64 BYTES TO THE AUDIO CASSETTE.

1344 *

1344 * THE OUTPUT FORMAT USED IS:

1344 *   - ZERO LEADER CONSISTING OF LDCNT ZEROES

1344 *   - SYNC BYTE (8 "1" BITS)

1344 *   - NUMBER OF BLOCKS TO FOLLOW (8 BITS)

1344 *   - CHECKSUM (8 BITS)

1344 *   - 2*N BLOCKS, CONSISTING OF:

1344 *      - 8 BYTES OF ZERO

1344 *      - 1 BYTE OF ONES

1344 *      - 64 BYTES OF INFORMATION

1344 *      - CHECKSUM (8 BITS)

1344 *   - EACH BLOCK IS REPEATED TWICE. THE LEADING ZEROES AND

1344 *     ONES ARE USED FOR TIMING AND TO R

1344 *   - TRAILER OF EIGHT "1" BITS

1344 *

1344 *      REGISTER DEFINITION

1344 *

1344 *  R0  TEMPORARY

1344 *  R1  PHASE FLAG REGISTER

1344 *  R2  COUNTER/BYTE COUNTER

1344 *  R3  DATA RATE COUNTER

1344 *  R4  BYTE

1344 *  R5  BLOCK COUNT

1344 *  R6  LOOP COUNT

1344 *  R7  CHECKSUM

1344 *  R8  SET/RESET OUTPUT INSTRUCTION

1344 *  R12 CRU BASE REGISTER = TIMER CRU

1344 *

1344 *********************************************************************

1344 *      THE GRAPHICS LANGUAGE PROGRAM PROVIDES THE FOLLOWING

1344 *  INFORMATION:

1344 *     (R1)  DATA LENGTH IN BYTES

1344 *     (R1) +2   VDP RAM START ADDRESS

1344 *

1344 *  THE DATA SHOULD BE READ BACK AT THE SAME BAUD RATE AT WHICH

1344 *  IT WAS WRITTEN.

1344 *

1344 HX0010 DATAInitialize Word
Directive that initializes constants

[<label>] b DATA b <exp>[,<exp>]... b [<comment>]
 >0010Expression operand 

1346 * = BR TABLE

1346 *

1346 * WRITE ROUTINE

1346 *

1346 WRITE CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R0Workspace Register operand NO OFFSET FOR VIDEO ADR.

1348 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R2Workspace Register operand,>0300Immediate Value operand LOAD LEADER COUNT FIRST

134C LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R8Workspace Register operand,>1E19Immediate Value operand LOAD SBZ INSTN

1350 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R3Workspace Register operand,>0023Immediate Value operand SET DATA RATE AT 1500 BAUD

1354 BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 @INITSymbolic Memory operand
Definition: @INIT
Results to: >13BA

Symbol INIT is a pointer to location >13BA
 INIT. FURTHER

1358 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R0Workspace Register operand,BOUTImmediate Value operand
Definition: BOUT
Results to: >13E2

Symbol BOUT is a pointer to location >13E2
 SAVE    BYTES

135C HX0300 LIMILoad Interrupt Mask Immediate
Load and Move instruction

[<label>] b LIMI b <iop> b [<comment>]
 1Immediate Value operand LABEL IS NASTY!

1360 WRITE0 CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R4Workspace Register operand 

1362 BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 *R0Indirect Workspace Register operand WRITE BYTE OF LEADER

1364 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R2Workspace Register operand COMPLETE LEADER

1366 JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 WRITE0Expression operand
Definition: WRITE0
Results to: >1360

Symbol WRITE0 is a pointer to location >1360
 AND RTN IF NOT COMPLETED

1368 SETOSet to One
Logical instruction

[<label>] b SETO b <gas> b [<comment>]
 R4Workspace Register operand BYTE =>FFFF (SYNC BYTE)

136A BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 *R0Indirect Workspace Register operand 

136C MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R5Workspace Register operand,R4Workspace Register operand WRITE BLOCKCOUNT TO TAPE

136E SWPBSwap Bytes
Load and Move instruction

[<label>] b SWPB b <gas> b [<comment>]
 R4Workspace Register operand 

1370 BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 *R0Indirect Workspace Register operand AND OUTPUT AGAIN

1372 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R5Workspace Register operand,R4Workspace Register operand TWICE (ONE CHECKSUM)

1374 SWPBSwap Bytes
Load and Move instruction

[<label>] b SWPB b <gas> b [<comment>]
 R4Workspace Register operand 

1376 BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 *R0Indirect Workspace Register operand 

1378 CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R9Workspace Register operand USED TO SEE IF 2ND RECD. WAS WRITTEN

137A REWRI LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R2Workspace Register operand,8Immediate Value operand WRITE 8 BYTES OF ZERO

137E LEAD CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R4Workspace Register operand ZERO

1380 BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 *R0Indirect Workspace Register operand WRITE THEM

1382 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R2Workspace Register operand MORE?

1384 JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 LEADExpression operand
Definition: LEAD
Results to: >137E

Symbol LEAD is a pointer to location >137E
 YES

1386 SETOSet to One
Logical instruction

[<label>] b SETO b <gas> b [<comment>]
 R4Workspace Register operand WRITE ALL ONES BYTE

1388 BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 *R0Indirect Workspace Register operand WRITE IT

138A MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @R10LSBSymbolic Memory operand
Definition: @R10LSB
Results to: >83F5

Symbol R10LSB is defined at location >0000
Symbol R10LSB is defined as WKSE+R10+R10+1
Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R10 resolves to the Register number.
Register R10 resolves to the Register number.
,*R15Indirect Workspace Register operand
 RESTORE VDP ADR.

138E LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R2Workspace Register operand,64Immediate Value operand LOAD COUNT WITH ONE BLOCK

1392 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 R10Workspace Register operand,*R15Indirect Workspace Register operand 

1394 CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R7Workspace Register operand CLEAR CHECKSUM

1396 WRBYT CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R4Workspace Register operand 

1398 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @VRDOFF(R15)Indexed Memory operand
Definition: @VRDOFF(R15)
Results to: >FC1C

Symbol VRDOFF is defined at location >0000
Symbol VRDOFF is defined as ->402
Symbol VRDOFF VDP READ DATA OFFSET (FROM R15)
,R4Workspace Register operand
 VDP DATA TO R4 MSB

139C AAdd Words
Arithmetic instruction

[<label>] b A b <gas>,<gad> b [<comment>]
 R4Workspace Register operand,R7Workspace Register operand ADD BYTE TO CHEKCSUM

139E BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 *R0Indirect Workspace Register operand OUTPUT BYTE TO TAPE

13A0 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R2Workspace Register operand DEC. BYTE COUNTER

13A2 JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 WRBYTExpression operand
Definition: WRBYT
Results to: >1396

Symbol WRBYT is a pointer to location >1396
 WRITE ALL 64 BYTES

13A4 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R7Workspace Register operand,R4Workspace Register operand OUTPUT CHECKSUM

13A6 BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 *R0Indirect Workspace Register operand 

13A8 INVInvert
Logical instruction

[<label>] b INV b <gas> b [<comment>]
 R9Workspace Register operand 2ND TIME RECORD WRITTEN?

13AA JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 REWRIExpression operand
Definition: REWRI
Results to: >137A

Symbol REWRI is a pointer to location >137A
 REWRITE

13AC AIAdd Immediate
Arithmetic instruction

[<label>] b AI b <wa>,<iop> b [<comment>]
 R10Workspace Register operand,64Immediate Value operand BUMP ADR. TO NEXT RECD

13B0 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R5Workspace Register operand DONE ALL BLOCKS?

13B2 JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 REWRIExpression operand
Definition: REWRI
Results to: >137A

Symbol REWRI is a pointer to location >137A
 NO... NOT YET, CONTINUE

13B4 SPINUnknown Instruction


replaceMe
 WAIT FOR COMPLETION OF LAST CYCLE

13B6 BBranch
Jump and Branch instruction

[<label>] b B b <gas> b [<comment>]
 @STTIMSymbolic Memory operand
Definition: @STTIM
Results to: >155E

Symbol STTIM is a pointer to location >155E
 STOP TIMER AND EXIT

13BA *

13BA * INITIALIZATION ROUTINE

13BA *

13BA INIT MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 *R1+Indirect Workspace Register Auto Increment operand,R5Workspace Register operand COPY NO. OF BLOCKS IN BLKCNT

13BC AIAdd Immediate
Arithmetic instruction

[<label>] b AI b <wa>,<iop> b [<comment>]
 R5Workspace Register operand,63Immediate Value operand COMPUTE IN BLOCKS OF 64 BYTES

13C0 SRLShift Right Logical
Workspace Register shift instruction

[<label>] b SRL b <wa>,<scnt> b [<comment>]
 R5Workspace Register operand,6Shift Count operand DIVIDE BY 2**6=64

13C2 SOCSet Ones Corresponding
Logical instruction

[<label>] b SOC b <gas>,<gad> b [<comment>]
 *R1Indirect Workspace Register operand,R0Workspace Register operand COPY ADR. + OFFSET IN R0

13C4 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R0Workspace Register operand,R10Workspace Register operand SAVE ADR FOR WRITING DUPLICATES

13C6 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @R0LSBSymbolic Memory operand
Definition: @R0LSB
Results to: >83E1

Symbol R0LSB is defined at location >0000
Symbol R0LSB is defined as WKSE+R0+R0+1
Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R0 resolves to the Register number.
Register R0 resolves to the Register number.
,*R15Indirect Workspace Register operand
 COPY IN VIDEO ADR

13CA CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R1Workspace Register operand INIT THE ERROR FLAG

13CC CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R12Workspace Register operand CRU BASE

13CE MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 R0Workspace Register operand,*R15Indirect Workspace Register operand COPIED...

13D0 SOCSet Ones Corresponding
Logical instruction

[<label>] b SOC b <gas>,<gad> b [<comment>]
 @HX0020Symbolic Memory operand
Definition: @HX0020
Results to: >0032

Symbol HX0020 is defined at location >0000
Symbol HX0020 is defined as S+>0032
Symbol S is defined at location >0000
Symbol S is defined as 0
,R14Workspace Register operand
 SET TIMER INTPT FLAG

13D4 SBZSet CRU Bit to Logic Zero
Control and CRU instruction

[<label>] b SBZ b <disp> b [<comment>]
 2CruBit Displacement operand TURN OFF VDP INTPT

13D6 SBZSet CRU Bit to Logic Zero
Control and CRU instruction

[<label>] b SBZ b <disp> b [<comment>]
 12CruBit Displacement operand TURN OFF ??? INTPUT

13D8 LDCRLoad CRU
Control and CRU instruction

[<label>] b LDCR b <gas>,<cnt> b [<comment>]
 R3Workspace Register operand,15CruBit Address operand LOAD TIMER

13DA SBZSet CRU Bit to Logic Zero
Control and CRU instruction

[<label>] b SBZ b <disp> b [<comment>]
 0CruBit Displacement operand ENABLE INTS

13DC SBZSet CRU Bit to Logic Zero
Control and CRU instruction

[<label>] b SBZ b <disp> b [<comment>]
 1CruBit Displacement operand TURN OFF EXTERNAL INT.

13DE SBOSet CRU Bit to Logic One
Control and CRU instruction

[<label>] b SBO b <disp> b [<comment>]
 3CruBit Displacement operand ENABLE CLOCK INTPT

13E0 RTReturn


[<label>] b RT b [<comment>]
 AND RTN

13E2 *

13E2 * BYTE OUTPUT ROUTINE

13E2 *

13E2 BOUT LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R6Workspace Register operand,8Immediate Value operand LOAD LOOP COUNTER

13E6 INVInvert
Logical instruction

[<label>] b INV b <gas> b [<comment>]
 R4Workspace Register operand INVERT FOR ENABLING "0" BIT JUMP

13E8 BOUT0 SPINUnknown Instruction


replaceMe
 IDLE AROUND UNTIL LAST CYCLE OF

13EA XExecute
Jump and Branch instruction

[<label>] b X b <gas> b [<comment>]
 R8Workspace Register operand ALWAYS FLIP AT START OF BIT

13EC XORExclusive OR
Logical instruction

[<label>] b XOR b <gas>,<wad> b [<comment>]
 @HX0300Symbolic Memory operand
Definition: @HX0300
Results to: >135C

Symbol HX0300 is a pointer to location >135C
,R8Workspace Register operand
 

13F0 HXSPIN EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 $Expression operand
Definition: $
Results to: >13F0

$ represents the location >13F0
 

13F0 D3F0 SPINUnknown Instruction


replaceMe
 PREVIOUS BYTE+1ST OF THIS BYTE

13F2 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R4Workspace Register operand,R4Workspace Register operand TEST HIGHEST BIT FOR NEW FLIP CHECK

13F4 JLTJump if Less Than
Jump and Branch instruction

[<label>] b JLT b <exp> b [<comment>]
 BOUT1Expression operand
Definition: BOUT1
Results to: >13FC

Symbol BOUT1 is a pointer to location >13FC
 BIT SET MEANS NO FLIP (SEE INV)

13F6 XExecute
Jump and Branch instruction

[<label>] b X b <gas> b [<comment>]
 R8Workspace Register operand FLIP OUTPUT LINE

13F8 XORExclusive OR
Logical instruction

[<label>] b XOR b <gas>,<wad> b [<comment>]
 @HX0300Symbolic Memory operand
Definition: @HX0300
Results to: >135C

Symbol HX0300 is a pointer to location >135C
,R8Workspace Register operand
 REVERSE INSTN

13FC BOUT1 SLAShift Left Arithmetic
Workspace Register shift instruction

[<label>] b SLA b <wa>,<scnt> b [<comment>]
 R4Workspace Register operand,1Shift Count operand GET NEXT BIT READY FOR OUTPUT

13FE DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R6Workspace Register operand HAS BEEN COMPLETED... THEN LOOP

1400 JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 BOUT0Expression operand
Definition: BOUT0
Results to: >13E8

Symbol BOUT0 is a pointer to location >13E8
 UNTIL BYTE COMPLETED

1402 RTReturn


[<label>] b RT b [<comment>]
 RETURN IF BYTE COMPLETED

1404 *

1404 * TIMER INTERRUPT ROUTINE

1404 *

1404 TIMER SBZSet CRU Bit to Logic Zero
Control and CRU instruction

[<label>] b SBZ b <disp> b [<comment>]
 0CruBit Displacement operand MAKE SURE WE'RE IN INTPT MODE

1406 SBOSet CRU Bit to Logic One
Control and CRU instruction

[<label>] b SBO b <disp> b [<comment>]
 3CruBit Displacement operand CLEAR DECREMENTER INTPT

1408 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R1Workspace Register operand,R1Workspace Register operand TEST FLAG REGISTER

140A JLTJump if Less Than
Jump and Branch instruction

[<label>] b JLT b <exp> b [<comment>]
 TIMER1Expression operand
Definition: TIMER1
Results to: >141A

Symbol TIMER1 is a pointer to location >141A
 FLAG SET -> ERROR EXIT

140C LWPILoad Workspace Pointer Immediate
Load and Move instruction

[<label>] b LWPI b <iop> b [<comment>]
 WKSCImmediate Value operand
Definition: WKSC
Results to: >83C0

Symbol WKSC is defined at location >0000
Symbol WKSC is defined as PAD+>C0
Symbol WKSC INT. 1 WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 BACK TO REGULAR WORKSPACE

1410 CCompare Words
Compare instruction

[<label>] b C b <gas>,<gad> b [<comment>]
 *R14Indirect Workspace Register operand,@HXSPINSymbolic Memory operand
Definition: @HXSPIN
Results to: >13F0

Symbol HXSPIN is defined at location >13F0
Symbol HXSPIN is defined as $
$ represents the location >13F0
 DOING A SPIN?

1414 JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 TIMER1Expression operand
Definition: TIMER1
Results to: >141A

Symbol TIMER1 is a pointer to location >141A
 NO, DON'T INC ADR.

1416 INCTIncrement by Two
Arithmetic instruction

[<label>] b INCT b <gas> b [<comment>]
 R14Workspace Register operand BYPASS SPIN

1418 TIMER2 RTWPReturn With Workspace Pointer
Jump and Branch instruction

[<label>] b RTWP b [<comment>]
 AND RETURN

141A TIMER1 LWPILoad Workspace Pointer Immediate
Load and Move instruction

[<label>] b LWPI b <iop> b [<comment>]
 WKSCImmediate Value operand
Definition: WKSC
Results to: >83C0

Symbol WKSC is defined at location >0000
Symbol WKSC is defined as PAD+>C0
Symbol WKSC INT. 1 WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 

141E MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 @WKSE+R6+R6Symbolic Memory operand
Definition: @WKSE+R6+R6
Results to: >83EC

Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R6 resolves to the Register number.
Register R6 resolves to the Register number.
,R14Workspace Register operand
 GET EXIT ADDRESS

1422 JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 TIMER2Expression operand
Definition: TIMER2
Results to: >1418

Symbol TIMER2 is a pointer to location >1418
 AND EXIT

1424 *

1424 *  READ REGISTER DEFINITIONS

1424 *

1424 *  R0  TEMPORARY

1424 *  R1  ERROR EXIT/INPUT LEVEL FLAG

1424 *  R2  COUNTER/BYTE COUNTER

1424 *  R3  DATA RATE COUNTER

1424 *  R4  BYTE

1424 *  R5  BLOCK COUNT

1424 *  R6  BIT LENGTH ERROR EXIT ADR

1424 *  R7  CHECKSUM

1424 *  R8  RETRY COUNT/BYTE COUNT

1424 *  R12 CRU BASE REGISTER = TIMER CRU

1424 *

1424 *

1424 * CASSETTE READ ROUTINES

1424 *

1424 HX2100 BYTEInitialize Byte
Directive that initializes constants

[<label>] b BYTE b <exp>[,<exp>]... b [<comment>]
 >21Expression operand,0Expression operand 

1426 *

1426 * DEVIATION OF UP TO -25 TO +50 PERCENT OF THE

1426 *    NOMINAL BAUD RATE IS PERMITTED

1426 *

1426 VERIFY SOCSet Ones Corresponding
Logical instruction

[<label>] b SOC b <gas>,<gad> b [<comment>]
 @HX0010Symbolic Memory operand
Definition: @HX0010
Results to: >1344

Symbol HX0010 is a pointer to location >1344
,R14Workspace Register operand
 SET VERIFY BIT

142A CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R0Workspace Register operand SET ADR BIT TO READ FROM VDP

142C JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 READAExpression operand
Definition: READA
Results to: >1436

Symbol READA is a pointer to location >1436
 

142E * = BR TABLE

142E READ SZCSet Zeros Corresponding
Logical instruction

[<label>] b SZC b <gas>,<gad> b [<comment>]
 @HX0010Symbolic Memory operand
Definition: @HX0010
Results to: >1344

Symbol HX0010 is a pointer to location >1344
,R14Workspace Register operand
 RESET VERIFY BIT

1432 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R0Workspace Register operand,>4000Immediate Value operand SET ADR. BIT TO WRITE TO VDP

1436 READA LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R3Workspace Register operand,>002BImmediate Value operand SET BAUDRATE IN

143A HX002B EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 $-2Expression operand
Definition: $-2
Results to: >1438

$ represents the location >143A
 

143A BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 @INITSymbolic Memory operand
Definition: @INIT
Results to: >13BA

Symbol INIT is a pointer to location >13BA
 AND INIT

143E MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R10Workspace Register operand,R7Workspace Register operand SAVE VDP ADR.

1440 CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R0Workspace Register operand INDICATE FIRST RECORD

1442 HX20 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @HX20+1Symbolic Memory operand
Definition: @HX20+1
Results to: >1443

Symbol HX20 is a pointer to location >1442
,@ERRCDSymbolic Memory operand
Definition: @ERRCD
Results to: >837C

Symbol ERRCD is defined at location >0000
Symbol ERRCD is defined as STATUS
Symbol STATUS is defined at location >0000
Symbol STATUS is defined as PAD+>7C
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 ASSUME TIME OUT ERROR

1448 READ12 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R8Workspace Register operand,30000Immediate Value operand LOAD RETRY COUNT FOR 10 SECS

144C LIMILoad Interrupt Mask Immediate
Load and Move instruction

[<label>] b LIMI b <iop> b [<comment>]
 1Immediate Value operand ALLOW TIMER INTPTS

1450 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R6Workspace Register operand,READ0Immediate Value operand
Definition: READ0
Results to: >1458

Symbol READ0 is a pointer to location >1458
 LOAD TIME-OUT RETRY ADR

1454 READ00 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R3Workspace Register operand,>2BImmediate Value operand IF FALSE START

1458 READ0 ANDIAND Immediate
Logical instruction

[<label>] b ANDI b <wa>,<iop> b [<comment>]
 R1Workspace Register operand,>FFImmediate Value operand CLEAR FLAG TO PREVENT ERROR HANG UP

145C HX00FF EQUDefine assembly-time constant
Directive that initializes constants

<label> b EQU b <exp> b [<comment>]
 $-2Expression operand
Definition: $-2
Results to: >145A

$ represents the location >145C
 

145C DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R8Workspace Register operand COUNT FOR ONE RETRY

145E JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 STTIMExpression operand
Definition: STTIM
Results to: >155E

Symbol STTIM is a pointer to location >155E
 RETRY ERROR

1460 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R2Workspace Register operand,48Immediate Value operand COUNT AT LEAST 48 ZEROES

1464 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R0Workspace Register operand,R0Workspace Register operand AM I IN THE MIDDLE?

1466 JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 READ1Expression operand
Definition: READ1
Results to: >146A

Symbol READ1 is a pointer to location >146A
 YES LOOK FOR 48 ZEROES

1468 AAdd Words
Arithmetic instruction

[<label>] b A b <gas>,<gad> b [<comment>]
 R2Workspace Register operand,R2Workspace Register operand NO LOOK FOR MORE

146A READ1 BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 @RDBITSymbolic Memory operand
Definition: @RDBIT
Results to: >1572

Symbol RDBIT is a pointer to location >1572
 GET A BIT ** TIME OUT GIVES RETRY

146E JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 READ15Expression operand
Definition: READ15
Results to: >1472

Symbol READ15 is a pointer to location >1472
 

1470 JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 READ0Expression operand
Definition: READ0
Results to: >1458

Symbol READ0 is a pointer to location >1458
 "1" RETURN

1472 READ15 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R2Workspace Register operand DETECTED A "0" BIT, COUNT IT

1474 JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 READ1Expression operand
Definition: READ1
Results to: >146A

Symbol READ1 is a pointer to location >146A
 AND CONTINUE TILL DONE

1476 * --- CALCULATE ACTUAL BIT RATE BASED ON 8 ZERO BIT TIMES ---

1476 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R9Workspace Register operand,>7FFFImmediate Value operand BIG COUNT FOR TIMER

147A LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R8Workspace Register operand,8Immediate Value operand NUMBER OF BITS TO AVERAGE

147E LDCRLoad CRU
Control and CRU instruction

[<label>] b LDCR b <gas>,<cnt> b [<comment>]
 R9Workspace Register operand,15CruBit Address operand SET TIMER

1480 SBZSet CRU Bit to Logic Zero
Control and CRU instruction

[<label>] b SBZ b <disp> b [<comment>]
 0CruBit Displacement operand TURN ON 9901 INTPTS

1482 SBOSet CRU Bit to Logic One
Control and CRU instruction

[<label>] b SBO b <disp> b [<comment>]
 3CruBit Displacement operand ENABLE CLOCK INTPT

1484 LOOP BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 @FLUXCSymbolic Memory operand
Definition: @FLUXC
Results to: >15BA

Symbol FLUXC is a pointer to location >15BA
 FIND BIT

1488 JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 ENDLExpression operand
Definition: ENDL
Results to: >148C

Symbol ENDL is a pointer to location >148C
 CHANGE-DEC NO. OF BITS

148A JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 LOOPExpression operand
Definition: LOOP
Results to: >1484

Symbol LOOP is a pointer to location >1484
 NO CHANGE, KEEP LOOKING

148C ENDL DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R8Workspace Register operand LOOK FOR MORE ???

148E JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 LOOPExpression operand
Definition: LOOP
Results to: >1484

Symbol LOOP is a pointer to location >1484
 YES

1490 SBOSet CRU Bit to Logic One
Control and CRU instruction

[<label>] b SBO b <disp> b [<comment>]
 0CruBit Displacement operand SET 9901 TO CLOCK

1492 STCRStore CRU
Control and CRU instruction

[<label>] b STCR b <gas>,<cnt> b [<comment>]
 R3Workspace Register operand,15CruBit Address operand READ TIMER

1494 SSubtract Words
Arithmetic instruction

[<label>] b S b <gas>,<gad> b [<comment>]
 R3Workspace Register operand,R9Workspace Register operand HOW MUCH TIME USED?

1496 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R9Workspace Register operand,R3Workspace Register operand SAVE CELL TIME

1498 SLAShift Left Arithmetic
Workspace Register shift instruction

[<label>] b SLA b <wa>,<scnt> b [<comment>]
 R9Workspace Register operand,2Shift Count operand CELL TIME * 4

149A AAdd Words
Arithmetic instruction

[<label>] b A b <gas>,<gad> b [<comment>]
 R9Workspace Register operand,R3Workspace Register operand MAKE NEW 3/4 BIT TIME

149C SRLShift Right Logical
Workspace Register shift instruction

[<label>] b SRL b <wa>,<scnt> b [<comment>]
 R3Workspace Register operand,6Shift Count operand 5/8 CELL TIME/2

149E ORIOR Immediate
Logical instruction

[<label>] b ORI b <wa>,<iop> b [<comment>]
 R3Workspace Register operand,>0001Immediate Value operand SET 9901 TO CLOCK

14A2 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R10Workspace Register operand,READ5Immediate Value operand
Definition: READ5
Results to: >14B0

Symbol READ5 is a pointer to location >14B0
 RTN ADR FOR SUBSUBROUTINE

14A6 CICompare Immediate
Compare instruction

[<label>] b CI b <wa>,<iop> b [<comment>]
 R3Workspace Register operand,>001FImmediate Value operand MAKE SURE FREQ. NOT TOO SMALL

14AA JLTJump if Less Than
Jump and Branch instruction

[<label>] b JLT b <exp> b [<comment>]
 READ00Expression operand
Definition: READ00
Results to: >1454

Symbol READ00 is a pointer to location >1454
 TOO SMALL, LOOK FOR REAL ZEROS

14AC BBranch
Jump and Branch instruction

[<label>] b B b <gas> b [<comment>]
 @RDBIT2Symbolic Memory operand
Definition: @RDBIT2
Results to: >1580

Symbol RDBIT2 is a pointer to location >1580
 LOAD NEW BIT TIME

14B0 *

14B0 READ5 BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 @RDBITSymbolic Memory operand
Definition: @RDBIT
Results to: >1572

Symbol RDBIT is a pointer to location >1572
 AGAIN READ BIT INPUT

14B4 JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 READ5Expression operand
Definition: READ5
Results to: >14B0

Symbol READ5 is a pointer to location >14B0
 "0" IS STILL OK

14B6 * ENTRY NOT KNOWN

14B6 D4B6 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R2Workspace Register operand,7Immediate Value operand SHOULD BE "ALL ONE" BYTE

14BA READ3 BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 @RDBITSymbolic Memory operand
Definition: @RDBIT
Results to: >1572

Symbol RDBIT is a pointer to location >1572
 NEXT BIT PHASE

14BE JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 READ0Expression operand
Definition: READ0
Results to: >1458

Symbol READ0 is a pointer to location >1458
 FALSE ALARM-NOT A REAL LEADER

14C0 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R2Workspace Register operand ALL SYNC BYTE DONE?

14C2 JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 READ3Expression operand
Definition: READ3
Results to: >14BA

Symbol READ3 is a pointer to location >14BA
 NO...KEEP ACCEPTING "1" BITS

14C4 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R6Workspace Register operand,ERROR1Immediate Value operand
Definition: ERROR1
Results to: >14F8

Symbol ERROR1 is a pointer to location >14F8
 GET SET FOR ERROR EXIT

14C8 * AT THIS POINT WE ARE SYNCHRONIZED ON THE DATA STREAM

14C8 * COMING IN FROM THE CASSETTE, BOTH ON BIT AND R4 LEVEL

14C8 * ALL DATA COMING IN NOW SHOULD BE CORRECT. IF NOT WE

14C8 * TAKE THE ERROR EXIT

14C8 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R0Workspace Register operand,R0Workspace Register operand DO I READ BLOCK COUNTS?

14CA JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 DUMP3Expression operand
Definition: DUMP3
Results to: >152E

Symbol DUMP3 is a pointer to location >152E
 I ALREADY READ THEM

14CC MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @HX2100Symbolic Memory operand
Definition: @HX2100
Results to: >1424

Symbol HX2100 is a pointer to location >1424
,@ERRCDSymbolic Memory operand
Definition: @ERRCD
Results to: >837C

Symbol ERRCD is defined at location >0000
Symbol ERRCD is defined as STATUS
Symbol STATUS is defined at location >0000
Symbol STATUS is defined as PAD+>7C
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 ASSUME NOT ENOUGH BLOCKS

14D2 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R7Workspace Register operand,R0Workspace Register operand 

14D4 CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R7Workspace Register operand INIT CHECK SUM

14D6 BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 @RDBYTESymbolic Memory operand
Definition: @RDBYTE
Results to: >15A0

Symbol RDBYTE is a pointer to location >15A0
 CALL READ BYTE ROUTINE

14DA CCompare Words
Compare instruction

[<label>] b C b <gas>,<gad> b [<comment>]
 R5Workspace Register operand,R4Workspace Register operand ENOUGH SPACE AVAILABLE??

14DC JLJump if Logical Low
Jump and Branch instruction

[<label>] b JL b <exp> b [<comment>]
 STTIMExpression operand
Definition: STTIM
Results to: >155E

Symbol STTIM is a pointer to location >155E
 ** ERROR ** NOT ENOUGH SPACE

14DE MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R4Workspace Register operand,R5Workspace Register operand READ NO. OF BLOCKS ON TAPE

14E0 INCIncrement
Arithmetic instruction

[<label>] b INC b <gas> b [<comment>]
 R5Workspace Register operand AND INC FOR EASE OF PROGRAMMING

14E2 NEGNegate
Arithmetic instruction

[<label>] b NEG b <gas> b [<comment>]
 R7Workspace Register operand PREPARE FOR BLOCK COUNT CHECK

14E4 BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 @RDBYTESymbolic Memory operand
Definition: @RDBYTE
Results to: >15A0

Symbol RDBYTE is a pointer to location >15A0
 READ CHECK SUM

14E8 JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 STTIMExpression operand
Definition: STTIM
Results to: >155E

Symbol STTIM is a pointer to location >155E
 BAD BLOCK COUNT DATA

14EA JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 DUMP4Expression operand
Definition: DUMP4
Results to: >1526

Symbol DUMP4 is a pointer to location >1526
 LOOP AROUND TO FIRST READ

14EC RDLOOP ANDIAND Immediate
Logical instruction

[<label>] b ANDI b <wa>,<iop> b [<comment>]
 R7Workspace Register operand,>FFImmediate Value operand USE ONLY LOWER BYTE OF CHKSUM

14F0 NEGNegate
Arithmetic instruction

[<label>] b NEG b <gas> b [<comment>]
 R7Workspace Register operand NEGATTE FOR ZERO RESULT

14F2 BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 @RDBYTESymbolic Memory operand
Definition: @RDBYTE
Results to: >15A0

Symbol RDBYTE is a pointer to location >15A0
 READ RECORDED CHKSUM

14F6 JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 DUMPExpression operand
Definition: DUMP
Results to: >1506

Symbol DUMP is a pointer to location >1506
 **NO ERROR** CHKSUM CORRECT

14F8 ERROR1 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R5Workspace Register operand,R5Workspace Register operand ERROR ON 2ND RECORD

14FA JLTJump if Less Than
Jump and Branch instruction

[<label>] b JLT b <exp> b [<comment>]
 STTIMExpression operand
Definition: STTIM
Results to: >155E

Symbol STTIM is a pointer to location >155E
 YES, FLAG ERROR

14FC MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @R0LSBSymbolic Memory operand
Definition: @R0LSB
Results to: >83E1

Symbol R0LSB is defined at location >0000
Symbol R0LSB is defined as WKSE+R0+R0+1
Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R0 resolves to the Register number.
Register R0 resolves to the Register number.
,*R15Indirect Workspace Register operand
 RESTORE VDP ADR.

1500 NEGNegate
Arithmetic instruction

[<label>] b NEG b <gas> b [<comment>]
 R5Workspace Register operand NO, TRY 2ND READING

1502 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 R0Workspace Register operand,*R15Indirect Workspace Register operand 

1504 JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 READ12Expression operand
Definition: READ12
Results to: >1448

Symbol READ12 is a pointer to location >1448
 READ AGAIN

1506 DUMP MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R5Workspace Register operand,R5Workspace Register operand HAS 2ND RECORD BEEN READ?

1508 JLTJump if Less Than
Jump and Branch instruction

[<label>] b JLT b <exp> b [<comment>]
 DUMP2Expression operand
Definition: DUMP2
Results to: >151A

Symbol DUMP2 is a pointer to location >151A
 YES, SO DON'T READ AGAIN

150A LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R2Workspace Register operand,73Immediate Value operand SKIP NEXT RECORD

150E DUMP1 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R6Workspace Register operand,DUMPXImmediate Value operand
Definition: DUMPX
Results to: >1516

Symbol DUMPX is a pointer to location >1516
 

1512 BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 @RDBYTESymbolic Memory operand
Definition: @RDBYTE
Results to: >15A0

Symbol RDBYTE is a pointer to location >15A0
 WAIT FOR A BYTE

1516 DUMPX DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R2Workspace Register operand MORE TO READ?

1518 JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 DUMP1Expression operand
Definition: DUMP1
Results to: >150E

Symbol DUMP1 is a pointer to location >150E
 READ SOME MORE

151A DUMP2 AIAdd Immediate
Arithmetic instruction

[<label>] b AI b <wa>,<iop> b [<comment>]
 R0Workspace Register operand,64Immediate Value operand BUMP RECORD ADR. IN VDP

151E MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @R0LSBSymbolic Memory operand
Definition: @R0LSB
Results to: >83E1

Symbol R0LSB is defined at location >0000
Symbol R0LSB is defined as WKSE+R0+R0+1
Symbol WKSE is defined at location >0000
Symbol WKSE is defined as PAD+>E0
Symbol WKSE MAIN WORKSPACE
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
Register R0 resolves to the Register number.
Register R0 resolves to the Register number.
,*R15Indirect Workspace Register operand
 OUTPUT ADR. TO VDP

1522 ABSAbsolute Value
Arithmetic instruction

[<label>] b ABS b <gas> b [<comment>]
 R5Workspace Register operand SET FLAG FOR 1ST RECORD

1524 MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 R0Workspace Register operand,*R15Indirect Workspace Register operand 

1526 DUMP4 CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R7Workspace Register operand CLEAR CHKSUM AFTER DUMPING

1528 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R5Workspace Register operand REDUCE NO. OF BLOCKS TO READ

152A JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 READ12Expression operand
Definition: READ12
Results to: >1448

Symbol READ12 is a pointer to location >1448
 READY...MORE BLOCKS TO GO

152C JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 DONEExpression operand
Definition: DONE
Results to: >1558

Symbol DONE is a pointer to location >1558
 NO MORE TO READ

152E DUMP3 LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R2Workspace Register operand,64Immediate Value operand START OUT FOR 128 BYTES

1532 CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R7Workspace Register operand ZERO CHKSUM FOR NEXT RECORD

1534 RDL0 BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 @RDBYTESymbolic Memory operand
Definition: @RDBYTE
Results to: >15A0

Symbol RDBYTE is a pointer to location >15A0
 READ ONE BYTE

1538 SWPBSwap Bytes
Load and Move instruction

[<label>] b SWPB b <gas> b [<comment>]
 R4Workspace Register operand SWAP TO UPPER BYTE

153A COCCompare Ones Corresponding
Compare instruction

[<label>] b COC b <gas>,<wad> b [<comment>]
 @HX0010Symbolic Memory operand
Definition: @HX0010
Results to: >1344

Symbol HX0010 is a pointer to location >1344
,R14Workspace Register operand
 IS IT A VERIFY

153E JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 STOExpression operand
Definition: STO
Results to: >154E

Symbol STO is a pointer to location >154E
 NO, SO STORE IT

1540 SBSubtract Bytes
Arithmetic instruction

[<label>] b SB b <gas>,<gad> b [<comment>]
 @VRDOFF(R15)Indexed Memory operand
Definition: @VRDOFF(R15)
Results to: >FC1C

Symbol VRDOFF is defined at location >0000
Symbol VRDOFF is defined as ->402
Symbol VRDOFF VDP READ DATA OFFSET (FROM R15)
,R4Workspace Register operand
 IS IT RIGHT?

1544 JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 STO1Expression operand
Definition: STO1
Results to: >1552

Symbol STO1 is a pointer to location >1552
 YES, CONTINUE

1546 CICompare Immediate
Compare instruction

[<label>] b CI b <wa>,<iop> b [<comment>]
 R5Workspace Register operand,1Immediate Value operand LAST RECORD?

154A JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 STO1Expression operand
Definition: STO1
Results to: >1552

Symbol STO1 is a pointer to location >1552
 YYES, IGNORE BAD COMPARISONS

154C JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 ERROR1Expression operand
Definition: ERROR1
Results to: >14F8

Symbol ERROR1 is a pointer to location >14F8
 NO, TRY READING 2ND RECORD

154E STO MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 R4Workspace Register operand,@VWDOFF(R15)Indexed Memory operand
Definition: @VWDOFF(R15)
Results to: >001C

Symbol VWDOFF is defined at location >0000
Symbol VWDOFF is defined as -2
Symbol VWDOFF VDP WRITE DATA OFFSET (FROM R15)
 WRITE DATA TO VDP

1552 STO1 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R2Workspace Register operand SEE IF DONE

1554 JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 RDL0Expression operand
Definition: RDL0
Results to: >1534

Symbol RDL0 is a pointer to location >1534
 NO.. NOT YET

1556 JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 RDLOOPExpression operand
Definition: RDLOOP
Results to: >14EC

Symbol RDLOOP is a pointer to location >14EC
 COMPLETE READ LOOP

1558 DONE MOVBMove Byte
Load and Move instruction

[<label>] b MOVB b <gas>,<gad> b [<comment>]
 @HX002BSymbolic Memory operand
Definition: @HX002B
Results to: >1438

Symbol HX002B is defined at location >143A
Symbol HX002B is defined as $-2
$ represents the location >143A
,@ERRCDSymbolic Memory operand
Definition: @ERRCD
Results to: >837C

Symbol ERRCD is defined at location >0000
Symbol ERRCD is defined as STATUS
Symbol STATUS is defined at location >0000
Symbol STATUS is defined as PAD+>7C
Symbol PAD is defined at location >0000
Symbol PAD is defined as >8300
 CLEAR ERROR CODE

155E * ------ ALSO ERROR EXIT --------

155E STTIM SZCSet Zeros Corresponding
Logical instruction

[<label>] b SZC b <gas>,<gad> b [<comment>]
 @HX0010Symbolic Memory operand
Definition: @HX0010
Results to: >1344

Symbol HX0010 is a pointer to location >1344
,R14Workspace Register operand
 FREE UP BIT

1562 SZCSet Zeros Corresponding
Logical instruction

[<label>] b SZC b <gas>,<gad> b [<comment>]
 @HX0020Symbolic Memory operand
Definition: @HX0020
Results to: >0032

Symbol HX0020 is defined at location >0000
Symbol HX0020 is defined as S+>0032
Symbol S is defined at location >0000
Symbol S is defined as 0
,R14Workspace Register operand
 TURN OFF TIMER INTPT FLAG

1566 SBZSet CRU Bit to Logic Zero
Control and CRU instruction

[<label>] b SBZ b <disp> b [<comment>]
 3CruBit Displacement operand TURN OFF TIMER INTPT MASK BIT

1568 SBOSet CRU Bit to Logic One
Control and CRU instruction

[<label>] b SBO b <disp> b [<comment>]
 12CruBit Displacement operand ENABLE    INTERRUPT

156A SBOSet CRU Bit to Logic One
Control and CRU instruction

[<label>] b SBO b <disp> b [<comment>]
 1CruBit Displacement operand ENABLE EXT INTPT

156C SBOSet CRU Bit to Logic One
Control and CRU instruction

[<label>] b SBO b <disp> b [<comment>]
 2CruBit Displacement operand ENABLE VDP INTPT

156E BBranch
Jump and Branch instruction

[<label>] b B b <gas> b [<comment>]
 @NEXTSymbolic Memory operand
Definition: @NEXT
Results to: >0070

Symbol NEXT is defined at location >0000
Symbol NEXT is defined as S+>0070
Symbol S is defined at location >0000
Symbol S is defined as 0
 

1572 *

1572 *  BIT INPUT ROUTINE

1572 *

1572 * READ ONE BIT FROM THE INPUT STREAM. RETURN TO CALLER+2

1572 * IF BIT READ IS "1"

1572 *     THE VALUE OF THE BIT CELL IS COMPUTED BY DETERMINING

1572 * THE INPUT LINE VALUE AT 3/4 OF THE BIT CELL LENGTH. IF THE

1572 * INPUT LINE LEVEL HAS CHANGED DURING THAT PERIOD, THE BIT

1572 * READ = "1"; IF NOT, THE BIT READ = "0"

1572 *     THE NEXT FLUX CHANGE SHOULD COME WITHIN 3/4 OF A BIT

1572 * CELL, IN ORDER TO ACCEPT THE BIT

1572 *

1572 RDBIT MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R11Workspace Register operand,R10Workspace Register operand SAVE RTN ADR. IN LEVEL 2

1574 SPINUnknown Instruction


replaceMe
 WAIT FOR END OF CYCLE

1576 BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 @FLUXCSymbolic Memory operand
Definition: @FLUXC
Results to: >15BA

Symbol FLUXC is a pointer to location >15BA
 SEE IF WE HAD A FLUX CHANGE

157A INCTIncrement by Two
Arithmetic instruction

[<label>] b INCT b <gas> b [<comment>]
 R10Workspace Register operand IF SO... UPDATE RTN ADR

157C ORIOR Immediate
Logical instruction

[<label>] b ORI b <wa>,<iop> b [<comment>]
 R1Workspace Register operand,>FF00Immediate Value operand SET FLAG FOR ERROR EXIT

1580 RDBIT2 CZCCompare Zeros Corresponding
Compare instruction

[<label>] b CZC b <gas>,<wad> b [<comment>]
 @HX00FFSymbolic Memory operand
Definition: @HX00FF
Results to: >145A

Symbol HX00FF is defined at location >145C
Symbol HX00FF is defined as $-2
$ represents the location >145C
,R1Workspace Register operand
 WHICH WAY IS CHANGED FLUX?

1584 JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 F2Expression operand
Definition: F2
Results to: >158C

Symbol F2 is a pointer to location >158C
 INPUT IS A ZERO

1586 F1 TBTest Bit
Control and CRU instruction

[<label>] b TB b <disp> b [<comment>]
 27CruBit Displacement operand WAIT FOR A CHANGE

1588 JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 RDBIT1Expression operand
Definition: RDBIT1
Results to: >1590

Symbol RDBIT1 is a pointer to location >1590
 CHANGED

158A JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 F1Expression operand
Definition: F1
Results to: >1586

Symbol F1 is a pointer to location >1586
 NO CHANGE

158C F2 TBTest Bit
Control and CRU instruction

[<label>] b TB b <disp> b [<comment>]
 27CruBit Displacement operand WAIT FOR A CHANGE

158E JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 F2Expression operand
Definition: F2
Results to: >158C

Symbol F2 is a pointer to location >158C
 NO CHANGE, WAIT SOME MORE

1590 RDBIT1 LDCRLoad CRU
Control and CRU instruction

[<label>] b LDCR b <gas>,<cnt> b [<comment>]
 R3Workspace Register operand,15CruBit Address operand AN ERROR EXIT

1592 SBZSet CRU Bit to Logic Zero
Control and CRU instruction

[<label>] b SBZ b <disp> b [<comment>]
 0CruBit Displacement operand ENABLE INTPTS

1594 SBOSet CRU Bit to Logic One
Control and CRU instruction

[<label>] b SBO b <disp> b [<comment>]
 3CruBit Displacement operand ENABLE CLOCK INTPT

1596 ANDIAND Immediate
Logical instruction

[<label>] b ANDI b <wa>,<iop> b [<comment>]
 R1Workspace Register operand,>FFImmediate Value operand RESET ERROR FLAG TO PREVENT CHANGE

159A XORExclusive OR
Logical instruction

[<label>] b XOR b <gas>,<wad> b [<comment>]
 @HX00FFSymbolic Memory operand
Definition: @HX00FF
Results to: >145A

Symbol HX00FF is defined at location >145C
Symbol HX00FF is defined as $-2
$ represents the location >145C
,R1Workspace Register operand
 RECORD FLUX CHANGE

159E BBranch
Jump and Branch instruction

[<label>] b B b <gas> b [<comment>]
 *R10Indirect Workspace Register operand TIMER... THEN EXIT ON LEVEL 2

15A0 * ----- BYTE READ ROUTINE ------

15A0 * THE R4 READ ROUTINE IS SIMPLE AND STRAIGHT FORWARD.

15A0 * ONLY REMEMBER THAT WE ARE DEALING WITH THREE LEVELS

15A0 * OF SUBROUTINES HERE, SO WE MUST SAVE THE RTN ADR IN R9

15A0 *

15A0 RDBYTE LILoad Immediate
Load and Move instruction

[<label>] b LI b <wa>,<iop> b [<comment>]
 R8Workspace Register operand,8Immediate Value operand LOAD BYTE COUNTER

15A4 CLRClear
Logical instruction

[<label>] b CLR b <gas> b [<comment>]
 R4Workspace Register operand CLEAR RESULT

15A6 MOVMove Word
Load and Move instruction

[<label>] b MOV b <gas>,<gad> b [<comment>]
 R11Workspace Register operand,R9Workspace Register operand SAVE RTN ADR. IN LEVEL 3

15A8 RDBYT0 SLAShift Left Arithmetic
Workspace Register shift instruction

[<label>] b SLA b <wa>,<scnt> b [<comment>]
 R4Workspace Register operand,1Shift Count operand RESULT ONE BIT TO THE LEFT

15AA BLBranch and Link
Jump and Branch instruction

[<label>] b BL b <gas> b [<comment>]
 @RDBITSymbolic Memory operand
Definition: @RDBIT
Results to: >1572

Symbol RDBIT is a pointer to location >1572
 READ ONE BIT

15AE JMPUnconditional Jump
Jump and Branch instruction

[<label>] b JMP b <exp> b [<comment>]
 RDBYT1Expression operand
Definition: RDBYT1
Results to: >15B2

Symbol RDBYT1 is a pointer to location >15B2
 AVOID COUNTING ZEROS

15B0 INCIncrement
Arithmetic instruction

[<label>] b INC b <gas> b [<comment>]
 R4Workspace Register operand IF IT'S A "1", INC. BYTE

15B2 RDBYT1 DECDecrement
Arithmetic instruction

[<label>] b DEC b <gas> b [<comment>]
 R8Workspace Register operand CONTINUE??

15B4 JNEJump if Not Equal
Jump and Branch instruction

[<label>] b JNE b <exp> b [<comment>]
 RDBYT0Expression operand
Definition: RDBYT0
Results to: >15A8

Symbol RDBYT0 is a pointer to location >15A8
 YEP...

15B6 AAdd Words
Arithmetic instruction

[<label>] b A b <gas>,<gad> b [<comment>]
 R4Workspace Register operand,R7Workspace Register operand UPDATE CHKSUM *** CONDITION CODES

15B8 BBranch
Jump and Branch instruction

[<label>] b B b <gas> b [<comment>]
 *R9Indirect Workspace Register operand RTN FROM BYTE READING (LEVEL 3)

15BA * FLUX CHANGE CONTROL ROUTINE

15BA * RETURNS TO (R11) IF FLUX HAS CHANGED, (R11) +2 IF FLUX

15BA * HASN'T CHANGED SINCE LAST OUTPUT VALUE.

15BA *

15BA FLUXC TBTest Bit
Control and CRU instruction

[<label>] b TB b <disp> b [<comment>]
 27CruBit Displacement operand CONTROL VALUE OF INPUT LINE

15BC JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 FLUXC1Expression operand
Definition: FLUXC1
Results to: >15CA

Symbol FLUXC1 is a pointer to location >15CA
 INPUT LINE SET

15BE CZCCompare Zeros Corresponding
Compare instruction

[<label>] b CZC b <gas>,<wad> b [<comment>]
 @HX00FFSymbolic Memory operand
Definition: @HX00FF
Results to: >145A

Symbol HX00FF is defined at location >145C
Symbol HX00FF is defined as $-2
$ represents the location >145C
,R1Workspace Register operand
 WAS INPUT LINE HIGH LAST TIME?

15C2 JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 FLUXC2Expression operand
Definition: FLUXC2
Results to: >15D0

Symbol FLUXC2 is a pointer to location >15D0
 INPUT LINE WAS LOW

15C4 FLUXC0 XORExclusive OR
Logical instruction

[<label>] b XOR b <gas>,<wad> b [<comment>]
 @HX00FFSymbolic Memory operand
Definition: @HX00FF
Results to: >145A

Symbol HX00FF is defined at location >145C
Symbol HX00FF is defined as $-2
$ represents the location >145C
,R1Workspace Register operand
 FLIP FLAG(INPUT LINE CHANGED)

15C8 RTReturn


[<label>] b RT b [<comment>]
 & RETURN

15CA FLUXC1 CZCCompare Zeros Corresponding
Compare instruction

[<label>] b CZC b <gas>,<wad> b [<comment>]
 @HX00FFSymbolic Memory operand
Definition: @HX00FF
Results to: >145A

Symbol HX00FF is defined at location >145C
Symbol HX00FF is defined as $-2
$ represents the location >145C
,R1Workspace Register operand
 INPUT LINE HIGH AGAIN?

15CE JEQJump if Equal
Jump and Branch instruction

[<label>] b JEQ b <exp> b [<comment>]
 FLUXC0Expression operand
Definition: FLUXC0
Results to: >15C4

Symbol FLUXC0 is a pointer to location >15C4
 INPUT LINE WAS  LOW -> CHANGE

15D0 FLUXC2 INCTIncrement by Two
Arithmetic instruction

[<label>] b INCT b <gas> b [<comment>]
 R11Workspace Register operand UPDATE RTN ADR, NO CHANGE

15D2 RTReturn


[<label>] b RT b [<comment>]