|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 17430 (0x4416)
Notes: pts_type(SC)
Names: »FUNCTN.SC«
└─⟦2a21e4bb5⟧ Bits:30009691 Philips computer tape "600408"
└─⟦this⟧ »BDKAPP/FUNCTN.SC«
└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
└─⟦this⟧ »BDKAPP/FUNCTN.SC«
IDENT FUNCTN REL=7.2 DATE=77-09-09 UPDATE #0 77-09-09 * ******************************************* * * PHILIPS TERMINAL SYSTEM PTS * * FUNCTN = TOSS FUNCTIONS * * * LEVEL #2 77-09-09 * * RELEASE #7 77-09-09 * ******************************************* * * * THIS MODULE CONTAINS TOSS FUNCTIONS. * THESE ARE : * * T:ADD(C) DECIMAL ADDITION * * T:SUB(C) DECIMAL SUBTRACTION * * T:CMP(C) COMPARISON * * T:CPA(C) ABSOLUTE COMPARISON * * T:MOV(C) MOVE * * * T:MOV CONTAINS THE FOLLOWING ROUTINES : * * PCK PACK FROM ASCII TO BCD * * UPK UNPACK FROM BCD TO ASCII * * MVC MOV TO ASCII/BCD FROM ASCII/BCD * * EJECT * * * * TOSS FUNCTIONS ARE CALLED BY FOLLOWING SEQUENCE : * * CF A14,LABEL * BYTE EL1,EL2 * * LABEL = ENTRYPOINT IN CALLED FUNCTION * (T:ADD,T:SUB,T:CMP,T:MOV) * * EL1 = ELEMENT ADDRESS OF RESULT OPERAND(FIRST OPERAND) * * EL2 = ELEMENT ADDRESS OF SECOND OPERAND * * EJECT * * ************ * ENTRIES: * ************ * ENTRY T:ADD DECIMAL ADDITION ENTRY T:ADDC ENTRY T:SUB DECIMAL SUBTRACTION ENTRY T:SUBC ENTRY T:CMP COMPARISON ENTRY T:CMPC ENTRY T:CPA COMPARE ABSOLUTE ENTRY T:CPAC ENTRY T:MOV MOVE ENTRY T:MOVC ENTRY T:OPA,T:OP1 ENTRY T:OPS ENTRY RETMMM ENTRY M:ADD,M:SUB,M:CMP,M:CPA ENTRY M:MOV,M:OPA,M:OPS * * * OVERLY EQU 0 * *************************************************** * WORKING AREAS USED BY THE DIFFERENT SUBROUTINES * *************************************************** * T:OP1 EQU * DATA 0 LENGTH 2-COMPLEMENTED * * T:OP2 DATA 0 LENGTH 2-COMPLEMENTED * * EJECT * * SUBTRACTION AND ADDITION * *************** * SUBTRACTION * *************** M:SUB EQU * IFT OVERLY=1 LDK A2,/80 XRS A2,2,A14 RF T:SUB XIF T:SUBC ADKL A13,1 T:SUB LDK A2,6 INDICATE SUBTRACTION RF ADD050 * ************ * ADDITION * ************ M:ADD EQU * IFT OVERLY=1 LDK A2,/80 XRS A2,2,A14 RF T:ADD XIF T:ADDC ADKL A13,1 T:ADD LDK A2,0 INDICATE ADDITION ADD050 EQU * SC A2,SAVE+1 SAVE INDICATOR ST A13,ARG1 SAVE A13 LD* A7,4,A14 GET ARGUMENT ST A7,ARG STORE ARGUMENT FOR COMP IFT OVERLY=0 CF A14,T:CPA COMPARE ABSOLUTE XIF IFT OVERLY=1 CF A14,M:CPA XIF ARG DATA 0 ARGUMENT LDKL A13,0 ARG1 EQU *-2 LDR A2,A7 COPY RESULT INDICATOR CF A14,GETOPS GET ELEMENT PARAMETERS LDR A1,A2 COPY RESULT INDICATOR LDR A9,A6 GET POINTER TO OP1 SAVE LDK A2,0 RESTORE A2 * LDK A5,0 CLEAR A5 LDK A3,0 CLEAR A3 LCR A5,A9 GET 1:ST BYTE OP1 LCR A3,A10 GET 1:ST BYTE OP2 LDR A4,A5 COPY A5 LDR A6,A3 COPY A3 ANK A5,/F GET SIGN OP1 LDR A7,A5 GET SIGN TO A7 ANK A3,/F GET SIGN OP2 ANK A6,/F0 MASK OUT 1:ST DIGIT OP2 SUK A6,/F0 RF(Z) ADD060 JUMP IF BLANK ADK A6,/F0 RESTORE DIGIT ADD060 ANK A4,/F0 MASK OUT 1:ST DIGIT OP1 SUK A4,/F0 RF(Z) ADD070 JUMP IF BLANK ADK A4,/F0 RESTORE DIGIT ADD070 EQU * XRR A5,A3 EXCLUSIVE OR WITH SIGNS XRR A2,A5 EXCLUSIVE OR WITH SIGNS AND INDICATOR RF(Z) ADD078 JUMP IF EQUAL SIGNS NGR A4,A4 NEGATE A4 XRR A2,A1 EXVLUSIVE OR WITH COMP. RESULT SRC A2,2 SHIFT BIT 14 TO SIGN RF(P) ADD076 JUMP IF OP2 ABSOLUTE GREATER THAN OP1 NGR A6,A6 NEGATE A6 NGR A4,A4 NEGATE A4 LDR A1,A2 SLL A1,1 RF(N) ADD078 JUMP IF OP1 ABSOLUTE GREATER THAN OP2 LDK A7,/B LOAD PLUS SIGN RF ADD078 ADD076 XRK A7,6 INVERT SIGN ADD078 LDK A1,0 CLEAR CARRY * ************************ * ADDITION/SUBTRACTION * ************************ * ADDSUB EQU * ADR A4,A1 ADD CARRY LDK A1,1 INDICATE CARRY ADR A4,A6 ADD CARRY AND LEFT DIGITS RF(N) ADD200 JUMP IF NEGATIVE SUK A4,/A0 RF(NN) ADD100 JUMP IF CARRY LDK A1,0 NO CARRY ADD080 ADK A4,/A0 RESTORE DIGIT ADD100 ADR A7,A4 GET BOTH DIGITS TO A7 ADD105 SCR A7,A9 STORE 2 DIGITS SUKL A9,1 DECREMENT POINTER OP1 SUKL A10,1 DECREMENT POINTER OP2 IM T:OP1 INCREMENT INDEX RF(NN) RETMMM * ADD150 LCR A4,A9 A4=BYTE OP1 LDK A6,0 CLEAR A6 IM T:OP2 INCREMENT INDEX FOR OP2 RF(NN) ADD160 JUMP IF END OF ELEMENT LCR A6,A10 A6=BYTE OP2 ADD160 LDR A7,A4 COPY A4 ANK A7,/F GET RIGHT DIGIT SUK A7,/F RF(Z) *+4 JUMP IF BLANK ADK A7,/F RESTORE DIGIT ANK A4,/F0 GET LEFT DIGIT SUK A4,/F0 RF(Z) *+4 JUMP IF BLANK ADK A4,/F0 RESTORE DIGIT LDR A5,A6 COPY A6 ANK A6,/F0 GET LEFT DIGIT SUK A6,/F0 RF(Z) *+4 JUMP IF BLANK ADK A6,/F0 RESTORE DIGIT ANK A5,/F GET RIGHT DIGIT SUK A5,/F RF(Z) *+4 JUMP IF BLANK ADK A5,/F RESTORE DIGIT LDR A2,A2 RF(Z) ADD170 JUMP IF ADD RF(N) ADD165 JUMP IF OP2 NOT GREATER THAN OP1 NGR A4,A4 NEGATE A4 NGR A7,A7 NEGATE A7 RF ADD170 ADD165 NGR A5,A5 NEGATE A5 NGR A6,A6 NEGATE A6 * ADD170 ADR A7,A1 ADD WITH CARRY LDK A1,/10 INDICATE CARRY ADR A7,A5 ADD CARRY AND RIGHT DIGITS RF(N) ADD220 JUMP IF NEGATIVE SUK A7,/A RB(NN) ADDSUB JUMP IF CARRY LDK A1,0 NO CARRY ADD180 ADK A7,/A RESTORE DIGIT RB ADDSUB * ADD200 NGR A1,A1 NEGATE CARRY RB ADD080 * ADD220 NGR A1,A1 NEGATE CARRY RB ADD180 * EJECT * * * GET ELEMENT PARAMETERS * * INPUT: A7=M,N IN RIGHT BYTE * OUTPUT: A6=SIGN ADDRESS * A5=ADDRESS WITHIN DISCRIPTION BLOCK * A4=USED * A1=ELEMENT LENGTH IN BYTES 2-COMPLEMENTED *************************************************** * M:OPA EQU * IFT OVERLY=1 LDK A1,/80 XRS A1,2,A14 XIF T:OPA LDR A4,A7 LDR A5,A7 ANK A5,/F0 A5=Z * 16 SRL A5,2 Z * 4 ADR A5,A13 DISPLACEMENT ADDRESS LD A6,2,A5 BASE ADDRESS LDR* A5,A5 GET ADDRESS TO DB ANK A4,/F MASK OUT N SLL A4,1 N * 2 ADR A5,A4 ADDRESS WITHIN DB LDR* A1,A5 ANKL A1,/FFF MASK OUT DISPLACEMENT ADR A6,A1 ELEMENT ADDRESS SUK A6,1 ELEMENT ADDRESS RIGHTMOST LDR A4,A4 RF(Z) OPA100 JUMP IF N=0 LD A4,-2,A5 GET DISPLACEMENT FOR N-1 ANKL A4,/FFF MASK OUT DISPLACEMENT OPA100 SUR A1,A4 GET LENGTH NGR A1,A1 NEGATE LENGTH RF RETMMM EJECT ******************************************************* * GET ELEMENT PARAMETERS FOR 2 OPERANDS * AND ADJUST RETURN ADDRESS ON STACK * * INPUT : A7 =OP1,OP2 * OUTPUT: T:OP1 = NEG LENGTH OF OP1 * T:OP2 =NEG LENGTH OF OP2 * A1 =NEG LENGTH OP1 * A3 =PACKING FORM OP2 * A5 =DESCRIPTOR ADDRESS OP1 * A6 =POINTER OP1 * A10 =POINTER OP2 * ******************************************************* * GETOPS EQU * LD* A7,8,A14 GET ARGUMENT LDK A1,2 ADS A1,8,A14 ADJUST RETURN ADDRESS M:OPS EQU * IFT OVERLY=1 LDK A1,/80 XRS A1,2,A14 XIF T:OPS EQU * LDR A1,A13 COPY A13 ANKL A13,/FFFE MASK AWAY CONSTANT INDICATION ST A13,ARG2 SAVE A13 SRC A1,1 RF(NN) GET010 JUMP IF NOT TCA COMMON LD A13,-2,A13 GET ADDRESS TO TCACOM GET010 EQU * IFT OVERLY=0 CF A14,T:OPA GET PARAMETERS FOR OP2 XIF IFT OVERLY=1 CF A14,M:OPA PARAMETERS FOR OP2 XIF LDKL A13,0 ARG2 EQU *-2 LDR A10,A6 A10=POINTER OP2 ST A1,T:OP2 STORE NEG LENGTH OP2 LDR* A3,A5 GET PACKING FORM IN BIT 0 ECR A7,A7 CHANGE BYTES IFT OVERLY=0 CF A14,T:OPA GET PARAMETERS FOR OP1 XIF IFT OVERLY=1 CF A14,M:OPA XIF ST A1,T:OP1 STORE NEG LENGTH OP1 IFT OVERLY=0 RETMMM RTN A14 XIF IFT OVERLY=1 RETMMM STR A1,A14 LD A1,2,A14 ANK A1,/80 RF(E) RETMMF LDR* A1,A14 DATA /C0FF RETMMF LDR* A1,A14 RTN A14 XIF EJECT * * MOVE * ******************************** * M:MOV EQU * IFT OVERLY=1 LDK A1,/80 XRS A1,2,A14 RF T:MOV XIF T:MOVC ADKL A13,1 * T:MOV EQU * CF A14,GETOPS GET ELEMENT PARAMETERS LDR A4,A1 A4=LENGTH 2-COMPLEMENTED LD A2,T:OP2 GET LENGTH OF OP2 2-COMPL. LDR A7,A10 GET POINTER OP2 XRR* A3,A5 RF(NN) MVC JUMP IF EQUAL PACKING FORM LDR* A3,A5 GET PACKING FORM FOR OP1 RF(N) UPK JUMP IF ASCII EJECT * * PACK *********** * PCK LDK A1,/B LOAD PLUS SIGN PCK040 LDK A3,/F0 LOAD BLANK AND ZERO ADK A2,1 INCREMENT INDEX RF(P) PCK050 JUMP IF END OF ELEMENT LCR A3,A7 GET BYTE FROM OP2 SUK A3,/30 RF(NN) PCK045 JUMP IF NOT SPACE LDK A3,/F LOAD BLANK PCK045 SLL A3,4 SHIFT TO LEFT POSITION PCK050 ADR A1,A3 GET 2 DIGITS IN THE RIGHT BYTE SCR A1,A6 STORE BYTE IN OP1 ADK A4,1 STEP UP INDEX RB(NN) RETMMM SUK A6,1 DECREMENT POINTER OP1 SUK A7,1 DECREMENT POINTER OP2 LDK A1,/F LOAD BLANK ADK A2,1 INCREMENT INDEX FOR OP2 RB(P) PCK040 JUMP IF END OF ELEMENT LCR A1,A7 GET BYTE FROM OP2 SUK A1,/30 RF(NN) PCK060 JUMP IF NOT SPACE LDK A1,/F LOAD BLANK PCK060 SUK A7,1 DECREMENT POINTER FOR OP2 RB PCK040 EJECT * * MOVE CHARACTER BY CHARACTER ***************************** * MVC EQU * LDK A3,0 LOAD HEX ZERO MVC020 EQU * LDR* A5,A5 GET PACKING FORM RF(N) MVC050 JUMP IF ASCII LDK A3,/FF LOAD BLANKS MVC050 LDR A1,A3 GET FILLER TO A1 ADK A2,1 INCREMENT INDEX FOR OP2 RF(P) MVC100 JUMP IF END OF ELEMENT LCR A1,A7 GET BYTE FROM OP2 MVC100 SCR A1,A6 STORE BYTE IN OP1 SUK A7,1 DECREMENT POINTER OP2 SUK A6,1 DECREMENT POINTER OP1 ADK A4,1 STEP UP INDEX RB(N) MVC050 JUMP IF NOT FINISHED RETUR RB RETMMM EJECT * * UNPACK ************ * UPK LDK A1,0 CLEAR A1 LDR A2,A2 RF(NN) UPK070 JUMP IF END OF OP2 LCR A1,A7 GET BCD-DIGITS SRL A1,4 SHIFT OUT SIGN SUK A1,/F RF(Z) UPK060 JUMP IF BLANK ADK A1,/1F UPK060 ADK A1,/20 MAKE ASCII DIGIT OR BLANK UPK070 SCR A1,A6 STORE ASCII SUK A6,1 DECREMENT POINTER OP1 SUK A7,1 DECREMENT POINTER OP2 ADK A4,1 INCREMENT INDEX RB(NN) RETUR JUMP IF FINISHED LDK A1,0 CLEAR A1 ADK A2,1 INCREMENT INDEX FOR OP2 RF(NN) UPK110 JUMP IF END OF ELEMENT LCR A1,A7 GET DIGITS FROM OP2 ANK A1,/F GET RIGHT DIGIT SUK A1,/F RF(Z) UPK100 JUMP IF BLANK ADK A1,/1F UPK100 ADK A1,/20 MAKE ASCII DIGIT OR BLANK UPK110 SCR A1,A6 STORE ASCII SUK A6,1 DECREMENT POINTER OP1 ADK A4,1 INCREMENT INDEX RB(N) UPK JUMP IF NOT FINISHED RB RETMMM * EJECT * * COMPARISON OF 2 BCD ELEMENTS ************************************* * M:CPA EQU * IFT OVERLY=1 LDK A1,/80 XRS A1,2,A14 RF T:CPA XIF T:CPAC ADKL A13,1 T:CPA EQU * ABSOLUTE COMPARISON LDR A9,A14 INDICATE ABS. COMP RF COMP * M:CMP EQU * IFT OVERLY=1 LDK A1,/80 XRS A1,2,A14 RF T:CMP XIF T:CMPC ADKL A13,1 T:CMP EQU * COMP. INCLUSIVE SIGNS SUR A9,A9 INDICATE NORMAL COMP COMP LDKL A8,/EC08 A8=CWR A4,A2 CF A14,GETOPS GET ELEMENT PARAMETERS LDK A7,0 INDICATE EQUAL LCR A4,A6 GET 1:ST BYTE FROM OP1 LCR A2,A10 GET 1:ST BYTE FROM OP2 LDR A3,A4 COPY A4 LDR A5,A2 COPY A2 ANK A3,/F GET SIGN OP1 ANK A5,/F GET SIGN OP2 ANK A4,/F0 GET LEFT DIGIT ANK A2,/F0 GET LEFT DIGIT LDR A9,A9 RF(NZ) CMP100 JUMP IF ABSOLUTE COMPARISON SUR A3,A5 RF(N) CMP150 JUMP IF OP1 GT OP2 RF(P) CMP160 JUMP IF OP1 LT OP2 SUK A5,/B RF(Z) CMP100 JUMP IF PLUS SIGNS LDKL A8,/EA10 A8=CWR A2,A4 CMP100 SUK A4,/FF RF(Z) CMP110 JUMP IF 2 BLANKS ADK A4,/F RF(NN) CMP110 JUMP IF 1 BLANK (LEFTMOST) ADK A4,/F0 RESTORE DIGITS CMP110 SUK A2,/FF RF(Z) CMP120 JUMP IF 2 BLANKS ADK A2,/F RF(NN) CMP120 JUMP IF 1 BLANK (LEFTMOST) ADK A2,/F0 RESTORE DIGITS CMP120 EXR A8 COMPARE RF(G) CMP140 JUMP IF GREATER RF(E) CMP130 JUMP IF EQUAL LDK A7,2 INDICATE LESS CMP130 SUK A6,1 DECREMENT POINTER SUKL A10,1 DECREMENT POINTER ADK A1,1 INCREMENT INDEX RF(NN) CMP170 LCR A4,A6 GET BYTE FROM OP 1 LDK A2,0 IM T:OP2 INCREMENT INDEX RB(NN) CMP100 JUMP IF END OF ELEMENT LCR A2,A10 GET BYTE FROM OP2 RB CMP100 * * GREATER THAN **************** * CMP140 LDK A7,1 INDICATE GREATER THAN RB CMP130 * * OP1 + AND OP2 - ***************** * CMP150 LDK A7,1 INDICATE GREATER THAN RF CMP170 * * OP1 - AND OP2 + ****************** * CMP160 LDK A7,2 INDICATE LESS THAN CMP170 LC A6,2,A14 PSW ANK A6,/FC ORR A6,A7 SC A6,2,A14 PSW COND UPD RB RETUR * END
0x0000…002e (0, 0, 398) Head {h00=0x002a, h01=0x0050, text=» IDENT FUNCTN REL=7.2 DATE=77-09-09«, t00=0x0000, t01=0x0004}
0x002e…0050 Head {h00=0x001e, h01=0x0050, text=» UPDATE #0 77-09-09 «, t00=0x0000, t01=0x0032}
0x0050…005a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0054}
0x005a…008e Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0000, t01=0x005e}
0x008e…0098 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0092}
0x0098…00c0 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x009c}
0x00c0…00ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c4}
0x00ca…00ee Head {h00=0x0020, h01=0x0050, text=»* FUNCTN = TOSS FUNCTIONS «, t00=0x0000, t01=0x00ce}
0x00ee…00f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f2}
0x00f8…0102 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fc}
0x0102…0124 Head {h00=0x001e, h01=0x0050, text=»* LEVEL #2 77-09-09«, t00=0x0000, t01=0x0106}
0x0124…012e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0128}
0x012e…0150 Head {h00=0x001e, h01=0x0050, text=»* RELEASE #7 77-09-09«, t00=0x0000, t01=0x0132}
0x0150…015a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0154}
0x015a…018e Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0000, t01=0x015e}
0x018e…0198 (1, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0004}
0x0198…01a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000e}
0x01a2…01d2 Head {h00=0x002c, h01=0x0050, text=»* THIS MODULE CONTAINS TOSS FUNCTIONS.«, t00=0x0001, t01=0x0018}
0x01d2…01ea Head {h00=0x0014, h01=0x0050, text=»* THESE ARE : «, t00=0x0001, t01=0x0048}
0x01ea…01f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0060}
0x01f4…021a Head {h00=0x0022, h01=0x0050, text=»* T:ADD(C) DECIMAL ADDITION «, t00=0x0001, t01=0x006a}
0x021a…0224 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0090}
0x0224…024c Head {h00=0x0024, h01=0x0050, text=»* T:SUB(C) DECIMAL SUBTRACTION«, t00=0x0001, t01=0x009a}
0x024c…0256 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c2}
0x0256…0276 Head {h00=0x001c, h01=0x0050, text=»* T:CMP(C) COMPARISON «, t00=0x0001, t01=0x00cc}
0x0276…0280 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ec}
0x0280…02b0 Head {h00=0x002c, h01=0x0050, text=»* T:CPA(C) ABSOLUTE COMPARISON «, t00=0x0001, t01=0x00f6}
0x02b0…02ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0126}
0x02ba…02d4 Head {h00=0x0016, h01=0x0050, text=»* T:MOV(C) MOVE «, t00=0x0001, t01=0x0130}
0x02d4…02de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x014a}
0x02de…02e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0154}
0x02e8…031c Head {h00=0x0030, h01=0x0050, text=»* T:MOV CONTAINS THE FOLLOWING ROUTINES : «, t00=0x0001, t01=0x015e}
0x031c…0326 (2, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0004}
0x0326…034e Head {h00=0x0024, h01=0x0050, text=»* PCK PACK FROM ASCII TO BCD«, t00=0x0002, t01=0x000e}
0x034e…0358 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0036}
0x0358…0382 Head {h00=0x0026, h01=0x0050, text=»* UPK UNPACK FROM BCD TO ASCII«, t00=0x0002, t01=0x0040}
0x0382…038c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x006a}
0x038c…03be Head {h00=0x002e, h01=0x0050, text=»* MVC MOV TO ASCII/BCD FROM ASCII/BCD «, t00=0x0002, t01=0x0074}
0x03be…03c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a6}
0x03c8…03d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b0}
0x03d2…03e0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00ba}
0x03e0…03ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00c8}
0x03ea…03f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d2}
0x03f4…03fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00dc}
0x03fe…043c Head {h00=0x003a, h01=0x0050, text=»* TOSS FUNCTIONS ARE CALLED BY FOLLOWING SEQUENCE : «, t00=0x0002, t01=0x00e6}
0x043c…0446 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0124}
0x0446…045c Head {h00=0x0012, h01=0x0050, text=»* CF A14,LABEL«, t00=0x0002, t01=0x012e}
0x045c…0472 Head {h00=0x0012, h01=0x0050, text=»* BYTE EL1,EL2«, t00=0x0002, t01=0x0144}
0x0472…047c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x015a}
0x047c…04ae Head {h00=0x002e, h01=0x0050, text=»* LABEL = ENTRYPOINT IN CALLED FUNCTION «, t00=0x0002, t01=0x0164}
0x04ae…04da Head {h00=0x0028, h01=0x0050, text=»* (T:ADD,T:SUB,T:CMP,T:MOV) «, t00=0x0003, t01=0x0008}
0x04da…04e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0034}
0x04e4…0528 Head {h00=0x0040, h01=0x0050, text=»* EL1 = ELEMENT ADDRESS OF RESULT OPERAND(FIRST OPERAND)«, t00=0x0003, t01=0x003e}
0x0528…0532 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0082}
0x0532…0568 Head {h00=0x0032, h01=0x0050, text=»* EL2 = ELEMENT ADDRESS OF SECOND OPERAND «, t00=0x0003, t01=0x008c}
0x0568…0572 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00c2}
0x0572…057c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00cc}
0x057c…058a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x00d6}
0x058a…0594 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00e4}
0x0594…059e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ee}
0x059e…05b2 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0003, t01=0x00f8}
0x05b2…05c6 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES: *«, t00=0x0003, t01=0x010c}
0x05c6…05da Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0003, t01=0x0120}
0x05da…05e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0134}
0x05e4…060a Head {h00=0x0022, h01=0x0050, text=» ENTRY T:ADD DECIMAL ADDITION «, t00=0x0003, t01=0x013e}
0x060a…0620 Head {h00=0x0012, h01=0x0050, text=» ENTRY T:ADDC «, t00=0x0003, t01=0x0164}
0x0620…0648 Head {h00=0x0024, h01=0x0050, text=» ENTRY T:SUB DECIMAL SUBTRACTION«, t00=0x0003, t01=0x017a}
0x0648…065e Head {h00=0x0012, h01=0x0050, text=» ENTRY T:SUBC «, t00=0x0004, t01=0x0012}
0x065e…067e Head {h00=0x001c, h01=0x0050, text=» ENTRY T:CMP COMPARISON «, t00=0x0004, t01=0x0028}
0x067e…0694 Head {h00=0x0012, h01=0x0050, text=» ENTRY T:CMPC «, t00=0x0004, t01=0x0048}
0x0694…06ba Head {h00=0x0022, h01=0x0050, text=» ENTRY T:CPA COMPARE ABSOLUTE «, t00=0x0004, t01=0x005e}
0x06ba…06d0 Head {h00=0x0012, h01=0x0050, text=» ENTRY T:CPAC «, t00=0x0004, t01=0x0084}
0x06d0…06ea Head {h00=0x0016, h01=0x0050, text=» ENTRY T:MOV MOVE «, t00=0x0004, t01=0x009a}
0x06ea…0700 Head {h00=0x0012, h01=0x0050, text=» ENTRY T:MOVC «, t00=0x0004, t01=0x00b4}
0x0700…071a Head {h00=0x0016, h01=0x0050, text=» ENTRY T:OPA,T:OP1«, t00=0x0004, t01=0x00ca}
0x071a…072e Head {h00=0x0010, h01=0x0050, text=» ENTRY T:OPS«, t00=0x0004, t01=0x00e4}
0x072e…0744 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETMMM «, t00=0x0004, t01=0x00f8}
0x0744…076a Head {h00=0x0022, h01=0x0050, text=» ENTRY M:ADD,M:SUB,M:CMP,M:CPA«, t00=0x0004, t01=0x010e}
0x076a…078a Head {h00=0x001c, h01=0x0050, text=» ENTRY M:MOV,M:OPA,M:OPS«, t00=0x0004, t01=0x0134}
0x078a…0794 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0154}
0x0794…079e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x015e}
0x079e…07a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0168}
0x07a8…07bc Head {h00=0x0010, h01=0x0050, text=»OVERLY EQU 0«, t00=0x0004, t01=0x0172}
0x07bc…07c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0186}
0x07c6…0802 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0004, t01=0x0190}
0x0802…083e Head {h00=0x0038, h01=0x0050, text=»* WORKING AREAS USED BY THE DIFFERENT SUBROUTINES * «, t00=0x0005, t01=0x003c}
0x083e…087a Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0005, t01=0x0078}
0x087a…0884 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00b4}
0x0884…0898 Head {h00=0x0010, h01=0x0050, text=»T:OP1 EQU * «, t00=0x0005, t01=0x00be}
0x0898…08be Head {h00=0x0022, h01=0x0050, text=» DATA 0 LENGTH 2-COMPLEMENTED «, t00=0x0005, t01=0x00d2}
0x08be…08c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00f8}
0x08c8…08d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0102}
0x08d2…08fc Head {h00=0x0026, h01=0x0050, text=»T:OP2 DATA 0 LENGTH 2-COMPLEMENTED«, t00=0x0005, t01=0x010c}
0x08fc…0906 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0136}
0x0906…0910 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0140}
0x0910…091e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x014a}
0x091e…0928 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0158}
0x0928…094a Head {h00=0x001e, h01=0x0050, text=»* SUBTRACTION AND ADDITION«, t00=0x0005, t01=0x0162}
0x094a…0954 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0184}
0x0954…096c Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0005, t01=0x018e}
0x096c…0984 Head {h00=0x0014, h01=0x0050, text=»* SUBTRACTION * «, t00=0x0006, t01=0x0016}
0x0984…099c Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0006, t01=0x002e}
0x099c…09b0 Head {h00=0x0010, h01=0x0050, text=»M:SUB EQU * «, t00=0x0006, t01=0x0046}
0x09b0…09c6 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0006, t01=0x005a}
0x09c6…09da Head {h00=0x0010, h01=0x0050, text=» LDK A2,/80 «, t00=0x0006, t01=0x0070}
0x09da…09f0 Head {h00=0x0012, h01=0x0050, text=» XRS A2,2,A14 «, t00=0x0006, t01=0x0084}
0x09f0…0a02 Head {h00=0x000e, h01=0x0050, text=» RF T:SUB «, t00=0x0006, t01=0x009a}
0x0a02…0a0e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x00ac}
0x0a0e…0a28 Head {h00=0x0016, h01=0x0050, text=»T:SUBC ADKL A13,1 «, t00=0x0006, t01=0x00b8}
0x0a28…0a54 Head {h00=0x0028, h01=0x0050, text=»T:SUB LDK A2,6 INDICATE SUBTRACTION «, t00=0x0006, t01=0x00d2}
0x0a54…0a66 Head {h00=0x000e, h01=0x0050, text=» RF ADD050«, t00=0x0006, t01=0x00fe}
0x0a66…0a70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0110}
0x0a70…0a84 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0006, t01=0x011a}
0x0a84…0a98 Head {h00=0x0010, h01=0x0050, text=»* ADDITION *«, t00=0x0006, t01=0x012e}
0x0a98…0aac Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0006, t01=0x0142}
0x0aac…0ac0 Head {h00=0x0010, h01=0x0050, text=»M:ADD EQU * «, t00=0x0006, t01=0x0156}
0x0ac0…0ad6 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0006, t01=0x016a}
0x0ad6…0aea Head {h00=0x0010, h01=0x0050, text=» LDK A2,/80 «, t00=0x0006, t01=0x0180}
0x0aea…0b00 (7, 0, 400) Head {h00=0x0012, h01=0x0050, text=» XRS A2,2,A14 «, t00=0x0007, t01=0x0004}
0x0b00…0b12 Head {h00=0x000e, h01=0x0050, text=» RF T:ADD «, t00=0x0007, t01=0x001a}
0x0b12…0b1e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x002c}
0x0b1e…0b38 Head {h00=0x0016, h01=0x0050, text=»T:ADDC ADKL A13,1 «, t00=0x0007, t01=0x0038}
0x0b38…0b60 Head {h00=0x0024, h01=0x0050, text=»T:ADD LDK A2,0 INDICATE ADDITION«, t00=0x0007, t01=0x0052}
0x0b60…0b74 Head {h00=0x0010, h01=0x0050, text=»ADD050 EQU *«, t00=0x0007, t01=0x007a}
0x0b74…0b98 Head {h00=0x0020, h01=0x0050, text=» SC A2,SAVE+1 SAVE INDICATOR«, t00=0x0007, t01=0x008e}
0x0b98…0bb6 Head {h00=0x001a, h01=0x0050, text=» ST A13,ARG1 SAVE A13 «, t00=0x0007, t01=0x00b2}
0x0bb6…0bd8 Head {h00=0x001e, h01=0x0050, text=» LD* A7,4,A14 GET ARGUMENT«, t00=0x0007, t01=0x00d0}
0x0bd8…0c02 Head {h00=0x0026, h01=0x0050, text=» ST A7,ARG STORE ARGUMENT FOR COMP«, t00=0x0007, t01=0x00f2}
0x0c02…0c18 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=0 «, t00=0x0007, t01=0x011c}
0x0c18…0c3e Head {h00=0x0022, h01=0x0050, text=» CF A14,T:CPA COMPARE ABSOLUTE«, t00=0x0007, t01=0x0132}
0x0c3e…0c4a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x0158}
0x0c4a…0c60 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0007, t01=0x0164}
0x0c60…0c76 Head {h00=0x0012, h01=0x0050, text=» CF A14,M:CPA «, t00=0x0007, t01=0x017a}
0x0c76…0c82 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x0190}
0x0c82…0c9e Head {h00=0x0018, h01=0x0050, text=»ARG DATA 0 ARGUMENT «, t00=0x0008, t01=0x000c}
0x0c9e…0cb2 Head {h00=0x0010, h01=0x0050, text=» LDKL A13,0 «, t00=0x0008, t01=0x0028}
0x0cb2…0cc6 Head {h00=0x0010, h01=0x0050, text=»ARG1 EQU *-2«, t00=0x0008, t01=0x003c}
0x0cc6…0cee Head {h00=0x0024, h01=0x0050, text=» LDR A2,A7 COPY RESULT INDICATOR«, t00=0x0008, t01=0x0050}
0x0cee…0d1c Head {h00=0x002a, h01=0x0050, text=» CF A14,GETOPS GET ELEMENT PARAMETERS «, t00=0x0008, t01=0x0078}
0x0d1c…0d44 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A2 COPY RESULT INDICATOR«, t00=0x0008, t01=0x00a6}
0x0d44…0d6a Head {h00=0x0022, h01=0x0050, text=» LDR A9,A6 GET POINTER TO OP1 «, t00=0x0008, t01=0x00ce}
0x0d6a…0d8a Head {h00=0x001c, h01=0x0050, text=»SAVE LDK A2,0 RESTORE A2«, t00=0x0008, t01=0x00f4}
0x0d8a…0d94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0114}
0x0d94…0dae Head {h00=0x0016, h01=0x0050, text=» LDK A5,0 CLEAR A5«, t00=0x0008, t01=0x011e}
0x0dae…0dc8 Head {h00=0x0016, h01=0x0050, text=» LDK A3,0 CLEAR A3«, t00=0x0008, t01=0x0138}
0x0dc8…0dec Head {h00=0x0020, h01=0x0050, text=» LCR A5,A9 GET 1:ST BYTE OP1«, t00=0x0008, t01=0x0152}
0x0dec…0e12 Head {h00=0x0022, h01=0x0050, text=» LCR A3,A10 GET 1:ST BYTE OP2 «, t00=0x0008, t01=0x0176}
0x0e12…0e2c Head {h00=0x0016, h01=0x0050, text=» LDR A4,A5 COPY A5«, t00=0x0009, t01=0x000c}
0x0e2c…0e46 Head {h00=0x0016, h01=0x0050, text=» LDR A6,A3 COPY A3«, t00=0x0009, t01=0x0026}
0x0e46…0e66 Head {h00=0x001c, h01=0x0050, text=» ANK A5,/F GET SIGN OP1 «, t00=0x0009, t01=0x0040}
0x0e66…0e88 Head {h00=0x001e, h01=0x0050, text=» LDR A7,A5 GET SIGN TO A7 «, t00=0x0009, t01=0x0060}
0x0e88…0ea8 Head {h00=0x001c, h01=0x0050, text=» ANK A3,/F GET SIGN OP2 «, t00=0x0009, t01=0x0082}
0x0ea8…0ed4 Head {h00=0x0028, h01=0x0050, text=» ANK A6,/F0 MASK OUT 1:ST DIGIT OP2 «, t00=0x0009, t01=0x00a2}
0x0ed4…0ee8 Head {h00=0x0010, h01=0x0050, text=» SUK A6,/F0 «, t00=0x0009, t01=0x00ce}
0x0ee8…0f0c Head {h00=0x0020, h01=0x0050, text=» RF(Z) ADD060 JUMP IF BLANK «, t00=0x0009, t01=0x00e2}
0x0f0c…0f2e Head {h00=0x001e, h01=0x0050, text=» ADK A6,/F0 RESTORE DIGIT «, t00=0x0009, t01=0x0106}
0x0f2e…0f60 Head {h00=0x002e, h01=0x0050, text=»ADD060 ANK A4,/F0 MASK OUT 1:ST DIGIT OP1 «, t00=0x0009, t01=0x0128}
0x0f60…0f74 Head {h00=0x0010, h01=0x0050, text=» SUK A4,/F0 «, t00=0x0009, t01=0x015a}
0x0f74…0f98 Head {h00=0x0020, h01=0x0050, text=» RF(Z) ADD070 JUMP IF BLANK «, t00=0x0009, t01=0x016e}
0x0f98…0fba (10, 0, 398) Head {h00=0x001e, h01=0x0050, text=» ADK A4,/F0 RESTORE DIGIT «, t00=0x000a, t01=0x0004}
0x0fba…0fce Head {h00=0x0010, h01=0x0050, text=»ADD070 EQU *«, t00=0x000a, t01=0x0026}
0x0fce…0ff8 Head {h00=0x0026, h01=0x0050, text=» XRR A5,A3 EXCLUSIVE OR WITH SIGNS«, t00=0x000a, t01=0x003a}
0x0ff8…1030 Head {h00=0x0034, h01=0x0050, text=» XRR A2,A5 EXCLUSIVE OR WITH SIGNS AND INDICATOR«, t00=0x000a, t01=0x0064}
0x1030…105a Head {h00=0x0026, h01=0x0050, text=» RF(Z) ADD078 JUMP IF EQUAL SIGNS «, t00=0x000a, t01=0x009c}
0x105a…1076 Head {h00=0x0018, h01=0x0050, text=» NGR A4,A4 NEGATE A4«, t00=0x000a, t01=0x00c6}
0x1076…10a8 Head {h00=0x002e, h01=0x0050, text=» XRR A2,A1 EXVLUSIVE OR WITH COMP. RESULT «, t00=0x000a, t01=0x00e2}
0x10a8…10ce Head {h00=0x0022, h01=0x0050, text=» SRC A2,2 SHIFT BIT 14 TO SIGN«, t00=0x000a, t01=0x0114}
0x10ce…110a Head {h00=0x0038, h01=0x0050, text=» RF(P) ADD076 JUMP IF OP2 ABSOLUTE GREATER THAN OP1 «, t00=0x000a, t01=0x013a}
0x110a…1126 Head {h00=0x0018, h01=0x0050, text=» NGR A6,A6 NEGATE A6«, t00=0x000a, t01=0x0176}
0x1126…1142 (11, 0, 400) Head {h00=0x0018, h01=0x0050, text=» NGR A4,A4 NEGATE A4«, t00=0x000b, t01=0x0004}
0x1142…1154 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x000b, t01=0x0020}
0x1154…1166 Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x000b, t01=0x0032}
0x1166…11a2 Head {h00=0x0038, h01=0x0050, text=» RF(N) ADD078 JUMP IF OP1 ABSOLUTE GREATER THAN OP2 «, t00=0x000b, t01=0x0044}
0x11a2…11c4 Head {h00=0x001e, h01=0x0050, text=» LDK A7,/B LOAD PLUS SIGN «, t00=0x000b, t01=0x0080}
0x11c4…11d6 Head {h00=0x000e, h01=0x0050, text=» RF ADD078«, t00=0x000b, t01=0x00a2}
0x11d6…11fa Head {h00=0x0020, h01=0x0050, text=»ADD076 XRK A7,6 INVERT SIGN «, t00=0x000b, t01=0x00b4}
0x11fa…121e Head {h00=0x0020, h01=0x0050, text=»ADD078 LDK A1,0 CLEAR CARRY «, t00=0x000b, t01=0x00d8}
0x121e…1228 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00fc}
0x1228…1248 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000b, t01=0x0106}
0x1248…1268 Head {h00=0x001c, h01=0x0050, text=»* ADDITION/SUBTRACTION *«, t00=0x000b, t01=0x0126}
0x1268…1288 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000b, t01=0x0146}
0x1288…1292 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0166}
0x1292…12a6 Head {h00=0x0010, h01=0x0050, text=»ADDSUB EQU *«, t00=0x000b, t01=0x0170}
0x12a6…12c2 Head {h00=0x0018, h01=0x0050, text=» ADR A4,A1 ADD CARRY«, t00=0x000b, t01=0x0184}
0x12c2…12e2 Head {h00=0x001c, h01=0x0050, text=» LDK A1,1 INDICATE CARRY«, t00=0x000c, t01=0x0010}
0x12e2…130e Head {h00=0x0028, h01=0x0050, text=» ADR A4,A6 ADD CARRY AND LEFT DIGITS«, t00=0x000c, t01=0x0030}
0x130e…1334 Head {h00=0x0022, h01=0x0050, text=» RF(N) ADD200 JUMP IF NEGATIVE«, t00=0x000c, t01=0x005c}
0x1334…1348 Head {h00=0x0010, h01=0x0050, text=» SUK A4,/A0 «, t00=0x000c, t01=0x0082}
0x1348…136c Head {h00=0x0020, h01=0x0050, text=» RF(NN) ADD100 JUMP IF CARRY«, t00=0x000c, t01=0x0096}
0x136c…1386 Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 NO CARRY«, t00=0x000c, t01=0x00ba}
0x1386…13ae Head {h00=0x0024, h01=0x0050, text=»ADD080 ADK A4,/A0 RESTORE DIGIT «, t00=0x000c, t01=0x00d4}
0x13ae…13dc Head {h00=0x002a, h01=0x0050, text=»ADD100 ADR A7,A4 GET BOTH DIGITS TO A7«, t00=0x000c, t01=0x00fc}
0x13dc…1404 Head {h00=0x0024, h01=0x0050, text=»ADD105 SCR A7,A9 STORE 2 DIGITS «, t00=0x000c, t01=0x012a}
0x1404…142c Head {h00=0x0024, h01=0x0050, text=» SUKL A9,1 DECREMENT POINTER OP1«, t00=0x000c, t01=0x0152}
0x142c…1456 Head {h00=0x0026, h01=0x0050, text=» SUKL A10,1 DECREMENT POINTER OP2 «, t00=0x000c, t01=0x017a}
0x1456…1478 Head {h00=0x001e, h01=0x0050, text=» IM T:OP1 INCREMENT INDEX«, t00=0x000d, t01=0x0014}
0x1478…148e Head {h00=0x0012, h01=0x0050, text=» RF(NN) RETMMM«, t00=0x000d, t01=0x0036}
0x148e…1498 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x004c}
0x1498…14bc Head {h00=0x0020, h01=0x0050, text=»ADD150 LCR A4,A9 A4=BYTE OP1«, t00=0x000d, t01=0x0056}
0x14bc…14d6 Head {h00=0x0016, h01=0x0050, text=» LDK A6,0 CLEAR A6«, t00=0x000d, t01=0x007a}
0x14d6…1500 Head {h00=0x0026, h01=0x0050, text=» IM T:OP2 INCREMENT INDEX FOR OP2 «, t00=0x000d, t01=0x0094}
0x1500…152e Head {h00=0x002a, h01=0x0050, text=» RF(NN) ADD160 JUMP IF END OF ELEMENT «, t00=0x000d, t01=0x00be}
0x152e…154e Head {h00=0x001c, h01=0x0050, text=» LCR A6,A10 A6=BYTE OP2 «, t00=0x000d, t01=0x00ec}
0x154e…156e Head {h00=0x001c, h01=0x0050, text=»ADD160 LDR A7,A4 COPY A4«, t00=0x000d, t01=0x010c}
0x156e…1590 Head {h00=0x001e, h01=0x0050, text=» ANK A7,/F GET RIGHT DIGIT«, t00=0x000d, t01=0x012c}
0x1590…15a2 Head {h00=0x000e, h01=0x0050, text=» SUK A7,/F«, t00=0x000d, t01=0x014e}
0x15a2…15c2 Head {h00=0x001c, h01=0x0050, text=» RF(Z) *+4 JUMP IF BLANK«, t00=0x000d, t01=0x0160}
0x15c2…15e2 Head {h00=0x001c, h01=0x0050, text=» ADK A7,/F RESTORE DIGIT«, t00=0x000d, t01=0x0180}
0x15e2…1604 Head {h00=0x001e, h01=0x0050, text=» ANK A4,/F0 GET LEFT DIGIT«, t00=0x000e, t01=0x0010}
0x1604…1618 Head {h00=0x0010, h01=0x0050, text=» SUK A4,/F0 «, t00=0x000e, t01=0x0032}
0x1618…1638 Head {h00=0x001c, h01=0x0050, text=» RF(Z) *+4 JUMP IF BLANK«, t00=0x000e, t01=0x0046}
0x1638…165a Head {h00=0x001e, h01=0x0050, text=» ADK A4,/F0 RESTORE DIGIT «, t00=0x000e, t01=0x0066}
0x165a…1674 Head {h00=0x0016, h01=0x0050, text=» LDR A5,A6 COPY A6«, t00=0x000e, t01=0x0088}
0x1674…1696 Head {h00=0x001e, h01=0x0050, text=» ANK A6,/F0 GET LEFT DIGIT«, t00=0x000e, t01=0x00a2}
0x1696…16aa Head {h00=0x0010, h01=0x0050, text=» SUK A6,/F0 «, t00=0x000e, t01=0x00c4}
0x16aa…16ca Head {h00=0x001c, h01=0x0050, text=» RF(Z) *+4 JUMP IF BLANK«, t00=0x000e, t01=0x00d8}
0x16ca…16ec Head {h00=0x001e, h01=0x0050, text=» ADK A6,/F0 RESTORE DIGIT «, t00=0x000e, t01=0x00f8}
0x16ec…170e Head {h00=0x001e, h01=0x0050, text=» ANK A5,/F GET RIGHT DIGIT«, t00=0x000e, t01=0x011a}
0x170e…1720 Head {h00=0x000e, h01=0x0050, text=» SUK A5,/F«, t00=0x000e, t01=0x013c}
0x1720…1740 Head {h00=0x001c, h01=0x0050, text=» RF(Z) *+4 JUMP IF BLANK«, t00=0x000e, t01=0x014e}
0x1740…1760 Head {h00=0x001c, h01=0x0050, text=» ADK A5,/F RESTORE DIGIT«, t00=0x000e, t01=0x016e}
0x1760…1774 Head {h00=0x0010, h01=0x0050, text=» LDR A2,A2 «, t00=0x000e, t01=0x018e}
0x1774…1796 Head {h00=0x001e, h01=0x0050, text=» RF(Z) ADD170 JUMP IF ADD «, t00=0x000f, t01=0x0012}
0x1796…17cc Head {h00=0x0032, h01=0x0050, text=» RF(N) ADD165 JUMP IF OP2 NOT GREATER THAN OP1«, t00=0x000f, t01=0x0034}
0x17cc…17e8 Head {h00=0x0018, h01=0x0050, text=» NGR A4,A4 NEGATE A4«, t00=0x000f, t01=0x006a}
0x17e8…1804 Head {h00=0x0018, h01=0x0050, text=» NGR A7,A7 NEGATE A7«, t00=0x000f, t01=0x0086}
0x1804…1816 Head {h00=0x000e, h01=0x0050, text=» RF ADD170«, t00=0x000f, t01=0x00a2}
0x1816…1838 Head {h00=0x001e, h01=0x0050, text=»ADD165 NGR A5,A5 NEGATE A5«, t00=0x000f, t01=0x00b4}
0x1838…1854 Head {h00=0x0018, h01=0x0050, text=» NGR A6,A6 NEGATE A6«, t00=0x000f, t01=0x00d6}
0x1854…185e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f2}
0x185e…1886 Head {h00=0x0024, h01=0x0050, text=»ADD170 ADR A7,A1 ADD WITH CARRY «, t00=0x000f, t01=0x00fc}
0x1886…18a8 Head {h00=0x001e, h01=0x0050, text=» LDK A1,/10 INDICATE CARRY«, t00=0x000f, t01=0x0124}
0x18a8…18d6 Head {h00=0x002a, h01=0x0050, text=» ADR A7,A5 ADD CARRY AND RIGHT DIGITS «, t00=0x000f, t01=0x0146}
0x18d6…18fc Head {h00=0x0022, h01=0x0050, text=» RF(N) ADD220 JUMP IF NEGATIVE«, t00=0x000f, t01=0x0174}
0x18fc…190e Head {h00=0x000e, h01=0x0050, text=» SUK A7,/A«, t00=0x0010, t01=0x000a}
0x190e…1932 Head {h00=0x0020, h01=0x0050, text=» RB(NN) ADDSUB JUMP IF CARRY«, t00=0x0010, t01=0x001c}
0x1932…194c Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 NO CARRY«, t00=0x0010, t01=0x0040}
0x194c…1972 Head {h00=0x0022, h01=0x0050, text=»ADD180 ADK A7,/A RESTORE DIGIT«, t00=0x0010, t01=0x005a}
0x1972…1984 Head {h00=0x000e, h01=0x0050, text=» RB ADDSUB«, t00=0x0010, t01=0x0080}
0x1984…198e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0092}
0x198e…19b4 Head {h00=0x0022, h01=0x0050, text=»ADD200 NGR A1,A1 NEGATE CARRY «, t00=0x0010, t01=0x009c}
0x19b4…19c6 Head {h00=0x000e, h01=0x0050, text=» RB ADD080«, t00=0x0010, t01=0x00c2}
0x19c6…19d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00d4}
0x19d0…19f6 Head {h00=0x0022, h01=0x0050, text=»ADD220 NGR A1,A1 NEGATE CARRY «, t00=0x0010, t01=0x00de}
0x19f6…1a08 Head {h00=0x000e, h01=0x0050, text=» RB ADD180«, t00=0x0010, t01=0x0104}
0x1a08…1a12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0116}
0x1a12…1a20 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0120}
0x1a20…1a2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x012e}
0x1a2a…1a34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0138}
0x1a34…1a54 Head {h00=0x001c, h01=0x0050, text=»* GET ELEMENT PARAMETERS«, t00=0x0010, t01=0x0142}
0x1a54…1a5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0162}
0x1a5e…1a84 Head {h00=0x0022, h01=0x0050, text=»* INPUT: A7=M,N IN RIGHT BYTE«, t00=0x0010, t01=0x016c}
0x1a84…1aa6 (17, 0, 400) Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A6=SIGN ADDRESS «, t00=0x0011, t01=0x0004}
0x1aa6…1adc Head {h00=0x0032, h01=0x0050, text=»* A5=ADDRESS WITHIN DISCRIPTION BLOCK «, t00=0x0011, t01=0x0026}
0x1adc…1af6 Head {h00=0x0016, h01=0x0050, text=»* A4=USED «, t00=0x0011, t01=0x005c}
0x1af6…1b32 Head {h00=0x0038, h01=0x0050, text=»* A1=ELEMENT LENGTH IN BYTES 2-COMPLEMENTED «, t00=0x0011, t01=0x0076}
0x1b32…1b6e Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0011, t01=0x00b2}
0x1b6e…1b78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ee}
0x1b78…1b8c Head {h00=0x0010, h01=0x0050, text=»M:OPA EQU * «, t00=0x0011, t01=0x00f8}
0x1b8c…1ba2 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0011, t01=0x010c}
0x1ba2…1bb6 Head {h00=0x0010, h01=0x0050, text=» LDK A1,/80 «, t00=0x0011, t01=0x0122}
0x1bb6…1bcc Head {h00=0x0012, h01=0x0050, text=» XRS A1,2,A14 «, t00=0x0011, t01=0x0136}
0x1bcc…1bd8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x014c}
0x1bd8…1bf0 Head {h00=0x0014, h01=0x0050, text=»T:OPA LDR A4,A7 «, t00=0x0011, t01=0x0158}
0x1bf0…1c02 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A7«, t00=0x0011, t01=0x0170}
0x1c02…1c20 Head {h00=0x001a, h01=0x0050, text=» ANK A5,/F0 A5=Z * 16 «, t00=0x0011, t01=0x0182}
0x1c20…1c38 Head {h00=0x0014, h01=0x0050, text=» SRL A5,2 Z * 4 «, t00=0x0012, t01=0x0010}
0x1c38…1c60 Head {h00=0x0024, h01=0x0050, text=» ADR A5,A13 DISPLACEMENT ADDRESS«, t00=0x0012, t01=0x0028}
0x1c60…1c80 Head {h00=0x001c, h01=0x0050, text=» LD A6,2,A5 BASE ADDRESS«, t00=0x0012, t01=0x0050}
0x1c80…1ca6 Head {h00=0x0022, h01=0x0050, text=» LDR* A5,A5 GET ADDRESS TO DB «, t00=0x0012, t01=0x0070}
0x1ca6…1cc4 Head {h00=0x001a, h01=0x0050, text=» ANK A4,/F MASK OUT N «, t00=0x0012, t01=0x0096}
0x1cc4…1cdc Head {h00=0x0014, h01=0x0050, text=» SLL A4,1 N * 2 «, t00=0x0012, t01=0x00b4}
0x1cdc…1d00 Head {h00=0x0020, h01=0x0050, text=» ADR A5,A4 ADDRESS WITHIN DB«, t00=0x0012, t01=0x00cc}
0x1d00…1d14 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A5 «, t00=0x0012, t01=0x00f0}
0x1d14…1d40 Head {h00=0x0028, h01=0x0050, text=» ANKL A1,/FFF MASK OUT DISPLACEMENT «, t00=0x0012, t01=0x0104}
0x1d40…1d62 Head {h00=0x001e, h01=0x0050, text=» ADR A6,A1 ELEMENT ADDRESS«, t00=0x0012, t01=0x0130}
0x1d62…1d8e Head {h00=0x0028, h01=0x0050, text=» SUK A6,1 ELEMENT ADDRESS RIGHTMOST «, t00=0x0012, t01=0x0152}
0x1d8e…1da0 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A4«, t00=0x0012, t01=0x017e}
0x1da0…1dc2 Head {h00=0x001e, h01=0x0050, text=» RF(Z) OPA100 JUMP IF N=0 «, t00=0x0012, t01=0x0190}
0x1dc2…1df0 Head {h00=0x002a, h01=0x0050, text=» LD A4,-2,A5 GET DISPLACEMENT FOR N-1 «, t00=0x0013, t01=0x0022}
0x1df0…1e1c Head {h00=0x0028, h01=0x0050, text=» ANKL A4,/FFF MASK OUT DISPLACEMENT «, t00=0x0013, t01=0x0050}
0x1e1c…1e40 Head {h00=0x0020, h01=0x0050, text=»OPA100 SUR A1,A4 GET LENGTH «, t00=0x0013, t01=0x007c}
0x1e40…1e60 Head {h00=0x001c, h01=0x0050, text=» NGR A1,A1 NEGATE LENGTH«, t00=0x0013, t01=0x00a0}
0x1e60…1e72 Head {h00=0x000e, h01=0x0050, text=» RF RETMMM«, t00=0x0013, t01=0x00c0}
0x1e72…1e80 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x00d2}
0x1e80…1ec0 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0013, t01=0x00e0}
0x1ec0…1ef0 Head {h00=0x002c, h01=0x0050, text=»* GET ELEMENT PARAMETERS FOR 2 OPERANDS «, t00=0x0013, t01=0x0120}
0x1ef0…1f1c Head {h00=0x0028, h01=0x0050, text=»* AND ADJUST RETURN ADDRESS ON STACK«, t00=0x0013, t01=0x0150}
0x1f1c…1f26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x017c}
0x1f26…1f48 Head {h00=0x001e, h01=0x0050, text=»* INPUT : A7 =OP1,OP2 «, t00=0x0013, t01=0x0186}
0x1f48…1f74 Head {h00=0x0028, h01=0x0050, text=»* OUTPUT: T:OP1 = NEG LENGTH OF OP1«, t00=0x0014, t01=0x0018}
0x1f74…1fa0 Head {h00=0x0028, h01=0x0050, text=»* T:OP2 =NEG LENGTH OF OP2 «, t00=0x0014, t01=0x0044}
0x1fa0…1fc8 Head {h00=0x0024, h01=0x0050, text=»* A1 =NEG LENGTH OP1«, t00=0x0014, t01=0x0070}
0x1fc8…1ff2 Head {h00=0x0026, h01=0x0050, text=»* A3 =PACKING FORM OP2«, t00=0x0014, t01=0x0098}
0x1ff2…2022 Head {h00=0x002c, h01=0x0050, text=»* A5 =DESCRIPTOR ADDRESS OP1«, t00=0x0014, t01=0x00c2}
0x2022…2048 Head {h00=0x0022, h01=0x0050, text=»* A6 =POINTER OP1 «, t00=0x0014, t01=0x00f2}
0x2048…206e Head {h00=0x0022, h01=0x0050, text=»* A10 =POINTER OP2 «, t00=0x0014, t01=0x0118}
0x206e…2078 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x013e}
0x2078…20b8 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0014, t01=0x0148}
0x20b8…20c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0188}
0x20c2…20d6 (21, 0, 400) Head {h00=0x0010, h01=0x0050, text=»GETOPS EQU *«, t00=0x0015, t01=0x0004}
0x20d6…20f8 Head {h00=0x001e, h01=0x0050, text=» LD* A7,8,A14 GET ARGUMENT«, t00=0x0015, t01=0x0018}
0x20f8…210a Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0015, t01=0x003a}
0x210a…2136 Head {h00=0x0028, h01=0x0050, text=» ADS A1,8,A14 ADJUST RETURN ADDRESS «, t00=0x0015, t01=0x004c}
0x2136…214a Head {h00=0x0010, h01=0x0050, text=»M:OPS EQU * «, t00=0x0015, t01=0x0078}
0x214a…2160 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0015, t01=0x008c}
0x2160…2174 Head {h00=0x0010, h01=0x0050, text=» LDK A1,/80 «, t00=0x0015, t01=0x00a2}
0x2174…218a Head {h00=0x0012, h01=0x0050, text=» XRS A1,2,A14 «, t00=0x0015, t01=0x00b6}
0x218a…2196 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x00cc}
0x2196…21aa Head {h00=0x0010, h01=0x0050, text=»T:OPS EQU * «, t00=0x0015, t01=0x00d8}
0x21aa…21c6 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A13 COPY A13«, t00=0x0015, t01=0x00ec}
0x21c6…21fc Head {h00=0x0032, h01=0x0050, text=» ANKL A13,/FFFE MASK AWAY CONSTANT INDICATION «, t00=0x0015, t01=0x0108}
0x21fc…221a Head {h00=0x001a, h01=0x0050, text=» ST A13,ARG2 SAVE A13 «, t00=0x0015, t01=0x013e}
0x221a…222c Head {h00=0x000e, h01=0x0050, text=» SRC A1,1 «, t00=0x0015, t01=0x015c}
0x222c…225a Head {h00=0x002a, h01=0x0050, text=» RF(NN) GET010 JUMP IF NOT TCA COMMON «, t00=0x0015, t01=0x016e}
0x225a…2286 Head {h00=0x0028, h01=0x0050, text=» LD A13,-2,A13 GET ADDRESS TO TCACOM«, t00=0x0016, t01=0x000c}
0x2286…229a Head {h00=0x0010, h01=0x0050, text=»GET010 EQU *«, t00=0x0016, t01=0x0038}
0x229a…22b0 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=0 «, t00=0x0016, t01=0x004c}
0x22b0…22dc Head {h00=0x0028, h01=0x0050, text=» CF A14,T:OPA GET PARAMETERS FOR OP2«, t00=0x0016, t01=0x0062}
0x22dc…22e8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x008e}
0x22e8…22fe Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0016, t01=0x009a}
0x22fe…2326 Head {h00=0x0024, h01=0x0050, text=» CF A14,M:OPA PARAMETERS FOR OP2«, t00=0x0016, t01=0x00b0}
0x2326…2332 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00d8}
0x2332…2346 Head {h00=0x0010, h01=0x0050, text=» LDKL A13,0 «, t00=0x0016, t01=0x00e4}
0x2346…235a Head {h00=0x0010, h01=0x0050, text=»ARG2 EQU *-2«, t00=0x0016, t01=0x00f8}
0x235a…237e Head {h00=0x0020, h01=0x0050, text=» LDR A10,A6 A10=POINTER OP2 «, t00=0x0016, t01=0x010c}
0x237e…23a8 Head {h00=0x0026, h01=0x0050, text=» ST A1,T:OP2 STORE NEG LENGTH OP2 «, t00=0x0016, t01=0x0130}
0x23a8…23d6 Head {h00=0x002a, h01=0x0050, text=» LDR* A3,A5 GET PACKING FORM IN BIT 0 «, t00=0x0016, t01=0x015a}
0x23d6…23f6 Head {h00=0x001c, h01=0x0050, text=» ECR A7,A7 CHANGE BYTES «, t00=0x0016, t01=0x0188}
0x23f6…240c Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=0 «, t00=0x0017, t01=0x0018}
0x240c…2438 Head {h00=0x0028, h01=0x0050, text=» CF A14,T:OPA GET PARAMETERS FOR OP1«, t00=0x0017, t01=0x002e}
0x2438…2444 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x005a}
0x2444…245a Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0017, t01=0x0066}
0x245a…2470 Head {h00=0x0012, h01=0x0050, text=» CF A14,M:OPA «, t00=0x0017, t01=0x007c}
0x2470…247c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0092}
0x247c…24a6 Head {h00=0x0026, h01=0x0050, text=» ST A1,T:OP1 STORE NEG LENGTH OP1«, t00=0x0017, t01=0x009e}
0x24a6…24bc Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=0 «, t00=0x0017, t01=0x00c8}
0x24bc…24d2 Head {h00=0x0012, h01=0x0050, text=»RETMMM RTN A14«, t00=0x0017, t01=0x00de}
0x24d2…24de Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x00f4}
0x24de…24f4 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0017, t01=0x0100}
0x24f4…250e Head {h00=0x0016, h01=0x0050, text=»RETMMM STR A1,A14 «, t00=0x0017, t01=0x0116}
0x250e…2522 Head {h00=0x0010, h01=0x0050, text=» LD A1,2,A14«, t00=0x0017, t01=0x0130}
0x2522…2536 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/80 «, t00=0x0017, t01=0x0144}
0x2536…254c Head {h00=0x0012, h01=0x0050, text=» RF(E) RETMMF «, t00=0x0017, t01=0x0158}
0x254c…2560 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A14«, t00=0x0017, t01=0x016e}
0x2560…2574 Head {h00=0x0010, h01=0x0050, text=» DATA /C0FF «, t00=0x0017, t01=0x0182}
0x2574…258e Head {h00=0x0016, h01=0x0050, text=»RETMMF LDR* A1,A14«, t00=0x0018, t01=0x0008}
0x258e…259e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0018, t01=0x0022}
0x259e…25aa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x0032}
0x25aa…25b8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x003e}
0x25b8…25c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x004c}
0x25c2…25d0 Head {h00=0x000a, h01=0x0050, text=»* MOVE«, t00=0x0018, t01=0x0056}
0x25d0…25da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0064}
0x25da…2602 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0018, t01=0x006e}
0x2602…260c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0096}
0x260c…2620 Head {h00=0x0010, h01=0x0050, text=»M:MOV EQU * «, t00=0x0018, t01=0x00a0}
0x2620…2636 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0018, t01=0x00b4}
0x2636…264a Head {h00=0x0010, h01=0x0050, text=» LDK A1,/80 «, t00=0x0018, t01=0x00ca}
0x264a…2660 Head {h00=0x0012, h01=0x0050, text=» XRS A1,2,A14 «, t00=0x0018, t01=0x00de}
0x2660…2672 Head {h00=0x000e, h01=0x0050, text=» RF T:MOV «, t00=0x0018, t01=0x00f4}
0x2672…267e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x0106}
0x267e…2698 Head {h00=0x0016, h01=0x0050, text=»T:MOVC ADKL A13,1 «, t00=0x0018, t01=0x0112}
0x2698…26a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x012c}
0x26a2…26b6 Head {h00=0x0010, h01=0x0050, text=»T:MOV EQU * «, t00=0x0018, t01=0x0136}
0x26b6…26e4 Head {h00=0x002a, h01=0x0050, text=» CF A14,GETOPS GET ELEMENT PARAMETERS «, t00=0x0018, t01=0x014a}
0x26e4…2710 Head {h00=0x0028, h01=0x0050, text=» LDR A4,A1 A4=LENGTH 2-COMPLEMENTED «, t00=0x0018, t01=0x0178}
0x2710…2740 Head {h00=0x002c, h01=0x0050, text=» LD A2,T:OP2 GET LENGTH OF OP2 2-COMPL. «, t00=0x0019, t01=0x0014}
0x2740…2764 Head {h00=0x0020, h01=0x0050, text=» LDR A7,A10 GET POINTER OP2 «, t00=0x0019, t01=0x0044}
0x2764…2778 Head {h00=0x0010, h01=0x0050, text=» XRR* A3,A5 «, t00=0x0019, t01=0x0068}
0x2778…27a6 Head {h00=0x002a, h01=0x0050, text=» RF(NN) MVC JUMP IF EQUAL PACKING FORM«, t00=0x0019, t01=0x007c}
0x27a6…27d2 Head {h00=0x0028, h01=0x0050, text=» LDR* A3,A5 GET PACKING FORM FOR OP1«, t00=0x0019, t01=0x00aa}
0x27d2…27f2 Head {h00=0x001c, h01=0x0050, text=» RF(N) UPK JUMP IF ASCII«, t00=0x0019, t01=0x00d6}
0x27f2…2800 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x00f6}
0x2800…280a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0104}
0x280a…2818 Head {h00=0x000a, h01=0x0050, text=»* PACK«, t00=0x0019, t01=0x010e}
0x2818…282c Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0019, t01=0x011c}
0x282c…2836 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0130}
0x2836…285a Head {h00=0x0020, h01=0x0050, text=»PCK LDK A1,/B LOAD PLUS SIGN«, t00=0x0019, t01=0x013a}
0x285a…2888 Head {h00=0x002a, h01=0x0050, text=»PCK040 LDK A3,/F0 LOAD BLANK AND ZERO «, t00=0x0019, t01=0x015e}
0x2888…28aa Head {h00=0x001e, h01=0x0050, text=» ADK A2,1 INCREMENT INDEX «, t00=0x0019, t01=0x018c}
0x28aa…28d6 Head {h00=0x0028, h01=0x0050, text=» RF(P) PCK050 JUMP IF END OF ELEMENT«, t00=0x001a, t01=0x001e}
0x28d6…28fa Head {h00=0x0020, h01=0x0050, text=» LCR A3,A7 GET BYTE FROM OP2«, t00=0x001a, t01=0x004a}
0x28fa…290e Head {h00=0x0010, h01=0x0050, text=» SUK A3,/30 «, t00=0x001a, t01=0x006e}
0x290e…2936 Head {h00=0x0024, h01=0x0050, text=» RF(NN) PCK045 JUMP IF NOT SPACE«, t00=0x001a, t01=0x0082}
0x2936…2954 Head {h00=0x001a, h01=0x0050, text=» LDK A3,/F LOAD BLANK «, t00=0x001a, t01=0x00aa}
0x2954…2982 Head {h00=0x002a, h01=0x0050, text=»PCK045 SLL A3,4 SHIFT TO LEFT POSITION«, t00=0x001a, t01=0x00c8}
0x2982…29ba Head {h00=0x0034, h01=0x0050, text=»PCK050 ADR A1,A3 GET 2 DIGITS IN THE RIGHT BYTE «, t00=0x001a, t01=0x00f6}
0x29ba…29de Head {h00=0x0020, h01=0x0050, text=» SCR A1,A6 STORE BYTE IN OP1«, t00=0x001a, t01=0x012e}
0x29de…29fe Head {h00=0x001c, h01=0x0050, text=» ADK A4,1 STEP UP INDEX «, t00=0x001a, t01=0x0152}
0x29fe…2a14 Head {h00=0x0012, h01=0x0050, text=» RB(NN) RETMMM«, t00=0x001a, t01=0x0172}
0x2a14…2a3c Head {h00=0x0024, h01=0x0050, text=» SUK A6,1 DECREMENT POINTER OP1 «, t00=0x001a, t01=0x0188}
0x2a3c…2a64 Head {h00=0x0024, h01=0x0050, text=» SUK A7,1 DECREMENT POINTER OP2 «, t00=0x001b, t01=0x0020}
0x2a64…2a82 Head {h00=0x001a, h01=0x0050, text=» LDK A1,/F LOAD BLANK «, t00=0x001b, t01=0x0048}
0x2a82…2aac Head {h00=0x0026, h01=0x0050, text=» ADK A2,1 INCREMENT INDEX FOR OP2 «, t00=0x001b, t01=0x0066}
0x2aac…2ad8 Head {h00=0x0028, h01=0x0050, text=» RB(P) PCK040 JUMP IF END OF ELEMENT«, t00=0x001b, t01=0x0090}
0x2ad8…2afc Head {h00=0x0020, h01=0x0050, text=» LCR A1,A7 GET BYTE FROM OP2«, t00=0x001b, t01=0x00bc}
0x2afc…2b10 Head {h00=0x0010, h01=0x0050, text=» SUK A1,/30 «, t00=0x001b, t01=0x00e0}
0x2b10…2b38 Head {h00=0x0024, h01=0x0050, text=» RF(NN) PCK060 JUMP IF NOT SPACE«, t00=0x001b, t01=0x00f4}
0x2b38…2b56 Head {h00=0x001a, h01=0x0050, text=» LDK A1,/F LOAD BLANK «, t00=0x001b, t01=0x011c}
0x2b56…2b88 Head {h00=0x002e, h01=0x0050, text=»PCK060 SUK A7,1 DECREMENT POINTER FOR OP2 «, t00=0x001b, t01=0x013a}
0x2b88…2b9a Head {h00=0x000e, h01=0x0050, text=» RB PCK040«, t00=0x001b, t01=0x016c}
0x2b9a…2ba8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x017e}
0x2ba8…2bb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x018c}
0x2bb2…2bd8 Head {h00=0x0022, h01=0x0050, text=»* MOVE CHARACTER BY CHARACTER «, t00=0x001c, t01=0x0008}
0x2bd8…2bfe Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x001c, t01=0x002e}
0x2bfe…2c08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0054}
0x2c08…2c1a Head {h00=0x000e, h01=0x0050, text=»MVC EQU * «, t00=0x001c, t01=0x005e}
0x2c1a…2c3a Head {h00=0x001c, h01=0x0050, text=» LDK A3,0 LOAD HEX ZERO «, t00=0x001c, t01=0x0070}
0x2c3a…2c4e Head {h00=0x0010, h01=0x0050, text=»MVC020 EQU *«, t00=0x001c, t01=0x0090}
0x2c4e…2c72 Head {h00=0x0020, h01=0x0050, text=» LDR* A5,A5 GET PACKING FORM«, t00=0x001c, t01=0x00a4}
0x2c72…2c96 Head {h00=0x0020, h01=0x0050, text=» RF(N) MVC050 JUMP IF ASCII «, t00=0x001c, t01=0x00c8}
0x2c96…2cb6 Head {h00=0x001c, h01=0x0050, text=» LDK A3,/FF LOAD BLANKS «, t00=0x001c, t01=0x00ec}
0x2cb6…2ce0 Head {h00=0x0026, h01=0x0050, text=»MVC050 LDR A1,A3 GET FILLER TO A1 «, t00=0x001c, t01=0x010c}
0x2ce0…2d0a Head {h00=0x0026, h01=0x0050, text=» ADK A2,1 INCREMENT INDEX FOR OP2 «, t00=0x001c, t01=0x0136}
0x2d0a…2d36 Head {h00=0x0028, h01=0x0050, text=» RF(P) MVC100 JUMP IF END OF ELEMENT«, t00=0x001c, t01=0x0160}
0x2d36…2d5a Head {h00=0x0020, h01=0x0050, text=» LCR A1,A7 GET BYTE FROM OP2«, t00=0x001c, t01=0x018c}
0x2d5a…2d84 Head {h00=0x0026, h01=0x0050, text=»MVC100 SCR A1,A6 STORE BYTE IN OP1«, t00=0x001d, t01=0x0020}
0x2d84…2dac Head {h00=0x0024, h01=0x0050, text=» SUK A7,1 DECREMENT POINTER OP2 «, t00=0x001d, t01=0x004a}
0x2dac…2dd4 Head {h00=0x0024, h01=0x0050, text=» SUK A6,1 DECREMENT POINTER OP1 «, t00=0x001d, t01=0x0072}
0x2dd4…2df4 Head {h00=0x001c, h01=0x0050, text=» ADK A4,1 STEP UP INDEX «, t00=0x001d, t01=0x009a}
0x2df4…2e1e Head {h00=0x0026, h01=0x0050, text=» RB(N) MVC050 JUMP IF NOT FINISHED«, t00=0x001d, t01=0x00ba}
0x2e1e…2e36 Head {h00=0x0014, h01=0x0050, text=»RETUR RB RETMMM «, t00=0x001d, t01=0x00e4}
0x2e36…2e44 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00fc}
0x2e44…2e4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x010a}
0x2e4e…2e5e Head {h00=0x000c, h01=0x0050, text=»* UNPACK«, t00=0x001d, t01=0x0114}
0x2e5e…2e72 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x001d, t01=0x0124}
0x2e72…2e7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0138}
0x2e7c…2e9a Head {h00=0x001a, h01=0x0050, text=»UPK LDK A1,0 CLEAR A1 «, t00=0x001d, t01=0x0142}
0x2e9a…2eac Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x001d, t01=0x0160}
0x2eac…2ed6 Head {h00=0x0026, h01=0x0050, text=» RF(NN) UPK070 JUMP IF END OF OP2 «, t00=0x001d, t01=0x0172}
0x2ed6…2ef8 Head {h00=0x001e, h01=0x0050, text=» LCR A1,A7 GET BCD-DIGITS «, t00=0x001e, t01=0x000c}
0x2ef8…2f18 Head {h00=0x001c, h01=0x0050, text=» SRL A1,4 SHIFT OUT SIGN«, t00=0x001e, t01=0x002e}
0x2f18…2f2a Head {h00=0x000e, h01=0x0050, text=» SUK A1,/F«, t00=0x001e, t01=0x004e}
0x2f2a…2f4e Head {h00=0x0020, h01=0x0050, text=» RF(Z) UPK060 JUMP IF BLANK «, t00=0x001e, t01=0x0060}
0x2f4e…2f62 Head {h00=0x0010, h01=0x0050, text=» ADK A1,/1F «, t00=0x001e, t01=0x0084}
0x2f62…2f96 Head {h00=0x0030, h01=0x0050, text=»UPK060 ADK A1,/20 MAKE ASCII DIGIT OR BLANK «, t00=0x001e, t01=0x0098}
0x2f96…2fba Head {h00=0x0020, h01=0x0050, text=»UPK070 SCR A1,A6 STORE ASCII«, t00=0x001e, t01=0x00cc}
0x2fba…2fe2 Head {h00=0x0024, h01=0x0050, text=» SUK A6,1 DECREMENT POINTER OP1 «, t00=0x001e, t01=0x00f0}
0x2fe2…300a Head {h00=0x0024, h01=0x0050, text=» SUK A7,1 DECREMENT POINTER OP2 «, t00=0x001e, t01=0x0118}
0x300a…302c Head {h00=0x001e, h01=0x0050, text=» ADK A4,1 INCREMENT INDEX «, t00=0x001e, t01=0x0140}
0x302c…3052 Head {h00=0x0022, h01=0x0050, text=» RB(NN) RETUR JUMP IF FINISHED«, t00=0x001e, t01=0x0162}
0x3052…306c Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 CLEAR A1«, t00=0x001e, t01=0x0188}
0x306c…3096 Head {h00=0x0026, h01=0x0050, text=» ADK A2,1 INCREMENT INDEX FOR OP2 «, t00=0x001f, t01=0x0012}
0x3096…30c4 Head {h00=0x002a, h01=0x0050, text=» RF(NN) UPK110 JUMP IF END OF ELEMENT «, t00=0x001f, t01=0x003c}
0x30c4…30ea Head {h00=0x0022, h01=0x0050, text=» LCR A1,A7 GET DIGITS FROM OP2«, t00=0x001f, t01=0x006a}
0x30ea…310c Head {h00=0x001e, h01=0x0050, text=» ANK A1,/F GET RIGHT DIGIT«, t00=0x001f, t01=0x0090}
0x310c…311e Head {h00=0x000e, h01=0x0050, text=» SUK A1,/F«, t00=0x001f, t01=0x00b2}
0x311e…3142 Head {h00=0x0020, h01=0x0050, text=» RF(Z) UPK100 JUMP IF BLANK «, t00=0x001f, t01=0x00c4}
0x3142…3156 Head {h00=0x0010, h01=0x0050, text=» ADK A1,/1F «, t00=0x001f, t01=0x00e8}
0x3156…318a Head {h00=0x0030, h01=0x0050, text=»UPK100 ADK A1,/20 MAKE ASCII DIGIT OR BLANK «, t00=0x001f, t01=0x00fc}
0x318a…31ae Head {h00=0x0020, h01=0x0050, text=»UPK110 SCR A1,A6 STORE ASCII«, t00=0x001f, t01=0x0130}
0x31ae…31d6 Head {h00=0x0024, h01=0x0050, text=» SUK A6,1 DECREMENT POINTER OP1 «, t00=0x001f, t01=0x0154}
0x31d6…31f8 Head {h00=0x001e, h01=0x0050, text=» ADK A4,1 INCREMENT INDEX «, t00=0x001f, t01=0x017c}
0x31f8…3220 Head {h00=0x0024, h01=0x0050, text=» RB(N) UPK JUMP IF NOT FINISHED «, t00=0x0020, t01=0x000e}
0x3220…3232 Head {h00=0x000e, h01=0x0050, text=» RB RETMMM«, t00=0x0020, t01=0x0036}
0x3232…323c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0048}
0x323c…324a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0052}
0x324a…3254 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0060}
0x3254…327a Head {h00=0x0022, h01=0x0050, text=»* COMPARISON OF 2 BCD ELEMENTS«, t00=0x0020, t01=0x006a}
0x327a…32a8 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0020, t01=0x0090}
0x32a8…32b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00be}
0x32b2…32c6 Head {h00=0x0010, h01=0x0050, text=»M:CPA EQU * «, t00=0x0020, t01=0x00c8}
0x32c6…32ce Head {h00=0x0004, h01=0x0050, t00=0x0020, t01=0x00dc}
0x32ce…32e4 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0020, t01=0x00e4}
0x32e4…32f8 Head {h00=0x0010, h01=0x0050, text=» LDK A1,/80 «, t00=0x0020, t01=0x00fa}
0x32f8…330e Head {h00=0x0012, h01=0x0050, text=» XRS A1,2,A14 «, t00=0x0020, t01=0x010e}
0x330e…3320 Head {h00=0x000e, h01=0x0050, text=» RF T:CPA «, t00=0x0020, t01=0x0124}
0x3320…332c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0136}
0x332c…3346 Head {h00=0x0016, h01=0x0050, text=»T:CPAC ADKL A13,1 «, t00=0x0020, t01=0x0142}
0x3346…336e Head {h00=0x0024, h01=0x0050, text=»T:CPA EQU * ABSOLUTE COMPARISON «, t00=0x0020, t01=0x015c}
0x336e…3394 Head {h00=0x0022, h01=0x0050, text=» LDR A9,A14 INDICATE ABS. COMP«, t00=0x0020, t01=0x0184}
0x3394…33a4 Head {h00=0x000c, h01=0x0050, text=» RF COMP«, t00=0x0021, t01=0x001a}
0x33a4…33ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x002a}
0x33ae…33c2 Head {h00=0x0010, h01=0x0050, text=»M:CMP EQU * «, t00=0x0021, t01=0x0034}
0x33c2…33d8 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0021, t01=0x0048}
0x33d8…33ec Head {h00=0x0010, h01=0x0050, text=» LDK A1,/80 «, t00=0x0021, t01=0x005e}
0x33ec…3402 Head {h00=0x0012, h01=0x0050, text=» XRS A1,2,A14 «, t00=0x0021, t01=0x0072}
0x3402…3414 Head {h00=0x000e, h01=0x0050, text=» RF T:CMP «, t00=0x0021, t01=0x0088}
0x3414…3420 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x009a}
0x3420…343a Head {h00=0x0016, h01=0x0050, text=»T:CMPC ADKL A13,1 «, t00=0x0021, t01=0x00a6}
0x343a…3464 Head {h00=0x0026, h01=0x0050, text=»T:CMP EQU * COMP. INCLUSIVE SIGNS «, t00=0x0021, t01=0x00c0}
0x3464…348c Head {h00=0x0024, h01=0x0050, text=» SUR A9,A9 INDICATE NORMAL COMP «, t00=0x0021, t01=0x00ea}
0x348c…34b4 Head {h00=0x0024, h01=0x0050, text=»COMP LDKL A8,/EC08 A8=CWR A4,A2 «, t00=0x0021, t01=0x0112}
0x34b4…34e2 Head {h00=0x002a, h01=0x0050, text=» CF A14,GETOPS GET ELEMENT PARAMETERS «, t00=0x0021, t01=0x013a}
0x34e2…3502 Head {h00=0x001c, h01=0x0050, text=» LDK A7,0 INDICATE EQUAL«, t00=0x0021, t01=0x0168}
0x3502…352c Head {h00=0x0026, h01=0x0050, text=» LCR A4,A6 GET 1:ST BYTE FROM OP1 «, t00=0x0021, t01=0x0188}
0x352c…3556 Head {h00=0x0026, h01=0x0050, text=» LCR A2,A10 GET 1:ST BYTE FROM OP2«, t00=0x0022, t01=0x0022}
0x3556…3570 Head {h00=0x0016, h01=0x0050, text=» LDR A3,A4 COPY A4«, t00=0x0022, t01=0x004c}
0x3570…358a Head {h00=0x0016, h01=0x0050, text=» LDR A5,A2 COPY A2«, t00=0x0022, t01=0x0066}
0x358a…35aa Head {h00=0x001c, h01=0x0050, text=» ANK A3,/F GET SIGN OP1 «, t00=0x0022, t01=0x0080}
0x35aa…35ca Head {h00=0x001c, h01=0x0050, text=» ANK A5,/F GET SIGN OP2 «, t00=0x0022, t01=0x00a0}
0x35ca…35ec Head {h00=0x001e, h01=0x0050, text=» ANK A4,/F0 GET LEFT DIGIT«, t00=0x0022, t01=0x00c0}
0x35ec…360e Head {h00=0x001e, h01=0x0050, text=» ANK A2,/F0 GET LEFT DIGIT«, t00=0x0022, t01=0x00e2}
0x360e…3620 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A9«, t00=0x0022, t01=0x0104}
0x3620…3652 Head {h00=0x002e, h01=0x0050, text=» RF(NZ) CMP100 JUMP IF ABSOLUTE COMPARISON«, t00=0x0022, t01=0x0116}
0x3652…3664 Head {h00=0x000e, h01=0x0050, text=» SUR A3,A5«, t00=0x0022, t01=0x0148}
0x3664…368c Head {h00=0x0024, h01=0x0050, text=» RF(N) CMP150 JUMP IF OP1 GT OP2«, t00=0x0022, t01=0x015a}
0x368c…36b4 Head {h00=0x0024, h01=0x0050, text=» RF(P) CMP160 JUMP IF OP1 LT OP2«, t00=0x0022, t01=0x0182}
0x36b4…36c6 Head {h00=0x000e, h01=0x0050, text=» SUK A5,/B«, t00=0x0023, t01=0x001a}
0x36c6…36ee Head {h00=0x0024, h01=0x0050, text=» RF(Z) CMP100 JUMP IF PLUS SIGNS«, t00=0x0023, t01=0x002c}
0x36ee…3712 Head {h00=0x0020, h01=0x0050, text=» LDKL A8,/EA10 A8=CWR A2,A4 «, t00=0x0023, t01=0x0054}
0x3712…372c Head {h00=0x0016, h01=0x0050, text=»CMP100 SUK A4,/FF «, t00=0x0023, t01=0x0078}
0x372c…3752 Head {h00=0x0022, h01=0x0050, text=» RF(Z) CMP110 JUMP IF 2 BLANKS«, t00=0x0023, t01=0x0092}
0x3752…3764 Head {h00=0x000e, h01=0x0050, text=» ADK A4,/F«, t00=0x0023, t01=0x00b8}
0x3764…3796 Head {h00=0x002e, h01=0x0050, text=» RF(NN) CMP110 JUMP IF 1 BLANK (LEFTMOST) «, t00=0x0023, t01=0x00ca}
0x3796…37b8 Head {h00=0x001e, h01=0x0050, text=» ADK A4,/F0 RESTORE DIGITS«, t00=0x0023, t01=0x00fc}
0x37b8…37d2 Head {h00=0x0016, h01=0x0050, text=»CMP110 SUK A2,/FF «, t00=0x0023, t01=0x011e}
0x37d2…37f8 Head {h00=0x0022, h01=0x0050, text=» RF(Z) CMP120 JUMP IF 2 BLANKS«, t00=0x0023, t01=0x0138}
0x37f8…380a Head {h00=0x000e, h01=0x0050, text=» ADK A2,/F«, t00=0x0023, t01=0x015e}
0x380a…383c Head {h00=0x002e, h01=0x0050, text=» RF(NN) CMP120 JUMP IF 1 BLANK (LEFTMOST) «, t00=0x0023, t01=0x0170}
0x383c…385e Head {h00=0x001e, h01=0x0050, text=» ADK A2,/F0 RESTORE DIGITS«, t00=0x0024, t01=0x0012}
0x385e…387c Head {h00=0x001a, h01=0x0050, text=»CMP120 EXR A8 COMPARE «, t00=0x0024, t01=0x0034}
0x387c…38a2 Head {h00=0x0022, h01=0x0050, text=» RF(G) CMP140 JUMP IF GREATER «, t00=0x0024, t01=0x0052}
0x38a2…38c6 Head {h00=0x0020, h01=0x0050, text=» RF(E) CMP130 JUMP IF EQUAL «, t00=0x0024, t01=0x0078}
0x38c6…38e6 Head {h00=0x001c, h01=0x0050, text=» LDK A7,2 INDICATE LESS «, t00=0x0024, t01=0x009c}
0x38e6…3910 Head {h00=0x0026, h01=0x0050, text=»CMP130 SUK A6,1 DECREMENT POINTER «, t00=0x0024, t01=0x00bc}
0x3910…3936 Head {h00=0x0022, h01=0x0050, text=» SUKL A10,1 DECREMENT POINTER «, t00=0x0024, t01=0x00e6}
0x3936…3958 Head {h00=0x001e, h01=0x0050, text=» ADK A1,1 INCREMENT INDEX «, t00=0x0024, t01=0x010c}
0x3958…396e Head {h00=0x0012, h01=0x0050, text=» RF(NN) CMP170«, t00=0x0024, t01=0x012e}
0x396e…3994 Head {h00=0x0022, h01=0x0050, text=» LCR A4,A6 GET BYTE FROM OP 1 «, t00=0x0024, t01=0x0144}
0x3994…39a6 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0024, t01=0x016a}
0x39a6…39c8 Head {h00=0x001e, h01=0x0050, text=» IM T:OP2 INCREMENT INDEX «, t00=0x0024, t01=0x017c}
0x39c8…39f6 Head {h00=0x002a, h01=0x0050, text=» RB(NN) CMP100 JUMP IF END OF ELEMENT «, t00=0x0025, t01=0x000e}
0x39f6…3a1c Head {h00=0x0022, h01=0x0050, text=» LCR A2,A10 GET BYTE FROM OP2 «, t00=0x0025, t01=0x003c}
0x3a1c…3a2e Head {h00=0x000e, h01=0x0050, text=» RB CMP100«, t00=0x0025, t01=0x0062}
0x3a2e…3a38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0074}
0x3a38…3a4e Head {h00=0x0012, h01=0x0050, text=»* GREATER THAN«, t00=0x0025, t01=0x007e}
0x3a4e…3a66 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0025, t01=0x0094}
0x3a66…3a70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00ac}
0x3a70…3a9e Head {h00=0x002a, h01=0x0050, text=»CMP140 LDK A7,1 INDICATE GREATER THAN «, t00=0x0025, t01=0x00b6}
0x3a9e…3ab0 Head {h00=0x000e, h01=0x0050, text=» RB CMP130«, t00=0x0025, t01=0x00e4}
0x3ab0…3aba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00f6}
0x3aba…3ad4 Head {h00=0x0016, h01=0x0050, text=»* OP1 + AND OP2 - «, t00=0x0025, t01=0x0100}
0x3ad4…3aee Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0025, t01=0x011a}
0x3aee…3af8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0134}
0x3af8…3b26 Head {h00=0x002a, h01=0x0050, text=»CMP150 LDK A7,1 INDICATE GREATER THAN «, t00=0x0025, t01=0x013e}
0x3b26…3b38 Head {h00=0x000e, h01=0x0050, text=» RF CMP170«, t00=0x0025, t01=0x016c}
0x3b38…3b42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x017e}
0x3b42…3b5c Head {h00=0x0016, h01=0x0050, text=»* OP1 - AND OP2 + «, t00=0x0025, t01=0x0188}
0x3b5c…3b76 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0026, t01=0x0012}
0x3b76…3b80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x002c}
0x3b80…3baa Head {h00=0x0026, h01=0x0050, text=»CMP160 LDK A7,2 INDICATE LESS THAN«, t00=0x0026, t01=0x0036}
0x3baa…3bc8 Head {h00=0x001a, h01=0x0050, text=»CMP170 LC A6,2,A14 PSW«, t00=0x0026, t01=0x0060}
0x3bc8…3bdc Head {h00=0x0010, h01=0x0050, text=» ANK A6,/FC «, t00=0x0026, t01=0x007e}
0x3bdc…3bee Head {h00=0x000e, h01=0x0050, text=» ORR A6,A7«, t00=0x0026, t01=0x0092}
0x3bee…3c10 Head {h00=0x001e, h01=0x0050, text=» SC A6,2,A14 PSW COND UPD «, t00=0x0026, t01=0x00a4}
0x3c10…3c22 Head {h00=0x000e, h01=0x0050, text=» RB RETUR «, t00=0x0026, t01=0x00c6}
0x3c22…3c2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00d8}
0x3c2c…3c38 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0026, t01=0x00e2}
0x3c38…3c3c Head {h00=0x4004, h01=0x0000}
0x3c3c…3c40 00 26 00 ee ┆ & ┆
0x3c40…3c48 (39, 1, 8) 20 04 00 00 00 27 00 04 ┆ ' ┆
0x3c48…3c98 (40, 0, 400) 34 2c 31 20 00 27 01 8a 00 22 00 50 5c 52 42 5c 50 52 42 30 31 30 5c 47 45 54 20 4e 45 58 54 20 43 48 41 52 41 43 54 45 52 20 00 28 00 0c 00 3e 00 50 2a 20 20 20 4c 4f 4f 4b 20 49 46 20 43 41 52 52 49 41 47 45 20 52 45 54 55 52 4e 20 43 48 ┆4,1 ' " P RB PRB010 GET NEXT CHARACTER ( > P* LOOK IF CARRIAGE RETURN CH┆
0x3c98…3ce8 41 52 20 28 2f 30 39 2c 2f 30 44 29 20 4c 41 53 54 20 49 4e 20 42 55 46 46 45 52 20 00 28 00 32 00 24 00 50 50 52 42 30 35 30 5c 4c 44 52 5c 41 31 2c 41 33 5c 47 45 54 20 41 44 44 52 45 53 53 20 54 4f 20 00 28 00 74 00 28 00 50 5c 41 44 52 ┆AR (/09,/0D) LAST IN BUFFER ( 2 $ PPRB050 LDR A1,A3 GET ADDRESS TO ( t ( P ADR┆
0x3ce8…3d38 5c 41 31 2c 41 34 5c 4c 41 53 54 20 43 48 41 52 41 43 54 45 52 20 49 4e 20 42 55 46 46 45 52 20 00 28 00 9c 00 1a 00 50 5c 4c 43 5c 41 31 2c 2d 31 2c 41 31 5c 47 45 54 20 43 48 41 52 20 00 28 00 c8 00 2a 00 50 5c 43 43 4b 5c 41 31 2c 2f 30 ┆ A1,A4 LAST CHARACTER IN BUFFER ( P LC A1,-1,A1 GET CHAR ( * P CCK A1,/0┆
0x3d38…3d88 39 30 39 5c 43 41 52 52 49 41 47 45 20 52 45 54 55 52 4e 20 2d 20 43 52 32 20 3f 20 00 28 00 e6 00 16 00 50 5c 52 46 28 45 29 5c 50 52 42 30 36 30 5c 59 45 53 20 00 28 01 14 00 2a 00 50 5c 43 43 4b 5c 41 31 2c 2f 30 44 30 44 5c 43 41 52 52 ┆909 CARRIAGE RETURN - CR2 ? ( P RF(E) PRB060 YES ( * P CCK A1,/0D0D CARR┆
0x3d88…3dd8 49 41 47 45 20 52 45 54 55 52 4e 20 2d 20 43 52 31 20 3f 20 00 28 01 2e 00 16 00 50 5c 52 46 28 45 29 5c 50 52 42 30 36 30 5c 59 45 53 20 00 28 01 5c 00 1e 00 50 5c 4c 44 4b 5c 41 31 2c 30 5c 44 55 4d 4d 59 20 43 48 41 52 41 43 54 45 52 20 ┆IAGE RETURN - CR1 ? ( . P RF(E) PRB060 YES ( P LDK A1,0 DUMMY CHARACTER ┆
0x3dd8…3e28 (41, 0, 400) 00 28 01 76 00 0e 00 50 5c 52 46 5c 50 52 42 30 37 30 00 29 00 08 00 2e 00 50 50 52 42 30 36 30 5c 53 55 4b 5c 41 34 2c 31 5c 44 45 43 52 45 4d 45 4e 54 20 52 45 51 55 45 53 54 45 44 20 4c 45 4e 47 54 48 00 29 00 1a 00 2c 00 50 50 52 42 30 ┆ ( v P RF PRB070 ) . PPRB060 SUK A4,1 DECREMENT REQUESTED LENGTH ) , PPRB0┆
0x3e28…3e78 37 30 5c 53 54 5c 41 31 2c 45 43 42 45 4c 2c 41 38 5c 53 41 56 45 20 43 48 41 52 2e 20 49 4e 20 45 43 42 20 00 29 00 4c 00 06 00 50 2a 20 00 29 00 7c 00 06 00 50 2a 20 00 29 00 86 00 2e 00 50 50 52 42 31 30 30 5c 53 55 4b 5c 41 34 2c 31 5c ┆70 ST A1,ECBEL,A8 SAVE CHAR. IN ECB ) L P* ) | P* ) . PPRB100 SUK A4,1 ┆
0x3e78…3ec8 44 45 43 52 45 4d 45 4e 54 20 52 45 51 55 45 53 54 45 44 20 4c 45 4e 47 54 48 00 29 00 90 00 20 00 50 5c 52 46 28 4e 4e 29 5c 50 52 42 31 30 35 5c 50 52 49 4e 54 20 42 55 46 46 45 52 20 00 29 00 c2 00 36 00 50 5c 4c 44 5c 41 32 2c 45 43 42 ┆DECREMENT REQUESTED LENGTH ) P RF(NN) PRB105 PRINT BUFFER ) 6 P LD A2,ECB┆
0x3ec8…3f18 45 4c 2c 41 38 5c 47 45 54 20 43 41 52 52 49 41 47 45 20 52 45 54 55 52 4e 20 43 48 41 52 20 28 2f 30 39 2c 2f 30 44 29 00 29 00 e6 00 12 00 50 5c 52 46 28 45 29 5c 50 52 42 31 30 31 20 00 29 01 20 00 1c 00 50 5c 43 46 5c 41 35 2c 4f 55 54 ┆EL,A8 GET CARRIAGE RETURN CHAR (/09,/0D) ) P RF(E) PRB101 ) P CF A5,OUT┆
0x3f18…3f68 50 55 54 5c 53 45 4e 44 20 43 48 41 52 20 00 29 01 36 00 10 00 50 50 52 42 31 30 31 5c 45 51 55 5c 2a 00 29 01 56 00 10 00 50 5c 4c 44 4b 5c 41 32 2c 45 54 42 20 00 29 01 6a 00 26 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 5c 53 45 4e 44 ┆PUT SEND CHAR ) 6 PPRB101 EQU * ) V P LDK A2,ETB ) j & P CF A5,OUTPUT SEND┆
0x3f68…3fb8 (42, 0, 400) 20 45 4e 44 20 4f 46 20 4d 45 53 53 41 47 45 20 00 29 01 7e 00 12 00 50 5c 49 46 54 5c 53 48 42 44 55 4d 3d 30 20 00 2a 00 18 00 10 00 50 5c 4c 44 4b 5c 41 32 2c 45 54 58 20 00 2a 00 2e 00 36 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 5c ┆ END OF MESSAGE ) ~ P IFT SHBDUM=0 * P LDK A2,ETX * . 6 P CF A5,OUTPUT ┆
0x3fb8…4008 57 41 49 54 20 46 4f 52 20 57 48 4f 4c 45 20 42 55 46 46 45 52 20 54 4f 20 42 45 20 50 52 49 4e 54 45 44 20 00 2a 00 42 00 2a 00 50 5c 4c 44 4b 4c 5c 41 31 2c 4d 45 53 53 5c 49 4e 44 49 43 41 54 45 20 4d 45 53 53 41 47 45 20 50 52 49 4e 54 ┆WAIT FOR WHOLE BUFFER TO BE PRINTED * B * P LDKL A1,MESS INDICATE MESSAGE PRINT┆
0x4008…4058 45 44 00 2a 00 7c 00 14 00 50 5c 4f 52 53 5c 41 31 2c 44 57 54 53 54 2c 41 36 00 2a 00 aa 00 08 00 50 5c 58 49 46 00 2a 00 c2 00 12 00 50 50 52 42 31 30 32 5c 52 54 4e 5c 41 35 20 00 2a 00 ce 00 0a 00 50 5c 45 4a 45 43 54 00 2a 00 e4 00 06 ┆ED * | P ORS A1,DWTST,A6 * P XIF * PPRB102 RTN A5 * P EJECT * ┆
0x4058…40a8 00 50 2a 20 00 2a 00 f2 00 06 00 50 2a 20 00 2a 00 fc 00 06 00 50 2a 20 00 2a 01 06 00 14 00 50 2a 20 20 20 50 52 49 4e 54 20 42 55 46 46 45 52 00 2a 01 10 00 06 00 50 2a 20 00 2a 01 28 00 06 00 50 2a 20 00 2a 01 32 00 10 00 50 50 52 42 31 ┆ P* * P* * P* * P* PRINT BUFFER * P* * ( P* * 2 PPRB1┆
0x40a8…40f8 30 35 5c 45 51 55 5c 2a 00 2a 01 3c 00 32 00 50 5c 41 44 52 5c 41 33 2c 41 34 5c 41 44 44 52 45 53 53 20 54 4f 20 43 48 41 52 41 43 54 45 52 20 54 4f 20 42 45 20 50 52 49 4e 54 45 44 20 00 2a 01 50 00 1a 00 50 5c 53 55 4b 5c 41 37 2c 37 5c ┆05 EQU * * < 2 P ADR A3,A4 ADDRESS TO CHARACTER TO BE PRINTED * P P SUK A7,7 ┆
0x40f8…4148 (43, 0, 400) 43 48 45 43 4b 20 4f 52 44 45 52 20 00 2a 01 86 00 20 00 50 5c 52 46 28 4c 29 5c 50 52 42 32 30 30 5c 50 52 49 4e 54 20 4a 4f 55 52 4e 41 4c 20 00 2b 00 14 00 20 00 50 5c 52 46 28 47 29 5c 50 52 42 31 31 30 5c 50 52 49 4e 54 20 56 4f 55 43 ┆CHECK ORDER * P RF(L) PRB200 PRINT JOURNAL + P RF(G) PRB110 PRINT VOUC┆
0x4148…4198 48 45 52 20 00 2b 00 38 00 0a 00 50 5c 45 4a 45 43 54 00 2b 00 5c 00 06 00 50 2a 20 00 2b 00 6a 00 06 00 50 2a 20 00 2b 00 74 00 06 00 50 2a 20 00 2b 00 7e 00 18 00 50 2a 20 20 20 50 52 49 4e 54 20 54 41 4c 4c 59 20 52 4f 4c 4c 00 2b 00 88 ┆HER + 8 P EJECT + P* + j P* + t P* + ~ P* PRINT TALLY ROLL + ┆
0x4198…41e8 00 06 00 50 2a 20 00 2b 00 a4 00 06 00 50 2a 20 00 2b 00 ae 00 06 00 50 2a 20 00 2b 00 b8 00 1e 00 50 5c 41 4e 4b 5c 41 32 2c 56 4f 49 4e 5c 56 4f 55 43 48 45 52 20 49 4e 20 3f 20 00 2b 00 c2 00 22 00 50 5c 52 46 28 5a 29 5c 50 52 42 32 30 ┆ P* + P* + P* + P ANK A2,VOIN VOUCHER IN ? + " P RF(Z) PRB20┆
0x41e8…4238 30 5c 4e 4f 2e 20 47 4f 20 41 4e 44 20 50 52 49 4e 54 00 2b 00 e4 00 22 00 50 5c 41 44 4b 5c 41 35 2c 34 5c 52 45 53 45 54 20 53 54 41 43 4b 20 50 4f 49 4e 54 45 52 20 00 2b 01 0a 00 2a 00 50 5c 52 42 5c 54 50 34 30 35 5c 53 45 4e 44 20 4c ┆0 NO. GO AND PRINT + " P ADK A5,4 RESET STACK POINTER + * P RB TP405 SEND L┆
0x4238…4288 49 46 54 20 54 4f 20 54 4f 50 20 41 4e 44 20 52 45 4c 45 41 53 20 00 2b 01 30 00 06 00 50 2a 20 00 2b 01 5e 00 06 00 50 2a 20 00 2b 01 68 00 06 00 50 2a 20 00 2b 01 72 00 1e 00 50 2a 20 20 20 50 52 49 4e 54 20 56 4f 55 43 48 45 52 2f 50 41 ┆IFT TO TOP AND RELEAS + 0 P* + ^ P* + h P* + r P* PRINT VOUCHER/PA┆
0x4288…42d8 (44, 0, 398) 53 53 42 4f 4f 4b 00 2b 01 7c 00 06 00 50 2a 20 00 2c 00 0e 00 06 00 50 2a 20 00 2c 00 18 00 24 00 50 50 52 42 31 31 30 5c 41 4e 4b 5c 41 32 2c 56 4f 49 4e 5c 56 4f 55 43 48 45 52 20 49 4e 20 3f 20 00 2c 00 22 00 10 00 50 5c 49 46 54 5c 43 ┆SSBOOK + | P* , P* , $ PPRB110 ANK A2,VOIN VOUCHER IN ? , " P IFT C┆
0x42d8…4328 4f 4d 50 4c 3d 30 00 2c 00 4a 00 28 00 50 5c 52 46 28 5a 29 5c 52 43 54 50 30 31 5c 45 52 52 4f 52 20 2e 56 4f 55 43 48 45 52 20 4e 4f 54 20 49 4e 20 00 2c 00 5e 00 08 00 50 5c 58 49 46 00 2c 00 8a 00 10 00 50 5c 49 46 54 5c 43 4f 4d 50 4c ┆OMPL=0 , J ( P RF(Z) RCTP01 ERROR .VOUCHER NOT IN , ^ P XIF , P IFT COMPL┆
0x4328…4378 3d 31 00 2c 00 96 00 10 00 50 5c 52 42 28 5a 29 5c 54 50 36 34 35 00 2c 00 aa 00 08 00 50 5c 58 49 46 00 2c 00 be 00 24 00 50 5c 4c 44 52 5c 41 31 2c 41 34 5c 43 4f 50 59 20 52 45 51 55 45 53 54 45 44 20 4c 45 4e 47 54 48 00 2c 00 ca 00 18 ┆=1 , P RB(Z) TP645 , P XIF , $ P LDR A1,A4 COPY REQUESTED LENGTH , ┆
0x4378…43c8 00 50 5c 53 55 4b 5c 41 31 2c 32 5c 52 2e 4c 2e 20 3c 20 33 3f 20 00 2c 00 f2 00 24 00 50 5c 52 46 28 4e 29 5c 50 52 42 32 30 30 5c 59 45 53 3a 20 4e 4f 20 54 41 42 55 4c 41 54 49 4f 4e 00 2c 01 0e 00 10 00 50 5c 4c 44 4b 5c 41 31 2c 54 41 ┆ P SUK A1,2 R.L. < 3? , $ P RF(N) PRB200 YES: NO TABULATION , P LDK A1,TA┆
0x43c8…4416 42 20 00 2c 01 36 00 1c 00 50 5c 43 43 5c 41 31 2c 2d 32 2c 41 33 5c 54 41 42 55 4c 41 54 49 4f 4e 3f 00 2c 01 4a 00 16 00 50 5c 52 46 28 4e 45 29 5c 50 52 42 32 30 30 5c 4e 4f 20 00 2c 01 6a 00 0a 00 50 5c 45 4a 45 43 54 00 2c 01 84 ┆B , 6 P CC A1,-2,A3 TABULATION? , J P RF(NE) PRB200 NO , j P EJECT , ┆