|
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: 17366 (0x43d6)
Notes: pts_type(SC)
Names: »FUNCTN.SC«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/FUNCTN.SC«
IDENT FUNCTN REL 8.2 78-09-15 870172840820 * ******************************************* * * PHILIPS TERMINAL SYSTEM PTS * * FUNCTN = TOSS FUNCTIONS * * * * * * ******************************************* * * * 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…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT FUNCTN REL 8.2 78-09-15 870172840820 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…007c Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0000, t01=0x004c}
0x007c…0086 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0080}
0x0086…00ae Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x008a}
0x00ae…00b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b2}
0x00b8…00dc Head {h00=0x0020, h01=0x0050, text=»* FUNCTN = TOSS FUNCTIONS «, t00=0x0000, t01=0x00bc}
0x00dc…00e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e0}
0x00e6…00f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ea}
0x00f0…00fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f4}
0x00fa…0104 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fe}
0x0104…010e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0108}
0x010e…0118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0112}
0x0118…014c Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0000, t01=0x011c}
0x014c…0156 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0150}
0x0156…0160 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015a}
0x0160…0190 Head {h00=0x002c, h01=0x0050, text=»* THIS MODULE CONTAINS TOSS FUNCTIONS.«, t00=0x0000, t01=0x0164}
0x0190…01a8 (1, 0, 400) Head {h00=0x0014, h01=0x0050, text=»* THESE ARE : «, t00=0x0001, t01=0x0004}
0x01a8…01b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x001c}
0x01b2…01d8 Head {h00=0x0022, h01=0x0050, text=»* T:ADD(C) DECIMAL ADDITION «, t00=0x0001, t01=0x0026}
0x01d8…01e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x004c}
0x01e2…020a Head {h00=0x0024, h01=0x0050, text=»* T:SUB(C) DECIMAL SUBTRACTION«, t00=0x0001, t01=0x0056}
0x020a…0214 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x007e}
0x0214…0234 Head {h00=0x001c, h01=0x0050, text=»* T:CMP(C) COMPARISON «, t00=0x0001, t01=0x0088}
0x0234…023e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a8}
0x023e…026e Head {h00=0x002c, h01=0x0050, text=»* T:CPA(C) ABSOLUTE COMPARISON «, t00=0x0001, t01=0x00b2}
0x026e…0278 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e2}
0x0278…0292 Head {h00=0x0016, h01=0x0050, text=»* T:MOV(C) MOVE «, t00=0x0001, t01=0x00ec}
0x0292…029c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0106}
0x029c…02a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0110}
0x02a6…02da Head {h00=0x0030, h01=0x0050, text=»* T:MOV CONTAINS THE FOLLOWING ROUTINES : «, t00=0x0001, t01=0x011a}
0x02da…02e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x014e}
0x02e4…030c Head {h00=0x0024, h01=0x0050, text=»* PCK PACK FROM ASCII TO BCD«, t00=0x0001, t01=0x0158}
0x030c…0316 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0180}
0x0316…0340 Head {h00=0x0026, h01=0x0050, text=»* UPK UNPACK FROM BCD TO ASCII«, t00=0x0001, t01=0x018a}
0x0340…034a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0024}
0x034a…037c Head {h00=0x002e, h01=0x0050, text=»* MVC MOV TO ASCII/BCD FROM ASCII/BCD «, t00=0x0002, t01=0x002e}
0x037c…0386 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0060}
0x0386…0390 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x006a}
0x0390…039e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0074}
0x039e…03a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0082}
0x03a8…03b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x008c}
0x03b2…03bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0096}
0x03bc…03fa Head {h00=0x003a, h01=0x0050, text=»* TOSS FUNCTIONS ARE CALLED BY FOLLOWING SEQUENCE : «, t00=0x0002, t01=0x00a0}
0x03fa…0404 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00de}
0x0404…041a Head {h00=0x0012, h01=0x0050, text=»* CF A14,LABEL«, t00=0x0002, t01=0x00e8}
0x041a…0430 Head {h00=0x0012, h01=0x0050, text=»* BYTE EL1,EL2«, t00=0x0002, t01=0x00fe}
0x0430…043a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0114}
0x043a…046c Head {h00=0x002e, h01=0x0050, text=»* LABEL = ENTRYPOINT IN CALLED FUNCTION «, t00=0x0002, t01=0x011e}
0x046c…0498 Head {h00=0x0028, h01=0x0050, text=»* (T:ADD,T:SUB,T:CMP,T:MOV) «, t00=0x0002, t01=0x0150}
0x0498…04a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x017c}
0x04a2…04e6 Head {h00=0x0040, h01=0x0050, text=»* EL1 = ELEMENT ADDRESS OF RESULT OPERAND(FIRST OPERAND)«, t00=0x0002, t01=0x0186}
0x04e6…04f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x003a}
0x04f0…0526 Head {h00=0x0032, h01=0x0050, text=»* EL2 = ELEMENT ADDRESS OF SECOND OPERAND «, t00=0x0003, t01=0x0044}
0x0526…0530 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x007a}
0x0530…053a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0084}
0x053a…0548 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x008e}
0x0548…0552 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x009c}
0x0552…055c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00a6}
0x055c…0570 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0003, t01=0x00b0}
0x0570…0584 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES: *«, t00=0x0003, t01=0x00c4}
0x0584…0598 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0003, t01=0x00d8}
0x0598…05a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ec}
0x05a2…05c8 Head {h00=0x0022, h01=0x0050, text=» ENTRY T:ADD DECIMAL ADDITION «, t00=0x0003, t01=0x00f6}
0x05c8…05de Head {h00=0x0012, h01=0x0050, text=» ENTRY T:ADDC «, t00=0x0003, t01=0x011c}
0x05de…0606 Head {h00=0x0024, h01=0x0050, text=» ENTRY T:SUB DECIMAL SUBTRACTION«, t00=0x0003, t01=0x0132}
0x0606…061c Head {h00=0x0012, h01=0x0050, text=» ENTRY T:SUBC «, t00=0x0003, t01=0x015a}
0x061c…063c Head {h00=0x001c, h01=0x0050, text=» ENTRY T:CMP COMPARISON «, t00=0x0003, t01=0x0170}
0x063c…0652 Head {h00=0x0012, h01=0x0050, text=» ENTRY T:CMPC «, t00=0x0003, t01=0x0190}
0x0652…0678 Head {h00=0x0022, h01=0x0050, text=» ENTRY T:CPA COMPARE ABSOLUTE «, t00=0x0004, t01=0x0016}
0x0678…068e Head {h00=0x0012, h01=0x0050, text=» ENTRY T:CPAC «, t00=0x0004, t01=0x003c}
0x068e…06a8 Head {h00=0x0016, h01=0x0050, text=» ENTRY T:MOV MOVE «, t00=0x0004, t01=0x0052}
0x06a8…06be Head {h00=0x0012, h01=0x0050, text=» ENTRY T:MOVC «, t00=0x0004, t01=0x006c}
0x06be…06d8 Head {h00=0x0016, h01=0x0050, text=» ENTRY T:OPA,T:OP1«, t00=0x0004, t01=0x0082}
0x06d8…06ec Head {h00=0x0010, h01=0x0050, text=» ENTRY T:OPS«, t00=0x0004, t01=0x009c}
0x06ec…0702 Head {h00=0x0012, h01=0x0050, text=» ENTRY RETMMM «, t00=0x0004, t01=0x00b0}
0x0702…0728 Head {h00=0x0022, h01=0x0050, text=» ENTRY M:ADD,M:SUB,M:CMP,M:CPA«, t00=0x0004, t01=0x00c6}
0x0728…0748 Head {h00=0x001c, h01=0x0050, text=» ENTRY M:MOV,M:OPA,M:OPS«, t00=0x0004, t01=0x00ec}
0x0748…0752 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x010c}
0x0752…075c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0116}
0x075c…0766 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0120}
0x0766…077a Head {h00=0x0010, h01=0x0050, text=»OVERLY EQU 0«, t00=0x0004, t01=0x012a}
0x077a…0784 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x013e}
0x0784…07c0 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0004, t01=0x0148}
0x07c0…07fc Head {h00=0x0038, h01=0x0050, text=»* WORKING AREAS USED BY THE DIFFERENT SUBROUTINES * «, t00=0x0004, t01=0x0184}
0x07fc…0838 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0005, t01=0x0030}
0x0838…0842 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x006c}
0x0842…0856 Head {h00=0x0010, h01=0x0050, text=»T:OP1 EQU * «, t00=0x0005, t01=0x0076}
0x0856…087c Head {h00=0x0022, h01=0x0050, text=» DATA 0 LENGTH 2-COMPLEMENTED «, t00=0x0005, t01=0x008a}
0x087c…0886 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00b0}
0x0886…0890 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ba}
0x0890…08ba Head {h00=0x0026, h01=0x0050, text=»T:OP2 DATA 0 LENGTH 2-COMPLEMENTED«, t00=0x0005, t01=0x00c4}
0x08ba…08c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ee}
0x08c4…08ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00f8}
0x08ce…08dc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0102}
0x08dc…08e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0110}
0x08e6…0908 Head {h00=0x001e, h01=0x0050, text=»* SUBTRACTION AND ADDITION«, t00=0x0005, t01=0x011a}
0x0908…0912 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x013c}
0x0912…092a Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0005, t01=0x0146}
0x092a…0942 Head {h00=0x0014, h01=0x0050, text=»* SUBTRACTION * «, t00=0x0005, t01=0x015e}
0x0942…095a Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0005, t01=0x0176}
0x095a…096e Head {h00=0x0010, h01=0x0050, text=»M:SUB EQU * «, t00=0x0005, t01=0x018e}
0x096e…0984 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0006, t01=0x0012}
0x0984…0998 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/80 «, t00=0x0006, t01=0x0028}
0x0998…09ae Head {h00=0x0012, h01=0x0050, text=» XRS A2,2,A14 «, t00=0x0006, t01=0x003c}
0x09ae…09c0 Head {h00=0x000e, h01=0x0050, text=» RF T:SUB «, t00=0x0006, t01=0x0052}
0x09c0…09cc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x0064}
0x09cc…09e6 Head {h00=0x0016, h01=0x0050, text=»T:SUBC ADKL A13,1 «, t00=0x0006, t01=0x0070}
0x09e6…0a12 Head {h00=0x0028, h01=0x0050, text=»T:SUB LDK A2,6 INDICATE SUBTRACTION «, t00=0x0006, t01=0x008a}
0x0a12…0a24 Head {h00=0x000e, h01=0x0050, text=» RF ADD050«, t00=0x0006, t01=0x00b6}
0x0a24…0a2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c8}
0x0a2e…0a42 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0006, t01=0x00d2}
0x0a42…0a56 Head {h00=0x0010, h01=0x0050, text=»* ADDITION *«, t00=0x0006, t01=0x00e6}
0x0a56…0a6a Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0006, t01=0x00fa}
0x0a6a…0a7e Head {h00=0x0010, h01=0x0050, text=»M:ADD EQU * «, t00=0x0006, t01=0x010e}
0x0a7e…0a94 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0006, t01=0x0122}
0x0a94…0aa8 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/80 «, t00=0x0006, t01=0x0138}
0x0aa8…0abe Head {h00=0x0012, h01=0x0050, text=» XRS A2,2,A14 «, t00=0x0006, t01=0x014c}
0x0abe…0ad0 Head {h00=0x000e, h01=0x0050, text=» RF T:ADD «, t00=0x0006, t01=0x0162}
0x0ad0…0adc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x0174}
0x0adc…0af6 Head {h00=0x0016, h01=0x0050, text=»T:ADDC ADKL A13,1 «, t00=0x0006, t01=0x0180}
0x0af6…0b1e Head {h00=0x0024, h01=0x0050, text=»T:ADD LDK A2,0 INDICATE ADDITION«, t00=0x0007, t01=0x000a}
0x0b1e…0b32 Head {h00=0x0010, h01=0x0050, text=»ADD050 EQU *«, t00=0x0007, t01=0x0032}
0x0b32…0b56 Head {h00=0x0020, h01=0x0050, text=» SC A2,SAVE+1 SAVE INDICATOR«, t00=0x0007, t01=0x0046}
0x0b56…0b74 Head {h00=0x001a, h01=0x0050, text=» ST A13,ARG1 SAVE A13 «, t00=0x0007, t01=0x006a}
0x0b74…0b96 Head {h00=0x001e, h01=0x0050, text=» LD* A7,4,A14 GET ARGUMENT«, t00=0x0007, t01=0x0088}
0x0b96…0bc0 Head {h00=0x0026, h01=0x0050, text=» ST A7,ARG STORE ARGUMENT FOR COMP«, t00=0x0007, t01=0x00aa}
0x0bc0…0bd6 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=0 «, t00=0x0007, t01=0x00d4}
0x0bd6…0bfc Head {h00=0x0022, h01=0x0050, text=» CF A14,T:CPA COMPARE ABSOLUTE«, t00=0x0007, t01=0x00ea}
0x0bfc…0c08 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x0110}
0x0c08…0c1e Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0007, t01=0x011c}
0x0c1e…0c34 Head {h00=0x0012, h01=0x0050, text=» CF A14,M:CPA «, t00=0x0007, t01=0x0132}
0x0c34…0c40 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x0148}
0x0c40…0c5c Head {h00=0x0018, h01=0x0050, text=»ARG DATA 0 ARGUMENT «, t00=0x0007, t01=0x0154}
0x0c5c…0c70 Head {h00=0x0010, h01=0x0050, text=» LDKL A13,0 «, t00=0x0007, t01=0x0170}
0x0c70…0c84 Head {h00=0x0010, h01=0x0050, text=»ARG1 EQU *-2«, t00=0x0007, t01=0x0184}
0x0c84…0cac Head {h00=0x0024, h01=0x0050, text=» LDR A2,A7 COPY RESULT INDICATOR«, t00=0x0008, t01=0x0008}
0x0cac…0cda Head {h00=0x002a, h01=0x0050, text=» CF A14,GETOPS GET ELEMENT PARAMETERS «, t00=0x0008, t01=0x0030}
0x0cda…0d02 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A2 COPY RESULT INDICATOR«, t00=0x0008, t01=0x005e}
0x0d02…0d28 Head {h00=0x0022, h01=0x0050, text=» LDR A9,A6 GET POINTER TO OP1 «, t00=0x0008, t01=0x0086}
0x0d28…0d48 Head {h00=0x001c, h01=0x0050, text=»SAVE LDK A2,0 RESTORE A2«, t00=0x0008, t01=0x00ac}
0x0d48…0d52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00cc}
0x0d52…0d6c Head {h00=0x0016, h01=0x0050, text=» LDK A5,0 CLEAR A5«, t00=0x0008, t01=0x00d6}
0x0d6c…0d86 Head {h00=0x0016, h01=0x0050, text=» LDK A3,0 CLEAR A3«, t00=0x0008, t01=0x00f0}
0x0d86…0daa Head {h00=0x0020, h01=0x0050, text=» LCR A5,A9 GET 1:ST BYTE OP1«, t00=0x0008, t01=0x010a}
0x0daa…0dd0 Head {h00=0x0022, h01=0x0050, text=» LCR A3,A10 GET 1:ST BYTE OP2 «, t00=0x0008, t01=0x012e}
0x0dd0…0dea Head {h00=0x0016, h01=0x0050, text=» LDR A4,A5 COPY A5«, t00=0x0008, t01=0x0154}
0x0dea…0e04 Head {h00=0x0016, h01=0x0050, text=» LDR A6,A3 COPY A3«, t00=0x0008, t01=0x016e}
0x0e04…0e24 Head {h00=0x001c, h01=0x0050, text=» ANK A5,/F GET SIGN OP1 «, t00=0x0008, t01=0x0188}
0x0e24…0e46 Head {h00=0x001e, h01=0x0050, text=» LDR A7,A5 GET SIGN TO A7 «, t00=0x0009, t01=0x0018}
0x0e46…0e66 Head {h00=0x001c, h01=0x0050, text=» ANK A3,/F GET SIGN OP2 «, t00=0x0009, t01=0x003a}
0x0e66…0e92 Head {h00=0x0028, h01=0x0050, text=» ANK A6,/F0 MASK OUT 1:ST DIGIT OP2 «, t00=0x0009, t01=0x005a}
0x0e92…0ea6 Head {h00=0x0010, h01=0x0050, text=» SUK A6,/F0 «, t00=0x0009, t01=0x0086}
0x0ea6…0eca Head {h00=0x0020, h01=0x0050, text=» RF(Z) ADD060 JUMP IF BLANK «, t00=0x0009, t01=0x009a}
0x0eca…0eec Head {h00=0x001e, h01=0x0050, text=» ADK A6,/F0 RESTORE DIGIT «, t00=0x0009, t01=0x00be}
0x0eec…0f1e Head {h00=0x002e, h01=0x0050, text=»ADD060 ANK A4,/F0 MASK OUT 1:ST DIGIT OP1 «, t00=0x0009, t01=0x00e0}
0x0f1e…0f32 Head {h00=0x0010, h01=0x0050, text=» SUK A4,/F0 «, t00=0x0009, t01=0x0112}
0x0f32…0f56 Head {h00=0x0020, h01=0x0050, text=» RF(Z) ADD070 JUMP IF BLANK «, t00=0x0009, t01=0x0126}
0x0f56…0f78 Head {h00=0x001e, h01=0x0050, text=» ADK A4,/F0 RESTORE DIGIT «, t00=0x0009, t01=0x014a}
0x0f78…0f8c Head {h00=0x0010, h01=0x0050, text=»ADD070 EQU *«, t00=0x0009, t01=0x016c}
0x0f8c…0fb6 Head {h00=0x0026, h01=0x0050, text=» XRR A5,A3 EXCLUSIVE OR WITH SIGNS«, t00=0x0009, t01=0x0180}
0x0fb6…0fee Head {h00=0x0034, h01=0x0050, text=» XRR A2,A5 EXCLUSIVE OR WITH SIGNS AND INDICATOR«, t00=0x000a, t01=0x001a}
0x0fee…1018 Head {h00=0x0026, h01=0x0050, text=» RF(Z) ADD078 JUMP IF EQUAL SIGNS «, t00=0x000a, t01=0x0052}
0x1018…1034 Head {h00=0x0018, h01=0x0050, text=» NGR A4,A4 NEGATE A4«, t00=0x000a, t01=0x007c}
0x1034…1066 Head {h00=0x002e, h01=0x0050, text=» XRR A2,A1 EXVLUSIVE OR WITH COMP. RESULT «, t00=0x000a, t01=0x0098}
0x1066…108c Head {h00=0x0022, h01=0x0050, text=» SRC A2,2 SHIFT BIT 14 TO SIGN«, t00=0x000a, t01=0x00ca}
0x108c…10c8 Head {h00=0x0038, h01=0x0050, text=» RF(P) ADD076 JUMP IF OP2 ABSOLUTE GREATER THAN OP1 «, t00=0x000a, t01=0x00f0}
0x10c8…10e4 Head {h00=0x0018, h01=0x0050, text=» NGR A6,A6 NEGATE A6«, t00=0x000a, t01=0x012c}
0x10e4…1100 Head {h00=0x0018, h01=0x0050, text=» NGR A4,A4 NEGATE A4«, t00=0x000a, t01=0x0148}
0x1100…1112 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x000a, t01=0x0164}
0x1112…1124 Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x000a, t01=0x0176}
0x1124…1160 Head {h00=0x0038, h01=0x0050, text=» RF(N) ADD078 JUMP IF OP1 ABSOLUTE GREATER THAN OP2 «, t00=0x000a, t01=0x0188}
0x1160…1182 Head {h00=0x001e, h01=0x0050, text=» LDK A7,/B LOAD PLUS SIGN «, t00=0x000b, t01=0x0034}
0x1182…1194 Head {h00=0x000e, h01=0x0050, text=» RF ADD078«, t00=0x000b, t01=0x0056}
0x1194…11b8 Head {h00=0x0020, h01=0x0050, text=»ADD076 XRK A7,6 INVERT SIGN «, t00=0x000b, t01=0x0068}
0x11b8…11dc Head {h00=0x0020, h01=0x0050, text=»ADD078 LDK A1,0 CLEAR CARRY «, t00=0x000b, t01=0x008c}
0x11dc…11e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00b0}
0x11e6…1206 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000b, t01=0x00ba}
0x1206…1226 Head {h00=0x001c, h01=0x0050, text=»* ADDITION/SUBTRACTION *«, t00=0x000b, t01=0x00da}
0x1226…1246 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000b, t01=0x00fa}
0x1246…1250 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x011a}
0x1250…1264 Head {h00=0x0010, h01=0x0050, text=»ADDSUB EQU *«, t00=0x000b, t01=0x0124}
0x1264…1280 Head {h00=0x0018, h01=0x0050, text=» ADR A4,A1 ADD CARRY«, t00=0x000b, t01=0x0138}
0x1280…12a0 Head {h00=0x001c, h01=0x0050, text=» LDK A1,1 INDICATE CARRY«, t00=0x000b, t01=0x0154}
0x12a0…12cc Head {h00=0x0028, h01=0x0050, text=» ADR A4,A6 ADD CARRY AND LEFT DIGITS«, t00=0x000b, t01=0x0174}
0x12cc…12f2 Head {h00=0x0022, h01=0x0050, text=» RF(N) ADD200 JUMP IF NEGATIVE«, t00=0x000c, t01=0x0010}
0x12f2…1306 Head {h00=0x0010, h01=0x0050, text=» SUK A4,/A0 «, t00=0x000c, t01=0x0036}
0x1306…132a Head {h00=0x0020, h01=0x0050, text=» RF(NN) ADD100 JUMP IF CARRY«, t00=0x000c, t01=0x004a}
0x132a…1344 Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 NO CARRY«, t00=0x000c, t01=0x006e}
0x1344…136c Head {h00=0x0024, h01=0x0050, text=»ADD080 ADK A4,/A0 RESTORE DIGIT «, t00=0x000c, t01=0x0088}
0x136c…139a Head {h00=0x002a, h01=0x0050, text=»ADD100 ADR A7,A4 GET BOTH DIGITS TO A7«, t00=0x000c, t01=0x00b0}
0x139a…13c2 Head {h00=0x0024, h01=0x0050, text=»ADD105 SCR A7,A9 STORE 2 DIGITS «, t00=0x000c, t01=0x00de}
0x13c2…13ea Head {h00=0x0024, h01=0x0050, text=» SUKL A9,1 DECREMENT POINTER OP1«, t00=0x000c, t01=0x0106}
0x13ea…1414 Head {h00=0x0026, h01=0x0050, text=» SUKL A10,1 DECREMENT POINTER OP2 «, t00=0x000c, t01=0x012e}
0x1414…1436 Head {h00=0x001e, h01=0x0050, text=» IM T:OP1 INCREMENT INDEX«, t00=0x000c, t01=0x0158}
0x1436…144c Head {h00=0x0012, h01=0x0050, text=» RF(NN) RETMMM«, t00=0x000c, t01=0x017a}
0x144c…1456 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0190}
0x1456…147a Head {h00=0x0020, h01=0x0050, text=»ADD150 LCR A4,A9 A4=BYTE OP1«, t00=0x000d, t01=0x000a}
0x147a…1494 Head {h00=0x0016, h01=0x0050, text=» LDK A6,0 CLEAR A6«, t00=0x000d, t01=0x002e}
0x1494…14be Head {h00=0x0026, h01=0x0050, text=» IM T:OP2 INCREMENT INDEX FOR OP2 «, t00=0x000d, t01=0x0048}
0x14be…14ec Head {h00=0x002a, h01=0x0050, text=» RF(NN) ADD160 JUMP IF END OF ELEMENT «, t00=0x000d, t01=0x0072}
0x14ec…150c Head {h00=0x001c, h01=0x0050, text=» LCR A6,A10 A6=BYTE OP2 «, t00=0x000d, t01=0x00a0}
0x150c…152c Head {h00=0x001c, h01=0x0050, text=»ADD160 LDR A7,A4 COPY A4«, t00=0x000d, t01=0x00c0}
0x152c…154e Head {h00=0x001e, h01=0x0050, text=» ANK A7,/F GET RIGHT DIGIT«, t00=0x000d, t01=0x00e0}
0x154e…1560 Head {h00=0x000e, h01=0x0050, text=» SUK A7,/F«, t00=0x000d, t01=0x0102}
0x1560…1580 Head {h00=0x001c, h01=0x0050, text=» RF(Z) *+4 JUMP IF BLANK«, t00=0x000d, t01=0x0114}
0x1580…15a0 Head {h00=0x001c, h01=0x0050, text=» ADK A7,/F RESTORE DIGIT«, t00=0x000d, t01=0x0134}
0x15a0…15c2 Head {h00=0x001e, h01=0x0050, text=» ANK A4,/F0 GET LEFT DIGIT«, t00=0x000d, t01=0x0154}
0x15c2…15d6 Head {h00=0x0010, h01=0x0050, text=» SUK A4,/F0 «, t00=0x000d, t01=0x0176}
0x15d6…15f6 Head {h00=0x001c, h01=0x0050, text=» RF(Z) *+4 JUMP IF BLANK«, t00=0x000d, t01=0x018a}
0x15f6…1618 Head {h00=0x001e, h01=0x0050, text=» ADK A4,/F0 RESTORE DIGIT «, t00=0x000e, t01=0x001a}
0x1618…1632 Head {h00=0x0016, h01=0x0050, text=» LDR A5,A6 COPY A6«, t00=0x000e, t01=0x003c}
0x1632…1654 Head {h00=0x001e, h01=0x0050, text=» ANK A6,/F0 GET LEFT DIGIT«, t00=0x000e, t01=0x0056}
0x1654…1668 Head {h00=0x0010, h01=0x0050, text=» SUK A6,/F0 «, t00=0x000e, t01=0x0078}
0x1668…1688 Head {h00=0x001c, h01=0x0050, text=» RF(Z) *+4 JUMP IF BLANK«, t00=0x000e, t01=0x008c}
0x1688…16aa Head {h00=0x001e, h01=0x0050, text=» ADK A6,/F0 RESTORE DIGIT «, t00=0x000e, t01=0x00ac}
0x16aa…16cc Head {h00=0x001e, h01=0x0050, text=» ANK A5,/F GET RIGHT DIGIT«, t00=0x000e, t01=0x00ce}
0x16cc…16de Head {h00=0x000e, h01=0x0050, text=» SUK A5,/F«, t00=0x000e, t01=0x00f0}
0x16de…16fe Head {h00=0x001c, h01=0x0050, text=» RF(Z) *+4 JUMP IF BLANK«, t00=0x000e, t01=0x0102}
0x16fe…171e Head {h00=0x001c, h01=0x0050, text=» ADK A5,/F RESTORE DIGIT«, t00=0x000e, t01=0x0122}
0x171e…1732 Head {h00=0x0010, h01=0x0050, text=» LDR A2,A2 «, t00=0x000e, t01=0x0142}
0x1732…1754 Head {h00=0x001e, h01=0x0050, text=» RF(Z) ADD170 JUMP IF ADD «, t00=0x000e, t01=0x0156}
0x1754…178a Head {h00=0x0032, h01=0x0050, text=» RF(N) ADD165 JUMP IF OP2 NOT GREATER THAN OP1«, t00=0x000e, t01=0x0178}
0x178a…17a6 Head {h00=0x0018, h01=0x0050, text=» NGR A4,A4 NEGATE A4«, t00=0x000f, t01=0x001e}
0x17a6…17c2 Head {h00=0x0018, h01=0x0050, text=» NGR A7,A7 NEGATE A7«, t00=0x000f, t01=0x003a}
0x17c2…17d4 Head {h00=0x000e, h01=0x0050, text=» RF ADD170«, t00=0x000f, t01=0x0056}
0x17d4…17f6 Head {h00=0x001e, h01=0x0050, text=»ADD165 NGR A5,A5 NEGATE A5«, t00=0x000f, t01=0x0068}
0x17f6…1812 Head {h00=0x0018, h01=0x0050, text=» NGR A6,A6 NEGATE A6«, t00=0x000f, t01=0x008a}
0x1812…181c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00a6}
0x181c…1844 Head {h00=0x0024, h01=0x0050, text=»ADD170 ADR A7,A1 ADD WITH CARRY «, t00=0x000f, t01=0x00b0}
0x1844…1866 Head {h00=0x001e, h01=0x0050, text=» LDK A1,/10 INDICATE CARRY«, t00=0x000f, t01=0x00d8}
0x1866…1894 Head {h00=0x002a, h01=0x0050, text=» ADR A7,A5 ADD CARRY AND RIGHT DIGITS «, t00=0x000f, t01=0x00fa}
0x1894…18ba Head {h00=0x0022, h01=0x0050, text=» RF(N) ADD220 JUMP IF NEGATIVE«, t00=0x000f, t01=0x0128}
0x18ba…18cc Head {h00=0x000e, h01=0x0050, text=» SUK A7,/A«, t00=0x000f, t01=0x014e}
0x18cc…18f0 Head {h00=0x0020, h01=0x0050, text=» RB(NN) ADDSUB JUMP IF CARRY«, t00=0x000f, t01=0x0160}
0x18f0…190a Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 NO CARRY«, t00=0x000f, t01=0x0184}
0x190a…1930 Head {h00=0x0022, h01=0x0050, text=»ADD180 ADK A7,/A RESTORE DIGIT«, t00=0x0010, t01=0x000e}
0x1930…1942 Head {h00=0x000e, h01=0x0050, text=» RB ADDSUB«, t00=0x0010, t01=0x0034}
0x1942…194c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0046}
0x194c…1972 Head {h00=0x0022, h01=0x0050, text=»ADD200 NGR A1,A1 NEGATE CARRY «, t00=0x0010, t01=0x0050}
0x1972…1984 Head {h00=0x000e, h01=0x0050, text=» RB ADD080«, t00=0x0010, t01=0x0076}
0x1984…198e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0088}
0x198e…19b4 Head {h00=0x0022, h01=0x0050, text=»ADD220 NGR A1,A1 NEGATE CARRY «, t00=0x0010, t01=0x0092}
0x19b4…19c6 Head {h00=0x000e, h01=0x0050, text=» RB ADD180«, t00=0x0010, t01=0x00b8}
0x19c6…19d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ca}
0x19d0…19de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x00d4}
0x19de…19e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00e2}
0x19e8…19f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ec}
0x19f2…1a12 Head {h00=0x001c, h01=0x0050, text=»* GET ELEMENT PARAMETERS«, t00=0x0010, t01=0x00f6}
0x1a12…1a1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0116}
0x1a1c…1a42 Head {h00=0x0022, h01=0x0050, text=»* INPUT: A7=M,N IN RIGHT BYTE«, t00=0x0010, t01=0x0120}
0x1a42…1a64 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A6=SIGN ADDRESS «, t00=0x0010, t01=0x0146}
0x1a64…1a9a Head {h00=0x0032, h01=0x0050, text=»* A5=ADDRESS WITHIN DISCRIPTION BLOCK «, t00=0x0010, t01=0x0168}
0x1a9a…1ab4 Head {h00=0x0016, h01=0x0050, text=»* A4=USED «, t00=0x0011, t01=0x000e}
0x1ab4…1af0 Head {h00=0x0038, h01=0x0050, text=»* A1=ELEMENT LENGTH IN BYTES 2-COMPLEMENTED «, t00=0x0011, t01=0x0028}
0x1af0…1b2c Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0011, t01=0x0064}
0x1b2c…1b36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00a0}
0x1b36…1b4a Head {h00=0x0010, h01=0x0050, text=»M:OPA EQU * «, t00=0x0011, t01=0x00aa}
0x1b4a…1b60 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0011, t01=0x00be}
0x1b60…1b74 Head {h00=0x0010, h01=0x0050, text=» LDK A1,/80 «, t00=0x0011, t01=0x00d4}
0x1b74…1b8a Head {h00=0x0012, h01=0x0050, text=» XRS A1,2,A14 «, t00=0x0011, t01=0x00e8}
0x1b8a…1b96 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x00fe}
0x1b96…1bae Head {h00=0x0014, h01=0x0050, text=»T:OPA LDR A4,A7 «, t00=0x0011, t01=0x010a}
0x1bae…1bc0 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A7«, t00=0x0011, t01=0x0122}
0x1bc0…1bde Head {h00=0x001a, h01=0x0050, text=» ANK A5,/F0 A5=Z * 16 «, t00=0x0011, t01=0x0134}
0x1bde…1bf6 Head {h00=0x0014, h01=0x0050, text=» SRL A5,2 Z * 4 «, t00=0x0011, t01=0x0152}
0x1bf6…1c1e Head {h00=0x0024, h01=0x0050, text=» ADR A5,A13 DISPLACEMENT ADDRESS«, t00=0x0011, t01=0x016a}
0x1c1e…1c3e (18, 0, 400) Head {h00=0x001c, h01=0x0050, text=» LD A6,2,A5 BASE ADDRESS«, t00=0x0012, t01=0x0004}
0x1c3e…1c64 Head {h00=0x0022, h01=0x0050, text=» LDR* A5,A5 GET ADDRESS TO DB «, t00=0x0012, t01=0x0024}
0x1c64…1c82 Head {h00=0x001a, h01=0x0050, text=» ANK A4,/F MASK OUT N «, t00=0x0012, t01=0x004a}
0x1c82…1c9a Head {h00=0x0014, h01=0x0050, text=» SLL A4,1 N * 2 «, t00=0x0012, t01=0x0068}
0x1c9a…1cbe Head {h00=0x0020, h01=0x0050, text=» ADR A5,A4 ADDRESS WITHIN DB«, t00=0x0012, t01=0x0080}
0x1cbe…1cd2 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A5 «, t00=0x0012, t01=0x00a4}
0x1cd2…1cfe Head {h00=0x0028, h01=0x0050, text=» ANKL A1,/FFF MASK OUT DISPLACEMENT «, t00=0x0012, t01=0x00b8}
0x1cfe…1d20 Head {h00=0x001e, h01=0x0050, text=» ADR A6,A1 ELEMENT ADDRESS«, t00=0x0012, t01=0x00e4}
0x1d20…1d4c Head {h00=0x0028, h01=0x0050, text=» SUK A6,1 ELEMENT ADDRESS RIGHTMOST «, t00=0x0012, t01=0x0106}
0x1d4c…1d5e Head {h00=0x000e, h01=0x0050, text=» LDR A4,A4«, t00=0x0012, t01=0x0132}
0x1d5e…1d80 Head {h00=0x001e, h01=0x0050, text=» RF(Z) OPA100 JUMP IF N=0 «, t00=0x0012, t01=0x0144}
0x1d80…1dae Head {h00=0x002a, h01=0x0050, text=» LD A4,-2,A5 GET DISPLACEMENT FOR N-1 «, t00=0x0012, t01=0x0166}
0x1dae…1dda (19, 0, 400) Head {h00=0x0028, h01=0x0050, text=» ANKL A4,/FFF MASK OUT DISPLACEMENT «, t00=0x0013, t01=0x0004}
0x1dda…1dfe Head {h00=0x0020, h01=0x0050, text=»OPA100 SUR A1,A4 GET LENGTH «, t00=0x0013, t01=0x0030}
0x1dfe…1e1e Head {h00=0x001c, h01=0x0050, text=» NGR A1,A1 NEGATE LENGTH«, t00=0x0013, t01=0x0054}
0x1e1e…1e30 Head {h00=0x000e, h01=0x0050, text=» RF RETMMM«, t00=0x0013, t01=0x0074}
0x1e30…1e3e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0086}
0x1e3e…1e7e Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0013, t01=0x0094}
0x1e7e…1eae Head {h00=0x002c, h01=0x0050, text=»* GET ELEMENT PARAMETERS FOR 2 OPERANDS «, t00=0x0013, t01=0x00d4}
0x1eae…1eda Head {h00=0x0028, h01=0x0050, text=»* AND ADJUST RETURN ADDRESS ON STACK«, t00=0x0013, t01=0x0104}
0x1eda…1ee4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0130}
0x1ee4…1f06 Head {h00=0x001e, h01=0x0050, text=»* INPUT : A7 =OP1,OP2 «, t00=0x0013, t01=0x013a}
0x1f06…1f32 Head {h00=0x0028, h01=0x0050, text=»* OUTPUT: T:OP1 = NEG LENGTH OF OP1«, t00=0x0013, t01=0x015c}
0x1f32…1f5e Head {h00=0x0028, h01=0x0050, text=»* T:OP2 =NEG LENGTH OF OP2 «, t00=0x0013, t01=0x0188}
0x1f5e…1f86 Head {h00=0x0024, h01=0x0050, text=»* A1 =NEG LENGTH OP1«, t00=0x0014, t01=0x0024}
0x1f86…1fb0 Head {h00=0x0026, h01=0x0050, text=»* A3 =PACKING FORM OP2«, t00=0x0014, t01=0x004c}
0x1fb0…1fe0 Head {h00=0x002c, h01=0x0050, text=»* A5 =DESCRIPTOR ADDRESS OP1«, t00=0x0014, t01=0x0076}
0x1fe0…2006 Head {h00=0x0022, h01=0x0050, text=»* A6 =POINTER OP1 «, t00=0x0014, t01=0x00a6}
0x2006…202c Head {h00=0x0022, h01=0x0050, text=»* A10 =POINTER OP2 «, t00=0x0014, t01=0x00cc}
0x202c…2036 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00f2}
0x2036…2076 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0014, t01=0x00fc}
0x2076…2080 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x013c}
0x2080…2094 Head {h00=0x0010, h01=0x0050, text=»GETOPS EQU *«, t00=0x0014, t01=0x0146}
0x2094…20b6 Head {h00=0x001e, h01=0x0050, text=» LD* A7,8,A14 GET ARGUMENT«, t00=0x0014, t01=0x015a}
0x20b6…20c8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0014, t01=0x017c}
0x20c8…20f4 Head {h00=0x0028, h01=0x0050, text=» ADS A1,8,A14 ADJUST RETURN ADDRESS «, t00=0x0014, t01=0x018e}
0x20f4…2108 Head {h00=0x0010, h01=0x0050, text=»M:OPS EQU * «, t00=0x0015, t01=0x002a}
0x2108…211e Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0015, t01=0x003e}
0x211e…2132 Head {h00=0x0010, h01=0x0050, text=» LDK A1,/80 «, t00=0x0015, t01=0x0054}
0x2132…2148 Head {h00=0x0012, h01=0x0050, text=» XRS A1,2,A14 «, t00=0x0015, t01=0x0068}
0x2148…2154 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x007e}
0x2154…2168 Head {h00=0x0010, h01=0x0050, text=»T:OPS EQU * «, t00=0x0015, t01=0x008a}
0x2168…2184 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A13 COPY A13«, t00=0x0015, t01=0x009e}
0x2184…21ba Head {h00=0x0032, h01=0x0050, text=» ANKL A13,/FFFE MASK AWAY CONSTANT INDICATION «, t00=0x0015, t01=0x00ba}
0x21ba…21d8 Head {h00=0x001a, h01=0x0050, text=» ST A13,ARG2 SAVE A13 «, t00=0x0015, t01=0x00f0}
0x21d8…21ea Head {h00=0x000e, h01=0x0050, text=» SRC A1,1 «, t00=0x0015, t01=0x010e}
0x21ea…2218 Head {h00=0x002a, h01=0x0050, text=» RF(NN) GET010 JUMP IF NOT TCA COMMON «, t00=0x0015, t01=0x0120}
0x2218…2244 Head {h00=0x0028, h01=0x0050, text=» LD A13,-2,A13 GET ADDRESS TO TCACOM«, t00=0x0015, t01=0x014e}
0x2244…2258 Head {h00=0x0010, h01=0x0050, text=»GET010 EQU *«, t00=0x0015, t01=0x017a}
0x2258…226e Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=0 «, t00=0x0015, t01=0x018e}
0x226e…229a Head {h00=0x0028, h01=0x0050, text=» CF A14,T:OPA GET PARAMETERS FOR OP2«, t00=0x0016, t01=0x0014}
0x229a…22a6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0040}
0x22a6…22bc Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0016, t01=0x004c}
0x22bc…22e4 Head {h00=0x0024, h01=0x0050, text=» CF A14,M:OPA PARAMETERS FOR OP2«, t00=0x0016, t01=0x0062}
0x22e4…22f0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x008a}
0x22f0…2304 Head {h00=0x0010, h01=0x0050, text=» LDKL A13,0 «, t00=0x0016, t01=0x0096}
0x2304…2318 Head {h00=0x0010, h01=0x0050, text=»ARG2 EQU *-2«, t00=0x0016, t01=0x00aa}
0x2318…233c Head {h00=0x0020, h01=0x0050, text=» LDR A10,A6 A10=POINTER OP2 «, t00=0x0016, t01=0x00be}
0x233c…2366 Head {h00=0x0026, h01=0x0050, text=» ST A1,T:OP2 STORE NEG LENGTH OP2 «, t00=0x0016, t01=0x00e2}
0x2366…2394 Head {h00=0x002a, h01=0x0050, text=» LDR* A3,A5 GET PACKING FORM IN BIT 0 «, t00=0x0016, t01=0x010c}
0x2394…23b4 Head {h00=0x001c, h01=0x0050, text=» ECR A7,A7 CHANGE BYTES «, t00=0x0016, t01=0x013a}
0x23b4…23ca Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=0 «, t00=0x0016, t01=0x015a}
0x23ca…23f6 Head {h00=0x0028, h01=0x0050, text=» CF A14,T:OPA GET PARAMETERS FOR OP1«, t00=0x0016, t01=0x0170}
0x23f6…2402 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x000c}
0x2402…2418 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0017, t01=0x0018}
0x2418…242e Head {h00=0x0012, h01=0x0050, text=» CF A14,M:OPA «, t00=0x0017, t01=0x002e}
0x242e…243a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0044}
0x243a…2464 Head {h00=0x0026, h01=0x0050, text=» ST A1,T:OP1 STORE NEG LENGTH OP1«, t00=0x0017, t01=0x0050}
0x2464…247a Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=0 «, t00=0x0017, t01=0x007a}
0x247a…2490 Head {h00=0x0012, h01=0x0050, text=»RETMMM RTN A14«, t00=0x0017, t01=0x0090}
0x2490…249c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x00a6}
0x249c…24b2 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0017, t01=0x00b2}
0x24b2…24cc Head {h00=0x0016, h01=0x0050, text=»RETMMM STR A1,A14 «, t00=0x0017, t01=0x00c8}
0x24cc…24e0 Head {h00=0x0010, h01=0x0050, text=» LD A1,2,A14«, t00=0x0017, t01=0x00e2}
0x24e0…24f4 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/80 «, t00=0x0017, t01=0x00f6}
0x24f4…250a Head {h00=0x0012, h01=0x0050, text=» RF(E) RETMMF «, t00=0x0017, t01=0x010a}
0x250a…251e Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A14«, t00=0x0017, t01=0x0120}
0x251e…2532 Head {h00=0x0010, h01=0x0050, text=» DATA /C0FF «, t00=0x0017, t01=0x0134}
0x2532…254c Head {h00=0x0016, h01=0x0050, text=»RETMMF LDR* A1,A14«, t00=0x0017, t01=0x0148}
0x254c…255c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0017, t01=0x0162}
0x255c…2568 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0172}
0x2568…2576 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x017e}
0x2576…2580 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x018c}
0x2580…258e Head {h00=0x000a, h01=0x0050, text=»* MOVE«, t00=0x0018, t01=0x0008}
0x258e…2598 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0016}
0x2598…25c0 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0018, t01=0x0020}
0x25c0…25ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0048}
0x25ca…25de Head {h00=0x0010, h01=0x0050, text=»M:MOV EQU * «, t00=0x0018, t01=0x0052}
0x25de…25f4 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0018, t01=0x0066}
0x25f4…2608 Head {h00=0x0010, h01=0x0050, text=» LDK A1,/80 «, t00=0x0018, t01=0x007c}
0x2608…261e Head {h00=0x0012, h01=0x0050, text=» XRS A1,2,A14 «, t00=0x0018, t01=0x0090}
0x261e…2630 Head {h00=0x000e, h01=0x0050, text=» RF T:MOV «, t00=0x0018, t01=0x00a6}
0x2630…263c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x00b8}
0x263c…2656 Head {h00=0x0016, h01=0x0050, text=»T:MOVC ADKL A13,1 «, t00=0x0018, t01=0x00c4}
0x2656…2660 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00de}
0x2660…2674 Head {h00=0x0010, h01=0x0050, text=»T:MOV EQU * «, t00=0x0018, t01=0x00e8}
0x2674…26a2 Head {h00=0x002a, h01=0x0050, text=» CF A14,GETOPS GET ELEMENT PARAMETERS «, t00=0x0018, t01=0x00fc}
0x26a2…26ce Head {h00=0x0028, h01=0x0050, text=» LDR A4,A1 A4=LENGTH 2-COMPLEMENTED «, t00=0x0018, t01=0x012a}
0x26ce…26fe Head {h00=0x002c, h01=0x0050, text=» LD A2,T:OP2 GET LENGTH OF OP2 2-COMPL. «, t00=0x0018, t01=0x0156}
0x26fe…2722 Head {h00=0x0020, h01=0x0050, text=» LDR A7,A10 GET POINTER OP2 «, t00=0x0018, t01=0x0186}
0x2722…2736 Head {h00=0x0010, h01=0x0050, text=» XRR* A3,A5 «, t00=0x0019, t01=0x001a}
0x2736…2764 Head {h00=0x002a, h01=0x0050, text=» RF(NN) MVC JUMP IF EQUAL PACKING FORM«, t00=0x0019, t01=0x002e}
0x2764…2790 Head {h00=0x0028, h01=0x0050, text=» LDR* A3,A5 GET PACKING FORM FOR OP1«, t00=0x0019, t01=0x005c}
0x2790…27b0 Head {h00=0x001c, h01=0x0050, text=» RF(N) UPK JUMP IF ASCII«, t00=0x0019, t01=0x0088}
0x27b0…27be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x00a8}
0x27be…27c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00b6}
0x27c8…27d6 Head {h00=0x000a, h01=0x0050, text=»* PACK«, t00=0x0019, t01=0x00c0}
0x27d6…27ea Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0019, t01=0x00ce}
0x27ea…27f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00e2}
0x27f4…2818 Head {h00=0x0020, h01=0x0050, text=»PCK LDK A1,/B LOAD PLUS SIGN«, t00=0x0019, t01=0x00ec}
0x2818…2846 Head {h00=0x002a, h01=0x0050, text=»PCK040 LDK A3,/F0 LOAD BLANK AND ZERO «, t00=0x0019, t01=0x0110}
0x2846…2868 Head {h00=0x001e, h01=0x0050, text=» ADK A2,1 INCREMENT INDEX «, t00=0x0019, t01=0x013e}
0x2868…2894 Head {h00=0x0028, h01=0x0050, text=» RF(P) PCK050 JUMP IF END OF ELEMENT«, t00=0x0019, t01=0x0160}
0x2894…28b8 Head {h00=0x0020, h01=0x0050, text=» LCR A3,A7 GET BYTE FROM OP2«, t00=0x0019, t01=0x018c}
0x28b8…28cc Head {h00=0x0010, h01=0x0050, text=» SUK A3,/30 «, t00=0x001a, t01=0x0020}
0x28cc…28f4 Head {h00=0x0024, h01=0x0050, text=» RF(NN) PCK045 JUMP IF NOT SPACE«, t00=0x001a, t01=0x0034}
0x28f4…2912 Head {h00=0x001a, h01=0x0050, text=» LDK A3,/F LOAD BLANK «, t00=0x001a, t01=0x005c}
0x2912…2940 Head {h00=0x002a, h01=0x0050, text=»PCK045 SLL A3,4 SHIFT TO LEFT POSITION«, t00=0x001a, t01=0x007a}
0x2940…2978 Head {h00=0x0034, h01=0x0050, text=»PCK050 ADR A1,A3 GET 2 DIGITS IN THE RIGHT BYTE «, t00=0x001a, t01=0x00a8}
0x2978…299c Head {h00=0x0020, h01=0x0050, text=» SCR A1,A6 STORE BYTE IN OP1«, t00=0x001a, t01=0x00e0}
0x299c…29bc Head {h00=0x001c, h01=0x0050, text=» ADK A4,1 STEP UP INDEX «, t00=0x001a, t01=0x0104}
0x29bc…29d2 Head {h00=0x0012, h01=0x0050, text=» RB(NN) RETMMM«, t00=0x001a, t01=0x0124}
0x29d2…29fa Head {h00=0x0024, h01=0x0050, text=» SUK A6,1 DECREMENT POINTER OP1 «, t00=0x001a, t01=0x013a}
0x29fa…2a22 Head {h00=0x0024, h01=0x0050, text=» SUK A7,1 DECREMENT POINTER OP2 «, t00=0x001a, t01=0x0162}
0x2a22…2a40 Head {h00=0x001a, h01=0x0050, text=» LDK A1,/F LOAD BLANK «, t00=0x001a, t01=0x018a}
0x2a40…2a6a Head {h00=0x0026, h01=0x0050, text=» ADK A2,1 INCREMENT INDEX FOR OP2 «, t00=0x001b, t01=0x0018}
0x2a6a…2a96 Head {h00=0x0028, h01=0x0050, text=» RB(P) PCK040 JUMP IF END OF ELEMENT«, t00=0x001b, t01=0x0042}
0x2a96…2aba Head {h00=0x0020, h01=0x0050, text=» LCR A1,A7 GET BYTE FROM OP2«, t00=0x001b, t01=0x006e}
0x2aba…2ace Head {h00=0x0010, h01=0x0050, text=» SUK A1,/30 «, t00=0x001b, t01=0x0092}
0x2ace…2af6 Head {h00=0x0024, h01=0x0050, text=» RF(NN) PCK060 JUMP IF NOT SPACE«, t00=0x001b, t01=0x00a6}
0x2af6…2b14 Head {h00=0x001a, h01=0x0050, text=» LDK A1,/F LOAD BLANK «, t00=0x001b, t01=0x00ce}
0x2b14…2b46 Head {h00=0x002e, h01=0x0050, text=»PCK060 SUK A7,1 DECREMENT POINTER FOR OP2 «, t00=0x001b, t01=0x00ec}
0x2b46…2b58 Head {h00=0x000e, h01=0x0050, text=» RB PCK040«, t00=0x001b, t01=0x011e}
0x2b58…2b66 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0130}
0x2b66…2b70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x013e}
0x2b70…2b96 Head {h00=0x0022, h01=0x0050, text=»* MOVE CHARACTER BY CHARACTER «, t00=0x001b, t01=0x0148}
0x2b96…2bbc Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x001b, t01=0x016e}
0x2bbc…2bc6 (28, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0004}
0x2bc6…2bd8 Head {h00=0x000e, h01=0x0050, text=»MVC EQU * «, t00=0x001c, t01=0x000e}
0x2bd8…2bf8 Head {h00=0x001c, h01=0x0050, text=» LDK A3,0 LOAD HEX ZERO «, t00=0x001c, t01=0x0020}
0x2bf8…2c0c Head {h00=0x0010, h01=0x0050, text=»MVC020 EQU *«, t00=0x001c, t01=0x0040}
0x2c0c…2c30 Head {h00=0x0020, h01=0x0050, text=» LDR* A5,A5 GET PACKING FORM«, t00=0x001c, t01=0x0054}
0x2c30…2c54 Head {h00=0x0020, h01=0x0050, text=» RF(N) MVC050 JUMP IF ASCII «, t00=0x001c, t01=0x0078}
0x2c54…2c74 Head {h00=0x001c, h01=0x0050, text=» LDK A3,/FF LOAD BLANKS «, t00=0x001c, t01=0x009c}
0x2c74…2c9e Head {h00=0x0026, h01=0x0050, text=»MVC050 LDR A1,A3 GET FILLER TO A1 «, t00=0x001c, t01=0x00bc}
0x2c9e…2cc8 Head {h00=0x0026, h01=0x0050, text=» ADK A2,1 INCREMENT INDEX FOR OP2 «, t00=0x001c, t01=0x00e6}
0x2cc8…2cf4 Head {h00=0x0028, h01=0x0050, text=» RF(P) MVC100 JUMP IF END OF ELEMENT«, t00=0x001c, t01=0x0110}
0x2cf4…2d18 Head {h00=0x0020, h01=0x0050, text=» LCR A1,A7 GET BYTE FROM OP2«, t00=0x001c, t01=0x013c}
0x2d18…2d42 Head {h00=0x0026, h01=0x0050, text=»MVC100 SCR A1,A6 STORE BYTE IN OP1«, t00=0x001c, t01=0x0160}
0x2d42…2d6a Head {h00=0x0024, h01=0x0050, text=» SUK A7,1 DECREMENT POINTER OP2 «, t00=0x001c, t01=0x018a}
0x2d6a…2d92 Head {h00=0x0024, h01=0x0050, text=» SUK A6,1 DECREMENT POINTER OP1 «, t00=0x001d, t01=0x0022}
0x2d92…2db2 Head {h00=0x001c, h01=0x0050, text=» ADK A4,1 STEP UP INDEX «, t00=0x001d, t01=0x004a}
0x2db2…2ddc Head {h00=0x0026, h01=0x0050, text=» RB(N) MVC050 JUMP IF NOT FINISHED«, t00=0x001d, t01=0x006a}
0x2ddc…2df4 Head {h00=0x0014, h01=0x0050, text=»RETUR RB RETMMM «, t00=0x001d, t01=0x0094}
0x2df4…2e02 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00ac}
0x2e02…2e0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00ba}
0x2e0c…2e1c Head {h00=0x000c, h01=0x0050, text=»* UNPACK«, t00=0x001d, t01=0x00c4}
0x2e1c…2e30 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x001d, t01=0x00d4}
0x2e30…2e3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00e8}
0x2e3a…2e58 Head {h00=0x001a, h01=0x0050, text=»UPK LDK A1,0 CLEAR A1 «, t00=0x001d, t01=0x00f2}
0x2e58…2e6a Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x001d, t01=0x0110}
0x2e6a…2e94 Head {h00=0x0026, h01=0x0050, text=» RF(NN) UPK070 JUMP IF END OF OP2 «, t00=0x001d, t01=0x0122}
0x2e94…2eb6 Head {h00=0x001e, h01=0x0050, text=» LCR A1,A7 GET BCD-DIGITS «, t00=0x001d, t01=0x014c}
0x2eb6…2ed6 Head {h00=0x001c, h01=0x0050, text=» SRL A1,4 SHIFT OUT SIGN«, t00=0x001d, t01=0x016e}
0x2ed6…2ee8 Head {h00=0x000e, h01=0x0050, text=» SUK A1,/F«, t00=0x001d, t01=0x018e}
0x2ee8…2f0c Head {h00=0x0020, h01=0x0050, text=» RF(Z) UPK060 JUMP IF BLANK «, t00=0x001e, t01=0x0010}
0x2f0c…2f20 Head {h00=0x0010, h01=0x0050, text=» ADK A1,/1F «, t00=0x001e, t01=0x0034}
0x2f20…2f54 Head {h00=0x0030, h01=0x0050, text=»UPK060 ADK A1,/20 MAKE ASCII DIGIT OR BLANK «, t00=0x001e, t01=0x0048}
0x2f54…2f78 Head {h00=0x0020, h01=0x0050, text=»UPK070 SCR A1,A6 STORE ASCII«, t00=0x001e, t01=0x007c}
0x2f78…2fa0 Head {h00=0x0024, h01=0x0050, text=» SUK A6,1 DECREMENT POINTER OP1 «, t00=0x001e, t01=0x00a0}
0x2fa0…2fc8 Head {h00=0x0024, h01=0x0050, text=» SUK A7,1 DECREMENT POINTER OP2 «, t00=0x001e, t01=0x00c8}
0x2fc8…2fea Head {h00=0x001e, h01=0x0050, text=» ADK A4,1 INCREMENT INDEX «, t00=0x001e, t01=0x00f0}
0x2fea…3010 Head {h00=0x0022, h01=0x0050, text=» RB(NN) RETUR JUMP IF FINISHED«, t00=0x001e, t01=0x0112}
0x3010…302a Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 CLEAR A1«, t00=0x001e, t01=0x0138}
0x302a…3054 Head {h00=0x0026, h01=0x0050, text=» ADK A2,1 INCREMENT INDEX FOR OP2 «, t00=0x001e, t01=0x0152}
0x3054…3082 Head {h00=0x002a, h01=0x0050, text=» RF(NN) UPK110 JUMP IF END OF ELEMENT «, t00=0x001e, t01=0x017c}
0x3082…30a8 Head {h00=0x0022, h01=0x0050, text=» LCR A1,A7 GET DIGITS FROM OP2«, t00=0x001f, t01=0x001a}
0x30a8…30ca Head {h00=0x001e, h01=0x0050, text=» ANK A1,/F GET RIGHT DIGIT«, t00=0x001f, t01=0x0040}
0x30ca…30dc Head {h00=0x000e, h01=0x0050, text=» SUK A1,/F«, t00=0x001f, t01=0x0062}
0x30dc…3100 Head {h00=0x0020, h01=0x0050, text=» RF(Z) UPK100 JUMP IF BLANK «, t00=0x001f, t01=0x0074}
0x3100…3114 Head {h00=0x0010, h01=0x0050, text=» ADK A1,/1F «, t00=0x001f, t01=0x0098}
0x3114…3148 Head {h00=0x0030, h01=0x0050, text=»UPK100 ADK A1,/20 MAKE ASCII DIGIT OR BLANK «, t00=0x001f, t01=0x00ac}
0x3148…316c Head {h00=0x0020, h01=0x0050, text=»UPK110 SCR A1,A6 STORE ASCII«, t00=0x001f, t01=0x00e0}
0x316c…3194 Head {h00=0x0024, h01=0x0050, text=» SUK A6,1 DECREMENT POINTER OP1 «, t00=0x001f, t01=0x0104}
0x3194…31b6 Head {h00=0x001e, h01=0x0050, text=» ADK A4,1 INCREMENT INDEX «, t00=0x001f, t01=0x012c}
0x31b6…31de Head {h00=0x0024, h01=0x0050, text=» RB(N) UPK JUMP IF NOT FINISHED «, t00=0x001f, t01=0x014e}
0x31de…31f0 Head {h00=0x000e, h01=0x0050, text=» RB RETMMM«, t00=0x001f, t01=0x0176}
0x31f0…31fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0188}
0x31fa…3208 (32, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0004}
0x3208…3212 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0012}
0x3212…3238 Head {h00=0x0022, h01=0x0050, text=»* COMPARISON OF 2 BCD ELEMENTS«, t00=0x0020, t01=0x001c}
0x3238…3266 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0020, t01=0x0042}
0x3266…3270 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0070}
0x3270…3284 Head {h00=0x0010, h01=0x0050, text=»M:CPA EQU * «, t00=0x0020, t01=0x007a}
0x3284…328c Head {h00=0x0004, h01=0x0050, t00=0x0020, t01=0x008e}
0x328c…32a2 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0020, t01=0x0096}
0x32a2…32b6 Head {h00=0x0010, h01=0x0050, text=» LDK A1,/80 «, t00=0x0020, t01=0x00ac}
0x32b6…32cc Head {h00=0x0012, h01=0x0050, text=» XRS A1,2,A14 «, t00=0x0020, t01=0x00c0}
0x32cc…32de Head {h00=0x000e, h01=0x0050, text=» RF T:CPA «, t00=0x0020, t01=0x00d6}
0x32de…32ea Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x00e8}
0x32ea…3304 Head {h00=0x0016, h01=0x0050, text=»T:CPAC ADKL A13,1 «, t00=0x0020, t01=0x00f4}
0x3304…332c Head {h00=0x0024, h01=0x0050, text=»T:CPA EQU * ABSOLUTE COMPARISON «, t00=0x0020, t01=0x010e}
0x332c…3352 Head {h00=0x0022, h01=0x0050, text=» LDR A9,A14 INDICATE ABS. COMP«, t00=0x0020, t01=0x0136}
0x3352…3362 Head {h00=0x000c, h01=0x0050, text=» RF COMP«, t00=0x0020, t01=0x015c}
0x3362…336c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x016c}
0x336c…3380 Head {h00=0x0010, h01=0x0050, text=»M:CMP EQU * «, t00=0x0020, t01=0x0176}
0x3380…3396 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0020, t01=0x018a}
0x3396…33aa Head {h00=0x0010, h01=0x0050, text=» LDK A1,/80 «, t00=0x0021, t01=0x0010}
0x33aa…33c0 Head {h00=0x0012, h01=0x0050, text=» XRS A1,2,A14 «, t00=0x0021, t01=0x0024}
0x33c0…33d2 Head {h00=0x000e, h01=0x0050, text=» RF T:CMP «, t00=0x0021, t01=0x003a}
0x33d2…33de Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x004c}
0x33de…33f8 Head {h00=0x0016, h01=0x0050, text=»T:CMPC ADKL A13,1 «, t00=0x0021, t01=0x0058}
0x33f8…3422 Head {h00=0x0026, h01=0x0050, text=»T:CMP EQU * COMP. INCLUSIVE SIGNS «, t00=0x0021, t01=0x0072}
0x3422…344a Head {h00=0x0024, h01=0x0050, text=» SUR A9,A9 INDICATE NORMAL COMP «, t00=0x0021, t01=0x009c}
0x344a…3472 Head {h00=0x0024, h01=0x0050, text=»COMP LDKL A8,/EC08 A8=CWR A4,A2 «, t00=0x0021, t01=0x00c4}
0x3472…34a0 Head {h00=0x002a, h01=0x0050, text=» CF A14,GETOPS GET ELEMENT PARAMETERS «, t00=0x0021, t01=0x00ec}
0x34a0…34c0 Head {h00=0x001c, h01=0x0050, text=» LDK A7,0 INDICATE EQUAL«, t00=0x0021, t01=0x011a}
0x34c0…34ea Head {h00=0x0026, h01=0x0050, text=» LCR A4,A6 GET 1:ST BYTE FROM OP1 «, t00=0x0021, t01=0x013a}
0x34ea…3514 Head {h00=0x0026, h01=0x0050, text=» LCR A2,A10 GET 1:ST BYTE FROM OP2«, t00=0x0021, t01=0x0164}
0x3514…352e Head {h00=0x0016, h01=0x0050, text=» LDR A3,A4 COPY A4«, t00=0x0021, t01=0x018e}
0x352e…3548 Head {h00=0x0016, h01=0x0050, text=» LDR A5,A2 COPY A2«, t00=0x0022, t01=0x0018}
0x3548…3568 Head {h00=0x001c, h01=0x0050, text=» ANK A3,/F GET SIGN OP1 «, t00=0x0022, t01=0x0032}
0x3568…3588 Head {h00=0x001c, h01=0x0050, text=» ANK A5,/F GET SIGN OP2 «, t00=0x0022, t01=0x0052}
0x3588…35aa Head {h00=0x001e, h01=0x0050, text=» ANK A4,/F0 GET LEFT DIGIT«, t00=0x0022, t01=0x0072}
0x35aa…35cc Head {h00=0x001e, h01=0x0050, text=» ANK A2,/F0 GET LEFT DIGIT«, t00=0x0022, t01=0x0094}
0x35cc…35de Head {h00=0x000e, h01=0x0050, text=» LDR A9,A9«, t00=0x0022, t01=0x00b6}
0x35de…3610 Head {h00=0x002e, h01=0x0050, text=» RF(NZ) CMP100 JUMP IF ABSOLUTE COMPARISON«, t00=0x0022, t01=0x00c8}
0x3610…3622 Head {h00=0x000e, h01=0x0050, text=» SUR A3,A5«, t00=0x0022, t01=0x00fa}
0x3622…364a Head {h00=0x0024, h01=0x0050, text=» RF(N) CMP150 JUMP IF OP1 GT OP2«, t00=0x0022, t01=0x010c}
0x364a…3672 Head {h00=0x0024, h01=0x0050, text=» RF(P) CMP160 JUMP IF OP1 LT OP2«, t00=0x0022, t01=0x0134}
0x3672…3684 Head {h00=0x000e, h01=0x0050, text=» SUK A5,/B«, t00=0x0022, t01=0x015c}
0x3684…36ac Head {h00=0x0024, h01=0x0050, text=» RF(Z) CMP100 JUMP IF PLUS SIGNS«, t00=0x0022, t01=0x016e}
0x36ac…36d0 Head {h00=0x0020, h01=0x0050, text=» LDKL A8,/EA10 A8=CWR A2,A4 «, t00=0x0023, t01=0x0008}
0x36d0…36ea Head {h00=0x0016, h01=0x0050, text=»CMP100 SUK A4,/FF «, t00=0x0023, t01=0x002c}
0x36ea…3710 Head {h00=0x0022, h01=0x0050, text=» RF(Z) CMP110 JUMP IF 2 BLANKS«, t00=0x0023, t01=0x0046}
0x3710…3722 Head {h00=0x000e, h01=0x0050, text=» ADK A4,/F«, t00=0x0023, t01=0x006c}
0x3722…3754 Head {h00=0x002e, h01=0x0050, text=» RF(NN) CMP110 JUMP IF 1 BLANK (LEFTMOST) «, t00=0x0023, t01=0x007e}
0x3754…3776 Head {h00=0x001e, h01=0x0050, text=» ADK A4,/F0 RESTORE DIGITS«, t00=0x0023, t01=0x00b0}
0x3776…3790 Head {h00=0x0016, h01=0x0050, text=»CMP110 SUK A2,/FF «, t00=0x0023, t01=0x00d2}
0x3790…37b6 Head {h00=0x0022, h01=0x0050, text=» RF(Z) CMP120 JUMP IF 2 BLANKS«, t00=0x0023, t01=0x00ec}
0x37b6…37c8 Head {h00=0x000e, h01=0x0050, text=» ADK A2,/F«, t00=0x0023, t01=0x0112}
0x37c8…37fa Head {h00=0x002e, h01=0x0050, text=» RF(NN) CMP120 JUMP IF 1 BLANK (LEFTMOST) «, t00=0x0023, t01=0x0124}
0x37fa…381c Head {h00=0x001e, h01=0x0050, text=» ADK A2,/F0 RESTORE DIGITS«, t00=0x0023, t01=0x0156}
0x381c…383a Head {h00=0x001a, h01=0x0050, text=»CMP120 EXR A8 COMPARE «, t00=0x0023, t01=0x0178}
0x383a…3860 Head {h00=0x0022, h01=0x0050, text=» RF(G) CMP140 JUMP IF GREATER «, t00=0x0024, t01=0x0008}
0x3860…3884 Head {h00=0x0020, h01=0x0050, text=» RF(E) CMP130 JUMP IF EQUAL «, t00=0x0024, t01=0x002e}
0x3884…38a4 Head {h00=0x001c, h01=0x0050, text=» LDK A7,2 INDICATE LESS «, t00=0x0024, t01=0x0052}
0x38a4…38ce Head {h00=0x0026, h01=0x0050, text=»CMP130 SUK A6,1 DECREMENT POINTER «, t00=0x0024, t01=0x0072}
0x38ce…38f4 Head {h00=0x0022, h01=0x0050, text=» SUKL A10,1 DECREMENT POINTER «, t00=0x0024, t01=0x009c}
0x38f4…3916 Head {h00=0x001e, h01=0x0050, text=» ADK A1,1 INCREMENT INDEX «, t00=0x0024, t01=0x00c2}
0x3916…392c Head {h00=0x0012, h01=0x0050, text=» RF(NN) CMP170«, t00=0x0024, t01=0x00e4}
0x392c…3952 Head {h00=0x0022, h01=0x0050, text=» LCR A4,A6 GET BYTE FROM OP 1 «, t00=0x0024, t01=0x00fa}
0x3952…3964 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0024, t01=0x0120}
0x3964…3986 Head {h00=0x001e, h01=0x0050, text=» IM T:OP2 INCREMENT INDEX «, t00=0x0024, t01=0x0132}
0x3986…39b4 Head {h00=0x002a, h01=0x0050, text=» RB(NN) CMP100 JUMP IF END OF ELEMENT «, t00=0x0024, t01=0x0154}
0x39b4…39da Head {h00=0x0022, h01=0x0050, text=» LCR A2,A10 GET BYTE FROM OP2 «, t00=0x0024, t01=0x0182}
0x39da…39ec Head {h00=0x000e, h01=0x0050, text=» RB CMP100«, t00=0x0025, t01=0x0018}
0x39ec…39f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x002a}
0x39f6…3a0c Head {h00=0x0012, h01=0x0050, text=»* GREATER THAN«, t00=0x0025, t01=0x0034}
0x3a0c…3a24 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0025, t01=0x004a}
0x3a24…3a2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0062}
0x3a2e…3a5c Head {h00=0x002a, h01=0x0050, text=»CMP140 LDK A7,1 INDICATE GREATER THAN «, t00=0x0025, t01=0x006c}
0x3a5c…3a6e Head {h00=0x000e, h01=0x0050, text=» RB CMP130«, t00=0x0025, t01=0x009a}
0x3a6e…3a78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00ac}
0x3a78…3a92 Head {h00=0x0016, h01=0x0050, text=»* OP1 + AND OP2 - «, t00=0x0025, t01=0x00b6}
0x3a92…3aac Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0025, t01=0x00d0}
0x3aac…3ab6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00ea}
0x3ab6…3ae4 Head {h00=0x002a, h01=0x0050, text=»CMP150 LDK A7,1 INDICATE GREATER THAN «, t00=0x0025, t01=0x00f4}
0x3ae4…3af6 Head {h00=0x000e, h01=0x0050, text=» RF CMP170«, t00=0x0025, t01=0x0122}
0x3af6…3b00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0134}
0x3b00…3b1a Head {h00=0x0016, h01=0x0050, text=»* OP1 - AND OP2 + «, t00=0x0025, t01=0x013e}
0x3b1a…3b34 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0025, t01=0x0158}
0x3b34…3b3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0172}
0x3b3e…3b68 Head {h00=0x0026, h01=0x0050, text=»CMP160 LDK A7,2 INDICATE LESS THAN«, t00=0x0025, t01=0x017c}
0x3b68…3b86 Head {h00=0x001a, h01=0x0050, text=»CMP170 LC A6,2,A14 PSW«, t00=0x0026, t01=0x0016}
0x3b86…3b9a Head {h00=0x0010, h01=0x0050, text=» ANK A6,/FC «, t00=0x0026, t01=0x0034}
0x3b9a…3bac Head {h00=0x000e, h01=0x0050, text=» ORR A6,A7«, t00=0x0026, t01=0x0048}
0x3bac…3bce Head {h00=0x001e, h01=0x0050, text=» SC A6,2,A14 PSW COND UPD «, t00=0x0026, t01=0x005a}
0x3bce…3be0 Head {h00=0x000e, h01=0x0050, text=» RB RETUR «, t00=0x0026, t01=0x007c}
0x3be0…3bea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x008e}
0x3bea…3bf6 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0026, t01=0x0098}
0x3bf6…3bfa Head {h00=0x4004, h01=0x0000}
0x3bfa…3bfe 00 26 00 a4 ┆ & ┆
0x3bfe…3c06 (39, 1, 8) 20 04 00 00 00 27 00 04 ┆ ' ┆
0x3c06…3c56 (40, 0, 400) 00 30 00 50 5c 49 44 45 4e 54 20 54 44 49 53 50 20 5c 52 45 4c 20 38 2e 32 20 37 38 2d 30 39 2d 31 35 20 20 38 37 30 31 30 35 30 34 30 38 32 30 00 00 00 04 00 04 00 50 00 00 00 38 00 06 00 50 2a 20 00 00 00 40 00 36 00 50 2a 2a 2a 2a 2a 2a ┆ 0 P IDENT TDISP REL 8.2 78-09-15 870105040820 P 8 P* @ 6 P******┆
0x3c56…3ca6 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 00 00 4a 00 06 00 50 2a 20 00 00 00 84 00 24 00 50 2a 20 20 20 50 48 49 4c 49 50 53 20 54 45 52 4d 49 4e ┆******************************************** J P* $ P* PHILIPS TERMIN┆
0x3ca6…3cf6 41 4c 20 53 59 53 54 45 4d 20 50 54 53 20 00 00 00 8e 00 06 00 50 2a 20 00 00 00 b6 00 24 00 50 2a 20 20 20 54 44 49 53 50 20 3d 20 54 45 52 4d 49 4e 41 4c 20 44 49 53 50 41 54 43 48 45 52 20 00 00 00 c0 00 06 00 50 2a 20 00 00 00 e8 00 06 ┆AL SYSTEM PTS P* $ P* TDISP = TERMINAL DISPATCHER P* ┆
0x3cf6…3d46 00 50 2a 20 00 00 00 f2 00 06 00 50 2a 20 00 00 00 fc 00 06 00 50 2a 20 00 00 01 06 00 06 00 50 2a 20 00 00 01 10 00 06 00 50 2a 20 00 00 01 1a 00 36 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P* P* P* P* P* 6 P****************************┆
0x3d46…3d96 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 00 01 24 00 06 00 50 2a 20 00 00 01 5e 00 06 00 50 2a 20 00 00 01 68 00 06 00 50 2a 20 00 00 01 72 00 30 00 50 2a 20 20 20 54 48 49 53 20 49 53 20 54 48 45 20 54 45 52 4d ┆********************** $ P* ^ P* h P* r 0 P* THIS IS THE TERM┆
0x3d96…3de6 (41, 0, 400) 49 4e 41 4c 20 44 49 53 50 41 54 43 48 45 52 20 49 4e 20 54 4f 53 53 2e 00 00 01 7c 00 3e 00 50 2a 20 20 20 45 4e 54 52 59 20 50 4f 49 4e 54 20 49 53 20 27 54 44 49 53 50 27 20 57 49 54 48 20 38 20 52 45 47 49 53 54 45 52 53 20 4f 4e 20 41 ┆INAL DISPATCHER IN TOSS. | > P* ENTRY POINT IS 'TDISP' WITH 8 REGISTERS ON A┆
0x3de6…3e36 31 35 20 53 54 41 43 4b 2e 20 00 01 00 20 00 3e 00 50 2a 20 20 20 54 48 45 20 44 49 53 50 41 54 43 48 45 52 20 43 48 45 43 4b 53 20 49 46 20 54 48 45 52 45 20 49 53 20 41 20 4a 4f 42 20 49 4e 20 44 49 53 50 41 54 43 48 45 52 2d 00 01 00 62 ┆15 STACK. > P* THE DISPATCHER CHECKS IF THERE IS A JOB IN DISPATCHER- b┆
0x3e36…3e86 00 3c 00 50 2a 20 20 20 51 55 45 55 45 20 57 49 54 48 20 48 49 47 48 45 52 20 50 52 49 4f 52 49 54 59 20 54 48 41 4e 20 49 4e 54 45 52 52 55 50 54 45 44 20 50 52 4f 47 52 41 4d 2e 00 01 00 a4 00 3c 00 50 2a 20 20 20 2d 20 49 46 20 53 4f 20 ┆ < P* QUEUE WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM. < P* - IF SO ┆
0x3e86…3ed6 54 48 45 20 51 55 45 55 45 44 20 50 52 4f 47 52 41 4d 20 49 53 20 53 54 41 52 54 45 44 20 41 4e 44 20 52 45 47 49 53 54 45 52 53 20 00 01 00 e4 00 40 00 50 2a 20 20 20 20 20 41 31 2d 41 31 34 20 4f 46 20 49 4e 54 45 52 52 55 50 54 45 44 20 ┆THE QUEUED PROGRAM IS STARTED AND REGISTERS @ P* A1-A14 OF INTERRUPTED ┆
0x3ed6…3f26 50 52 4f 47 52 41 4d 20 41 52 45 20 53 41 56 45 44 20 4f 4e 20 41 31 35 20 53 54 41 43 4b 2e 20 00 01 01 24 00 44 00 50 2a 20 20 20 2d 20 49 46 20 4e 4f 54 20 52 45 54 55 52 4e 20 49 53 20 47 49 56 45 4e 20 54 4f 20 49 4e 54 45 52 52 55 50 ┆PROGRAM ARE SAVED ON A15 STACK. $ D P* - IF NOT RETURN IS GIVEN TO INTERRUP┆
0x3f26…3f76 (42, 0, 400) 54 45 44 20 50 52 4f 47 52 41 4d 20 56 49 41 20 52 45 54 55 52 38 2e 20 00 01 01 68 00 06 00 50 2a 20 00 02 00 20 00 40 00 50 2a 20 20 20 41 4e 20 45 4e 54 52 59 50 4f 49 4e 54 20 27 4c 4b 4d 44 49 53 27 20 49 53 20 41 4c 53 4f 20 49 4e 43 ┆TED PROGRAM VIA RETUR8. h P* @ P* AN ENTRYPOINT 'LKMDIS' IS ALSO INC┆
0x3f76…3fc6 4c 55 44 45 44 20 49 4e 20 54 48 49 53 20 4d 4f 44 55 4c 45 2e 20 00 02 00 2a 00 44 00 50 2a 20 20 20 54 48 49 53 20 50 41 52 54 20 49 53 20 44 49 53 50 41 54 43 48 45 44 20 41 46 54 45 52 20 45 41 43 48 20 4c 4b 4d 2d 52 45 51 55 45 53 54 ┆LUDED IN THIS MODULE. * D P* THIS PART IS DISPATCHED AFTER EACH LKM-REQUEST┆
0x3fc6…4016 2e 28 4e 4f 20 52 45 47 49 53 54 45 52 53 00 02 00 6e 00 48 00 50 2a 20 20 20 4f 4e 20 53 54 41 43 4b 29 20 41 20 43 48 45 43 4b 20 49 53 20 4d 41 44 45 20 49 46 20 54 48 45 52 45 20 49 53 20 41 20 4a 4f 42 20 49 4e 20 44 49 53 50 41 54 43 ┆.(NO REGISTERS n H P* ON STACK) A CHECK IS MADE IF THERE IS A JOB IN DISPATC┆
0x4016…4066 48 45 52 20 51 55 45 55 45 20 00 02 00 b6 00 36 00 50 2a 20 20 20 57 49 54 48 20 48 49 47 48 45 52 20 50 52 49 4f 52 49 54 59 20 54 48 41 4e 20 49 4e 54 45 52 52 55 50 54 45 44 20 50 52 4f 47 52 41 4d 2e 00 02 01 02 00 22 00 50 2a 20 20 20 ┆HER QUEUE 6 P* WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM. " P* ┆
0x4066…40b6 2d 20 49 46 20 51 55 45 55 45 44 20 4a 4f 42 20 49 53 20 53 54 41 52 54 45 44 00 02 01 3c 00 44 00 50 2a 20 20 20 2d 20 49 46 20 4e 4f 54 20 52 45 54 55 52 4e 20 49 53 20 47 49 56 45 4e 20 54 4f 20 49 4e 54 45 52 52 55 50 54 45 44 20 50 52 ┆- IF QUEUED JOB IS STARTED < D P* - IF NOT RETURN IS GIVEN TO INTERRUPTED PR┆
0x40b6…4106 (43, 0, 400) 4f 47 52 41 4d 20 56 49 41 20 52 45 54 55 31 34 2e 20 00 02 01 62 00 06 00 50 2a 20 00 03 00 1a 00 06 00 50 2a 20 00 03 00 24 00 3e 00 50 2a 20 20 20 41 4e 20 4f 50 54 49 4f 4e 41 4c 59 20 45 4e 54 52 59 50 4f 49 4e 54 20 27 44 49 53 49 4f ┆OGRAM VIA RETU14. b P* P* $ > P* AN OPTIONALY ENTRYPOINT 'DISIO┆
0x4106…4156 45 27 20 49 53 20 41 4c 53 4f 20 50 52 4f 56 49 44 45 44 20 46 4f 52 20 00 03 00 2e 00 3e 00 50 2a 20 20 20 45 52 52 4f 52 53 20 49 4e 20 49 2f 4f 20 44 52 49 56 45 52 53 2e 20 42 49 54 20 30 20 49 53 20 53 45 54 20 49 4e 20 41 31 20 41 4e ┆E' IS ALSO PROVIDED FOR . > P* ERRORS IN I/O DRIVERS. BIT 0 IS SET IN A1 AN┆
0x4156…41a6 44 20 54 48 45 20 53 55 42 2d 00 03 00 70 00 3c 00 50 2a 20 20 20 52 4f 55 54 49 4e 45 20 27 54 45 4e 44 49 4f 27 20 49 53 20 43 41 4c 4c 45 44 20 42 45 46 4f 52 45 20 54 48 45 20 27 54 44 49 53 50 27 2d 45 4e 54 52 59 20 00 03 00 b2 00 14 ┆D THE SUB- p < P* ROUTINE 'TENDIO' IS CALLED BEFORE THE 'TDISP'-ENTRY ┆
0x41a6…41f6 00 50 2a 20 20 20 49 53 20 45 4e 54 45 52 45 44 2e 20 00 03 00 f2 00 40 00 50 2a 20 20 20 45 4e 54 52 59 20 27 44 49 53 45 4e 44 27 20 4f 4e 4c 59 20 43 41 4c 4c 53 20 27 54 45 4e 44 49 4f 27 20 42 45 46 4f 52 45 20 27 54 44 49 53 50 27 2d ┆ P* IS ENTERED. @ P* ENTRY 'DISEND' ONLY CALLS 'TENDIO' BEFORE 'TDISP'-┆
0x41f6…4246 45 4e 54 52 59 2e 00 03 01 0a 00 0a 00 50 5c 45 4a 45 43 54 00 03 01 4e 00 06 00 50 2a 20 00 03 01 5c 00 10 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 03 01 66 00 10 00 50 2a 20 45 4e 54 52 49 45 53 20 2a 20 00 03 01 7a 00 10 00 50 2a 2a ┆ENTRY. P EJECT N P* P*********** f P* ENTRIES * z P**┆
0x4246…4296 (44, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 03 01 8e 00 06 00 50 2a 20 00 04 00 12 00 22 00 50 5c 45 4e 54 52 59 5c 54 44 49 53 50 5c 44 49 53 50 41 54 43 48 45 52 20 45 4e 54 52 59 20 00 04 00 1c 00 26 00 50 5c 45 4e 54 52 59 5c 4c 4b 4d 44 49 53 5c ┆********* P* " P ENTRY TDISP DISPATCHER ENTRY & P ENTRY LKMDIS ┆
0x4296…42e6 44 49 53 50 41 54 43 48 45 44 20 41 46 54 45 52 20 4c 4b 4d 00 04 00 42 00 22 00 50 5c 45 4e 54 52 59 5c 44 49 53 49 4f 45 5c 49 2f 4f 20 45 52 52 4f 52 20 45 4e 54 52 59 20 00 04 00 6c 00 26 00 50 5c 45 4e 54 52 59 5c 44 49 53 45 4e 44 5c ┆DISPATCHED AFTER LKM B " P ENTRY DISIOE I/O ERROR ENTRY l & P ENTRY DISEND ┆
0x42e6…4336 45 4e 44 20 49 2f 4f 20 41 4e 44 20 44 49 53 50 41 54 43 48 00 04 00 92 00 3c 00 50 5c 45 4e 54 52 59 5c 44 49 53 51 55 45 5c 50 4f 49 4e 54 45 52 20 54 4f 20 46 49 52 53 54 20 50 4c 41 43 45 20 49 4e 20 44 49 53 50 41 54 43 48 45 52 2d 51 ┆END I/O AND DISPATCH < P ENTRY DISQUE POINTER TO FIRST PLACE IN DISPATCHER-Q┆
0x4336…4386 55 45 55 45 00 04 00 bc 00 36 00 50 5c 45 4e 54 52 59 5c 47 42 51 55 45 5c 50 4f 49 4e 54 45 52 20 54 4f 20 46 49 52 53 54 20 54 54 41 42 20 49 4e 20 42 55 46 46 45 52 20 51 55 45 55 45 00 04 00 fc 00 2e 00 50 5c 45 4e 54 52 59 5c 50 52 55 ┆UEUE 6 P ENTRY GBQUE POINTER TO FIRST TTAB IN BUFFER QUEUE . P ENTRY PRU┆
0x4386…43d6 4e 5c 54 54 41 42 2d 41 44 44 52 45 53 53 20 4f 46 20 52 55 4e 49 4e 47 20 50 52 4f 47 52 41 4d 00 04 01 36 00 20 00 50 5c 45 4e 54 52 59 5c 53 52 55 4e 5c 52 55 4e 4e 49 4e 47 20 53 45 47 4d 45 4e 54 20 00 04 01 68 00 38 00 50 5c 45 4e 54 ┆N TTAB-ADDRESS OF RUNING PROGRAM 6 P ENTRY SRUN RUNNING SEGMENT h 8 P ENT┆