|
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: 17348 (0x43c4)
Notes: pts_type(SC)
Names: »WRITE.SC«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/WRITE.SC«
IDENT WRITE REL 8.2 78-09-15 870172840820 * ******************************************* * * PHILIPS TERMINAL SYSTEM PTS * * WRITE = WRITE FUNCTION * * * * * * ******************************************* * * * 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…0034 (0, 0, 398) Head {h00=0x0030, h01=0x0050, text=» IDENT WRITE REL 8.2 78-09-15 870172840820«, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…0046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0040}
0x0046…007a Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0000, t01=0x004a}
0x007a…0084 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x007e}
0x0084…00ac Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x0088}
0x00ac…00b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b0}
0x00b6…00d8 Head {h00=0x001e, h01=0x0050, text=»* WRITE = WRITE FUNCTION«, t00=0x0000, t01=0x00ba}
0x00d8…00e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00dc}
0x00e2…00ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e6}
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…010a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0104}
0x010a…0114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010e}
0x0114…0148 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0000, t01=0x0118}
0x0148…0152 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x014c}
0x0152…015c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0156}
0x015c…0192 Head {h00=0x0032, h01=0x0050, text=»* THIS MODULE HANDLES THE EDITING OF DATA AT«, t00=0x0000, t01=0x0160}
0x0192…01aa Head {h00=0x0014, h01=0x0050, text=»* I/O-REQUESTS«, t00=0x0001, t01=0x0008}
0x01aa…01b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0020}
0x01b4…01be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x002a}
0x01be…01fc Head {h00=0x003a, h01=0x0050, text=»* PICTURE CONTROLS THE EDITING OF NUMERIC DATA FROM «, t00=0x0001, t01=0x0034}
0x01fc…023e Head {h00=0x003e, h01=0x0050, text=»* BCD-ELEMENTS ONLY, AND CONSISTS OF A CHARACTER STRING.«, t00=0x0001, t01=0x0072}
0x023e…0248 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b4}
0x0248…0252 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00be}
0x0252…025c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c8}
0x025c…026a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x00d2}
0x026a…0274 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e0}
0x0274…027e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ea}
0x027e…0292 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0001, t01=0x00f4}
0x0292…02a6 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES: *«, t00=0x0001, t01=0x0108}
0x02a6…02ba Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0001, t01=0x011c}
0x02ba…02c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0130}
0x02c4…02e0 Head {h00=0x0018, h01=0x0050, text=» ENTRY T:WRT,T:WRTZ «, t00=0x0001, t01=0x013a}
0x02e0…02fc Head {h00=0x0018, h01=0x0050, text=» ENTRY T:EDT,T:EDTZ «, t00=0x0001, t01=0x0156}
0x02fc…0306 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0172}
0x0306…0310 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x017c}
0x0310…0326 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0001, t01=0x0186}
0x0326…033c Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS: *«, t00=0x0002, t01=0x000c}
0x033c…0352 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0002, t01=0x0022}
0x0352…035c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0038}
0x035c…0372 Head {h00=0x0012, h01=0x0050, text=» EXTRN PICTAB «, t00=0x0002, t01=0x0042}
0x0372…0386 Head {h00=0x0010, h01=0x0050, text=» EXTRN T:OPA«, t00=0x0002, t01=0x0058}
0x0386…039a Head {h00=0x0010, h01=0x0050, text=» EXTRN M:OPA«, t00=0x0002, t01=0x006c}
0x039a…03b0 Head {h00=0x0012, h01=0x0050, text=» EXTRN CTLTAB «, t00=0x0002, t01=0x0080}
0x03b0…03ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0096}
0x03ba…03d0 Head {h00=0x0012, h01=0x0050, text=»BYTE FORM 8,8 «, t00=0x0002, t01=0x00a0}
0x03d0…03da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b6}
0x03da…03ee Head {h00=0x0010, h01=0x0050, text=»OVERLY EQU 0«, t00=0x0002, t01=0x00c0}
0x03ee…03f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d4}
0x03f8…040e Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0002, t01=0x00de}
0x040e…0424 Head {h00=0x0012, h01=0x0050, text=»* WORK AREAS *«, t00=0x0002, t01=0x00f4}
0x0424…043a Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0002, t01=0x010a}
0x043a…0444 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0120}
0x0444…0468 Head {h00=0x0020, h01=0x0050, text=»EDNOTZ DATA 0 ZERO INDICATOR«, t00=0x0002, t01=0x012a}
0x0468…0492 Head {h00=0x0026, h01=0x0050, text=»EDSUPP DATA 0 SUPPRESSOR INDICATOR«, t00=0x0002, t01=0x014e}
0x0492…04c2 Head {h00=0x002c, h01=0x0050, text=»EDFCH DATA 0 CHARACTER TO BE STORED IF F«, t00=0x0002, t01=0x0178}
0x04c2…04e8 Head {h00=0x0022, h01=0x0050, text=»EDEPOI DATA 0 ELEMENT POINTER «, t00=0x0003, t01=0x0018}
0x04e8…0510 Head {h00=0x0024, h01=0x0050, text=»EDCNTE DATA 0 INDEX FOR ELEMENT «, t00=0x0003, t01=0x003e}
0x0510…0536 Head {h00=0x0022, h01=0x0050, text=»EDSIGN DATA 0 SIGN FOR ELEMENT«, t00=0x0003, t01=0x0066}
0x0536…055c Head {h00=0x0022, h01=0x0050, text=»EDPPOI DATA 0 PICTURE POINTER «, t00=0x0003, t01=0x008c}
0x055c…058e Head {h00=0x002e, h01=0x0050, text=»EDCNTP DATA 0 INDEX FOR PICTURE (2-COMPL.)«, t00=0x0003, t01=0x00b2}
0x058e…059c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x00e4}
0x059c…05a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00f2}
0x05a6…05b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00fc}
0x05b0…05ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0106}
0x05ba…05e8 Head {h00=0x002a, h01=0x0050, text=»TEDIT LD A10,8,A14 GET RETURN ADDRESS «, t00=0x0003, t01=0x0110}
0x05e8…0606 Head {h00=0x001a, h01=0x0050, text=» LDR* A9,A10 A9=DEVICE«, t00=0x0003, t01=0x013e}
0x0606…0630 Head {h00=0x0026, h01=0x0050, text=» LD A2,2,A10 A2=ADDRESS TO FORMAT «, t00=0x0003, t01=0x015c}
0x0630…0642 Head {h00=0x000e, h01=0x0050, text=» LDK A1,4 «, t00=0x0003, t01=0x0186}
0x0642…0670 Head {h00=0x002a, h01=0x0050, text=» ADS A1,8,A14 STORE NEW RETURN ADDRESS«, t00=0x0004, t01=0x0008}
0x0670…0696 Head {h00=0x0022, h01=0x0050, text=» STR A11,A14 SAVE A11 ON STACK«, t00=0x0004, t01=0x0036}
0x0696…06b6 Head {h00=0x001c, h01=0x0050, text=» SUKL A14,2 ADJUST STACK«, t00=0x0004, t01=0x005c}
0x06b6…06d4 Head {h00=0x001a, h01=0x0050, text=» SUR A11,A11 CLEAR A11«, t00=0x0004, t01=0x007c}
0x06d4…06f2 Head {h00=0x001a, h01=0x0050, text=» SUR A10,A10 CLEAR A10«, t00=0x0004, t01=0x009a}
0x06f2…071e Head {h00=0x0028, h01=0x0050, text=»WRIT10 LD A7,2,A8 GET BUFFER ADDRESS«, t00=0x0004, t01=0x00b8}
0x071e…0740 Head {h00=0x001e, h01=0x0050, text=» CF A14,EDITA PERFORM EDIT«, t00=0x0004, t01=0x00e4}
0x0740…076c Head {h00=0x0028, h01=0x0050, text=» LD A4,2,A8 GET BUFFER START ADDRESS«, t00=0x0004, t01=0x0106}
0x076c…0796 Head {h00=0x0026, h01=0x0050, text=» SUR A7,A4 GET EFF. BUFFER LENGTH «, t00=0x0004, t01=0x0132}
0x0796…07c0 Head {h00=0x0026, h01=0x0050, text=» ST A7,4,A8 STORE REQUESTED LENGTH«, t00=0x0004, t01=0x015c}
0x07c0…07e0 Head {h00=0x001c, h01=0x0050, text=» LDK A4,0 CONTROL WORD=0«, t00=0x0004, t01=0x0186}
0x07e0…0804 Head {h00=0x0020, h01=0x0050, text=» SRC A3,1 SHIFT CIRCULAR(D) «, t00=0x0005, t01=0x0016}
0x0804…0832 Head {h00=0x002a, h01=0x0050, text=» RF(NN) WRIT20 JUMP IF NO CONTROL WORD«, t00=0x0005, t01=0x003a}
0x0832…0866 Head {h00=0x0030, h01=0x0050, text=» LD A4,CTLTAB,A1 GET CONTROL WORD FROM TABLE«, t00=0x0005, t01=0x0068}
0x0866…0894 Head {h00=0x002a, h01=0x0050, text=»WRIT20 ST A4,10,A8 STORE CONTROL WORD «, t00=0x0005, t01=0x009c}
0x0894…08a6 Head {h00=0x000e, h01=0x0050, text=» ECR A7,A9«, t00=0x0005, t01=0x00ca}
0x08a6…08c6 Head {h00=0x001c, h01=0x0050, text=» ANK A7,/FF A7=W+R+ORDER«, t00=0x0005, t01=0x00dc}
0x08c6…08ee Head {h00=0x0024, h01=0x0050, text=» SRC A3,3 SHIFT EOR-MARK TO SIGN«, t00=0x0005, t01=0x00fc}
0x08ee…0918 Head {h00=0x0026, h01=0x0050, text=» RF(NN) WRIT30 JUMP IF END OF LIST«, t00=0x0005, t01=0x0124}
0x0918…093a Head {h00=0x001e, h01=0x0050, text=» ORK A7,/80 INDICATE WAIT «, t00=0x0005, t01=0x014e}
0x093a…094e Head {h00=0x0010, h01=0x0050, text=»WRIT30 EQU *«, t00=0x0005, t01=0x0170}
0x094e…0970 Head {h00=0x001e, h01=0x0050, text=» STR A9,A8 STORE FC IN ECB«, t00=0x0005, t01=0x0184}
0x0970…0990 Head {h00=0x001c, h01=0x0050, text=» ADKL A14,2 ADJUST STACK«, t00=0x0006, t01=0x0016}
0x0990…09a0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0006, t01=0x0036}
0x09a0…09ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0046}
0x09ae…09b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0054}
0x09b8…09e8 Head {h00=0x002c, h01=0x0050, text=»T:EDTZ ADKL A8,1 INDICATE "NO CTL-BYTES"«, t00=0x0006, t01=0x005e}
0x09e8…09f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x008e}
0x09f2…0a0c Head {h00=0x0016, h01=0x0050, text=»T:EDT CF A14,TEDIT«, t00=0x0006, t01=0x0098}
0x0a0c…0a20 Head {h00=0x0010, h01=0x0050, text=»EDTRTN EQU *«, t00=0x0006, t01=0x00b2}
0x0a20…0a42 Head {h00=0x001e, h01=0x0050, text=» LD A11,-4,A14 RESTORE A11«, t00=0x0006, t01=0x00c6}
0x0a42…0a78 Head {h00=0x0032, h01=0x0050, text=» ANKL A8,/FFFE CLEAR "NO CTL-BYTES"-INDICATION«, t00=0x0006, t01=0x00e8}
0x0a78…0a8e Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0006, t01=0x011e}
0x0a8e…0aa2 Head {h00=0x0010, h01=0x0050, text=» DATA /C0FF «, t00=0x0006, t01=0x0134}
0x0aa2…0aae Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x0148}
0x0aae…0ac4 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=0 «, t00=0x0006, t01=0x0154}
0x0ac4…0ad4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0006, t01=0x016a}
0x0ad4…0ae0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x017a}
0x0ae0…0aea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0186}
0x0aea…0b1a Head {h00=0x002c, h01=0x0050, text=»T:WRTZ ADKL A8,1 INDICATE "NO CTL-BYTES"«, t00=0x0006, t01=0x0190}
0x0b1a…0b24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0030}
0x0b24…0b3e Head {h00=0x0016, h01=0x0050, text=»T:WRT CF A14,TEDIT«, t00=0x0007, t01=0x003a}
0x0b3e…0b50 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0007, t01=0x0054}
0x0b50…0b62 Head {h00=0x000e, h01=0x0050, text=»* WRITE * «, t00=0x0007, t01=0x0066}
0x0b62…0b74 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0007, t01=0x0078}
0x0b74…0b96 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A8 SAVE ORIGIN A8 «, t00=0x0007, t01=0x008a}
0x0b96…0bac Head {h00=0x0012, h01=0x0050, text=» ANKL A8,/FFFE«, t00=0x0007, t01=0x00ac}
0x0bac…0bb8 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0007, t01=0x00c2}
0x0bb8…0bc8 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0007, t01=0x00ce}
0x0bc8…0bec Head {h00=0x0020, h01=0x0050, text=» LDR A8,A1 RESTORE ORIGIN A8«, t00=0x0007, t01=0x00de}
0x0bec…0bfe Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x0007, t01=0x0102}
0x0bfe…0c28 Head {h00=0x0026, h01=0x0050, text=» RB(NN) EDTRTN JUMP IF END OF LIST«, t00=0x0007, t01=0x0114}
0x0c28…0c50 Head {h00=0x0024, h01=0x0050, text=» SUKL A14,6 MODIFY STACK POINTER«, t00=0x0007, t01=0x013e}
0x0c50…0c6c Head {h00=0x0018, h01=0x0050, text=» RB WRIT10 CONTINUE «, t00=0x0007, t01=0x0166}
0x0c6c…0c7a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0182}
0x0c7a…0c8e Head {h00=0x0010, h01=0x0050, text=»EDITA EQU * «, t00=0x0007, t01=0x0190}
0x0c8e…0caa Head {h00=0x0018, h01=0x0050, text=» LDK A3,1 LOAD MASK «, t00=0x0008, t01=0x0014}
0x0caa…0cbc Head {h00=0x000e, h01=0x0050, text=» TM A8,A3 «, t00=0x0008, t01=0x0030}
0x0cbc…0ce2 Head {h00=0x0022, h01=0x0050, text=» RF(Z) EDIT JUMP IF CTL-BYTES «, t00=0x0008, t01=0x0042}
0x0ce2…0cf4 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0008, t01=0x0068}
0x0cf4…0d16 Head {h00=0x001e, h01=0x0050, text=» SCR A3,A7 CLEAR 1:ST BYTE«, t00=0x0008, t01=0x007a}
0x0d16…0d3a Head {h00=0x0020, h01=0x0050, text=» ADK A7,1 INCREMENT POINTER «, t00=0x0008, t01=0x009c}
0x0d3a…0d5e Head {h00=0x0020, h01=0x0050, text=» SCR A3,A7 CLEAR SECOND BYTE«, t00=0x0008, t01=0x00c0}
0x0d5e…0d82 Head {h00=0x0020, h01=0x0050, text=» ADK A7,1 INCREMENT POINTER «, t00=0x0008, t01=0x00e4}
0x0d82…0d98 Head {h00=0x0012, h01=0x0050, text=»EDIT ADK A2,1 «, t00=0x0008, t01=0x0108}
0x0d98…0dba Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/FFFE WORD LIMIT «, t00=0x0008, t01=0x011e}
0x0dba…0dcc Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0008, t01=0x0140}
0x0dcc…0dee Head {h00=0x001e, h01=0x0050, text=» LDR* A1,A2 GET WORD TO A1«, t00=0x0008, t01=0x0152}
0x0dee…0e14 Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 INCR. FORMAT POINTER«, t00=0x0008, t01=0x0174}
0x0e14…0e2e Head {h00=0x0016, h01=0x0050, text=» LDR A5,A1 COPY A1«, t00=0x0009, t01=0x000a}
0x0e2e…0e54 Head {h00=0x0022, h01=0x0050, text=» ECR A4,A1 CHANGE BYTES TO A4 «, t00=0x0009, t01=0x0024}
0x0e54…0e70 Head {h00=0x0018, h01=0x0050, text=» ANK A1,/FF A1=CHAR «, t00=0x0009, t01=0x004a}
0x0e70…0e8a Head {h00=0x0016, h01=0x0050, text=» ANK A4,/FF A4=Z+D«, t00=0x0009, t01=0x0066}
0x0e8a…0ea4 Head {h00=0x0016, h01=0x0050, text=» LDR A3,A4 A3=Z+D «, t00=0x0009, t01=0x0080}
0x0ea4…0eba Head {h00=0x0012, h01=0x0050, text=» SRL A4,4 A4=Z«, t00=0x0009, t01=0x009a}
0x0eba…0ecc Head {h00=0x000e, h01=0x0050, text=» SUK A4,8 «, t00=0x0009, t01=0x00b0}
0x0ecc…0ef2 Head {h00=0x0022, h01=0x0050, text=» RF(NN) EDPICT JUMP IF PICTURE«, t00=0x0009, t01=0x00c2}
0x0ef2…0f1e Head {h00=0x0028, h01=0x0050, text=» LC A6,TABZON+8,A4 GET DISPLACEMENT «, t00=0x0009, t01=0x00e8}
0x0f1e…0f3e Head {h00=0x001c, h01=0x0050, text=»BASIS EQU *+2 TABLE BASE«, t00=0x0009, t01=0x0114}
0x0f3e…0f70 Head {h00=0x002e, h01=0x0050, text=»EDJMP ADR P,A6 JUMP TO RESPECTIVE ROUTINE «, t00=0x0009, t01=0x0134}
0x0f70…0f7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0166}
0x0f7a…0f94 Head {h00=0x0016, h01=0x0050, text=»RETURN EQU *-BASIS«, t00=0x0009, t01=0x0170}
0x0f94…0fa4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0009, t01=0x018a}
0x0fa4…0fb2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x000a}
0x0fb2…0fc2 Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x000a, t01=0x0018}
0x0fc2…0fd2 Head {h00=0x000c, h01=0x0050, text=»* TEXT *«, t00=0x000a, t01=0x0028}
0x0fd2…0fe2 Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x000a, t01=0x0038}
0x0fe2…0ffc Head {h00=0x0016, h01=0x0050, text=»EDTXT EQU *-BASIS «, t00=0x000a, t01=0x0048}
0x0ffc…1022 Head {h00=0x0022, h01=0x0050, text=» ANK A3,/F MASK OUT DATA PART «, t00=0x000a, t01=0x0062}
0x1022…104a Head {h00=0x0024, h01=0x0050, text=» LC A6,TABLE,A3 GET DISPLACEMENT«, t00=0x000a, t01=0x0088}
0x104a…1076 Head {h00=0x0028, h01=0x0050, text=» RB EDJMP JUMP TO RESPECTIVE ROUTINE«, t00=0x000a, t01=0x00b0}
0x1076…109c Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000a, t01=0x00dc}
0x109c…10c2 Head {h00=0x0022, h01=0x0050, text=»* SUBFORMAT OR SWITCH FORMAT *«, t00=0x000a, t01=0x0102}
0x10c2…10e8 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000a, t01=0x0128}
0x10e8…1102 Head {h00=0x0016, h01=0x0050, text=»AFORM EQU *-BASIS «, t00=0x000a, t01=0x014e}
0x1102…1118 Head {h00=0x0012, h01=0x0050, text=» SUKL A5,/6800«, t00=0x000a, t01=0x0168}
0x1118…1146 Head {h00=0x002a, h01=0x0050, text=» ANKL A5,/FFFE MASK OUT INDICATION BIT«, t00=0x000a, t01=0x017e}
0x1146…1158 Head {h00=0x000e, h01=0x0050, text=» ADK A5,2 «, t00=0x000b, t01=0x001c}
0x1158…116a Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x000b, t01=0x002e}
0x116a…1196 Head {h00=0x0028, h01=0x0050, text=» RF(Z) SWITCH JUMP IF SWITCH FORMAT «, t00=0x000b, t01=0x0040}
0x1196…11aa Head {h00=0x0010, h01=0x0050, text=» LDR A10,A10«, t00=0x000b, t01=0x006c}
0x11aa…11d2 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) AFORM1 JUMP IF OCCUPIED «, t00=0x000b, t01=0x0080}
0x11d2…1200 Head {h00=0x002a, h01=0x0050, text=» LDR A10,A2 GET RETURN ADDRESS TO A10 «, t00=0x000b, t01=0x00a8}
0x1200…1212 Head {h00=0x000e, h01=0x0050, text=» RF SWITCH«, t00=0x000b, t01=0x00d6}
0x1212…1246 Head {h00=0x0030, h01=0x0050, text=»AFORM1 LDR A11,A2 GET RETURN ADDRESS TO A11 «, t00=0x000b, t01=0x00e8}
0x1246…127c Head {h00=0x0032, h01=0x0050, text=»SWITCH SUR A2,A5 GET ALTERNATIVE FORMAT TO A2 «, t00=0x000b, t01=0x011c}
0x127c…1296 Head {h00=0x0016, h01=0x0050, text=»RETUR EQU *-BASIS «, t00=0x000b, t01=0x0152}
0x1296…12a6 Head {h00=0x000c, h01=0x0050, text=» RB EDIT«, t00=0x000b, t01=0x016c}
0x12a6…12c2 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000b, t01=0x017c}
0x12c2…12de Head {h00=0x0018, h01=0x0050, text=»* END OF SUBFORMAT *«, t00=0x000c, t01=0x0008}
0x12de…12fa Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x0024}
0x12fa…1314 Head {h00=0x0016, h01=0x0050, text=»ENDSUB EQU *-BASIS«, t00=0x000c, t01=0x0040}
0x1314…1328 Head {h00=0x0010, h01=0x0050, text=» LDR A11,A11«, t00=0x000c, t01=0x005a}
0x1328…1348 Head {h00=0x001c, h01=0x0050, text=» RF(Z) ENDS10 JUMP IF 0 «, t00=0x000c, t01=0x006e}
0x1348…1378 Head {h00=0x002c, h01=0x0050, text=» LDR A2,A11 GET RETURN ADDRESS FROM A11 «, t00=0x000c, t01=0x008e}
0x1378…1396 Head {h00=0x001a, h01=0x0050, text=» SUR A11,A11 CLEAR A11«, t00=0x000c, t01=0x00be}
0x1396…13a6 Head {h00=0x000c, h01=0x0050, text=» RB EDIT«, t00=0x000c, t01=0x00dc}
0x13a6…13c0 Head {h00=0x0016, h01=0x0050, text=»ENDS10 LDR A10,A10«, t00=0x000c, t01=0x00ec}
0x13c0…13e8 Head {h00=0x0024, h01=0x0050, text=» RB(Z) EDIT JUMP IF NO SUB CALL «, t00=0x000c, t01=0x0106}
0x13e8…1418 Head {h00=0x002c, h01=0x0050, text=» LDR A2,A10 GET RETURN ADDRESS FROM A10 «, t00=0x000c, t01=0x012e}
0x1418…1436 Head {h00=0x001a, h01=0x0050, text=» SUR A10,A10 CLEAR A10«, t00=0x000c, t01=0x015e}
0x1436…144a Head {h00=0x0010, h01=0x0050, text=»ENDS50 EQU *«, t00=0x000c, t01=0x017c}
0x144a…145a Head {h00=0x000c, h01=0x0050, text=» RB EDIT«, t00=0x000c, t01=0x0190}
0x145a…1474 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x000d, t01=0x0010}
0x1474…148e Head {h00=0x0016, h01=0x0050, text=»* IMMEDIATE TEXT *«, t00=0x000d, t01=0x002a}
0x148e…14a8 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x000d, t01=0x0044}
0x14a8…14d0 Head {h00=0x0024, h01=0x0050, text=»IMTXT EQU *-BASIS IMMEDIATE TEXT«, t00=0x000d, t01=0x005e}
0x14d0…14f6 Head {h00=0x0022, h01=0x0050, text=»EDT100 SUK A1,1 DECREMENT CHAR«, t00=0x000d, t01=0x0086}
0x14f6…151a Head {h00=0x0020, h01=0x0050, text=» RB(N) EDIT JUMP IF ALL DONE«, t00=0x000d, t01=0x00ac}
0x151a…153a Head {h00=0x001c, h01=0x0050, text=» LCR A6,A2 GET CHARACTER«, t00=0x000d, t01=0x00d0}
0x153a…1558 Head {h00=0x001a, h01=0x0050, text=» ADK A2,1 STEP POINTER«, t00=0x000d, t01=0x00f0}
0x1558…1580 Head {h00=0x0024, h01=0x0050, text=» SCR A6,A7 STORE BYTE IN BUFFER «, t00=0x000d, t01=0x010e}
0x1580…15a4 Head {h00=0x0020, h01=0x0050, text=» ADK A7,1 INCREMENT POINTER «, t00=0x000d, t01=0x0136}
0x15a4…15c8 Head {h00=0x0020, h01=0x0050, text=» RB EDT100 JUMP TO CONTINUE «, t00=0x000d, t01=0x015a}
0x15c8…15e8 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000d, t01=0x017e}
0x15e8…1608 Head {h00=0x001c, h01=0x0050, text=»* SPECIAL TEXT ELEMENT *«, t00=0x000e, t01=0x000e}
0x1608…1628 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000e, t01=0x002e}
0x1628…1642 Head {h00=0x0016, h01=0x0050, text=»STXTEL EQU *-BASIS«, t00=0x000e, t01=0x004e}
0x1642…165c Head {h00=0x0016, h01=0x0050, text=» LDR A3,A7 SAVE A7«, t00=0x000e, t01=0x0068}
0x165c…167e Head {h00=0x001e, h01=0x0050, text=» LDR A7,A1 LOAD CHAR IN A7«, t00=0x000e, t01=0x0082}
0x167e…169c Head {h00=0x001a, h01=0x0050, text=» ST A13,SVA13 SAVE A13«, t00=0x000e, t01=0x00a4}
0x169c…16c0 Head {h00=0x0020, h01=0x0050, text=» LD A13,-2,A13 GET NEW BASE «, t00=0x000e, t01=0x00c2}
0x16c0…16d6 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=0 «, t00=0x000e, t01=0x00e6}
0x16d6…1702 Head {h00=0x0028, h01=0x0050, text=» CF A14,T:OPA GET ELEMENT PARAMETERS«, t00=0x000e, t01=0x00fc}
0x1702…170e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0128}
0x170e…1724 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x000e, t01=0x0134}
0x1724…174e Head {h00=0x0026, h01=0x0050, text=» CF A14,M:OPA GET ELEMENT ADDRESS «, t00=0x000e, t01=0x014a}
0x174e…175a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0174}
0x175a…176e Head {h00=0x0010, h01=0x0050, text=» LDKL A13,0 «, t00=0x000e, t01=0x0180}
0x176e…1784 (15, 0, 400) Head {h00=0x0012, h01=0x0050, text=»SVA13 EQU *-2 «, t00=0x000f, t01=0x0004}
0x1784…1796 Head {h00=0x000e, h01=0x0050, text=» RF EDT205«, t00=0x000f, t01=0x001a}
0x1796…17ae Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x000f, t01=0x002c}
0x17ae…17c6 Head {h00=0x0014, h01=0x0050, text=»* TEXT ELEMENT *«, t00=0x000f, t01=0x0044}
0x17c6…17de Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x000f, t01=0x005c}
0x17de…1804 Head {h00=0x0022, h01=0x0050, text=»TXTEL EQU *-BASIS TEXT ELEMENT«, t00=0x000f, t01=0x0074}
0x1804…1824 Head {h00=0x001c, h01=0x0050, text=»EDT200 LDR A3,A7 SAVE A7«, t00=0x000f, t01=0x009a}
0x1824…1852 Head {h00=0x002a, h01=0x0050, text=» LDR A7,A1 LOAD EL.IDENTIFICATOR IN A7«, t00=0x000f, t01=0x00ba}
0x1852…1868 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=0 «, t00=0x000f, t01=0x00e8}
0x1868…1894 Head {h00=0x0028, h01=0x0050, text=» CF A14,T:OPA GET ELEMENT PARAMETERS«, t00=0x000f, t01=0x00fe}
0x1894…18a0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x012a}
0x18a0…18b6 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x000f, t01=0x0136}
0x18b6…18e2 Head {h00=0x0028, h01=0x0050, text=» CF A14,M:OPA GET ELEMENT PARAMETERS«, t00=0x000f, t01=0x014c}
0x18e2…18ee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0178}
0x18ee…1902 Head {h00=0x0010, h01=0x0050, text=»EDT205 EQU *«, t00=0x000f, t01=0x0184}
0x1902…1920 Head {h00=0x001a, h01=0x0050, text=» LDR A7,A3 RESTORE A7 «, t00=0x0010, t01=0x0008}
0x1920…1946 Head {h00=0x0022, h01=0x0050, text=» ADR A6,A1 ADD 2-COMPL. LENGTH«, t00=0x0010, t01=0x0026}
0x1946…196c Head {h00=0x0022, h01=0x0050, text=» ADK A6,1 GET ELEMENT ADDRESS «, t00=0x0010, t01=0x004c}
0x196c…1994 Head {h00=0x0024, h01=0x0050, text=»EDT210 ADK A1,1 INCREMENT COUNT «, t00=0x0010, t01=0x0072}
0x1994…19b8 Head {h00=0x0020, h01=0x0050, text=» RB(P) EDIT JUMP IF FINISHED«, t00=0x0010, t01=0x009a}
0x19b8…19de Head {h00=0x0022, h01=0x0050, text=» LCR A5,A6 GET ASCII-CHARACTER«, t00=0x0010, t01=0x00be}
0x19de…1a0a Head {h00=0x0028, h01=0x0050, text=» ADK A6,1 INCREMENT ELEMENT POINTER «, t00=0x0010, t01=0x00e4}
0x1a0a…1a1e Head {h00=0x0010, h01=0x0050, text=» ANK A5,/FF «, t00=0x0010, t01=0x0110}
0x1a1e…1a3e Head {h00=0x001c, h01=0x0050, text=» RB(Z) EDT210 JUMP IF 00«, t00=0x0010, t01=0x0124}
0x1a3e…1a66 Head {h00=0x0024, h01=0x0050, text=» SCR A5,A7 STORE BYTE IN BUFFER «, t00=0x0010, t01=0x0144}
0x1a66…1a90 Head {h00=0x0026, h01=0x0050, text=» ADK A7,1 INCREMENT BUFFER POINTER«, t00=0x0010, t01=0x016c}
0x1a90…1aa2 Head {h00=0x000e, h01=0x0050, text=» RB EDT210«, t00=0x0011, t01=0x0008}
0x1aa2…1ab4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0011, t01=0x001a}
0x1ab4…1ac6 Head {h00=0x000e, h01=0x0050, text=»* FILLER *«, t00=0x0011, t01=0x002c}
0x1ac6…1ad8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0011, t01=0x003e}
0x1ad8…1af2 Head {h00=0x0016, h01=0x0050, text=»EDFILL EQU *-BASIS«, t00=0x0011, t01=0x0050}
0x1af2…1b1a Head {h00=0x0024, h01=0x0050, text=»EDF100 SUK A1,1 STEP DOWN "CHAR"«, t00=0x0011, t01=0x006a}
0x1b1a…1b3e Head {h00=0x0020, h01=0x0050, text=» RB(N) EDIT JUMP IF FINISHED«, t00=0x0011, t01=0x0092}
0x1b3e…1b66 Head {h00=0x0024, h01=0x0050, text=» SCR A3,A7 STORE BYTE IN BUFFER «, t00=0x0011, t01=0x00b6}
0x1b66…1b8a Head {h00=0x0020, h01=0x0050, text=» ADK A7,1 INCREMENT POINTER «, t00=0x0011, t01=0x00de}
0x1b8a…1bae Head {h00=0x0020, h01=0x0050, text=» RB EDF100 CONTINUE TO LOOP «, t00=0x0011, t01=0x0102}
0x1bae…1bcc Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0011, t01=0x0126}
0x1bcc…1bea Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL FORMAT *«, t00=0x0011, t01=0x0144}
0x1bea…1c08 Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0011, t01=0x0162}
0x1c08…1c20 Head {h00=0x0014, h01=0x0050, text=»COND EQU *-BASIS«, t00=0x0011, t01=0x0180}
0x1c20…1c3a Head {h00=0x0016, h01=0x0050, text=» LDR A3,A7 SAVE A7«, t00=0x0012, t01=0x0008}
0x1c3a…1c66 Head {h00=0x0028, h01=0x0050, text=» LDR A7,A1 GET ELEMENT ADDRESS TO A7«, t00=0x0012, t01=0x0022}
0x1c66…1c7c Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=0 «, t00=0x0012, t01=0x004e}
0x1c7c…1ca8 Head {h00=0x0028, h01=0x0050, text=» CF A14,T:OPA GET ELEMENT PARAMETERS«, t00=0x0012, t01=0x0064}
0x1ca8…1cb4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0090}
0x1cb4…1cca Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0012, t01=0x009c}
0x1cca…1cf6 Head {h00=0x0028, h01=0x0050, text=» CF A14,M:OPA GET ELEMENT PARAMETERS«, t00=0x0012, t01=0x00b2}
0x1cf6…1d02 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x00de}
0x1d02…1d20 Head {h00=0x001a, h01=0x0050, text=» LDR A7,A3 RESTORE A7 «, t00=0x0012, t01=0x00ea}
0x1d20…1d3c Head {h00=0x0018, h01=0x0050, text=» LCR A1,A6 GET SIGN «, t00=0x0012, t01=0x0108}
0x1d3c…1d5c Head {h00=0x001c, h01=0x0050, text=» ANK A1,/F MASK OUT SIGN«, t00=0x0012, t01=0x0124}
0x1d5c…1d6e Head {h00=0x000e, h01=0x0050, text=» SUK A1,/D«, t00=0x0012, t01=0x0144}
0x1d6e…1d94 Head {h00=0x0022, h01=0x0050, text=» RB(NZ) EDIT JUMP IF POSITIVE «, t00=0x0012, t01=0x0156}
0x1d94…1dc2 Head {h00=0x002a, h01=0x0050, text=» ADK A2,2 JUMP TO NEXT WORD IN FORMAT «, t00=0x0012, t01=0x017c}
0x1dc2…1dd2 Head {h00=0x000c, h01=0x0050, text=» RB EDIT«, t00=0x0013, t01=0x001a}
0x1dd2…1de0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x002a}
0x1de0…1df4 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0013, t01=0x0038}
0x1df4…1e08 Head {h00=0x0010, h01=0x0050, text=»* PICTURE * «, t00=0x0013, t01=0x004c}
0x1e08…1e1c Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0013, t01=0x0060}
0x1e1c…1e4e Head {h00=0x002e, h01=0x0050, text=»EDPICT ANK A3,/7F MASK OUT PICTURE NUMBER «, t00=0x0013, t01=0x0074}
0x1e4e…1e72 Head {h00=0x0020, h01=0x0050, text=» SLL A3,2 PICTURE NUMBER * 4«, t00=0x0013, t01=0x00a6}
0x1e72…1ea0 Head {h00=0x002a, h01=0x0050, text=» LD A4,PICTAB+2,A3 GET STRING ADDRESS «, t00=0x0013, t01=0x00ca}
0x1ea0…1eca Head {h00=0x0026, h01=0x0050, text=» LD A3,PICTAB,A3 GET CONTROL WORD «, t00=0x0013, t01=0x00f8}
0x1eca…1ee8 Head {h00=0x001a, h01=0x0050, text=» ST A3,EDEPOI SAVE A3 «, t00=0x0013, t01=0x0122}
0x1ee8…1efc Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0013, t01=0x0140}
0x1efc…1f28 Head {h00=0x0028, h01=0x0050, text=» ST A4,EDPPOI STORE PICTURE POINTER «, t00=0x0013, t01=0x0154}
0x1f28…1f4a Head {h00=0x001e, h01=0x0050, text=» NGR A3,A3 NEGATE REGISTER«, t00=0x0013, t01=0x0180}
0x1f4a…1f78 Head {h00=0x002a, h01=0x0050, text=» ST A3,EDCNTP STORE LENGTH I COUNTER «, t00=0x0014, t01=0x0012}
0x1f78…1f92 Head {h00=0x0016, h01=0x0050, text=» LDR A3,A7 SAVE A7«, t00=0x0014, t01=0x0040}
0x1f92…1fbc Head {h00=0x0026, h01=0x0050, text=» LDR A7,A1 GET EL. INDICATOR TO A7«, t00=0x0014, t01=0x005a}
0x1fbc…1fd2 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=0 «, t00=0x0014, t01=0x0084}
0x1fd2…1ffe Head {h00=0x0028, h01=0x0050, text=» CF A14,T:OPA GET ELEMENT PARAMETERS«, t00=0x0014, t01=0x009a}
0x1ffe…200a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00c6}
0x200a…2020 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0014, t01=0x00d2}
0x2020…2036 Head {h00=0x0012, h01=0x0050, text=» CF A14,M:OPA «, t00=0x0014, t01=0x00e8}
0x2036…2042 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00fe}
0x2042…2060 Head {h00=0x001a, h01=0x0050, text=» LDR A7,A3 RESTORE A7 «, t00=0x0014, t01=0x010a}
0x2060…2078 Head {h00=0x0014, h01=0x0050, text=» LCR A4,A6 SIGN «, t00=0x0014, t01=0x0128}
0x2078…2098 Head {h00=0x001c, h01=0x0050, text=» ANK A4,/F MASK OUT SIGN«, t00=0x0014, t01=0x0140}
0x2098…20c4 Head {h00=0x0028, h01=0x0050, text=» SUK A4,/D SUBTRACT WITH MINUS SIGN «, t00=0x0014, t01=0x0160}
0x20c4…20f2 Head {h00=0x002a, h01=0x0050, text=» ST A4,EDSIGN STORE IN SIGN INDICATOR «, t00=0x0014, t01=0x018c}
0x20f2…2122 Head {h00=0x002c, h01=0x0050, text=» NGR A1,A1 GET POSITIVE LENGTH IN BYTES «, t00=0x0015, t01=0x002a}
0x2122…2134 Head {h00=0x000e, h01=0x0050, text=» SUR A6,A1«, t00=0x0015, t01=0x005a}
0x2134…2160 Head {h00=0x0028, h01=0x0050, text=» ADK A6,1 GET ELEMENT START ADDRESS «, t00=0x0015, t01=0x006c}
0x2160…218a Head {h00=0x0026, h01=0x0050, text=» SLL A1,1 LENGTH IN BCD INCL. SIGN«, t00=0x0015, t01=0x0098}
0x218a…21b4 Head {h00=0x0026, h01=0x0050, text=» SUK A1,1 LENGTH IN BCD EXCL. SIGN«, t00=0x0015, t01=0x00c2}
0x21b4…21d6 Head {h00=0x001e, h01=0x0050, text=» LC A3,EDEPOI GET SAVED A3«, t00=0x0015, t01=0x00ec}
0x21d6…2208 Head {h00=0x002e, h01=0x0050, text=» ANK A3,/FF GET NUMBER OF DIGITS TO FETCH «, t00=0x0015, t01=0x010e}
0x2208…221e Head {h00=0x0012, h01=0x0050, text=» SUR A1,A3 L-N«, t00=0x0015, t01=0x0140}
0x221e…2248 Head {h00=0x0026, h01=0x0050, text=» ST A1,EDCNTE STORE ELEMENT INDEX «, t00=0x0015, t01=0x0156}
0x2248…225e Head {h00=0x0012, h01=0x0050, text=» RF(NP) EDP050«, t00=0x0015, t01=0x0180}
0x225e…227e Head {h00=0x001c, h01=0x0050, text=» SRL A1,1 DIVIDE WITH 2 «, t00=0x0016, t01=0x0008}
0x227e…2290 Head {h00=0x000e, h01=0x0050, text=» ADR A6,A1«, t00=0x0016, t01=0x0028}
0x2290…22c2 Head {h00=0x002e, h01=0x0050, text=»EDP050 ST A6,EDEPOI STORE ELEMENT POINTER «, t00=0x0016, t01=0x003a}
0x22c2…22e4 Head {h00=0x001e, h01=0x0050, text=» CM EDNOTZ CLEAR ZEROMARK «, t00=0x0016, t01=0x006c}
0x22e4…2302 Head {h00=0x001a, h01=0x0050, text=» CM EDFCH CLEAR EDFCH «, t00=0x0016, t01=0x008e}
0x2302…232c Head {h00=0x0026, h01=0x0050, text=» CM EDSUPP CLEAR SUPPR. INDICATOR «, t00=0x0016, t01=0x00ac}
0x232c…2346 Head {h00=0x0016, h01=0x0050, text=» LDK A6,0 CLEAR A6«, t00=0x0016, t01=0x00d6}
0x2346…236e Head {h00=0x0024, h01=0x0050, text=»EDP100 IM EDCNTP INCREMENT COUNT«, t00=0x0016, t01=0x00f0}
0x236e…2394 Head {h00=0x0022, h01=0x0050, text=» RB(P) ENDS50 JUMP IF ALL DONE«, t00=0x0016, t01=0x0118}
0x2394…23bc Head {h00=0x0024, h01=0x0050, text=» LC* A4,EDPPOI GET PICTURE CODE «, t00=0x0016, t01=0x013e}
0x23bc…23d0 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0016, t01=0x0166}
0x23d0…23f4 Head {h00=0x0020, h01=0x0050, text=» IM EDPPOI INCREMENT POINTER«, t00=0x0016, t01=0x017a}
0x23f4…2414 Head {h00=0x001c, h01=0x0050, text=» LDK A1,/80 LOAD TO MASK«, t00=0x0017, t01=0x000e}
0x2414…2442 Head {h00=0x002a, h01=0x0050, text=» TM A1,A4 TEST ON LEFTMOST BIT IN CODE«, t00=0x0017, t01=0x002e}
0x2442…2466 Head {h00=0x0020, h01=0x0050, text=» RF(Z) EDP120 JUMP IF BIT=0 «, t00=0x0017, t01=0x005c}
0x2466…2486 Head {h00=0x001c, h01=0x0050, text=» LDR A6,A4 A6=ASCII-CODE«, t00=0x0017, t01=0x0080}
0x2486…249a Head {h00=0x0010, h01=0x0050, text=» ANK A6,/7F «, t00=0x0017, t01=0x00a0}
0x249a…24c8 Head {h00=0x002a, h01=0x0050, text=»EDP110 SCR A6,A7 STORE BYTE IN BUFFER «, t00=0x0017, t01=0x00b4}
0x24c8…24ec Head {h00=0x0020, h01=0x0050, text=» ADK A7,1 INCREMENT POINTER «, t00=0x0017, t01=0x00e2}
0x24ec…2508 Head {h00=0x0018, h01=0x0050, text=» RB EDP100 CONTINUE «, t00=0x0017, t01=0x0106}
0x2508…2534 Head {h00=0x0028, h01=0x0050, text=»EDP120 LDKL A1,-17 LOAD START INDEX «, t00=0x0017, t01=0x0122}
0x2534…2556 Head {h00=0x001e, h01=0x0050, text=»EDP130 CC A4,TABPIC+17,A1 «, t00=0x0017, t01=0x014e}
0x2556…2582 Head {h00=0x0028, h01=0x0050, text=» RF(E) EDP150 JUMP IF CODE IN TABLE «, t00=0x0017, t01=0x0170}
0x2582…25a4 Head {h00=0x001e, h01=0x0050, text=» ADK A1,1 INCREMENT INDEX «, t00=0x0018, t01=0x000c}
0x25a4…25d2 Head {h00=0x002a, h01=0x0050, text=» RB(N) EDP130 JUMP IF NOT END OF TABLE«, t00=0x0018, t01=0x002e}
0x25d2…25fa Head {h00=0x0024, h01=0x0050, text=» RB EDP100 JUMP IF ILLEGAL CODE «, t00=0x0018, t01=0x005c}
0x25fa…260e Head {h00=0x0010, h01=0x0050, text=»EDP150 EQU *«, t00=0x0018, t01=0x0084}
0x260e…263a Head {h00=0x0028, h01=0x0050, text=» LC A6,CODTAB+17,A1 GET DISPLACEMENT«, t00=0x0018, t01=0x0098}
0x263a…264e Head {h00=0x0010, h01=0x0050, text=»BASE EQU *+2«, t00=0x0018, t01=0x00c4}
0x264e…2670 Head {h00=0x001e, h01=0x0050, text=» ADR P,A6 JUMP TO ROUTINE «, t00=0x0018, t01=0x00d8}
0x2670…267e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00fa}
0x267e…2694 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0018, t01=0x0108}
0x2694…26aa Head {h00=0x0012, h01=0x0050, text=»* * ASTERISK *«, t00=0x0018, t01=0x011e}
0x26aa…26c0 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0018, t01=0x0134}
0x26c0…26d8 Head {h00=0x0014, h01=0x0050, text=»LAST EQU *-BASE «, t00=0x0018, t01=0x014a}
0x26d8…26fe Head {h00=0x0022, h01=0x0050, text=»EDP600 LDK A5,'*' LOAD * IN A5«, t00=0x0018, t01=0x0162}
0x26fe…270e Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0018, t01=0x0188}
0x270e…271e Head {h00=0x000c, h01=0x0050, text=»* T *«, t00=0x0019, t01=0x0008}
0x271e…272e Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0019, t01=0x0018}
0x272e…2744 Head {h00=0x0012, h01=0x0050, text=»LT EQU *-BASE «, t00=0x0019, t01=0x0028}
0x2744…276a Head {h00=0x0022, h01=0x0050, text=»EDP610 IM EDSUPP EDSUPP NOT=0 «, t00=0x0019, t01=0x003e}
0x276a…2796 Head {h00=0x0028, h01=0x0050, text=» CF A14,EDGETN GET CHR FROM ELEMENT «, t00=0x0019, t01=0x0064}
0x2796…27c0 Head {h00=0x0026, h01=0x0050, text=» LD A1,EDNOTZ LOAD ZERO INDICATOR «, t00=0x0019, t01=0x0090}
0x27c0…27f2 Head {h00=0x002e, h01=0x0050, text=» RF(NZ) EDP670 JUMP IF NOT LEADING ZEROES «, t00=0x0019, t01=0x00ba}
0x27f2…2814 Head {h00=0x001e, h01=0x0050, text=» CWK A6,/30 COMP WITH ZERO«, t00=0x0019, t01=0x00ec}
0x2814…2836 Head {h00=0x001e, h01=0x0050, text=» RF(E) EDP680 JUMP IF ZERO«, t00=0x0019, t01=0x010e}
0x2836…2848 Head {h00=0x000e, h01=0x0050, text=» RF EDP660«, t00=0x0019, t01=0x0130}
0x2848…285c Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0019, t01=0x0142}
0x285c…2870 Head {h00=0x0010, h01=0x0050, text=»* Z * «, t00=0x0019, t01=0x0156}
0x2870…2884 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0019, t01=0x016a}
0x2884…289a Head {h00=0x0012, h01=0x0050, text=»LZ EQU *-BASE «, t00=0x0019, t01=0x017e}
0x289a…28be (26, 0, 400) Head {h00=0x0020, h01=0x0050, text=»EDP650 LDK A5,' ' LOAD SPACE«, t00=0x001a, t01=0x0004}
0x28be…28d0 Head {h00=0x000e, h01=0x0050, text=» RB EDP610«, t00=0x001a, t01=0x0028}
0x28d0…28de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x003a}
0x28de…290c Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x001a, t01=0x0048}
0x290c…293a Head {h00=0x002a, h01=0x0050, text=»* MARK NOT ZERO AND STORE CHARACTER * «, t00=0x001a, t01=0x0076}
0x293a…2968 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x001a, t01=0x00a4}
0x2968…299a Head {h00=0x002e, h01=0x0050, text=»EDP660 IM EDNOTZ INCREMENT ZERO INDICATOR «, t00=0x001a, t01=0x00d2}
0x299a…29c0 Head {h00=0x0022, h01=0x0050, text=» LDR A1,A6 A1=CHR FROM ELEMENT«, t00=0x001a, t01=0x0104}
0x29c0…29de Head {h00=0x001a, h01=0x0050, text=» LD A6,EDFCH A6=EDFCH «, t00=0x001a, t01=0x012a}
0x29de…2a02 Head {h00=0x0020, h01=0x0050, text=» RF(Z) EDP665 JUMP IF NOT F «, t00=0x001a, t01=0x0148}
0x2a02…2a20 Head {h00=0x001a, h01=0x0050, text=» CM EDFCH CLEAR EDFCH «, t00=0x001a, t01=0x016c}
0x2a20…2a48 Head {h00=0x0024, h01=0x0050, text=» SCR A6,A7 STORE EDFCH IN BUFFER«, t00=0x001a, t01=0x018a}
0x2a48…2a6c Head {h00=0x0020, h01=0x0050, text=» ADK A7,1 INCREMENT POINTER «, t00=0x001b, t01=0x0022}
0x2a6c…2a98 Head {h00=0x0028, h01=0x0050, text=»EDP665 LDR A6,A1 A6=CHR FROM ELEMENT«, t00=0x001b, t01=0x0046}
0x2a98…2ab4 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x001b, t01=0x0072}
0x2ab4…2ad0 Head {h00=0x0018, h01=0x0050, text=»* STORE CHARACTER * «, t00=0x001b, t01=0x008e}
0x2ad0…2aec Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x001b, t01=0x00aa}
0x2aec…2b1a Head {h00=0x002a, h01=0x0050, text=»EDP670 SCR A6,A7 STORE BYTE IN BUFFER «, t00=0x001b, t01=0x00c6}
0x2b1a…2b3e Head {h00=0x0020, h01=0x0050, text=» ADK A7,1 INCREMENT POINTER «, t00=0x001b, t01=0x00f4}
0x2b3e…2b60 Head {h00=0x001e, h01=0x0050, text=»EDP725 RB EDP100 CONTINUE «, t00=0x001b, t01=0x0118}
0x2b60…2b7e Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x001b, t01=0x013a}
0x2b7e…2b9c Head {h00=0x001a, h01=0x0050, text=»* EDNOTZ=0, CHR=/30 * «, t00=0x001b, t01=0x0158}
0x2b9c…2bba Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x001b, t01=0x0176}
0x2bba…2bd4 (28, 0, 400) Head {h00=0x0016, h01=0x0050, text=»EDP680 SUK A4,/54 «, t00=0x001c, t01=0x0004}
0x2bd4…2bf4 Head {h00=0x001c, h01=0x0050, text=» RB(Z) EDP100 JUMP IF T «, t00=0x001c, t01=0x001e}
0x2bf4…2c0e Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x001c, t01=0x003e}
0x2c0e…2c28 Head {h00=0x0016, h01=0x0050, text=»* STORE FROM A5 * «, t00=0x001c, t01=0x0058}
0x2c28…2c42 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x001c, t01=0x0072}
0x2c42…2c70 Head {h00=0x002a, h01=0x0050, text=»EDP700 LDR A6,A5 LOAD CHARACTER TO A6 «, t00=0x001c, t01=0x008c}
0x2c70…2c90 Head {h00=0x001c, h01=0x0050, text=» RB EDP670 JUMP TO STORE«, t00=0x001c, t01=0x00ba}
0x2c90…2c9e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x00da}
0x2c9e…2cbc Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x001c, t01=0x00e8}
0x2cbc…2cda Head {h00=0x001a, h01=0x0050, text=»* . (POINT ROOMLESS) *«, t00=0x001c, t01=0x0106}
0x2cda…2cf8 Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x001c, t01=0x0124}
0x2cf8…2d0e Head {h00=0x0012, h01=0x0050, text=»L. EQU *-BASE «, t00=0x001c, t01=0x0142}
0x2d0e…2d40 Head {h00=0x002e, h01=0x0050, text=»EDP710 LDK A6,'.'+/80 LOAD ROOMLESS POINT «, t00=0x001c, t01=0x0158}
0x2d40…2d5c Head {h00=0x0018, h01=0x0050, text=»EDP720 LD A1,EDSUPP «, t00=0x001c, t01=0x018a}
0x2d5c…2d88 Head {h00=0x0028, h01=0x0050, text=» RB(Z) EDP670 JUMP IF NOT SUPPRESSED«, t00=0x001d, t01=0x0016}
0x2d88…2d9e Head {h00=0x0012, h01=0x0050, text=» LD A1,EDNOTZ «, t00=0x001d, t01=0x0042}
0x2d9e…2dce Head {h00=0x002c, h01=0x0050, text=» RB(NZ) EDP670 JUMP IF NOT LEADING ZERO «, t00=0x001d, t01=0x0058}
0x2dce…2dfe Head {h00=0x002c, h01=0x0050, text=» CWK A6,'.'+/80 COMP WITH ROOMLESS POINT«, t00=0x001d, t01=0x0088}
0x2dfe…2e2a Head {h00=0x0028, h01=0x0050, text=» RB(E) EDP100 JUMP IF ROOMLESS POINT«, t00=0x001d, t01=0x00b8}
0x2e2a…2e3c Head {h00=0x000e, h01=0x0050, text=» RF EDP780«, t00=0x001d, t01=0x00e4}
0x2e3c…2e52 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x001d, t01=0x00f6}
0x2e52…2e68 Head {h00=0x0012, h01=0x0050, text=»* , (COMMA) * «, t00=0x001d, t01=0x010c}
0x2e68…2e7e Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x001d, t01=0x0122}
0x2e7e…2e98 Head {h00=0x0016, h01=0x0050, text=»LCOMMA EQU *-BASE «, t00=0x001d, t01=0x0138}
0x2e98…2ebc Head {h00=0x0020, h01=0x0050, text=»EDP730 LDK A6,',' LOAD COMMA«, t00=0x001d, t01=0x0152}
0x2ebc…2ece Head {h00=0x000e, h01=0x0050, text=» RB EDP720«, t00=0x001d, t01=0x0176}
0x2ece…2ef2 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x001d, t01=0x0188}
0x2ef2…2f16 Head {h00=0x0020, h01=0x0050, text=»* V (POINT, NOT ROOMLESS) * «, t00=0x001e, t01=0x001c}
0x2f16…2f3a Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x001e, t01=0x0040}
0x2f3a…2f50 Head {h00=0x0012, h01=0x0050, text=»LV EQU *-BASE «, t00=0x001e, t01=0x0064}
0x2f50…2f74 Head {h00=0x0020, h01=0x0050, text=»EDP740 LDK A6,'.' LOAD POINT«, t00=0x001e, t01=0x007a}
0x2f74…2f86 Head {h00=0x000e, h01=0x0050, text=» RB EDP720«, t00=0x001e, t01=0x009e}
0x2f86…2f9a Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x001e, t01=0x00b0}
0x2f9a…2fae Head {h00=0x0010, h01=0x0050, text=»* 0 (ZERO) *«, t00=0x001e, t01=0x00c4}
0x2fae…2fc2 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x001e, t01=0x00d8}
0x2fc2…2fd8 Head {h00=0x0012, h01=0x0050, text=»L0 EQU *-BASE «, t00=0x001e, t01=0x00ec}
0x2fd8…2ffc Head {h00=0x0020, h01=0x0050, text=»EDP750 LDK A6,'0' LOAD ZERO «, t00=0x001e, t01=0x0102}
0x2ffc…302a Head {h00=0x002a, h01=0x0050, text=» RB EDP660 JUMP TO IM EDNOTZ AND STORE«, t00=0x001e, t01=0x0126}
0x302a…303c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001e, t01=0x0154}
0x303c…304e Head {h00=0x000e, h01=0x0050, text=»* P *«, t00=0x001e, t01=0x0166}
0x304e…3060 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001e, t01=0x0178}
0x3060…3076 Head {h00=0x0012, h01=0x0050, text=»LP EQU *-BASE «, t00=0x001e, t01=0x018a}
0x3076…30a8 Head {h00=0x002e, h01=0x0050, text=»EDP760 CF A14,EDGETN GET CHR FROM ELEMENT «, t00=0x001f, t01=0x0010}
0x30a8…30c4 Head {h00=0x0018, h01=0x0050, text=» RB EDP100 JUMP BACK«, t00=0x001f, t01=0x0042}
0x30c4…30da Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x001f, t01=0x005e}
0x30da…30f0 Head {h00=0x0012, h01=0x0050, text=»* 9 (DIGIT) * «, t00=0x001f, t01=0x0074}
0x30f0…3106 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x001f, t01=0x008a}
0x3106…311c Head {h00=0x0012, h01=0x0050, text=»L9 EQU *-BASE «, t00=0x001f, t01=0x00a0}
0x311c…314e Head {h00=0x002e, h01=0x0050, text=»EDP770 CF A14,EDGETN GET CHR FROM ELEMENT «, t00=0x001f, t01=0x00b6}
0x314e…317c Head {h00=0x002a, h01=0x0050, text=» RB EDP660 JUMP TO IM EDNOTZ AND STORE«, t00=0x001f, t01=0x00e8}
0x317c…318a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0116}
0x318a…31a0 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x001f, t01=0x0124}
0x31a0…31b6 Head {h00=0x0012, h01=0x0050, text=»* B (SPACE) * «, t00=0x001f, t01=0x013a}
0x31b6…31cc Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x001f, t01=0x0150}
0x31cc…31e2 Head {h00=0x0012, h01=0x0050, text=»LB EQU *-BASE «, t00=0x001f, t01=0x0166}
0x31e2…3206 Head {h00=0x0020, h01=0x0050, text=»EDP780 LDK A6,' ' LOAD SPACE«, t00=0x001f, t01=0x017c}
0x3206…3226 Head {h00=0x001c, h01=0x0050, text=» RB EDP670 JUMP TO STORE«, t00=0x0020, t01=0x0010}
0x3226…3242 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0020, t01=0x0030}
0x3242…325e Head {h00=0x0018, h01=0x0050, text=»* A (IGNORE SPACE) *«, t00=0x0020, t01=0x004c}
0x325e…327a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0020, t01=0x0068}
0x327a…3290 Head {h00=0x0012, h01=0x0050, text=»LA EQU *-BASE «, t00=0x0020, t01=0x0084}
0x3290…32ca Head {h00=0x0036, h01=0x0050, text=»EDP790 CF A14,EDGETA GET CHR FROM ELEMENT IN ASCII«, t00=0x0020, t01=0x009a}
0x32ca…32ee Head {h00=0x0020, h01=0x0050, text=» CCK A6,' ' COMP WITH SPACE«, t00=0x0020, t01=0x00d4}
0x32ee…3314 Head {h00=0x0022, h01=0x0050, text=» RB(E) EDP725 IGNORE IF SPACE «, t00=0x0020, t01=0x00f8}
0x3314…3342 Head {h00=0x002a, h01=0x0050, text=» RB EDP660 JUMP TO IM EDNOTZ AND STORE«, t00=0x0020, t01=0x011e}
0x3342…3376 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0020, t01=0x014c}
0x3376…33aa Head {h00=0x0030, h01=0x0050, text=»* F (NEXT CHR IS STORED AFTER SUPPRESSION) *«, t00=0x0020, t01=0x0180}
0x33aa…33de Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0021, t01=0x0024}
0x33de…33f4 Head {h00=0x0012, h01=0x0050, text=»LF EQU *-BASE «, t00=0x0021, t01=0x0058}
0x33f4…3422 Head {h00=0x002a, h01=0x0050, text=»EDP800 LC* A4,EDPPOI GET PICTURE CODE «, t00=0x0021, t01=0x006e}
0x3422…3446 Head {h00=0x0020, h01=0x0050, text=» IM EDPPOI INCREMENT POINTER«, t00=0x0021, t01=0x009c}
0x3446…3474 Head {h00=0x002a, h01=0x0050, text=» ST A4,EDFCH STORE CHARACTER IN EDFCH «, t00=0x0021, t01=0x00c0}
0x3474…3486 Head {h00=0x000e, h01=0x0050, text=» IM EDCNTP«, t00=0x0021, t01=0x00ee}
0x3486…34a8 Head {h00=0x001e, h01=0x0050, text=»EDP805 RB EDP725 JUMP BACK«, t00=0x0021, t01=0x0100}
0x34a8…34b6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0122}
0x34b6…34ca Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0021, t01=0x0130}
0x34ca…34de Head {h00=0x0010, h01=0x0050, text=»* + (PLUS) *«, t00=0x0021, t01=0x0144}
0x34de…34f2 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0021, t01=0x0158}
0x34f2…350a Head {h00=0x0014, h01=0x0050, text=»LPLUS EQU *-BASE«, t00=0x0021, t01=0x016c}
0x350a…352e Head {h00=0x0020, h01=0x0050, text=»EDP810 LD A1,EDSIGN GET SIGN«, t00=0x0021, t01=0x0184}
0x352e…3556 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) EDP830 JUMP IF POSITIVE «, t00=0x0022, t01=0x0018}
0x3556…357a Head {h00=0x0020, h01=0x0050, text=»EDP820 LDK A6,'-' LOAD MINUS«, t00=0x0022, t01=0x0040}
0x357a…35a0 Head {h00=0x0022, h01=0x0050, text=» RB EDP670 STORE SIGN IN BUFF «, t00=0x0022, t01=0x0064}
0x35a0…35c4 Head {h00=0x0020, h01=0x0050, text=»EDP830 LDK A6,'+' LOAD PLUS«, t00=0x0022, t01=0x008a}
0x35c4…35d6 Head {h00=0x000e, h01=0x0050, text=» RB EDP670«, t00=0x0022, t01=0x00ae}
0x35d6…35ec Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0022, t01=0x00c0}
0x35ec…3602 Head {h00=0x0012, h01=0x0050, text=»* - (MINUS) * «, t00=0x0022, t01=0x00d6}
0x3602…3618 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0022, t01=0x00ec}
0x3618…3632 Head {h00=0x0016, h01=0x0050, text=»LMINUS EQU *-BASE «, t00=0x0022, t01=0x0102}
0x3632…3656 Head {h00=0x0020, h01=0x0050, text=»EDP840 LD A1,EDSIGN GET SIGN«, t00=0x0022, t01=0x011c}
0x3656…3678 Head {h00=0x001e, h01=0x0050, text=» RB(Z) EDP820 STORE MINUS «, t00=0x0022, t01=0x0140}
0x3678…3696 Head {h00=0x001a, h01=0x0050, text=» RB EDP780 STORE SPACE«, t00=0x0022, t01=0x0162}
0x3696…36c2 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0022, t01=0x0180}
0x36c2…36ee Head {h00=0x0028, h01=0x0050, text=»* S (LEADING ZERO REPLACED BY SIGN)*«, t00=0x0023, t01=0x001c}
0x36ee…371a Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0023, t01=0x0048}
0x371a…3730 Head {h00=0x0012, h01=0x0050, text=»LS EQU *-BASE «, t00=0x0023, t01=0x0074}
0x3730…375a Head {h00=0x0026, h01=0x0050, text=»EDP850 IM EDSUPP MARK SUPPRESSION «, t00=0x0023, t01=0x008a}
0x375a…3786 Head {h00=0x0028, h01=0x0050, text=» CF A14,EDGETN GET CHR FROM ELEMENT «, t00=0x0023, t01=0x00b4}
0x3786…37b0 Head {h00=0x0026, h01=0x0050, text=» LD A1,EDNOTZ LOAD ZERO INDICATOR «, t00=0x0023, t01=0x00e0}
0x37b0…37dc Head {h00=0x0028, h01=0x0050, text=» RB(NZ) EDP670 STORE CHR IF NOT ZERO«, t00=0x0023, t01=0x010a}
0x37dc…37fe Head {h00=0x001e, h01=0x0050, text=» CWK A6,/30 COMP WITH ZERO«, t00=0x0023, t01=0x0136}
0x37fe…3822 Head {h00=0x0020, h01=0x0050, text=» RB(E) EDP810 JUMP IF EQUAL «, t00=0x0023, t01=0x0158}
0x3822…384c Head {h00=0x0026, h01=0x0050, text=» RB EDP660 IM EDNOTZ AND STORE CHR«, t00=0x0023, t01=0x017c}
0x384c…385a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0016}
0x385a…387c Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0024, t01=0x0024}
0x387c…389e Head {h00=0x001e, h01=0x0050, text=»* C:CONDITIONAL PICTURE * «, t00=0x0024, t01=0x0046}
0x389e…38c0 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0024, t01=0x0068}
0x38c0…38d6 Head {h00=0x0012, h01=0x0050, text=»LC EQU *-BASE «, t00=0x0024, t01=0x008a}
0x38d6…38fc Head {h00=0x0022, h01=0x0050, text=»EDP900 LD A4,EDSIGN LOAD SIGN «, t00=0x0024, t01=0x00a0}
0x38fc…3928 Head {h00=0x0028, h01=0x0050, text=» RB(NZ) EDP725 JUMP BACK IF POSITIVE«, t00=0x0024, t01=0x00c6}
0x3928…3952 Head {h00=0x0026, h01=0x0050, text=» LD A4,EDPPOI LOAD PICTURE POINTER«, t00=0x0024, t01=0x00f2}
0x3952…397e Head {h00=0x0028, h01=0x0050, text=» SU A4,EDCNTP SUB. WITH NEG.NUMBER=;«, t00=0x0024, t01=0x011c}
0x397e…39a6 Head {h00=0x0024, h01=0x0050, text=» ST A4,EDPPOI STORE NEW POINTER «, t00=0x0024, t01=0x0148}
0x39a6…39c2 Head {h00=0x0018, h01=0x0050, text=» RB EDP725 JUMP BACK«, t00=0x0024, t01=0x0170}
0x39c2…39cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x018c}
0x39cc…39d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0008}
0x39d6…39f6 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0025, t01=0x0012}
0x39f6…3a16 Head {h00=0x001c, h01=0x0050, text=»* PRINT SPACE IF BLANK *«, t00=0x0025, t01=0x0032}
0x3a16…3a36 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0025, t01=0x0052}
0x3a36…3a4c Head {h00=0x0012, h01=0x0050, text=»LD EQU *-BASE «, t00=0x0025, t01=0x0072}
0x3a4c…3a78 Head {h00=0x0028, h01=0x0050, text=» IM EDSUPP INDICATE SUPPRESSION CODE«, t00=0x0025, t01=0x0088}
0x3a78…3aa8 Head {h00=0x002c, h01=0x0050, text=» CF A14,EDGETA GET DIGIT IN ASCII TO A6 «, t00=0x0025, t01=0x00b4}
0x3aa8…3abc Head {h00=0x0010, h01=0x0050, text=» CWK A6,/20 «, t00=0x0025, t01=0x00e4}
0x3abc…3ae0 Head {h00=0x0020, h01=0x0050, text=» RB(E) EDP670 JUMP IF SPACE «, t00=0x0025, t01=0x00f8}
0x3ae0…3b16 Head {h00=0x0032, h01=0x0050, text=» RB EDP660 STORE AND INDICATE NOT LEADING ZERO«, t00=0x0025, t01=0x011c}
0x3b16…3b24 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0152}
0x3b24…3b38 Head {h00=0x0010, h01=0x0050, text=»TABPIC EQU *«, t00=0x0025, t01=0x0160}
0x3b38…3b4e Head {h00=0x0012, h01=0x0050, text=» DATA 'ABCDFP'«, t00=0x0025, t01=0x0174}
0x3b4e…3b64 Head {h00=0x0012, h01=0x0050, text=» DATA 'STVZ09'«, t00=0x0025, t01=0x018a}
0x3b64…3b7a Head {h00=0x0012, h01=0x0050, text=» DATA '.,+-*' «, t00=0x0026, t01=0x0010}
0x3b7a…3b84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0026}
0x3b84…3b98 Head {h00=0x0010, h01=0x0050, text=»CODTAB EQU *«, t00=0x0026, t01=0x0030}
0x3b98…3bac Head {h00=0x0010, h01=0x0050, text=» BYTE LA,LB «, t00=0x0026, t01=0x0044}
0x3bac…3bc0 Head {h00=0x0010, h01=0x0050, text=» BYTE LC,LD «, t00=0x0026, t01=0x0058}
0x3bc0…3bd4 Head {h00=0x0010, h01=0x0050, text=» BYTE LF,LP «, t00=0x0026, t01=0x006c}
0x3bd4…3be8 Head {h00=0x0010, h01=0x0050, text=» BYTE LS,LT «, t00=0x0026, t01=0x0080}
0x3be8…3bfc Head {h00=0x0010, h01=0x0050, text=» BYTE LV,LZ «, t00=0x0026, t01=0x0094}
0x3bfc…3c10 Head {h00=0x0010, h01=0x0050, text=» BYTE L0,L9 «, t00=0x0026, t01=0x00a8}
0x3c10…3c28 Head {h00=0x0014, h01=0x0050, text=» BYTE L.,LCOMMA «, t00=0x0026, t01=0x00bc}
0x3c28…3c42 Head {h00=0x0016, h01=0x0050, text=» BYTE LPLUS,LMINUS«, t00=0x0026, t01=0x00d4}
0x3c42…3c56 Head {h00=0x0010, h01=0x0050, text=» BYTE LAST,0«, t00=0x0026, t01=0x00ee}
0x3c56…3c60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0102}
0x3c60…3c74 Head {h00=0x0010, h01=0x0050, text=»TABLE EQU * «, t00=0x0026, t01=0x010c}
0x3c74…3c94 Head {h00=0x001c, h01=0x0050, text=» BYTE TXTEL,IMTXT D=0,1 «, t00=0x0026, t01=0x0120}
0x3c94…3cb4 Head {h00=0x001c, h01=0x0050, text=» BYTE STXTEL,RETUR 2,3«, t00=0x0026, t01=0x0140}
0x3cb4…3cd4 Head {h00=0x001c, h01=0x0050, text=» BYTE RETUR,RETUR 4,5 «, t00=0x0026, t01=0x0160}
0x3cd4…3cf4 Head {h00=0x001c, h01=0x0050, text=» BYTE RETUR,ENDSUB 6,7«, t00=0x0026, t01=0x0180}
0x3cf4…3d12 Head {h00=0x001a, h01=0x0050, text=» BYTE RETUR,RETUR 8,9 «, t00=0x0027, t01=0x0010}
0x3d12…3d30 Head {h00=0x001a, h01=0x0050, text=» BYTE RETUR,RETUR A,B «, t00=0x0027, t01=0x002e}
0x3d30…3d4e Head {h00=0x001a, h01=0x0050, text=» BYTE RETUR,RETUR C,D «, t00=0x0027, t01=0x004c}
0x3d4e…3d6a Head {h00=0x0018, h01=0x0050, text=» BYTE RETUR,COND E,F«, t00=0x0027, t01=0x006a}
0x3d6a…3d74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0086}
0x3d74…3d88 Head {h00=0x0010, h01=0x0050, text=»TABZON EQU *«, t00=0x0027, t01=0x0090}
0x3d88…3da8 Head {h00=0x001c, h01=0x0050, text=» BYTE RETURN,EDTXT Z=0,1«, t00=0x0027, t01=0x00a4}
0x3da8…3dca Head {h00=0x001e, h01=0x0050, text=» BYTE EDFILL,EDFILL 2,3 «, t00=0x0027, t01=0x00c4}
0x3dca…3dea Head {h00=0x001c, h01=0x0050, text=» BYTE RETUR,RETUR 4,5 «, t00=0x0027, t01=0x00e6}
0x3dea…3e0a Head {h00=0x001c, h01=0x0050, text=» BYTE AFORM,RETUR 6,7 «, t00=0x0027, t01=0x0106}
0x3e0a…3e18 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0126}
0x3e18…3e48 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0027, t01=0x0134}
0x3e48…3e78 Head {h00=0x002c, h01=0x0050, text=»* GET CHARACTER FROM ELEMENT, NUMERIC * «, t00=0x0027, t01=0x0164}
0x3e78…3ea8 (40, 0, 398) Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0028, t01=0x0004}
0x3ea8…3ed6 Head {h00=0x002a, h01=0x0050, text=»EDGETN CF A14,EDGETA GET CHR IN ASCII «, t00=0x0028, t01=0x0034}
0x3ed6…3efc Head {h00=0x0022, h01=0x0050, text=» ANK A6,/F MASK OUT ZONE PART «, t00=0x0028, t01=0x0062}
0x3efc…3f20 Head {h00=0x0020, h01=0x0050, text=» ORK A6,/30 MAKE ASCII DIGIT«, t00=0x0028, t01=0x0088}
0x3f20…3f30 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0028, t01=0x00ac}
0x3f30…3f5e Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0028, t01=0x00bc}
0x3f5e…3f8c Head {h00=0x002a, h01=0x0050, text=»* GET CHARACTER FROM ELEMENT, ASCII * «, t00=0x0028, t01=0x00ea}
0x3f8c…3fba Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0028, t01=0x0118}
0x3fba…3fe0 Head {h00=0x0022, h01=0x0050, text=»EDGETA LD A1,EDCNTE LOAD INDEX«, t00=0x0028, t01=0x0146}
0x3fe0…4006 Head {h00=0x0022, h01=0x0050, text=» RF(N) GETBLK JUMP IF NEGATIVE«, t00=0x0028, t01=0x016c}
0x4006…402a (41, 0, 400) Head {h00=0x0020, h01=0x0050, text=» LC* A6,EDEPOI GET CHARACTER«, t00=0x0029, t01=0x0004}
0x402a…404e Head {h00=0x0020, h01=0x0050, text=» IM EDEPOI INCREMENT POINTER«, t00=0x0029, t01=0x0028}
0x404e…4074 Head {h00=0x0022, h01=0x0050, text=»GETBCD SRC A1,1 SHIFT CIRCULAR«, t00=0x0029, t01=0x004c}
0x4074…409c Head {h00=0x0024, h01=0x0050, text=» RF(N) GETRGT JUMP IF ODD INDEX «, t00=0x0029, t01=0x0072}
0x409c…40b0 Head {h00=0x0010, h01=0x0050, text=» LDKL A3,-1 «, t00=0x0029, t01=0x009a}
0x40b0…40e0 Head {h00=0x002c, h01=0x0050, text=» ADS A3,EDEPOI STEP DOWN ELEMENT POINTER«, t00=0x0029, t01=0x00ae}
0x40e0…4100 Head {h00=0x001c, h01=0x0050, text=» SRL A6,4 A6=LEFT DIGIT «, t00=0x0029, t01=0x00de}
0x4100…4118 Head {h00=0x0014, h01=0x0050, text=»GETB10 SUK A6,/F«, t00=0x0029, t01=0x00fe}
0x4118…413c Head {h00=0x0020, h01=0x0050, text=» RF(Z) GETBLK JUMP IF BLANK «, t00=0x0029, t01=0x0116}
0x413c…4160 Head {h00=0x0020, h01=0x0050, text=» ADK A6,/3F MAKE ASCII DIGIT«, t00=0x0029, t01=0x013a}
0x4160…4172 Head {h00=0x000e, h01=0x0050, text=» RF GETRTN«, t00=0x0029, t01=0x015e}
0x4172…419a Head {h00=0x0024, h01=0x0050, text=»GETRGT ANK A6,/F A6=RIGHT DIGIT «, t00=0x0029, t01=0x0170}
0x419a…41ac Head {h00=0x000e, h01=0x0050, text=» RB GETB10«, t00=0x002a, t01=0x0008}
0x41ac…41d4 Head {h00=0x0024, h01=0x0050, text=»GETRTN IM EDCNTE INCREMENT INDEX«, t00=0x002a, t01=0x001a}
0x41d4…41e4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002a, t01=0x0042}
0x41e4…4206 Head {h00=0x001e, h01=0x0050, text=»GETBLK LDK A6,/20 A6=SPACE«, t00=0x002a, t01=0x0052}
0x4206…4218 Head {h00=0x000e, h01=0x0050, text=» RB GETRTN«, t00=0x002a, t01=0x0074}
0x4218…4224 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x002a, t01=0x0086}
0x4224…4228 Head {h00=0x4004, h01=0x0000}
0x4228…422c 00 2a 00 92 ┆ * ┆
0x422c…4234 (43, 1, 8) 20 04 00 00 00 2b 00 04 ┆ + ┆
0x4234…4284 (44, 0, 400) 53 54 41 54 55 53 00 93 01 84 00 18 00 50 5c 44 41 54 41 5c 30 5c 45 43 42 20 41 44 44 52 45 53 53 20 00 94 00 0e 00 12 00 50 5c 44 41 54 41 5c 30 5c 4f 52 44 45 52 20 00 94 00 2a 00 2a 00 50 5c 44 41 54 41 5c 44 43 31 35 44 43 5c 50 4f 49 ┆STATUS P DATA 0 ECB ADDRESS P DATA 0 ORDER * * P DATA DC15DC POI┆
0x4284…42d4 4e 54 45 52 20 54 4f 20 41 44 44 52 45 53 53 20 42 4c 4f 43 4b 20 00 94 00 40 00 18 00 50 5c 44 41 54 41 5c 30 5c 54 54 41 42 20 41 44 44 52 45 53 53 00 94 00 6e 00 24 00 50 5c 44 41 54 41 5c 30 5c 57 41 49 54 2f 41 43 54 49 56 41 54 45 20 ┆NTER TO ADDRESS BLOCK @ P DATA 0 TTAB ADDRESS n $ P DATA 0 WAIT/ACTIVATE ┆
0x42d4…4324 49 4e 44 49 43 41 54 4f 52 20 00 94 00 8a 00 16 00 50 5c 44 41 54 41 5c 30 5c 54 41 53 4b 20 51 55 45 55 45 00 94 00 b2 00 1a 00 50 5c 44 41 54 41 5c 30 5c 54 49 4d 45 52 20 50 4f 49 4e 54 45 52 20 00 94 00 cc 00 28 00 50 5c 44 41 54 41 5c ┆INDICATOR P DATA 0 TASK QUEUE P DATA 0 TIMER POINTER ( P DATA ┆
0x4324…4374 30 5c 57 52 49 54 45 20 51 55 45 55 45 20 4f 52 20 42 55 46 46 45 52 20 51 55 45 55 45 20 00 94 00 ea 00 2e 00 50 5c 44 41 54 41 5c 30 5c 53 54 41 54 55 53 20 51 55 45 55 45 20 28 4e 4f 54 20 55 53 45 44 20 42 59 20 44 43 2d 54 41 53 4b 29 ┆0 WRITE QUEUE OR BUFFER QUEUE . P DATA 0 STATUS QUEUE (NOT USED BY DC-TASK)┆
0x4374…43c4 00 94 01 16 00 22 00 50 5c 44 41 54 41 5c 30 5c 52 45 43 45 49 56 45 20 4d 45 53 53 41 47 45 20 51 55 45 55 45 20 00 94 01 48 00 2c 00 50 5c 44 41 54 41 5c 30 5c 53 49 4d 55 4c 41 54 45 44 20 44 45 56 49 43 45 20 42 55 46 46 45 52 20 41 44 ┆ " P DATA 0 RECEIVE MESSAGE QUEUE H , P DATA 0 SIMULATED DEVICE BUFFER AD┆