|
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: 17416 (0x4408)
Notes: pts_type(SC)
Names: »WRITE.SC«
└─⟦2a21e4bb5⟧ Bits:30009691 Philips computer tape "600408"
└─⟦this⟧ »BDKAPP/WRITE.SC«
└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
└─⟦this⟧ »BDKAPP/WRITE.SC«
IDENT WRITE REL=7.2 DATE=77-09-09 UPDATE #0 77-09-09 * ******************************************* * * PHILIPS TERMINAL SYSTEM PTS * * WRITE = WRITE FUNCTION * * * LEVEL #2 77-09-09 * * RELEASE #7 77-09-09 * ******************************************* * * * THIS MODULE HANDLES THE EDITING OF DATA AT * I/O-REQUESTS * * * PICTURE CONTROLS THE EDITING OF NUMERIC DATA FROM * BCD-ELEMENTS ONLY, AND CONSISTS OF A CHARACTER STRING. * * * EJECT * * ************ * ENTRIES: * ************ * ENTRY T:WRT,T:WRTZ ENTRY T:EDT,T:EDTZ * * ************** * EXTERNALS: * ************** * EXTRN PICTAB EXTRN T:OPA EXTRN M:OPA EXTRN CTLTAB * BYTE FORM 8,8 * OVERLY EQU 0 * ************** * WORK AREAS * ************** * EDNOTZ DATA 0 ZERO INDICATOR EDSUPP DATA 0 SUPPRESSOR INDICATOR EDFCH DATA 0 CHARACTER TO BE STORED IF F EDEPOI DATA 0 ELEMENT POINTER EDCNTE DATA 0 INDEX FOR ELEMENT EDSIGN DATA 0 SIGN FOR ELEMENT EDPPOI DATA 0 PICTURE POINTER EDCNTP DATA 0 INDEX FOR PICTURE (2-COMPL.) EJECT * * * TEDIT LD A10,8,A14 GET RETURN ADDRESS LDR* A9,A10 A9=DEVICE LD A2,2,A10 A2=ADDRESS TO FORMAT LDK A1,4 ADS A1,8,A14 STORE NEW RETURN ADDRESS STR A11,A14 SAVE A11 ON STACK SUKL A14,2 ADJUST STACK SUR A11,A11 CLEAR A11 SUR A10,A10 CLEAR A10 WRIT10 LD A7,2,A8 GET BUFFER ADDRESS CF A14,EDITA PERFORM EDIT LD A4,2,A8 GET BUFFER START ADDRESS SUR A7,A4 GET EFF. BUFFER LENGTH ST A7,4,A8 STORE REQUESTED LENGTH LDK A4,0 CONTROL WORD=0 SRC A3,1 SHIFT CIRCULAR(D) RF(NN) WRIT20 JUMP IF NO CONTROL WORD LD A4,CTLTAB,A1 GET CONTROL WORD FROM TABLE WRIT20 ST A4,10,A8 STORE CONTROL WORD ECR A7,A9 ANK A7,/FF A7=W+R+ORDER SRC A3,3 SHIFT EOR-MARK TO SIGN RF(NN) WRIT30 JUMP IF END OF LIST ORK A7,/80 INDICATE WAIT WRIT30 EQU * STR A9,A8 STORE FC IN ECB ADKL A14,2 ADJUST STACK RTN A14 EJECT * T:EDTZ ADKL A8,1 INDICATE "NO CTL-BYTES" * T:EDT CF A14,TEDIT EDTRTN EQU * LD A11,-4,A14 RESTORE A11 ANKL A8,/FFFE CLEAR "NO CTL-BYTES"-INDICATION IFT OVERLY=1 DATA /C0FF XIF IFT OVERLY=0 RTN A14 XIF * T:WRTZ ADKL A8,1 INDICATE "NO CTL-BYTES" * T:WRT CF A14,TEDIT ********* * WRITE * ********* LDR A1,A8 SAVE ORIGIN A8 ANKL A8,/FFFE LKM DATA 1 LDR A8,A1 RESTORE ORIGIN A8 LDR A3,A3 RB(NN) EDTRTN JUMP IF END OF LIST SUKL A14,6 MODIFY STACK POINTER RB WRIT10 CONTINUE EJECT EDITA EQU * LDK A3,1 LOAD MASK TM A8,A3 RF(Z) EDIT JUMP IF CTL-BYTES LDK A3,0 SCR A3,A7 CLEAR 1:ST BYTE ADK A7,1 INCREMENT POINTER SCR A3,A7 CLEAR SECOND BYTE ADK A7,1 INCREMENT POINTER EDIT ADK A2,1 ANKL A2,/FFFE WORD LIMIT LDK A6,0 LDR* A1,A2 GET WORD TO A1 ADK A2,2 INCR. FORMAT POINTER LDR A5,A1 COPY A1 ECR A4,A1 CHANGE BYTES TO A4 ANK A1,/FF A1=CHAR ANK A4,/FF A4=Z+D LDR A3,A4 A3=Z+D SRL A4,4 A4=Z SUK A4,8 RF(NN) EDPICT JUMP IF PICTURE LC A6,TABZON+8,A4 GET DISPLACEMENT BASIS EQU *+2 TABLE BASE EDJMP ADR P,A6 JUMP TO RESPECTIVE ROUTINE * RETURN EQU *-BASIS RTN A14 EJECT ******** * TEXT * ******** EDTXT EQU *-BASIS ANK A3,/F MASK OUT DATA PART LC A6,TABLE,A3 GET DISPLACEMENT RB EDJMP JUMP TO RESPECTIVE ROUTINE ****************************** * SUBFORMAT OR SWITCH FORMAT * ****************************** AFORM EQU *-BASIS SUKL A5,/6800 ANKL A5,/FFFE MASK OUT INDICATION BIT ADK A5,2 ANK A1,1 RF(Z) SWITCH JUMP IF SWITCH FORMAT LDR A10,A10 RF(NZ) AFORM1 JUMP IF OCCUPIED LDR A10,A2 GET RETURN ADDRESS TO A10 RF SWITCH AFORM1 LDR A11,A2 GET RETURN ADDRESS TO A11 SWITCH SUR A2,A5 GET ALTERNATIVE FORMAT TO A2 RETUR EQU *-BASIS RB EDIT ******************** * END OF SUBFORMAT * ******************** ENDSUB EQU *-BASIS LDR A11,A11 RF(Z) ENDS10 JUMP IF 0 LDR A2,A11 GET RETURN ADDRESS FROM A11 SUR A11,A11 CLEAR A11 RB EDIT ENDS10 LDR A10,A10 RB(Z) EDIT JUMP IF NO SUB CALL LDR A2,A10 GET RETURN ADDRESS FROM A10 SUR A10,A10 CLEAR A10 ENDS50 EQU * RB EDIT ****************** * IMMEDIATE TEXT * ****************** IMTXT EQU *-BASIS IMMEDIATE TEXT EDT100 SUK A1,1 DECREMENT CHAR RB(N) EDIT JUMP IF ALL DONE LCR A6,A2 GET CHARACTER ADK A2,1 STEP POINTER SCR A6,A7 STORE BYTE IN BUFFER ADK A7,1 INCREMENT POINTER RB EDT100 JUMP TO CONTINUE ************************ * SPECIAL TEXT ELEMENT * ************************ STXTEL EQU *-BASIS LDR A3,A7 SAVE A7 LDR A7,A1 LOAD CHAR IN A7 ST A13,SVA13 SAVE A13 LD A13,-2,A13 GET NEW BASE IFT OVERLY=0 CF A14,T:OPA GET ELEMENT PARAMETERS XIF IFT OVERLY=1 CF A14,M:OPA GET ELEMENT ADDRESS XIF LDKL A13,0 SVA13 EQU *-2 RF EDT205 **************** * TEXT ELEMENT * **************** TXTEL EQU *-BASIS TEXT ELEMENT EDT200 LDR A3,A7 SAVE A7 LDR A7,A1 LOAD EL.IDENTIFICATOR IN A7 IFT OVERLY=0 CF A14,T:OPA GET ELEMENT PARAMETERS XIF IFT OVERLY=1 CF A14,M:OPA GET ELEMENT PARAMETERS XIF EDT205 EQU * LDR A7,A3 RESTORE A7 ADR A6,A1 ADD 2-COMPL. LENGTH ADK A6,1 GET ELEMENT ADDRESS EDT210 ADK A1,1 INCREMENT COUNT RB(P) EDIT JUMP IF FINISHED LCR A5,A6 GET ASCII-CHARACTER ADK A6,1 INCREMENT ELEMENT POINTER ANK A5,/FF RB(Z) EDT210 JUMP IF 00 SCR A5,A7 STORE BYTE IN BUFFER ADK A7,1 INCREMENT BUFFER POINTER RB EDT210 ********** * FILLER * ********** EDFILL EQU *-BASIS EDF100 SUK A1,1 STEP DOWN "CHAR" RB(N) EDIT JUMP IF FINISHED SCR A3,A7 STORE BYTE IN BUFFER ADK A7,1 INCREMENT POINTER RB EDF100 CONTINUE TO LOOP ********************** * CONDITIONAL FORMAT * ********************** COND EQU *-BASIS LDR A3,A7 SAVE A7 LDR A7,A1 GET ELEMENT ADDRESS TO A7 IFT OVERLY=0 CF A14,T:OPA GET ELEMENT PARAMETERS XIF IFT OVERLY=1 CF A14,M:OPA GET ELEMENT PARAMETERS XIF LDR A7,A3 RESTORE A7 LCR A1,A6 GET SIGN ANK A1,/F MASK OUT SIGN SUK A1,/D RB(NZ) EDIT JUMP IF POSITIVE ADK A2,2 JUMP TO NEXT WORD IN FORMAT RB EDIT EJECT *********** * PICTURE * *********** EDPICT ANK A3,/7F MASK OUT PICTURE NUMBER SLL A3,2 PICTURE NUMBER * 4 LD A4,PICTAB+2,A3 GET STRING ADDRESS LD A3,PICTAB,A3 GET CONTROL WORD ST A3,EDEPOI SAVE A3 ANK A3,/FF ST A4,EDPPOI STORE PICTURE POINTER NGR A3,A3 NEGATE REGISTER ST A3,EDCNTP STORE LENGTH I COUNTER LDR A3,A7 SAVE A7 LDR A7,A1 GET EL. INDICATOR TO A7 IFT OVERLY=0 CF A14,T:OPA GET ELEMENT PARAMETERS XIF IFT OVERLY=1 CF A14,M:OPA XIF LDR A7,A3 RESTORE A7 LCR A4,A6 SIGN ANK A4,/F MASK OUT SIGN SUK A4,/D SUBTRACT WITH MINUS SIGN ST A4,EDSIGN STORE IN SIGN INDICATOR NGR A1,A1 GET POSITIVE LENGTH IN BYTES SUR A6,A1 ADK A6,1 GET ELEMENT START ADDRESS SLL A1,1 LENGTH IN BCD INCL. SIGN SUK A1,1 LENGTH IN BCD EXCL. SIGN LC A3,EDEPOI GET SAVED A3 ANK A3,/FF GET NUMBER OF DIGITS TO FETCH SUR A1,A3 L-N ST A1,EDCNTE STORE ELEMENT INDEX RF(NP) EDP050 SRL A1,1 DIVIDE WITH 2 ADR A6,A1 EDP050 ST A6,EDEPOI STORE ELEMENT POINTER CM EDNOTZ CLEAR ZEROMARK CM EDFCH CLEAR EDFCH CM EDSUPP CLEAR SUPPR. INDICATOR LDK A6,0 CLEAR A6 EDP100 IM EDCNTP INCREMENT COUNT RB(P) ENDS50 JUMP IF ALL DONE LC* A4,EDPPOI GET PICTURE CODE ANK A4,/FF IM EDPPOI INCREMENT POINTER LDK A1,/80 LOAD TO MASK TM A1,A4 TEST ON LEFTMOST BIT IN CODE RF(Z) EDP120 JUMP IF BIT=0 LDR A6,A4 A6=ASCII-CODE ANK A6,/7F EDP110 SCR A6,A7 STORE BYTE IN BUFFER ADK A7,1 INCREMENT POINTER RB EDP100 CONTINUE EDP120 LDKL A1,-17 LOAD START INDEX EDP130 CC A4,TABPIC+17,A1 RF(E) EDP150 JUMP IF CODE IN TABLE ADK A1,1 INCREMENT INDEX RB(N) EDP130 JUMP IF NOT END OF TABLE RB EDP100 JUMP IF ILLEGAL CODE EDP150 EQU * LC A6,CODTAB+17,A1 GET DISPLACEMENT BASE EQU *+2 ADR P,A6 JUMP TO ROUTINE EJECT ************** * * ASTERISK * ************** LAST EQU *-BASE EDP600 LDK A5,'*' LOAD * IN A5 ******** * T * ******** LT EQU *-BASE EDP610 IM EDSUPP EDSUPP NOT=0 CF A14,EDGETN GET CHR FROM ELEMENT LD A1,EDNOTZ LOAD ZERO INDICATOR RF(NZ) EDP670 JUMP IF NOT LEADING ZEROES CWK A6,/30 COMP WITH ZERO RF(E) EDP680 JUMP IF ZERO RF EDP660 *********** * Z * *********** LZ EQU *-BASE EDP650 LDK A5,' ' LOAD SPACE RB EDP610 EJECT ************************************* * MARK NOT ZERO AND STORE CHARACTER * ************************************* EDP660 IM EDNOTZ INCREMENT ZERO INDICATOR LDR A1,A6 A1=CHR FROM ELEMENT LD A6,EDFCH A6=EDFCH RF(Z) EDP665 JUMP IF NOT F CM EDFCH CLEAR EDFCH SCR A6,A7 STORE EDFCH IN BUFFER ADK A7,1 INCREMENT POINTER EDP665 LDR A6,A1 A6=CHR FROM ELEMENT ******************* * STORE CHARACTER * ******************* EDP670 SCR A6,A7 STORE BYTE IN BUFFER ADK A7,1 INCREMENT POINTER EDP725 RB EDP100 CONTINUE ********************* * EDNOTZ=0, CHR=/30 * ********************* EDP680 SUK A4,/54 RB(Z) EDP100 JUMP IF T ***************** * STORE FROM A5 * ***************** EDP700 LDR A6,A5 LOAD CHARACTER TO A6 RB EDP670 JUMP TO STORE EJECT ********************** * . (POINT ROOMLESS) * ********************** L. EQU *-BASE EDP710 LDK A6,'.'+/80 LOAD ROOMLESS POINT EDP720 LD A1,EDSUPP RB(Z) EDP670 JUMP IF NOT SUPPRESSED LD A1,EDNOTZ RB(NZ) EDP670 JUMP IF NOT LEADING ZERO CWK A6,'.'+/80 COMP WITH ROOMLESS POINT RB(E) EDP100 JUMP IF ROOMLESS POINT RF EDP780 ************* * , (COMMA) * ************* LCOMMA EQU *-BASE EDP730 LDK A6,',' LOAD COMMA RB EDP720 *************************** * V (POINT, NOT ROOMLESS) * *************************** LV EQU *-BASE EDP740 LDK A6,'.' LOAD POINT RB EDP720 ************ * 0 (ZERO) * ************ L0 EQU *-BASE EDP750 LDK A6,'0' LOAD ZERO RB EDP660 JUMP TO IM EDNOTZ AND STORE ********** * P * ********** LP EQU *-BASE EDP760 CF A14,EDGETN GET CHR FROM ELEMENT RB EDP100 JUMP BACK ************* * 9 (DIGIT) * ************* L9 EQU *-BASE EDP770 CF A14,EDGETN GET CHR FROM ELEMENT RB EDP660 JUMP TO IM EDNOTZ AND STORE EJECT ************* * B (SPACE) * ************* LB EQU *-BASE EDP780 LDK A6,' ' LOAD SPACE RB EDP670 JUMP TO STORE ******************** * A (IGNORE SPACE) * ******************** LA EQU *-BASE EDP790 CF A14,EDGETA GET CHR FROM ELEMENT IN ASCII CCK A6,' ' COMP WITH SPACE RB(E) EDP725 IGNORE IF SPACE RB EDP660 JUMP TO IM EDNOTZ AND STORE ******************************************** * F (NEXT CHR IS STORED AFTER SUPPRESSION) * ******************************************** LF EQU *-BASE EDP800 LC* A4,EDPPOI GET PICTURE CODE IM EDPPOI INCREMENT POINTER ST A4,EDFCH STORE CHARACTER IN EDFCH IM EDCNTP EDP805 RB EDP725 JUMP BACK EJECT ************ * + (PLUS) * ************ LPLUS EQU *-BASE EDP810 LD A1,EDSIGN GET SIGN RF(NZ) EDP830 JUMP IF POSITIVE EDP820 LDK A6,'-' LOAD MINUS RB EDP670 STORE SIGN IN BUFF EDP830 LDK A6,'+' LOAD PLUS RB EDP670 ************* * - (MINUS) * ************* LMINUS EQU *-BASE EDP840 LD A1,EDSIGN GET SIGN RB(Z) EDP820 STORE MINUS RB EDP780 STORE SPACE ************************************ * S (LEADING ZERO REPLACED BY SIGN)* ************************************ LS EQU *-BASE EDP850 IM EDSUPP MARK SUPPRESSION CF A14,EDGETN GET CHR FROM ELEMENT LD A1,EDNOTZ LOAD ZERO INDICATOR RB(NZ) EDP670 STORE CHR IF NOT ZERO CWK A6,/30 COMP WITH ZERO RB(E) EDP810 JUMP IF EQUAL RB EDP660 IM EDNOTZ AND STORE CHR EJECT ************************* * C:CONDITIONAL PICTURE * ************************* LC EQU *-BASE EDP900 LD A4,EDSIGN LOAD SIGN RB(NZ) EDP725 JUMP BACK IF POSITIVE LD A4,EDPPOI LOAD PICTURE POINTER SU A4,EDCNTP SUB. WITH NEG.NUMBER=; ST A4,EDPPOI STORE NEW POINTER RB EDP725 JUMP BACK * * ************************ * PRINT SPACE IF BLANK * ************************ LD EQU *-BASE IM EDSUPP INDICATE SUPPRESSION CODE CF A14,EDGETA GET DIGIT IN ASCII TO A6 CWK A6,/20 RB(E) EDP670 JUMP IF SPACE RB EDP660 STORE AND INDICATE NOT LEADING ZERO EJECT TABPIC EQU * DATA 'ABCDFP' DATA 'STVZ09' DATA '.,+-*' * CODTAB EQU * BYTE LA,LB BYTE LC,LD BYTE LF,LP BYTE LS,LT BYTE LV,LZ BYTE L0,L9 BYTE L.,LCOMMA BYTE LPLUS,LMINUS BYTE LAST,0 * TABLE EQU * BYTE TXTEL,IMTXT D=0,1 BYTE STXTEL,RETUR 2,3 BYTE RETUR,RETUR 4,5 BYTE RETUR,ENDSUB 6,7 BYTE RETUR,RETUR 8,9 BYTE RETUR,RETUR A,B BYTE RETUR,RETUR C,D BYTE RETUR,COND E,F * TABZON EQU * BYTE RETURN,EDTXT Z=0,1 BYTE EDFILL,EDFILL 2,3 BYTE RETUR,RETUR 4,5 BYTE AFORM,RETUR 6,7 EJECT *************************************** * GET CHARACTER FROM ELEMENT, NUMERIC * *************************************** EDGETN CF A14,EDGETA GET CHR IN ASCII ANK A6,/F MASK OUT ZONE PART ORK A6,/30 MAKE ASCII DIGIT RTN A14 ************************************* * GET CHARACTER FROM ELEMENT, ASCII * ************************************* EDGETA LD A1,EDCNTE LOAD INDEX RF(N) GETBLK JUMP IF NEGATIVE LC* A6,EDEPOI GET CHARACTER IM EDEPOI INCREMENT POINTER GETBCD SRC A1,1 SHIFT CIRCULAR RF(N) GETRGT JUMP IF ODD INDEX LDKL A3,-1 ADS A3,EDEPOI STEP DOWN ELEMENT POINTER SRL A6,4 A6=LEFT DIGIT GETB10 SUK A6,/F RF(Z) GETBLK JUMP IF BLANK ADK A6,/3F MAKE ASCII DIGIT RF GETRTN GETRGT ANK A6,/F A6=RIGHT DIGIT RB GETB10 GETRTN IM EDCNTE INCREMENT INDEX RTN A14 GETBLK LDK A6,/20 A6=SPACE RB GETRTN END
0x0000…002e (0, 0, 400) Head {h00=0x002a, h01=0x0050, text=» IDENT WRITE 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…00ec Head {h00=0x001e, h01=0x0050, text=»* WRITE = WRITE FUNCTION«, t00=0x0000, t01=0x00ce}
0x00ec…00f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f0}
0x00f6…0100 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fa}
0x0100…0122 Head {h00=0x001e, h01=0x0050, text=»* LEVEL #2 77-09-09«, t00=0x0000, t01=0x0104}
0x0122…012c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0126}
0x012c…014e Head {h00=0x001e, h01=0x0050, text=»* RELEASE #7 77-09-09«, t00=0x0000, t01=0x0130}
0x014e…0158 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0152}
0x0158…018c Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0000, t01=0x015c}
0x018c…0196 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0190}
0x0196…01a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000a}
0x01a0…01d6 Head {h00=0x0032, h01=0x0050, text=»* THIS MODULE HANDLES THE EDITING OF DATA AT«, t00=0x0001, t01=0x0014}
0x01d6…01ee Head {h00=0x0014, h01=0x0050, text=»* I/O-REQUESTS«, t00=0x0001, t01=0x004a}
0x01ee…01f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0062}
0x01f8…0202 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x006c}
0x0202…0240 Head {h00=0x003a, h01=0x0050, text=»* PICTURE CONTROLS THE EDITING OF NUMERIC DATA FROM «, t00=0x0001, t01=0x0076}
0x0240…0282 Head {h00=0x003e, h01=0x0050, text=»* BCD-ELEMENTS ONLY, AND CONSISTS OF A CHARACTER STRING.«, t00=0x0001, t01=0x00b4}
0x0282…028c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f6}
0x028c…0296 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0100}
0x0296…02a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x010a}
0x02a0…02ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0114}
0x02ae…02b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0122}
0x02b8…02c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x012c}
0x02c2…02d6 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0001, t01=0x0136}
0x02d6…02ea Head {h00=0x0010, h01=0x0050, text=»* ENTRIES: *«, t00=0x0001, t01=0x014a}
0x02ea…02fe Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0001, t01=0x015e}
0x02fe…0308 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0172}
0x0308…0324 Head {h00=0x0018, h01=0x0050, text=» ENTRY T:WRT,T:WRTZ «, t00=0x0001, t01=0x017c}
0x0324…0340 Head {h00=0x0018, h01=0x0050, text=» ENTRY T:EDT,T:EDTZ «, t00=0x0002, t01=0x0008}
0x0340…034a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0024}
0x034a…0354 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x002e}
0x0354…036a Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0002, t01=0x0038}
0x036a…0380 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS: *«, t00=0x0002, t01=0x004e}
0x0380…0396 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0002, t01=0x0064}
0x0396…03a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x007a}
0x03a0…03b6 Head {h00=0x0012, h01=0x0050, text=» EXTRN PICTAB «, t00=0x0002, t01=0x0084}
0x03b6…03ca Head {h00=0x0010, h01=0x0050, text=» EXTRN T:OPA«, t00=0x0002, t01=0x009a}
0x03ca…03de Head {h00=0x0010, h01=0x0050, text=» EXTRN M:OPA«, t00=0x0002, t01=0x00ae}
0x03de…03f4 Head {h00=0x0012, h01=0x0050, text=» EXTRN CTLTAB «, t00=0x0002, t01=0x00c2}
0x03f4…03fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d8}
0x03fe…0414 Head {h00=0x0012, h01=0x0050, text=»BYTE FORM 8,8 «, t00=0x0002, t01=0x00e2}
0x0414…041e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00f8}
0x041e…0432 Head {h00=0x0010, h01=0x0050, text=»OVERLY EQU 0«, t00=0x0002, t01=0x0102}
0x0432…043c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0116}
0x043c…0452 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0002, t01=0x0120}
0x0452…0468 Head {h00=0x0012, h01=0x0050, text=»* WORK AREAS *«, t00=0x0002, t01=0x0136}
0x0468…047e Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0002, t01=0x014c}
0x047e…0488 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0162}
0x0488…04ac Head {h00=0x0020, h01=0x0050, text=»EDNOTZ DATA 0 ZERO INDICATOR«, t00=0x0002, t01=0x016c}
0x04ac…04d6 Head {h00=0x0026, h01=0x0050, text=»EDSUPP DATA 0 SUPPRESSOR INDICATOR«, t00=0x0002, t01=0x0190}
0x04d6…0506 Head {h00=0x002c, h01=0x0050, text=»EDFCH DATA 0 CHARACTER TO BE STORED IF F«, t00=0x0003, t01=0x002a}
0x0506…052c Head {h00=0x0022, h01=0x0050, text=»EDEPOI DATA 0 ELEMENT POINTER «, t00=0x0003, t01=0x005a}
0x052c…0554 Head {h00=0x0024, h01=0x0050, text=»EDCNTE DATA 0 INDEX FOR ELEMENT «, t00=0x0003, t01=0x0080}
0x0554…057a Head {h00=0x0022, h01=0x0050, text=»EDSIGN DATA 0 SIGN FOR ELEMENT«, t00=0x0003, t01=0x00a8}
0x057a…05a0 Head {h00=0x0022, h01=0x0050, text=»EDPPOI DATA 0 PICTURE POINTER «, t00=0x0003, t01=0x00ce}
0x05a0…05d2 Head {h00=0x002e, h01=0x0050, text=»EDCNTP DATA 0 INDEX FOR PICTURE (2-COMPL.)«, t00=0x0003, t01=0x00f4}
0x05d2…05e0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0126}
0x05e0…05ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0134}
0x05ea…05f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x013e}
0x05f4…05fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0148}
0x05fe…062c Head {h00=0x002a, h01=0x0050, text=»TEDIT LD A10,8,A14 GET RETURN ADDRESS «, t00=0x0003, t01=0x0152}
0x062c…064a Head {h00=0x001a, h01=0x0050, text=» LDR* A9,A10 A9=DEVICE«, t00=0x0003, t01=0x0180}
0x064a…0674 Head {h00=0x0026, h01=0x0050, text=» LD A2,2,A10 A2=ADDRESS TO FORMAT «, t00=0x0004, t01=0x000e}
0x0674…0686 Head {h00=0x000e, h01=0x0050, text=» LDK A1,4 «, t00=0x0004, t01=0x0038}
0x0686…06b4 Head {h00=0x002a, h01=0x0050, text=» ADS A1,8,A14 STORE NEW RETURN ADDRESS«, t00=0x0004, t01=0x004a}
0x06b4…06da Head {h00=0x0022, h01=0x0050, text=» STR A11,A14 SAVE A11 ON STACK«, t00=0x0004, t01=0x0078}
0x06da…06fa Head {h00=0x001c, h01=0x0050, text=» SUKL A14,2 ADJUST STACK«, t00=0x0004, t01=0x009e}
0x06fa…0718 Head {h00=0x001a, h01=0x0050, text=» SUR A11,A11 CLEAR A11«, t00=0x0004, t01=0x00be}
0x0718…0736 Head {h00=0x001a, h01=0x0050, text=» SUR A10,A10 CLEAR A10«, t00=0x0004, t01=0x00dc}
0x0736…0762 Head {h00=0x0028, h01=0x0050, text=»WRIT10 LD A7,2,A8 GET BUFFER ADDRESS«, t00=0x0004, t01=0x00fa}
0x0762…0784 Head {h00=0x001e, h01=0x0050, text=» CF A14,EDITA PERFORM EDIT«, t00=0x0004, t01=0x0126}
0x0784…07b0 Head {h00=0x0028, h01=0x0050, text=» LD A4,2,A8 GET BUFFER START ADDRESS«, t00=0x0004, t01=0x0148}
0x07b0…07da Head {h00=0x0026, h01=0x0050, text=» SUR A7,A4 GET EFF. BUFFER LENGTH «, t00=0x0004, t01=0x0174}
0x07da…0804 Head {h00=0x0026, h01=0x0050, text=» ST A7,4,A8 STORE REQUESTED LENGTH«, t00=0x0005, t01=0x000e}
0x0804…0824 Head {h00=0x001c, h01=0x0050, text=» LDK A4,0 CONTROL WORD=0«, t00=0x0005, t01=0x0038}
0x0824…0848 Head {h00=0x0020, h01=0x0050, text=» SRC A3,1 SHIFT CIRCULAR(D) «, t00=0x0005, t01=0x0058}
0x0848…0876 Head {h00=0x002a, h01=0x0050, text=» RF(NN) WRIT20 JUMP IF NO CONTROL WORD«, t00=0x0005, t01=0x007c}
0x0876…08aa Head {h00=0x0030, h01=0x0050, text=» LD A4,CTLTAB,A1 GET CONTROL WORD FROM TABLE«, t00=0x0005, t01=0x00aa}
0x08aa…08d8 Head {h00=0x002a, h01=0x0050, text=»WRIT20 ST A4,10,A8 STORE CONTROL WORD «, t00=0x0005, t01=0x00de}
0x08d8…08ea Head {h00=0x000e, h01=0x0050, text=» ECR A7,A9«, t00=0x0005, t01=0x010c}
0x08ea…090a Head {h00=0x001c, h01=0x0050, text=» ANK A7,/FF A7=W+R+ORDER«, t00=0x0005, t01=0x011e}
0x090a…0932 Head {h00=0x0024, h01=0x0050, text=» SRC A3,3 SHIFT EOR-MARK TO SIGN«, t00=0x0005, t01=0x013e}
0x0932…095c Head {h00=0x0026, h01=0x0050, text=» RF(NN) WRIT30 JUMP IF END OF LIST«, t00=0x0005, t01=0x0166}
0x095c…097e Head {h00=0x001e, h01=0x0050, text=» ORK A7,/80 INDICATE WAIT «, t00=0x0005, t01=0x0190}
0x097e…0992 Head {h00=0x0010, h01=0x0050, text=»WRIT30 EQU *«, t00=0x0006, t01=0x0022}
0x0992…09b4 Head {h00=0x001e, h01=0x0050, text=» STR A9,A8 STORE FC IN ECB«, t00=0x0006, t01=0x0036}
0x09b4…09d4 Head {h00=0x001c, h01=0x0050, text=» ADKL A14,2 ADJUST STACK«, t00=0x0006, t01=0x0058}
0x09d4…09e4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0006, t01=0x0078}
0x09e4…09f2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0088}
0x09f2…09fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0096}
0x09fc…0a2c Head {h00=0x002c, h01=0x0050, text=»T:EDTZ ADKL A8,1 INDICATE "NO CTL-BYTES"«, t00=0x0006, t01=0x00a0}
0x0a2c…0a36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00d0}
0x0a36…0a50 Head {h00=0x0016, h01=0x0050, text=»T:EDT CF A14,TEDIT«, t00=0x0006, t01=0x00da}
0x0a50…0a64 Head {h00=0x0010, h01=0x0050, text=»EDTRTN EQU *«, t00=0x0006, t01=0x00f4}
0x0a64…0a86 Head {h00=0x001e, h01=0x0050, text=» LD A11,-4,A14 RESTORE A11«, t00=0x0006, t01=0x0108}
0x0a86…0abc Head {h00=0x0032, h01=0x0050, text=» ANKL A8,/FFFE CLEAR "NO CTL-BYTES"-INDICATION«, t00=0x0006, t01=0x012a}
0x0abc…0ad2 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0006, t01=0x0160}
0x0ad2…0ae6 Head {h00=0x0010, h01=0x0050, text=» DATA /C0FF «, t00=0x0006, t01=0x0176}
0x0ae6…0af2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x018a}
0x0af2…0b08 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=0 «, t00=0x0007, t01=0x0008}
0x0b08…0b18 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0007, t01=0x001e}
0x0b18…0b24 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x002e}
0x0b24…0b2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x003a}
0x0b2e…0b5e Head {h00=0x002c, h01=0x0050, text=»T:WRTZ ADKL A8,1 INDICATE "NO CTL-BYTES"«, t00=0x0007, t01=0x0044}
0x0b5e…0b68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0074}
0x0b68…0b82 Head {h00=0x0016, h01=0x0050, text=»T:WRT CF A14,TEDIT«, t00=0x0007, t01=0x007e}
0x0b82…0b94 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0007, t01=0x0098}
0x0b94…0ba6 Head {h00=0x000e, h01=0x0050, text=»* WRITE * «, t00=0x0007, t01=0x00aa}
0x0ba6…0bb8 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0007, t01=0x00bc}
0x0bb8…0bda Head {h00=0x001e, h01=0x0050, text=» LDR A1,A8 SAVE ORIGIN A8 «, t00=0x0007, t01=0x00ce}
0x0bda…0bf0 Head {h00=0x0012, h01=0x0050, text=» ANKL A8,/FFFE«, t00=0x0007, t01=0x00f0}
0x0bf0…0bfc Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0007, t01=0x0106}
0x0bfc…0c0c Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0007, t01=0x0112}
0x0c0c…0c30 Head {h00=0x0020, h01=0x0050, text=» LDR A8,A1 RESTORE ORIGIN A8«, t00=0x0007, t01=0x0122}
0x0c30…0c42 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x0007, t01=0x0146}
0x0c42…0c6c Head {h00=0x0026, h01=0x0050, text=» RB(NN) EDTRTN JUMP IF END OF LIST«, t00=0x0007, t01=0x0158}
0x0c6c…0c94 Head {h00=0x0024, h01=0x0050, text=» SUKL A14,6 MODIFY STACK POINTER«, t00=0x0007, t01=0x0182}
0x0c94…0cb0 Head {h00=0x0018, h01=0x0050, text=» RB WRIT10 CONTINUE «, t00=0x0008, t01=0x001a}
0x0cb0…0cbe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0036}
0x0cbe…0cd2 Head {h00=0x0010, h01=0x0050, text=»EDITA EQU * «, t00=0x0008, t01=0x0044}
0x0cd2…0cee Head {h00=0x0018, h01=0x0050, text=» LDK A3,1 LOAD MASK «, t00=0x0008, t01=0x0058}
0x0cee…0d00 Head {h00=0x000e, h01=0x0050, text=» TM A8,A3 «, t00=0x0008, t01=0x0074}
0x0d00…0d26 Head {h00=0x0022, h01=0x0050, text=» RF(Z) EDIT JUMP IF CTL-BYTES «, t00=0x0008, t01=0x0086}
0x0d26…0d38 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0008, t01=0x00ac}
0x0d38…0d5a Head {h00=0x001e, h01=0x0050, text=» SCR A3,A7 CLEAR 1:ST BYTE«, t00=0x0008, t01=0x00be}
0x0d5a…0d7e Head {h00=0x0020, h01=0x0050, text=» ADK A7,1 INCREMENT POINTER «, t00=0x0008, t01=0x00e0}
0x0d7e…0da2 Head {h00=0x0020, h01=0x0050, text=» SCR A3,A7 CLEAR SECOND BYTE«, t00=0x0008, t01=0x0104}
0x0da2…0dc6 Head {h00=0x0020, h01=0x0050, text=» ADK A7,1 INCREMENT POINTER «, t00=0x0008, t01=0x0128}
0x0dc6…0ddc Head {h00=0x0012, h01=0x0050, text=»EDIT ADK A2,1 «, t00=0x0008, t01=0x014c}
0x0ddc…0dfe Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/FFFE WORD LIMIT «, t00=0x0008, t01=0x0162}
0x0dfe…0e10 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0008, t01=0x0184}
0x0e10…0e32 Head {h00=0x001e, h01=0x0050, text=» LDR* A1,A2 GET WORD TO A1«, t00=0x0009, t01=0x0008}
0x0e32…0e58 Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 INCR. FORMAT POINTER«, t00=0x0009, t01=0x002a}
0x0e58…0e72 Head {h00=0x0016, h01=0x0050, text=» LDR A5,A1 COPY A1«, t00=0x0009, t01=0x0050}
0x0e72…0e98 Head {h00=0x0022, h01=0x0050, text=» ECR A4,A1 CHANGE BYTES TO A4 «, t00=0x0009, t01=0x006a}
0x0e98…0eb4 Head {h00=0x0018, h01=0x0050, text=» ANK A1,/FF A1=CHAR «, t00=0x0009, t01=0x0090}
0x0eb4…0ece Head {h00=0x0016, h01=0x0050, text=» ANK A4,/FF A4=Z+D«, t00=0x0009, t01=0x00ac}
0x0ece…0ee8 Head {h00=0x0016, h01=0x0050, text=» LDR A3,A4 A3=Z+D «, t00=0x0009, t01=0x00c6}
0x0ee8…0efe Head {h00=0x0012, h01=0x0050, text=» SRL A4,4 A4=Z«, t00=0x0009, t01=0x00e0}
0x0efe…0f10 Head {h00=0x000e, h01=0x0050, text=» SUK A4,8 «, t00=0x0009, t01=0x00f6}
0x0f10…0f36 Head {h00=0x0022, h01=0x0050, text=» RF(NN) EDPICT JUMP IF PICTURE«, t00=0x0009, t01=0x0108}
0x0f36…0f62 Head {h00=0x0028, h01=0x0050, text=» LC A6,TABZON+8,A4 GET DISPLACEMENT «, t00=0x0009, t01=0x012e}
0x0f62…0f82 Head {h00=0x001c, h01=0x0050, text=»BASIS EQU *+2 TABLE BASE«, t00=0x0009, t01=0x015a}
0x0f82…0fb4 Head {h00=0x002e, h01=0x0050, text=»EDJMP ADR P,A6 JUMP TO RESPECTIVE ROUTINE «, t00=0x0009, t01=0x017a}
0x0fb4…0fbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x001c}
0x0fbe…0fd8 Head {h00=0x0016, h01=0x0050, text=»RETURN EQU *-BASIS«, t00=0x000a, t01=0x0026}
0x0fd8…0fe8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x000a, t01=0x0040}
0x0fe8…0ff6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0050}
0x0ff6…1006 Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x000a, t01=0x005e}
0x1006…1016 Head {h00=0x000c, h01=0x0050, text=»* TEXT *«, t00=0x000a, t01=0x006e}
0x1016…1026 Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x000a, t01=0x007e}
0x1026…1040 Head {h00=0x0016, h01=0x0050, text=»EDTXT EQU *-BASIS «, t00=0x000a, t01=0x008e}
0x1040…1066 Head {h00=0x0022, h01=0x0050, text=» ANK A3,/F MASK OUT DATA PART «, t00=0x000a, t01=0x00a8}
0x1066…108e Head {h00=0x0024, h01=0x0050, text=» LC A6,TABLE,A3 GET DISPLACEMENT«, t00=0x000a, t01=0x00ce}
0x108e…10ba Head {h00=0x0028, h01=0x0050, text=» RB EDJMP JUMP TO RESPECTIVE ROUTINE«, t00=0x000a, t01=0x00f6}
0x10ba…10e0 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000a, t01=0x0122}
0x10e0…1106 Head {h00=0x0022, h01=0x0050, text=»* SUBFORMAT OR SWITCH FORMAT *«, t00=0x000a, t01=0x0148}
0x1106…112c Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000a, t01=0x016e}
0x112c…1146 (11, 0, 400) Head {h00=0x0016, h01=0x0050, text=»AFORM EQU *-BASIS «, t00=0x000b, t01=0x0004}
0x1146…115c Head {h00=0x0012, h01=0x0050, text=» SUKL A5,/6800«, t00=0x000b, t01=0x001e}
0x115c…118a Head {h00=0x002a, h01=0x0050, text=» ANKL A5,/FFFE MASK OUT INDICATION BIT«, t00=0x000b, t01=0x0034}
0x118a…119c Head {h00=0x000e, h01=0x0050, text=» ADK A5,2 «, t00=0x000b, t01=0x0062}
0x119c…11ae Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x000b, t01=0x0074}
0x11ae…11da Head {h00=0x0028, h01=0x0050, text=» RF(Z) SWITCH JUMP IF SWITCH FORMAT «, t00=0x000b, t01=0x0086}
0x11da…11ee Head {h00=0x0010, h01=0x0050, text=» LDR A10,A10«, t00=0x000b, t01=0x00b2}
0x11ee…1216 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) AFORM1 JUMP IF OCCUPIED «, t00=0x000b, t01=0x00c6}
0x1216…1244 Head {h00=0x002a, h01=0x0050, text=» LDR A10,A2 GET RETURN ADDRESS TO A10 «, t00=0x000b, t01=0x00ee}
0x1244…1256 Head {h00=0x000e, h01=0x0050, text=» RF SWITCH«, t00=0x000b, t01=0x011c}
0x1256…128a Head {h00=0x0030, h01=0x0050, text=»AFORM1 LDR A11,A2 GET RETURN ADDRESS TO A11 «, t00=0x000b, t01=0x012e}
0x128a…12c0 Head {h00=0x0032, h01=0x0050, text=»SWITCH SUR A2,A5 GET ALTERNATIVE FORMAT TO A2 «, t00=0x000b, t01=0x0162}
0x12c0…12da Head {h00=0x0016, h01=0x0050, text=»RETUR EQU *-BASIS «, t00=0x000c, t01=0x0008}
0x12da…12ea Head {h00=0x000c, h01=0x0050, text=» RB EDIT«, t00=0x000c, t01=0x0022}
0x12ea…1306 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x0032}
0x1306…1322 Head {h00=0x0018, h01=0x0050, text=»* END OF SUBFORMAT *«, t00=0x000c, t01=0x004e}
0x1322…133e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x006a}
0x133e…1358 Head {h00=0x0016, h01=0x0050, text=»ENDSUB EQU *-BASIS«, t00=0x000c, t01=0x0086}
0x1358…136c Head {h00=0x0010, h01=0x0050, text=» LDR A11,A11«, t00=0x000c, t01=0x00a0}
0x136c…138c Head {h00=0x001c, h01=0x0050, text=» RF(Z) ENDS10 JUMP IF 0 «, t00=0x000c, t01=0x00b4}
0x138c…13bc Head {h00=0x002c, h01=0x0050, text=» LDR A2,A11 GET RETURN ADDRESS FROM A11 «, t00=0x000c, t01=0x00d4}
0x13bc…13da Head {h00=0x001a, h01=0x0050, text=» SUR A11,A11 CLEAR A11«, t00=0x000c, t01=0x0104}
0x13da…13ea Head {h00=0x000c, h01=0x0050, text=» RB EDIT«, t00=0x000c, t01=0x0122}
0x13ea…1404 Head {h00=0x0016, h01=0x0050, text=»ENDS10 LDR A10,A10«, t00=0x000c, t01=0x0132}
0x1404…142c Head {h00=0x0024, h01=0x0050, text=» RB(Z) EDIT JUMP IF NO SUB CALL «, t00=0x000c, t01=0x014c}
0x142c…145c Head {h00=0x002c, h01=0x0050, text=» LDR A2,A10 GET RETURN ADDRESS FROM A10 «, t00=0x000c, t01=0x0174}
0x145c…147a Head {h00=0x001a, h01=0x0050, text=» SUR A10,A10 CLEAR A10«, t00=0x000d, t01=0x0014}
0x147a…148e Head {h00=0x0010, h01=0x0050, text=»ENDS50 EQU *«, t00=0x000d, t01=0x0032}
0x148e…149e Head {h00=0x000c, h01=0x0050, text=» RB EDIT«, t00=0x000d, t01=0x0046}
0x149e…14b8 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x000d, t01=0x0056}
0x14b8…14d2 Head {h00=0x0016, h01=0x0050, text=»* IMMEDIATE TEXT *«, t00=0x000d, t01=0x0070}
0x14d2…14ec Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x000d, t01=0x008a}
0x14ec…1514 Head {h00=0x0024, h01=0x0050, text=»IMTXT EQU *-BASIS IMMEDIATE TEXT«, t00=0x000d, t01=0x00a4}
0x1514…153a Head {h00=0x0022, h01=0x0050, text=»EDT100 SUK A1,1 DECREMENT CHAR«, t00=0x000d, t01=0x00cc}
0x153a…155e Head {h00=0x0020, h01=0x0050, text=» RB(N) EDIT JUMP IF ALL DONE«, t00=0x000d, t01=0x00f2}
0x155e…157e Head {h00=0x001c, h01=0x0050, text=» LCR A6,A2 GET CHARACTER«, t00=0x000d, t01=0x0116}
0x157e…159c Head {h00=0x001a, h01=0x0050, text=» ADK A2,1 STEP POINTER«, t00=0x000d, t01=0x0136}
0x159c…15c4 Head {h00=0x0024, h01=0x0050, text=» SCR A6,A7 STORE BYTE IN BUFFER «, t00=0x000d, t01=0x0154}
0x15c4…15e8 Head {h00=0x0020, h01=0x0050, text=» ADK A7,1 INCREMENT POINTER «, t00=0x000d, t01=0x017c}
0x15e8…160c Head {h00=0x0020, h01=0x0050, text=» RB EDT100 JUMP TO CONTINUE «, t00=0x000e, t01=0x0010}
0x160c…162c Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000e, t01=0x0034}
0x162c…164c Head {h00=0x001c, h01=0x0050, text=»* SPECIAL TEXT ELEMENT *«, t00=0x000e, t01=0x0054}
0x164c…166c Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000e, t01=0x0074}
0x166c…1686 Head {h00=0x0016, h01=0x0050, text=»STXTEL EQU *-BASIS«, t00=0x000e, t01=0x0094}
0x1686…16a0 Head {h00=0x0016, h01=0x0050, text=» LDR A3,A7 SAVE A7«, t00=0x000e, t01=0x00ae}
0x16a0…16c2 Head {h00=0x001e, h01=0x0050, text=» LDR A7,A1 LOAD CHAR IN A7«, t00=0x000e, t01=0x00c8}
0x16c2…16e0 Head {h00=0x001a, h01=0x0050, text=» ST A13,SVA13 SAVE A13«, t00=0x000e, t01=0x00ea}
0x16e0…1704 Head {h00=0x0020, h01=0x0050, text=» LD A13,-2,A13 GET NEW BASE «, t00=0x000e, t01=0x0108}
0x1704…171a Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=0 «, t00=0x000e, t01=0x012c}
0x171a…1746 Head {h00=0x0028, h01=0x0050, text=» CF A14,T:OPA GET ELEMENT PARAMETERS«, t00=0x000e, t01=0x0142}
0x1746…1752 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x016e}
0x1752…1768 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x000e, t01=0x017a}
0x1768…1792 Head {h00=0x0026, h01=0x0050, text=» CF A14,M:OPA GET ELEMENT ADDRESS «, t00=0x000e, t01=0x0190}
0x1792…179e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x002a}
0x179e…17b2 Head {h00=0x0010, h01=0x0050, text=» LDKL A13,0 «, t00=0x000f, t01=0x0036}
0x17b2…17c8 Head {h00=0x0012, h01=0x0050, text=»SVA13 EQU *-2 «, t00=0x000f, t01=0x004a}
0x17c8…17da Head {h00=0x000e, h01=0x0050, text=» RF EDT205«, t00=0x000f, t01=0x0060}
0x17da…17f2 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x000f, t01=0x0072}
0x17f2…180a Head {h00=0x0014, h01=0x0050, text=»* TEXT ELEMENT *«, t00=0x000f, t01=0x008a}
0x180a…1822 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x000f, t01=0x00a2}
0x1822…1848 Head {h00=0x0022, h01=0x0050, text=»TXTEL EQU *-BASIS TEXT ELEMENT«, t00=0x000f, t01=0x00ba}
0x1848…1868 Head {h00=0x001c, h01=0x0050, text=»EDT200 LDR A3,A7 SAVE A7«, t00=0x000f, t01=0x00e0}
0x1868…1896 Head {h00=0x002a, h01=0x0050, text=» LDR A7,A1 LOAD EL.IDENTIFICATOR IN A7«, t00=0x000f, t01=0x0100}
0x1896…18ac Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=0 «, t00=0x000f, t01=0x012e}
0x18ac…18d8 Head {h00=0x0028, h01=0x0050, text=» CF A14,T:OPA GET ELEMENT PARAMETERS«, t00=0x000f, t01=0x0144}
0x18d8…18e4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0170}
0x18e4…18fa Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x000f, t01=0x017c}
0x18fa…1926 (16, 0, 400) Head {h00=0x0028, h01=0x0050, text=» CF A14,M:OPA GET ELEMENT PARAMETERS«, t00=0x0010, t01=0x0004}
0x1926…1932 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0030}
0x1932…1946 Head {h00=0x0010, h01=0x0050, text=»EDT205 EQU *«, t00=0x0010, t01=0x003c}
0x1946…1964 Head {h00=0x001a, h01=0x0050, text=» LDR A7,A3 RESTORE A7 «, t00=0x0010, t01=0x0050}
0x1964…198a Head {h00=0x0022, h01=0x0050, text=» ADR A6,A1 ADD 2-COMPL. LENGTH«, t00=0x0010, t01=0x006e}
0x198a…19b0 Head {h00=0x0022, h01=0x0050, text=» ADK A6,1 GET ELEMENT ADDRESS «, t00=0x0010, t01=0x0094}
0x19b0…19d8 Head {h00=0x0024, h01=0x0050, text=»EDT210 ADK A1,1 INCREMENT COUNT «, t00=0x0010, t01=0x00ba}
0x19d8…19fc Head {h00=0x0020, h01=0x0050, text=» RB(P) EDIT JUMP IF FINISHED«, t00=0x0010, t01=0x00e2}
0x19fc…1a22 Head {h00=0x0022, h01=0x0050, text=» LCR A5,A6 GET ASCII-CHARACTER«, t00=0x0010, t01=0x0106}
0x1a22…1a4e Head {h00=0x0028, h01=0x0050, text=» ADK A6,1 INCREMENT ELEMENT POINTER «, t00=0x0010, t01=0x012c}
0x1a4e…1a62 Head {h00=0x0010, h01=0x0050, text=» ANK A5,/FF «, t00=0x0010, t01=0x0158}
0x1a62…1a82 Head {h00=0x001c, h01=0x0050, text=» RB(Z) EDT210 JUMP IF 00«, t00=0x0010, t01=0x016c}
0x1a82…1aaa Head {h00=0x0024, h01=0x0050, text=» SCR A5,A7 STORE BYTE IN BUFFER «, t00=0x0010, t01=0x018c}
0x1aaa…1ad4 Head {h00=0x0026, h01=0x0050, text=» ADK A7,1 INCREMENT BUFFER POINTER«, t00=0x0011, t01=0x0024}
0x1ad4…1ae6 Head {h00=0x000e, h01=0x0050, text=» RB EDT210«, t00=0x0011, t01=0x004e}
0x1ae6…1af8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0011, t01=0x0060}
0x1af8…1b0a Head {h00=0x000e, h01=0x0050, text=»* FILLER *«, t00=0x0011, t01=0x0072}
0x1b0a…1b1c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0011, t01=0x0084}
0x1b1c…1b36 Head {h00=0x0016, h01=0x0050, text=»EDFILL EQU *-BASIS«, t00=0x0011, t01=0x0096}
0x1b36…1b5e Head {h00=0x0024, h01=0x0050, text=»EDF100 SUK A1,1 STEP DOWN "CHAR"«, t00=0x0011, t01=0x00b0}
0x1b5e…1b82 Head {h00=0x0020, h01=0x0050, text=» RB(N) EDIT JUMP IF FINISHED«, t00=0x0011, t01=0x00d8}
0x1b82…1baa Head {h00=0x0024, h01=0x0050, text=» SCR A3,A7 STORE BYTE IN BUFFER «, t00=0x0011, t01=0x00fc}
0x1baa…1bce Head {h00=0x0020, h01=0x0050, text=» ADK A7,1 INCREMENT POINTER «, t00=0x0011, t01=0x0124}
0x1bce…1bf2 Head {h00=0x0020, h01=0x0050, text=» RB EDF100 CONTINUE TO LOOP «, t00=0x0011, t01=0x0148}
0x1bf2…1c10 Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0011, t01=0x016c}
0x1c10…1c2e Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL FORMAT *«, t00=0x0011, t01=0x018a}
0x1c2e…1c4c Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0012, t01=0x0018}
0x1c4c…1c64 Head {h00=0x0014, h01=0x0050, text=»COND EQU *-BASIS«, t00=0x0012, t01=0x0036}
0x1c64…1c7e Head {h00=0x0016, h01=0x0050, text=» LDR A3,A7 SAVE A7«, t00=0x0012, t01=0x004e}
0x1c7e…1caa Head {h00=0x0028, h01=0x0050, text=» LDR A7,A1 GET ELEMENT ADDRESS TO A7«, t00=0x0012, t01=0x0068}
0x1caa…1cc0 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=0 «, t00=0x0012, t01=0x0094}
0x1cc0…1cec Head {h00=0x0028, h01=0x0050, text=» CF A14,T:OPA GET ELEMENT PARAMETERS«, t00=0x0012, t01=0x00aa}
0x1cec…1cf8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x00d6}
0x1cf8…1d0e Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0012, t01=0x00e2}
0x1d0e…1d3a Head {h00=0x0028, h01=0x0050, text=» CF A14,M:OPA GET ELEMENT PARAMETERS«, t00=0x0012, t01=0x00f8}
0x1d3a…1d46 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0124}
0x1d46…1d64 Head {h00=0x001a, h01=0x0050, text=» LDR A7,A3 RESTORE A7 «, t00=0x0012, t01=0x0130}
0x1d64…1d80 Head {h00=0x0018, h01=0x0050, text=» LCR A1,A6 GET SIGN «, t00=0x0012, t01=0x014e}
0x1d80…1da0 Head {h00=0x001c, h01=0x0050, text=» ANK A1,/F MASK OUT SIGN«, t00=0x0012, t01=0x016a}
0x1da0…1db2 Head {h00=0x000e, h01=0x0050, text=» SUK A1,/D«, t00=0x0012, t01=0x018a}
0x1db2…1dd8 Head {h00=0x0022, h01=0x0050, text=» RB(NZ) EDIT JUMP IF POSITIVE «, t00=0x0013, t01=0x000c}
0x1dd8…1e06 Head {h00=0x002a, h01=0x0050, text=» ADK A2,2 JUMP TO NEXT WORD IN FORMAT «, t00=0x0013, t01=0x0032}
0x1e06…1e16 Head {h00=0x000c, h01=0x0050, text=» RB EDIT«, t00=0x0013, t01=0x0060}
0x1e16…1e24 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0070}
0x1e24…1e38 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0013, t01=0x007e}
0x1e38…1e4c Head {h00=0x0010, h01=0x0050, text=»* PICTURE * «, t00=0x0013, t01=0x0092}
0x1e4c…1e60 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0013, t01=0x00a6}
0x1e60…1e92 Head {h00=0x002e, h01=0x0050, text=»EDPICT ANK A3,/7F MASK OUT PICTURE NUMBER «, t00=0x0013, t01=0x00ba}
0x1e92…1eb6 Head {h00=0x0020, h01=0x0050, text=» SLL A3,2 PICTURE NUMBER * 4«, t00=0x0013, t01=0x00ec}
0x1eb6…1ee4 Head {h00=0x002a, h01=0x0050, text=» LD A4,PICTAB+2,A3 GET STRING ADDRESS «, t00=0x0013, t01=0x0110}
0x1ee4…1f0e Head {h00=0x0026, h01=0x0050, text=» LD A3,PICTAB,A3 GET CONTROL WORD «, t00=0x0013, t01=0x013e}
0x1f0e…1f2c Head {h00=0x001a, h01=0x0050, text=» ST A3,EDEPOI SAVE A3 «, t00=0x0013, t01=0x0168}
0x1f2c…1f40 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0013, t01=0x0186}
0x1f40…1f6c Head {h00=0x0028, h01=0x0050, text=» ST A4,EDPPOI STORE PICTURE POINTER «, t00=0x0014, t01=0x000a}
0x1f6c…1f8e Head {h00=0x001e, h01=0x0050, text=» NGR A3,A3 NEGATE REGISTER«, t00=0x0014, t01=0x0036}
0x1f8e…1fbc Head {h00=0x002a, h01=0x0050, text=» ST A3,EDCNTP STORE LENGTH I COUNTER «, t00=0x0014, t01=0x0058}
0x1fbc…1fd6 Head {h00=0x0016, h01=0x0050, text=» LDR A3,A7 SAVE A7«, t00=0x0014, t01=0x0086}
0x1fd6…2000 Head {h00=0x0026, h01=0x0050, text=» LDR A7,A1 GET EL. INDICATOR TO A7«, t00=0x0014, t01=0x00a0}
0x2000…2016 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=0 «, t00=0x0014, t01=0x00ca}
0x2016…2042 Head {h00=0x0028, h01=0x0050, text=» CF A14,T:OPA GET ELEMENT PARAMETERS«, t00=0x0014, t01=0x00e0}
0x2042…204e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x010c}
0x204e…2064 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0014, t01=0x0118}
0x2064…207a Head {h00=0x0012, h01=0x0050, text=» CF A14,M:OPA «, t00=0x0014, t01=0x012e}
0x207a…2086 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0144}
0x2086…20a4 Head {h00=0x001a, h01=0x0050, text=» LDR A7,A3 RESTORE A7 «, t00=0x0014, t01=0x0150}
0x20a4…20bc Head {h00=0x0014, h01=0x0050, text=» LCR A4,A6 SIGN «, t00=0x0014, t01=0x016e}
0x20bc…20dc Head {h00=0x001c, h01=0x0050, text=» ANK A4,/F MASK OUT SIGN«, t00=0x0014, t01=0x0186}
0x20dc…2108 Head {h00=0x0028, h01=0x0050, text=» SUK A4,/D SUBTRACT WITH MINUS SIGN «, t00=0x0015, t01=0x0016}
0x2108…2136 Head {h00=0x002a, h01=0x0050, text=» ST A4,EDSIGN STORE IN SIGN INDICATOR «, t00=0x0015, t01=0x0042}
0x2136…2166 Head {h00=0x002c, h01=0x0050, text=» NGR A1,A1 GET POSITIVE LENGTH IN BYTES «, t00=0x0015, t01=0x0070}
0x2166…2178 Head {h00=0x000e, h01=0x0050, text=» SUR A6,A1«, t00=0x0015, t01=0x00a0}
0x2178…21a4 Head {h00=0x0028, h01=0x0050, text=» ADK A6,1 GET ELEMENT START ADDRESS «, t00=0x0015, t01=0x00b2}
0x21a4…21ce Head {h00=0x0026, h01=0x0050, text=» SLL A1,1 LENGTH IN BCD INCL. SIGN«, t00=0x0015, t01=0x00de}
0x21ce…21f8 Head {h00=0x0026, h01=0x0050, text=» SUK A1,1 LENGTH IN BCD EXCL. SIGN«, t00=0x0015, t01=0x0108}
0x21f8…221a Head {h00=0x001e, h01=0x0050, text=» LC A3,EDEPOI GET SAVED A3«, t00=0x0015, t01=0x0132}
0x221a…224c Head {h00=0x002e, h01=0x0050, text=» ANK A3,/FF GET NUMBER OF DIGITS TO FETCH «, t00=0x0015, t01=0x0154}
0x224c…2262 Head {h00=0x0012, h01=0x0050, text=» SUR A1,A3 L-N«, t00=0x0015, t01=0x0186}
0x2262…228c Head {h00=0x0026, h01=0x0050, text=» ST A1,EDCNTE STORE ELEMENT INDEX «, t00=0x0016, t01=0x000c}
0x228c…22a2 Head {h00=0x0012, h01=0x0050, text=» RF(NP) EDP050«, t00=0x0016, t01=0x0036}
0x22a2…22c2 Head {h00=0x001c, h01=0x0050, text=» SRL A1,1 DIVIDE WITH 2 «, t00=0x0016, t01=0x004c}
0x22c2…22d4 Head {h00=0x000e, h01=0x0050, text=» ADR A6,A1«, t00=0x0016, t01=0x006c}
0x22d4…2306 Head {h00=0x002e, h01=0x0050, text=»EDP050 ST A6,EDEPOI STORE ELEMENT POINTER «, t00=0x0016, t01=0x007e}
0x2306…2328 Head {h00=0x001e, h01=0x0050, text=» CM EDNOTZ CLEAR ZEROMARK «, t00=0x0016, t01=0x00b0}
0x2328…2346 Head {h00=0x001a, h01=0x0050, text=» CM EDFCH CLEAR EDFCH «, t00=0x0016, t01=0x00d2}
0x2346…2370 Head {h00=0x0026, h01=0x0050, text=» CM EDSUPP CLEAR SUPPR. INDICATOR «, t00=0x0016, t01=0x00f0}
0x2370…238a Head {h00=0x0016, h01=0x0050, text=» LDK A6,0 CLEAR A6«, t00=0x0016, t01=0x011a}
0x238a…23b2 Head {h00=0x0024, h01=0x0050, text=»EDP100 IM EDCNTP INCREMENT COUNT«, t00=0x0016, t01=0x0134}
0x23b2…23d8 Head {h00=0x0022, h01=0x0050, text=» RB(P) ENDS50 JUMP IF ALL DONE«, t00=0x0016, t01=0x015c}
0x23d8…2400 Head {h00=0x0024, h01=0x0050, text=» LC* A4,EDPPOI GET PICTURE CODE «, t00=0x0016, t01=0x0182}
0x2400…2414 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0017, t01=0x001a}
0x2414…2438 Head {h00=0x0020, h01=0x0050, text=» IM EDPPOI INCREMENT POINTER«, t00=0x0017, t01=0x002e}
0x2438…2458 Head {h00=0x001c, h01=0x0050, text=» LDK A1,/80 LOAD TO MASK«, t00=0x0017, t01=0x0052}
0x2458…2486 Head {h00=0x002a, h01=0x0050, text=» TM A1,A4 TEST ON LEFTMOST BIT IN CODE«, t00=0x0017, t01=0x0072}
0x2486…24aa Head {h00=0x0020, h01=0x0050, text=» RF(Z) EDP120 JUMP IF BIT=0 «, t00=0x0017, t01=0x00a0}
0x24aa…24ca Head {h00=0x001c, h01=0x0050, text=» LDR A6,A4 A6=ASCII-CODE«, t00=0x0017, t01=0x00c4}
0x24ca…24de Head {h00=0x0010, h01=0x0050, text=» ANK A6,/7F «, t00=0x0017, t01=0x00e4}
0x24de…250c Head {h00=0x002a, h01=0x0050, text=»EDP110 SCR A6,A7 STORE BYTE IN BUFFER «, t00=0x0017, t01=0x00f8}
0x250c…2530 Head {h00=0x0020, h01=0x0050, text=» ADK A7,1 INCREMENT POINTER «, t00=0x0017, t01=0x0126}
0x2530…254c Head {h00=0x0018, h01=0x0050, text=» RB EDP100 CONTINUE «, t00=0x0017, t01=0x014a}
0x254c…2578 Head {h00=0x0028, h01=0x0050, text=»EDP120 LDKL A1,-17 LOAD START INDEX «, t00=0x0017, t01=0x0166}
0x2578…259a (24, 0, 400) Head {h00=0x001e, h01=0x0050, text=»EDP130 CC A4,TABPIC+17,A1 «, t00=0x0018, t01=0x0004}
0x259a…25c6 Head {h00=0x0028, h01=0x0050, text=» RF(E) EDP150 JUMP IF CODE IN TABLE «, t00=0x0018, t01=0x0026}
0x25c6…25e8 Head {h00=0x001e, h01=0x0050, text=» ADK A1,1 INCREMENT INDEX «, t00=0x0018, t01=0x0052}
0x25e8…2616 Head {h00=0x002a, h01=0x0050, text=» RB(N) EDP130 JUMP IF NOT END OF TABLE«, t00=0x0018, t01=0x0074}
0x2616…263e Head {h00=0x0024, h01=0x0050, text=» RB EDP100 JUMP IF ILLEGAL CODE «, t00=0x0018, t01=0x00a2}
0x263e…2652 Head {h00=0x0010, h01=0x0050, text=»EDP150 EQU *«, t00=0x0018, t01=0x00ca}
0x2652…267e Head {h00=0x0028, h01=0x0050, text=» LC A6,CODTAB+17,A1 GET DISPLACEMENT«, t00=0x0018, t01=0x00de}
0x267e…2692 Head {h00=0x0010, h01=0x0050, text=»BASE EQU *+2«, t00=0x0018, t01=0x010a}
0x2692…26b4 Head {h00=0x001e, h01=0x0050, text=» ADR P,A6 JUMP TO ROUTINE «, t00=0x0018, t01=0x011e}
0x26b4…26c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0140}
0x26c2…26d8 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0018, t01=0x014e}
0x26d8…26ee Head {h00=0x0012, h01=0x0050, text=»* * ASTERISK *«, t00=0x0018, t01=0x0164}
0x26ee…2704 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0018, t01=0x017a}
0x2704…271c Head {h00=0x0014, h01=0x0050, text=»LAST EQU *-BASE «, t00=0x0018, t01=0x0190}
0x271c…2742 Head {h00=0x0022, h01=0x0050, text=»EDP600 LDK A5,'*' LOAD * IN A5«, t00=0x0019, t01=0x0018}
0x2742…2752 Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0019, t01=0x003e}
0x2752…2762 Head {h00=0x000c, h01=0x0050, text=»* T *«, t00=0x0019, t01=0x004e}
0x2762…2772 Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0019, t01=0x005e}
0x2772…2788 Head {h00=0x0012, h01=0x0050, text=»LT EQU *-BASE «, t00=0x0019, t01=0x006e}
0x2788…27ae Head {h00=0x0022, h01=0x0050, text=»EDP610 IM EDSUPP EDSUPP NOT=0 «, t00=0x0019, t01=0x0084}
0x27ae…27da Head {h00=0x0028, h01=0x0050, text=» CF A14,EDGETN GET CHR FROM ELEMENT «, t00=0x0019, t01=0x00aa}
0x27da…2804 Head {h00=0x0026, h01=0x0050, text=» LD A1,EDNOTZ LOAD ZERO INDICATOR «, t00=0x0019, t01=0x00d6}
0x2804…2836 Head {h00=0x002e, h01=0x0050, text=» RF(NZ) EDP670 JUMP IF NOT LEADING ZEROES «, t00=0x0019, t01=0x0100}
0x2836…2858 Head {h00=0x001e, h01=0x0050, text=» CWK A6,/30 COMP WITH ZERO«, t00=0x0019, t01=0x0132}
0x2858…287a Head {h00=0x001e, h01=0x0050, text=» RF(E) EDP680 JUMP IF ZERO«, t00=0x0019, t01=0x0154}
0x287a…288c Head {h00=0x000e, h01=0x0050, text=» RF EDP660«, t00=0x0019, t01=0x0176}
0x288c…28a0 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0019, t01=0x0188}
0x28a0…28b4 Head {h00=0x0010, h01=0x0050, text=»* Z * «, t00=0x001a, t01=0x000c}
0x28b4…28c8 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x001a, t01=0x0020}
0x28c8…28de Head {h00=0x0012, h01=0x0050, text=»LZ EQU *-BASE «, t00=0x001a, t01=0x0034}
0x28de…2902 Head {h00=0x0020, h01=0x0050, text=»EDP650 LDK A5,' ' LOAD SPACE«, t00=0x001a, t01=0x004a}
0x2902…2914 Head {h00=0x000e, h01=0x0050, text=» RB EDP610«, t00=0x001a, t01=0x006e}
0x2914…2922 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0080}
0x2922…2950 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x001a, t01=0x008e}
0x2950…297e Head {h00=0x002a, h01=0x0050, text=»* MARK NOT ZERO AND STORE CHARACTER * «, t00=0x001a, t01=0x00bc}
0x297e…29ac Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x001a, t01=0x00ea}
0x29ac…29de Head {h00=0x002e, h01=0x0050, text=»EDP660 IM EDNOTZ INCREMENT ZERO INDICATOR «, t00=0x001a, t01=0x0118}
0x29de…2a04 Head {h00=0x0022, h01=0x0050, text=» LDR A1,A6 A1=CHR FROM ELEMENT«, t00=0x001a, t01=0x014a}
0x2a04…2a22 Head {h00=0x001a, h01=0x0050, text=» LD A6,EDFCH A6=EDFCH «, t00=0x001a, t01=0x0170}
0x2a22…2a46 Head {h00=0x0020, h01=0x0050, text=» RF(Z) EDP665 JUMP IF NOT F «, t00=0x001a, t01=0x018e}
0x2a46…2a64 Head {h00=0x001a, h01=0x0050, text=» CM EDFCH CLEAR EDFCH «, t00=0x001b, t01=0x0022}
0x2a64…2a8c Head {h00=0x0024, h01=0x0050, text=» SCR A6,A7 STORE EDFCH IN BUFFER«, t00=0x001b, t01=0x0040}
0x2a8c…2ab0 Head {h00=0x0020, h01=0x0050, text=» ADK A7,1 INCREMENT POINTER «, t00=0x001b, t01=0x0068}
0x2ab0…2adc Head {h00=0x0028, h01=0x0050, text=»EDP665 LDR A6,A1 A6=CHR FROM ELEMENT«, t00=0x001b, t01=0x008c}
0x2adc…2af8 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x001b, t01=0x00b8}
0x2af8…2b14 Head {h00=0x0018, h01=0x0050, text=»* STORE CHARACTER * «, t00=0x001b, t01=0x00d4}
0x2b14…2b30 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x001b, t01=0x00f0}
0x2b30…2b5e Head {h00=0x002a, h01=0x0050, text=»EDP670 SCR A6,A7 STORE BYTE IN BUFFER «, t00=0x001b, t01=0x010c}
0x2b5e…2b82 Head {h00=0x0020, h01=0x0050, text=» ADK A7,1 INCREMENT POINTER «, t00=0x001b, t01=0x013a}
0x2b82…2ba4 Head {h00=0x001e, h01=0x0050, text=»EDP725 RB EDP100 CONTINUE «, t00=0x001b, t01=0x015e}
0x2ba4…2bc2 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x001b, t01=0x0180}
0x2bc2…2be0 Head {h00=0x001a, h01=0x0050, text=»* EDNOTZ=0, CHR=/30 * «, t00=0x001c, t01=0x000e}
0x2be0…2bfe Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x001c, t01=0x002c}
0x2bfe…2c18 Head {h00=0x0016, h01=0x0050, text=»EDP680 SUK A4,/54 «, t00=0x001c, t01=0x004a}
0x2c18…2c38 Head {h00=0x001c, h01=0x0050, text=» RB(Z) EDP100 JUMP IF T «, t00=0x001c, t01=0x0064}
0x2c38…2c52 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x001c, t01=0x0084}
0x2c52…2c6c Head {h00=0x0016, h01=0x0050, text=»* STORE FROM A5 * «, t00=0x001c, t01=0x009e}
0x2c6c…2c86 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x001c, t01=0x00b8}
0x2c86…2cb4 Head {h00=0x002a, h01=0x0050, text=»EDP700 LDR A6,A5 LOAD CHARACTER TO A6 «, t00=0x001c, t01=0x00d2}
0x2cb4…2cd4 Head {h00=0x001c, h01=0x0050, text=» RB EDP670 JUMP TO STORE«, t00=0x001c, t01=0x0100}
0x2cd4…2ce2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0120}
0x2ce2…2d00 Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x001c, t01=0x012e}
0x2d00…2d1e Head {h00=0x001a, h01=0x0050, text=»* . (POINT ROOMLESS) *«, t00=0x001c, t01=0x014c}
0x2d1e…2d3c Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x001c, t01=0x016a}
0x2d3c…2d52 Head {h00=0x0012, h01=0x0050, text=»L. EQU *-BASE «, t00=0x001c, t01=0x0188}
0x2d52…2d84 Head {h00=0x002e, h01=0x0050, text=»EDP710 LDK A6,'.'+/80 LOAD ROOMLESS POINT «, t00=0x001d, t01=0x000e}
0x2d84…2da0 Head {h00=0x0018, h01=0x0050, text=»EDP720 LD A1,EDSUPP «, t00=0x001d, t01=0x0040}
0x2da0…2dcc Head {h00=0x0028, h01=0x0050, text=» RB(Z) EDP670 JUMP IF NOT SUPPRESSED«, t00=0x001d, t01=0x005c}
0x2dcc…2de2 Head {h00=0x0012, h01=0x0050, text=» LD A1,EDNOTZ «, t00=0x001d, t01=0x0088}
0x2de2…2e12 Head {h00=0x002c, h01=0x0050, text=» RB(NZ) EDP670 JUMP IF NOT LEADING ZERO «, t00=0x001d, t01=0x009e}
0x2e12…2e42 Head {h00=0x002c, h01=0x0050, text=» CWK A6,'.'+/80 COMP WITH ROOMLESS POINT«, t00=0x001d, t01=0x00ce}
0x2e42…2e6e Head {h00=0x0028, h01=0x0050, text=» RB(E) EDP100 JUMP IF ROOMLESS POINT«, t00=0x001d, t01=0x00fe}
0x2e6e…2e80 Head {h00=0x000e, h01=0x0050, text=» RF EDP780«, t00=0x001d, t01=0x012a}
0x2e80…2e96 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x001d, t01=0x013c}
0x2e96…2eac Head {h00=0x0012, h01=0x0050, text=»* , (COMMA) * «, t00=0x001d, t01=0x0152}
0x2eac…2ec2 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x001d, t01=0x0168}
0x2ec2…2edc Head {h00=0x0016, h01=0x0050, text=»LCOMMA EQU *-BASE «, t00=0x001d, t01=0x017e}
0x2edc…2f00 Head {h00=0x0020, h01=0x0050, text=»EDP730 LDK A6,',' LOAD COMMA«, t00=0x001e, t01=0x0008}
0x2f00…2f12 Head {h00=0x000e, h01=0x0050, text=» RB EDP720«, t00=0x001e, t01=0x002c}
0x2f12…2f36 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x001e, t01=0x003e}
0x2f36…2f5a Head {h00=0x0020, h01=0x0050, text=»* V (POINT, NOT ROOMLESS) * «, t00=0x001e, t01=0x0062}
0x2f5a…2f7e Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x001e, t01=0x0086}
0x2f7e…2f94 Head {h00=0x0012, h01=0x0050, text=»LV EQU *-BASE «, t00=0x001e, t01=0x00aa}
0x2f94…2fb8 Head {h00=0x0020, h01=0x0050, text=»EDP740 LDK A6,'.' LOAD POINT«, t00=0x001e, t01=0x00c0}
0x2fb8…2fca Head {h00=0x000e, h01=0x0050, text=» RB EDP720«, t00=0x001e, t01=0x00e4}
0x2fca…2fde Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x001e, t01=0x00f6}
0x2fde…2ff2 Head {h00=0x0010, h01=0x0050, text=»* 0 (ZERO) *«, t00=0x001e, t01=0x010a}
0x2ff2…3006 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x001e, t01=0x011e}
0x3006…301c Head {h00=0x0012, h01=0x0050, text=»L0 EQU *-BASE «, t00=0x001e, t01=0x0132}
0x301c…3040 Head {h00=0x0020, h01=0x0050, text=»EDP750 LDK A6,'0' LOAD ZERO «, t00=0x001e, t01=0x0148}
0x3040…306e Head {h00=0x002a, h01=0x0050, text=» RB EDP660 JUMP TO IM EDNOTZ AND STORE«, t00=0x001e, t01=0x016c}
0x306e…3080 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001f, t01=0x000a}
0x3080…3092 Head {h00=0x000e, h01=0x0050, text=»* P *«, t00=0x001f, t01=0x001c}
0x3092…30a4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001f, t01=0x002e}
0x30a4…30ba Head {h00=0x0012, h01=0x0050, text=»LP EQU *-BASE «, t00=0x001f, t01=0x0040}
0x30ba…30ec Head {h00=0x002e, h01=0x0050, text=»EDP760 CF A14,EDGETN GET CHR FROM ELEMENT «, t00=0x001f, t01=0x0056}
0x30ec…3108 Head {h00=0x0018, h01=0x0050, text=» RB EDP100 JUMP BACK«, t00=0x001f, t01=0x0088}
0x3108…311e Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x001f, t01=0x00a4}
0x311e…3134 Head {h00=0x0012, h01=0x0050, text=»* 9 (DIGIT) * «, t00=0x001f, t01=0x00ba}
0x3134…314a Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x001f, t01=0x00d0}
0x314a…3160 Head {h00=0x0012, h01=0x0050, text=»L9 EQU *-BASE «, t00=0x001f, t01=0x00e6}
0x3160…3192 Head {h00=0x002e, h01=0x0050, text=»EDP770 CF A14,EDGETN GET CHR FROM ELEMENT «, t00=0x001f, t01=0x00fc}
0x3192…31c0 Head {h00=0x002a, h01=0x0050, text=» RB EDP660 JUMP TO IM EDNOTZ AND STORE«, t00=0x001f, t01=0x012e}
0x31c0…31ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x015c}
0x31ce…31e4 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x001f, t01=0x016a}
0x31e4…31fa Head {h00=0x0012, h01=0x0050, text=»* B (SPACE) * «, t00=0x001f, t01=0x0180}
0x31fa…3210 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0020, t01=0x0008}
0x3210…3226 Head {h00=0x0012, h01=0x0050, text=»LB EQU *-BASE «, t00=0x0020, t01=0x001e}
0x3226…324a Head {h00=0x0020, h01=0x0050, text=»EDP780 LDK A6,' ' LOAD SPACE«, t00=0x0020, t01=0x0034}
0x324a…326a Head {h00=0x001c, h01=0x0050, text=» RB EDP670 JUMP TO STORE«, t00=0x0020, t01=0x0058}
0x326a…3286 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0020, t01=0x0078}
0x3286…32a2 Head {h00=0x0018, h01=0x0050, text=»* A (IGNORE SPACE) *«, t00=0x0020, t01=0x0094}
0x32a2…32be Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0020, t01=0x00b0}
0x32be…32d4 Head {h00=0x0012, h01=0x0050, text=»LA EQU *-BASE «, t00=0x0020, t01=0x00cc}
0x32d4…330e Head {h00=0x0036, h01=0x0050, text=»EDP790 CF A14,EDGETA GET CHR FROM ELEMENT IN ASCII«, t00=0x0020, t01=0x00e2}
0x330e…3332 Head {h00=0x0020, h01=0x0050, text=» CCK A6,' ' COMP WITH SPACE«, t00=0x0020, t01=0x011c}
0x3332…3358 Head {h00=0x0022, h01=0x0050, text=» RB(E) EDP725 IGNORE IF SPACE «, t00=0x0020, t01=0x0140}
0x3358…3386 Head {h00=0x002a, h01=0x0050, text=» RB EDP660 JUMP TO IM EDNOTZ AND STORE«, t00=0x0020, t01=0x0166}
0x3386…33ba (33, 0, 400) Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0021, t01=0x0004}
0x33ba…33ee Head {h00=0x0030, h01=0x0050, text=»* F (NEXT CHR IS STORED AFTER SUPPRESSION) *«, t00=0x0021, t01=0x0038}
0x33ee…3422 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0021, t01=0x006c}
0x3422…3438 Head {h00=0x0012, h01=0x0050, text=»LF EQU *-BASE «, t00=0x0021, t01=0x00a0}
0x3438…3466 Head {h00=0x002a, h01=0x0050, text=»EDP800 LC* A4,EDPPOI GET PICTURE CODE «, t00=0x0021, t01=0x00b6}
0x3466…348a Head {h00=0x0020, h01=0x0050, text=» IM EDPPOI INCREMENT POINTER«, t00=0x0021, t01=0x00e4}
0x348a…34b8 Head {h00=0x002a, h01=0x0050, text=» ST A4,EDFCH STORE CHARACTER IN EDFCH «, t00=0x0021, t01=0x0108}
0x34b8…34ca Head {h00=0x000e, h01=0x0050, text=» IM EDCNTP«, t00=0x0021, t01=0x0136}
0x34ca…34ec Head {h00=0x001e, h01=0x0050, text=»EDP805 RB EDP725 JUMP BACK«, t00=0x0021, t01=0x0148}
0x34ec…34fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x016a}
0x34fa…350e Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0021, t01=0x0178}
0x350e…3522 Head {h00=0x0010, h01=0x0050, text=»* + (PLUS) *«, t00=0x0021, t01=0x018c}
0x3522…3536 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0022, t01=0x0010}
0x3536…354e Head {h00=0x0014, h01=0x0050, text=»LPLUS EQU *-BASE«, t00=0x0022, t01=0x0024}
0x354e…3572 Head {h00=0x0020, h01=0x0050, text=»EDP810 LD A1,EDSIGN GET SIGN«, t00=0x0022, t01=0x003c}
0x3572…359a Head {h00=0x0024, h01=0x0050, text=» RF(NZ) EDP830 JUMP IF POSITIVE «, t00=0x0022, t01=0x0060}
0x359a…35be Head {h00=0x0020, h01=0x0050, text=»EDP820 LDK A6,'-' LOAD MINUS«, t00=0x0022, t01=0x0088}
0x35be…35e4 Head {h00=0x0022, h01=0x0050, text=» RB EDP670 STORE SIGN IN BUFF «, t00=0x0022, t01=0x00ac}
0x35e4…3608 Head {h00=0x0020, h01=0x0050, text=»EDP830 LDK A6,'+' LOAD PLUS«, t00=0x0022, t01=0x00d2}
0x3608…361a Head {h00=0x000e, h01=0x0050, text=» RB EDP670«, t00=0x0022, t01=0x00f6}
0x361a…3630 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0022, t01=0x0108}
0x3630…3646 Head {h00=0x0012, h01=0x0050, text=»* - (MINUS) * «, t00=0x0022, t01=0x011e}
0x3646…365c Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0022, t01=0x0134}
0x365c…3676 Head {h00=0x0016, h01=0x0050, text=»LMINUS EQU *-BASE «, t00=0x0022, t01=0x014a}
0x3676…369a Head {h00=0x0020, h01=0x0050, text=»EDP840 LD A1,EDSIGN GET SIGN«, t00=0x0022, t01=0x0164}
0x369a…36bc Head {h00=0x001e, h01=0x0050, text=» RB(Z) EDP820 STORE MINUS «, t00=0x0022, t01=0x0188}
0x36bc…36da Head {h00=0x001a, h01=0x0050, text=» RB EDP780 STORE SPACE«, t00=0x0023, t01=0x001a}
0x36da…3706 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0023, t01=0x0038}
0x3706…3732 Head {h00=0x0028, h01=0x0050, text=»* S (LEADING ZERO REPLACED BY SIGN)*«, t00=0x0023, t01=0x0064}
0x3732…375e Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0023, t01=0x0090}
0x375e…3774 Head {h00=0x0012, h01=0x0050, text=»LS EQU *-BASE «, t00=0x0023, t01=0x00bc}
0x3774…379e Head {h00=0x0026, h01=0x0050, text=»EDP850 IM EDSUPP MARK SUPPRESSION «, t00=0x0023, t01=0x00d2}
0x379e…37ca Head {h00=0x0028, h01=0x0050, text=» CF A14,EDGETN GET CHR FROM ELEMENT «, t00=0x0023, t01=0x00fc}
0x37ca…37f4 Head {h00=0x0026, h01=0x0050, text=» LD A1,EDNOTZ LOAD ZERO INDICATOR «, t00=0x0023, t01=0x0128}
0x37f4…3820 Head {h00=0x0028, h01=0x0050, text=» RB(NZ) EDP670 STORE CHR IF NOT ZERO«, t00=0x0023, t01=0x0152}
0x3820…3842 Head {h00=0x001e, h01=0x0050, text=» CWK A6,/30 COMP WITH ZERO«, t00=0x0023, t01=0x017e}
0x3842…3866 Head {h00=0x0020, h01=0x0050, text=» RB(E) EDP810 JUMP IF EQUAL «, t00=0x0024, t01=0x0010}
0x3866…3890 Head {h00=0x0026, h01=0x0050, text=» RB EDP660 IM EDNOTZ AND STORE CHR«, t00=0x0024, t01=0x0034}
0x3890…389e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x005e}
0x389e…38c0 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0024, t01=0x006c}
0x38c0…38e2 Head {h00=0x001e, h01=0x0050, text=»* C:CONDITIONAL PICTURE * «, t00=0x0024, t01=0x008e}
0x38e2…3904 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0024, t01=0x00b0}
0x3904…391a Head {h00=0x0012, h01=0x0050, text=»LC EQU *-BASE «, t00=0x0024, t01=0x00d2}
0x391a…3940 Head {h00=0x0022, h01=0x0050, text=»EDP900 LD A4,EDSIGN LOAD SIGN «, t00=0x0024, t01=0x00e8}
0x3940…396c Head {h00=0x0028, h01=0x0050, text=» RB(NZ) EDP725 JUMP BACK IF POSITIVE«, t00=0x0024, t01=0x010e}
0x396c…3996 Head {h00=0x0026, h01=0x0050, text=» LD A4,EDPPOI LOAD PICTURE POINTER«, t00=0x0024, t01=0x013a}
0x3996…39c2 Head {h00=0x0028, h01=0x0050, text=» SU A4,EDCNTP SUB. WITH NEG.NUMBER=;«, t00=0x0024, t01=0x0164}
0x39c2…39ea Head {h00=0x0024, h01=0x0050, text=» ST A4,EDPPOI STORE NEW POINTER «, t00=0x0024, t01=0x0190}
0x39ea…3a06 Head {h00=0x0018, h01=0x0050, text=» RB EDP725 JUMP BACK«, t00=0x0025, t01=0x0028}
0x3a06…3a10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0044}
0x3a10…3a1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x004e}
0x3a1a…3a3a Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0025, t01=0x0058}
0x3a3a…3a5a Head {h00=0x001c, h01=0x0050, text=»* PRINT SPACE IF BLANK *«, t00=0x0025, t01=0x0078}
0x3a5a…3a7a Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0025, t01=0x0098}
0x3a7a…3a90 Head {h00=0x0012, h01=0x0050, text=»LD EQU *-BASE «, t00=0x0025, t01=0x00b8}
0x3a90…3abc Head {h00=0x0028, h01=0x0050, text=» IM EDSUPP INDICATE SUPPRESSION CODE«, t00=0x0025, t01=0x00ce}
0x3abc…3aec Head {h00=0x002c, h01=0x0050, text=» CF A14,EDGETA GET DIGIT IN ASCII TO A6 «, t00=0x0025, t01=0x00fa}
0x3aec…3b00 Head {h00=0x0010, h01=0x0050, text=» CWK A6,/20 «, t00=0x0025, t01=0x012a}
0x3b00…3b24 Head {h00=0x0020, h01=0x0050, text=» RB(E) EDP670 JUMP IF SPACE «, t00=0x0025, t01=0x013e}
0x3b24…3b5a Head {h00=0x0032, h01=0x0050, text=» RB EDP660 STORE AND INDICATE NOT LEADING ZERO«, t00=0x0025, t01=0x0162}
0x3b5a…3b68 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0008}
0x3b68…3b7c Head {h00=0x0010, h01=0x0050, text=»TABPIC EQU *«, t00=0x0026, t01=0x0016}
0x3b7c…3b92 Head {h00=0x0012, h01=0x0050, text=» DATA 'ABCDFP'«, t00=0x0026, t01=0x002a}
0x3b92…3ba8 Head {h00=0x0012, h01=0x0050, text=» DATA 'STVZ09'«, t00=0x0026, t01=0x0040}
0x3ba8…3bbe Head {h00=0x0012, h01=0x0050, text=» DATA '.,+-*' «, t00=0x0026, t01=0x0056}
0x3bbe…3bc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x006c}
0x3bc8…3bdc Head {h00=0x0010, h01=0x0050, text=»CODTAB EQU *«, t00=0x0026, t01=0x0076}
0x3bdc…3bf0 Head {h00=0x0010, h01=0x0050, text=» BYTE LA,LB «, t00=0x0026, t01=0x008a}
0x3bf0…3c04 Head {h00=0x0010, h01=0x0050, text=» BYTE LC,LD «, t00=0x0026, t01=0x009e}
0x3c04…3c18 Head {h00=0x0010, h01=0x0050, text=» BYTE LF,LP «, t00=0x0026, t01=0x00b2}
0x3c18…3c2c Head {h00=0x0010, h01=0x0050, text=» BYTE LS,LT «, t00=0x0026, t01=0x00c6}
0x3c2c…3c40 Head {h00=0x0010, h01=0x0050, text=» BYTE LV,LZ «, t00=0x0026, t01=0x00da}
0x3c40…3c54 Head {h00=0x0010, h01=0x0050, text=» BYTE L0,L9 «, t00=0x0026, t01=0x00ee}
0x3c54…3c6c Head {h00=0x0014, h01=0x0050, text=» BYTE L.,LCOMMA «, t00=0x0026, t01=0x0102}
0x3c6c…3c86 Head {h00=0x0016, h01=0x0050, text=» BYTE LPLUS,LMINUS«, t00=0x0026, t01=0x011a}
0x3c86…3c9a Head {h00=0x0010, h01=0x0050, text=» BYTE LAST,0«, t00=0x0026, t01=0x0134}
0x3c9a…3ca4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0148}
0x3ca4…3cb8 Head {h00=0x0010, h01=0x0050, text=»TABLE EQU * «, t00=0x0026, t01=0x0152}
0x3cb8…3cd8 Head {h00=0x001c, h01=0x0050, text=» BYTE TXTEL,IMTXT D=0,1 «, t00=0x0026, t01=0x0166}
0x3cd8…3cf8 Head {h00=0x001c, h01=0x0050, text=» BYTE STXTEL,RETUR 2,3«, t00=0x0026, t01=0x0186}
0x3cf8…3d18 Head {h00=0x001c, h01=0x0050, text=» BYTE RETUR,RETUR 4,5 «, t00=0x0027, t01=0x0016}
0x3d18…3d38 Head {h00=0x001c, h01=0x0050, text=» BYTE RETUR,ENDSUB 6,7«, t00=0x0027, t01=0x0036}
0x3d38…3d56 Head {h00=0x001a, h01=0x0050, text=» BYTE RETUR,RETUR 8,9 «, t00=0x0027, t01=0x0056}
0x3d56…3d74 Head {h00=0x001a, h01=0x0050, text=» BYTE RETUR,RETUR A,B «, t00=0x0027, t01=0x0074}
0x3d74…3d92 Head {h00=0x001a, h01=0x0050, text=» BYTE RETUR,RETUR C,D «, t00=0x0027, t01=0x0092}
0x3d92…3dae Head {h00=0x0018, h01=0x0050, text=» BYTE RETUR,COND E,F«, t00=0x0027, t01=0x00b0}
0x3dae…3db8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00cc}
0x3db8…3dcc Head {h00=0x0010, h01=0x0050, text=»TABZON EQU *«, t00=0x0027, t01=0x00d6}
0x3dcc…3dec Head {h00=0x001c, h01=0x0050, text=» BYTE RETURN,EDTXT Z=0,1«, t00=0x0027, t01=0x00ea}
0x3dec…3e0e Head {h00=0x001e, h01=0x0050, text=» BYTE EDFILL,EDFILL 2,3 «, t00=0x0027, t01=0x010a}
0x3e0e…3e2e Head {h00=0x001c, h01=0x0050, text=» BYTE RETUR,RETUR 4,5 «, t00=0x0027, t01=0x012c}
0x3e2e…3e4e Head {h00=0x001c, h01=0x0050, text=» BYTE AFORM,RETUR 6,7 «, t00=0x0027, t01=0x014c}
0x3e4e…3e5c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x016c}
0x3e5c…3e8c Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0027, t01=0x017a}
0x3e8c…3ebc Head {h00=0x002c, h01=0x0050, text=»* GET CHARACTER FROM ELEMENT, NUMERIC * «, t00=0x0028, t01=0x001a}
0x3ebc…3eec Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0028, t01=0x004a}
0x3eec…3f1a Head {h00=0x002a, h01=0x0050, text=»EDGETN CF A14,EDGETA GET CHR IN ASCII «, t00=0x0028, t01=0x007a}
0x3f1a…3f40 Head {h00=0x0022, h01=0x0050, text=» ANK A6,/F MASK OUT ZONE PART «, t00=0x0028, t01=0x00a8}
0x3f40…3f64 Head {h00=0x0020, h01=0x0050, text=» ORK A6,/30 MAKE ASCII DIGIT«, t00=0x0028, t01=0x00ce}
0x3f64…3f74 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0028, t01=0x00f2}
0x3f74…3fa2 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0028, t01=0x0102}
0x3fa2…3fd0 Head {h00=0x002a, h01=0x0050, text=»* GET CHARACTER FROM ELEMENT, ASCII * «, t00=0x0028, t01=0x0130}
0x3fd0…3ffe Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0028, t01=0x015e}
0x3ffe…4024 Head {h00=0x0022, h01=0x0050, text=»EDGETA LD A1,EDCNTE LOAD INDEX«, t00=0x0028, t01=0x018c}
0x4024…404a Head {h00=0x0022, h01=0x0050, text=» RF(N) GETBLK JUMP IF NEGATIVE«, t00=0x0029, t01=0x0022}
0x404a…406e Head {h00=0x0020, h01=0x0050, text=» LC* A6,EDEPOI GET CHARACTER«, t00=0x0029, t01=0x0048}
0x406e…4092 Head {h00=0x0020, h01=0x0050, text=» IM EDEPOI INCREMENT POINTER«, t00=0x0029, t01=0x006c}
0x4092…40b8 Head {h00=0x0022, h01=0x0050, text=»GETBCD SRC A1,1 SHIFT CIRCULAR«, t00=0x0029, t01=0x0090}
0x40b8…40e0 Head {h00=0x0024, h01=0x0050, text=» RF(N) GETRGT JUMP IF ODD INDEX «, t00=0x0029, t01=0x00b6}
0x40e0…40f4 Head {h00=0x0010, h01=0x0050, text=» LDKL A3,-1 «, t00=0x0029, t01=0x00de}
0x40f4…4124 Head {h00=0x002c, h01=0x0050, text=» ADS A3,EDEPOI STEP DOWN ELEMENT POINTER«, t00=0x0029, t01=0x00f2}
0x4124…4144 Head {h00=0x001c, h01=0x0050, text=» SRL A6,4 A6=LEFT DIGIT «, t00=0x0029, t01=0x0122}
0x4144…415c Head {h00=0x0014, h01=0x0050, text=»GETB10 SUK A6,/F«, t00=0x0029, t01=0x0142}
0x415c…4180 Head {h00=0x0020, h01=0x0050, text=» RF(Z) GETBLK JUMP IF BLANK «, t00=0x0029, t01=0x015a}
0x4180…41a4 Head {h00=0x0020, h01=0x0050, text=» ADK A6,/3F MAKE ASCII DIGIT«, t00=0x0029, t01=0x017e}
0x41a4…41b6 Head {h00=0x000e, h01=0x0050, text=» RF GETRTN«, t00=0x002a, t01=0x0012}
0x41b6…41de Head {h00=0x0024, h01=0x0050, text=»GETRGT ANK A6,/F A6=RIGHT DIGIT «, t00=0x002a, t01=0x0024}
0x41de…41f0 Head {h00=0x000e, h01=0x0050, text=» RB GETB10«, t00=0x002a, t01=0x004c}
0x41f0…4218 Head {h00=0x0024, h01=0x0050, text=»GETRTN IM EDCNTE INCREMENT INDEX«, t00=0x002a, t01=0x005e}
0x4218…4228 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002a, t01=0x0086}
0x4228…424a Head {h00=0x001e, h01=0x0050, text=»GETBLK LDK A6,/20 A6=SPACE«, t00=0x002a, t01=0x0096}
0x424a…425c Head {h00=0x000e, h01=0x0050, text=» RB GETRTN«, t00=0x002a, t01=0x00b8}
0x425c…4268 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x002a, t01=0x00ca}
0x4268…426c Head {h00=0x4004, h01=0x0000}
0x426c…4270 00 2a 00 d6 ┆ * ┆
0x4270…4278 (43, 1, 8) 20 04 00 00 00 2b 00 04 ┆ + ┆
0x4278…42c8 (44, 0, 400) 00 06 00 50 2a 20 00 14 00 04 00 06 00 50 2a 20 00 14 00 0e 00 34 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 14 00 18 00 06 00 50 ┆ P* P* 4 P************************************************ P┆
0x42c8…4318 2a 20 00 14 00 50 00 06 00 50 2a 20 00 14 00 5a 00 2c 00 50 5c 4c 44 4b 4c 5c 41 35 2c 4d 4f 4e 54 41 42 5c 41 44 44 52 45 53 53 20 54 4f 20 4d 4f 44 55 4c 45 20 54 41 42 4c 45 20 00 14 00 64 00 0e 00 50 5c 53 55 52 5c 41 31 2c 41 31 00 14 ┆* P P* Z , P LDKL A5,MONTAB ADDRESS TO MODULE TABLE d P SUR A1,A1 ┆
0x4318…4368 00 94 00 2c 00 50 5c 53 54 5c 41 31 2c 4e 4f 3a 49 4e 43 5c 4d 4f 44 55 4c 45 53 20 53 48 4f 55 4c 44 20 42 45 20 49 4e 43 4c 55 44 45 44 00 14 00 a6 00 24 00 50 5c 43 46 5c 41 31 34 2c 4d 4f 56 49 4e 43 5c 4d 4f 56 45 20 41 4e 44 20 49 4e ┆ , P ST A1,NO:INC MODULES SHOULD BE INCLUDED $ P CF A14,MOVINC MOVE AND IN┆
0x4368…43b8 43 4c 55 44 45 20 00 14 00 d6 00 18 00 50 5c 49 4d 5c 4e 4f 3a 49 4e 43 5c 4e 4f 20 4f 42 4a 45 43 54 00 14 00 fe 00 28 00 50 5c 4c 44 4b 4c 5c 41 35 2c 4d 4f 3a 56 45 5c 4d 4f 44 55 4c 45 20 54 41 42 4c 45 20 41 44 44 52 45 53 53 20 00 14 ┆CLUDE P IM NO:INC NO OBJECT ( P LDKL A5,MO:VE MODULE TABLE ADDRESS ┆
0x43b8…4408 01 1a 00 26 00 50 5c 43 46 5c 41 31 34 2c 4d 4f 56 49 4e 43 5c 4d 4f 56 45 20 53 4f 55 52 43 45 20 4d 4f 44 55 4c 45 53 00 14 01 46 00 10 00 50 5c 4c 44 5c 41 31 2c 44 54 42 49 54 00 14 01 70 00 24 00 50 5c 52 46 28 5a 29 5c 4e 4f 44 54 4f ┆ & P CF A14,MOVINC MOVE SOURCE MODULES F P LD A1,DTBIT p $ P RF(Z) NODTO┆