|
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: 19802 (0x4d5a)
Notes: pts_type(SC)
Names: »RECASM.SC«
└─⟦cd4bbebb4⟧ Bits:30009680 Philips computer tape "600221"
└─⟦this⟧ »ATM/RECASM.SC«
└─⟦this⟧ »ATM6601/RECASM.SC«
└─⟦this⟧ »BEBATM/RECASM.SC«
IDENT RECASM TABS REL. 1.0. 80/12/08 B.T ENTRY RECASM ENTRY TO THE ROUTINE ENTRY RECBUF SET UP A CHAIN OF BUFFER ENTRY RECITO COPY DATA OR QUEUE ENTRY RECOPY ENTRY TO COPY DATA ENTRY RECTCK EXTRN I:RT1 RETURN TO THE CREDIT EXTRN T:FDSP GET ECB IN REG A8 EXTRN I:EVA0 GET DATA POINTER * * * * * EQUATES * * MODNOP EQU X'0001' MODEM NOT OPERABLE NORESP EQU X'0002' NO RESPONSE,NOT IN POLL LIST INVATC EQU X'0004' INVALID TC PLOVER EQU X'0008' POL LIST OVERFLOW LIOPEN EQU X'0010' LINE OPEN LICLOS EQU X'0010' LINE CLOSE INACTC EQU X'0020' TC NOT ACTIVE NOTCPL EQU X'0040' NO TC IN POL LIST * * * * EJECT *********************************************************************** * THIS SUBROUTINE ALLOWS THE FOLLOWING FACILITIES ON A * * REMOTE LINE: * * ORDER CODE /22: OPEN LINE * * /24: CLOSE LINE * * /26: HALT POLLING * * /27: START POLLING * * /00: TEST LINE * * /37: OPEN TERMINAL COMPUTER * * /38: CLOSE TERMINAL COMPUTER * * ENTRY TO THE SUBROUTINE FROM CREDIT APPLICATION PROGRAM * * IS AS FOLLOWS * * CALL RECASM,DSET,CONTRL VALUE,BINARY VALUE,INDEX * * RECASM: NAME OF THE SUBROUTINE * * DSET: DATASET NAME * * CVAL: X'24' : CLOSE LINE * * X'26' : HALT POLLING * * X'00' : TEST LINE * * X'B7' : OPEN TERMINAL COMPUTER * * X'B8' : CLOSE TERMINAL COMPUTER * * X'27' * START POLLING * * BINARY ITEM MUST CONTAIN ONE OF THE FOLLOWING VALUES FOR * * VARIOUS ORDER CODES * * INDEX: IS BINARY VALUE,UPON THE EXIT OF THE SUBROUTINE ONE * * OF THE FOLLOWING VALUES IS SET BY THE SUBROUTINE * * 1= COMPLETION OK ALL ORDER CODES * * 2= MODEM INOPERABLE ALL ORDER CODES * * OR LINE CLOSED START POLL, OPEN/CLOSE TC * * OR POLL LIST OVERFLOW OPEN TC * * 3= LINE OPEN OPEN LINE * * LINE CLOSED CLOSE LINE,HALT POLLING * * TC INACTIVE OPEN TC * * NOT IN POLL LIST CLOSE TC * * 0= OTHER ERROR TEST LINE,START POLL,OPEN TC * *********************************************************************** EJECT * * * * * EVENT CONTROL BLOCKS EQUATES * * * * * ECBBA EQU 2 ECB BUFFER ADDRESS ECBRL EQU 4 ECB REQUESTED LENGTH ECBBL EQU 6 ECB EFFECTIVE LENGTH ECBRC EQU 8 ECB CONTROL WORD ECBCW EQU 10 ECB RETURN CODE * * * * * * * * ORDER CODE EQUATES * * ORTEST EQU /00 TEST LINE OROPEN EQU /22 OPEN LINE ORCLOS EQU /24 CLOSE LINE ORHALT EQU /26 HALT POLLING ORSTRT EQU /27 START POLLING OROPTC EQU /37 OPEN TC ORCLTC EQU /38 CLOSE TC * * * EJECT * RECASM EQU * ENTRY TO THE MODULE CF A14,T:FDSP GET DATA SET (ECB IN A8) CF A14,I:EVA0 GET ORDER CODE ADDRESS LDR* A7,A9 LOAD ORDER CODE IN A7 CF A14,I:EVA0 GET CONTROL VALUE ADDRESS LDR* A9,A9 LOAD CONTROL VALUE ST A9,ECBCW,A8 STORE CONTROL VALUE IN ECB LKM DATA 1 LINK TO THE MONITOR LD A2,ECBRC,A8 LOAD RETURN CODE RF(Z) REC105 REQUEST O.K. ANK A7,/7F TEST LINE RF(Z) RECW30 TESTLINE SUK A7,OROPEN RF(Z) RECW00 OPEN LINE SUK A7,ORCLOS-OROPEN RF(Z) RECW10 CLOSE LINE SUK A7,ORHALT-ORCLOS RF(Z) RECW20 HALT POLLING SUK A7,ORSTRT-ORHALT RF(Z) RETCOP START POLLING RF RETCCL REC100 EQU * CF A14,I:EVA0 GET INDEX POINTER LD A2,ECBCW,A8 LOAD INDEX ADK A2,1 STR A2,A9 ABL I:RT1 RETURN TO THE CREDIT INTERPRETER REC105 EQU * ST A2,ECBCW,A8 STORE IN CONTROL RB REC100 EJECT * * * RECW00 EQU * CONTROL WORD =0, OPEN LINE LDK A3,1 SET INDEX TO 1 SUK A2,MODNOP RF(Z) RECW05 MODEM NOT OPERABLE ADK A3,1 ADD 1 TO INDEX SUK A2,LIOPEN-MODNOP RF(Z) RECW05 LINE ALREADY OPEN LDKL A3,-1 SET INDEX TO NEGATIVE RECW05 EQU * ST A3,ECBCW,A8 RB REC100 * * * EJECT * * * RECW20 EQU * HALT POLLING RECW10 EQU * CLOSE LINE ERROR ROUTINE LDK A3,1 SET INDEX TO 1 SUK A2,MODNOP RB(Z) RECW05 MODEM NOPERABLE ADK A3,1 SUK A2,LICLOS-MODNOP RB(Z) RECW05 LINE ALREADY CLOSED LDKL A3,-1 SET NEGATIVE INDEX RB RECW05 * * * RECW30 EQU * TEST LINE RB RECW00 * * * EJECT RETCCL EQU * CLOSE LINE RETCOP EQU * OPEN LINE LD A2,ECBRC,A8 GET RETURN CODE LDK A3,1 SET INDEX TO 1 SUK A2,MODNOP MODEM NOT OPERABLE RF(Z) RETC10 SUK A2,PLOVER-MODNOP RF(Z) RETC10 POLL LIST OVERFLOW SUK A2,LICLOS-PLOVER RF(Z) RETC10 LINE CLOSE ADK A3,1 SUK A2,INACTC-LICLOS RF(Z) RETC10 SUK A2,NOTCPL-INACTC NOT IN POLL LIST RF(Z) RETC10 LDKL A3,-1 SET INDEX TO NEGATIVE RETC10 EQU * ST A3,ECBCW,A8 ABL REC100 EJECT ************************************************************************* * * * THIS ROUTINE SETS UP A CHAIN OF 6 BUFFERS. * * * * ENTRY :- * * CALL RECBUFF,BUF1,BUF2,BUF3,BUF4,BUF5,BUF6 * * * ************************************************************************* * * RECBUF EQU * ENTRY TO THE ROUTINE CF A14,I:EVA0 GET FIRST BUF POINTER CM 2,A9 CLEAR TASK ID CF A14,STBUF STORE BUFFER POINTER CF A14,I:EVA0 GET SECOND BUFFER POINTER CM 2,A9 CLEAR TASK ID CF A14,STBUF STORE BUFFER POINTER ABL I:RT1 RETURN TO THE CREDIT PROGFAM * * * END OF ROTINE * * EJECT * * A ROUTINE TO STORE BUFFER * * ENTRY :- * REGISTER A9 MUST CONTAIN THE BUFFER POINTER * * * STBUF EQU * LDKL A2,BUFADR LOAD BUFFER ANCHOR STBUF0 EQU * LDR* A3,A2 RF(Z) STBUF1 END OF CHAIN LDR A2,A3 RB STBUF0 TRY AGAIN STBUF1 EQU * END OF CHAIN STR A9,A2 STORE BUFFER POINTER CMR A9 RTN A14 EXIT FROM THE ROUTINE * * * END OF THE ROUTINE * * * EJECT ************************************************************************ * * * GET BUFFER FROM THE POOL AND CHECK TASK ID * * * * ENTRY :- * * CF A14,RECGET * * * * EXIT :- * * * * A9 CONTAINS THE BUFFER ADDRESS OR ZER0 * * * ************************************************************************ * * RECGET EQU * ENTRY TO THE ROUTINE LDKL A4,BUFADR GET BUFFER ANCHOR RECG10 EQU * LDR* A9,A4 LD A3,2,A9 LOAD TASK ID LD* A2,BUF400 LOAD CURRENT TASK ID CWR A2,A3 CHECK FOR SAME TASK RF(E) REC640 YES SAME TASK SRL A3,8 ANK A3,/7F ANK A2,/7F CWR A2,A3 RF(E) RECG20 SAME ID LDR A4,A9 RF(Z) RECG30 RB RECG10 RECG20 EQU * LDR* A3,A9 REMOVE FROM QUEUE STR A3,A4 CMR A9 RECG30 EQU * RTN A14 RETURN TO THE CALLER REC640 EQU * SAME TASK LDKL A2,/4B31 LOAD 'K1'TASK ID ST A2,2,A9 STORE IN TASK ID RB RECG20 SEND IT * * * END OF THE ROUTINE * * * BUFADR DATA 0 BUFFER ANCHOR POINTER BUF100 DATA 0 SOURCE BUFFER ADDRESS BUF200 DATA 0 TARGET BUFFER ADDRESS BUF300 DATA 0 FLAG/INDEX ADDRESS BUF400 DATA 0 TASK ID ADDRESS * * * EJECT ************************************************************************ * * * COPY DATA FROM SOURCE BUFFER TO TARGET BUFFER * * * * ENTRY :- * * * * CF 14,COPY * * REGISTER A9 = SOURCE BUFFER POINTER * * REGISTER A4 ~ TARGET BUFFER POINTER * * * * EXIT :- * * * * DATA FROM SOURCE BUFFER ADDRESS WILL BE COPIED * * TO TARGET BUFFER ADDRESS * * * ************************************************************************ * * * COPY EQU * ENTRY TO THE ROUTINE ADKL A9,2 LDR A3,A9 SAVE BUFFER ADDRESS LD A2,2,A9 GET LENGTH COPY10 EQU * LDR A2,A2 RF(NP) COPY20 END OF COPY LDR* A1,A3 STR A1,A4 STORE DATA ADK A3,2 UPDATE BUFFER POINTER ADK A4,2 SUK A2,2 DECREMENT COUNTER RB COPY10 COPY20 EQU * CMR A9 CLEAR TASK ID SUKL A9,2 RESET BUFFER POINTER RTN A14 EXIT FROM THE ROUTINE * * * END OF COPY ROUTINE * * EJECT *********************************************************************** * * * G E T A N Y B U F F E R A D R R E S S * * * * ENTRY :- * * CF A14 GETANY * * * * EXIT :- * * * * A9 = BUFFER ADDRESS IF AVAILABLE OR ZERO * * * *********************************************************************** * * * GETANY EQU * ENTRY TO THE ROUTINE LDKL A4,BUFADR GET BUFFER ANCHOR GETA10 EQU * LDR* A9,A4 RF(Z) GETA40 NO BUFFER AVAILABLE LD A2,2,A9 GET TASK ID RF(Z) GETA20 BUFFER AVAILABLE LDR A4,A9 RB GETA10 TRY AGAIN GETA20 EQU * LDR* A3,A9 REMOVE FROM THE QUEUE STR A3,A4 CMR A9 GETA40 EQU * RTN A14 * * * END OF GET FREE BUFFER * * * EJECT * * * RECITO EQU * ENTRY TO THE ROUTINE CF A14,I:EVA0 GET SOURCE BUFFER ADDRESS ST A9,BUF100 CF A14,I:EVA0 GET TARGET BUFFER ADDRESS ST A9,BUF200 CF A14,I:EVA0 GET BINARY FLAG/INDEX BUFFER ADDRESS ST A9,BUF300 CF A14,I:EVA0 GET TASK ID ADDRESS ST A9,BUF400 LD* A4,BUF400 LOAD TASK ID LD A9,BUF100 LD* A3,BUF100 LOAD TASK ID CWR A3,A4 CHECK IF EQUAL RF(NE) RECI05 NOT EQUAL LDKL A3,/4B31 'K1' TASK ID ST* A3,BUF100 RECI05 EQU * CF A14,RECGET GET MESSAGE BUFFER IF IN QUEUE LDR A1,A9 RF(Z) RECT20 NOTHING IN THE QUEUE LD A4,BUF200 LOAD TARGET BUFFER ADDRESS CF A14,COPY COPY DATA CF A14,STBUF RELEASE BUFFER CF A14,GETANY GET SPARE BUFFER LDR A9,A9 RF(Z) RECT15 NO BUFFER AVAILABLE LDR A4,A9 ADKL A4,2 SET TARGET BUFFER ADDRESS LDR A7,A9 SAVE BUFFER ADDRESS LD A9,BUF100 LOAD TARGET BUFFER SUKL A9,2 SET SOURCE BUFFER ADDRESS CF A14,COPY LDR A9,A7 RESTORE BUFFER ADDRESS CF A14,STBUF RELEASE BUFFER LDK A1,1 RF RECT25 RECT15 EQU * LDK A1,2 RF RECT25 RECT20 EQU * LD A9,BUF100 LDR* A4,A9 LOAD TASK ID SRL A4,8 ANK A4,/7F CCK A4,/52 RF(NE) RECT21 LDKL A4,/4B31 'K1'TASK ST* A4,BUF100 STORE TASK ID RECT21 EQU * SUKL A9,2 SET BUFFER-2 LD A4,BUF200 LOAD TARGET BUFFER CF A14,COPY LDK A1,0 RECT25 EQU * ADK A1,1 ST* A1,BUF300 ST*ORE INDEX ABL I:RT1 RETURN TO CREDIT PROGRAM * * * EJECT * * * RECTCK EQU * ENTRY TO THE ROUTINE CF A14,I:EVA0 GET TARGET ADDRESS ST A9,BUF200 CF A14,I:EVA0 GET BINARY INDEX ST A9,BUF300 CF A14,I:EVA0 GET TASK ID ST A9,BUF400 CF A14,RECGET GET MESSAGE LDK A1,2 LDR A9,A9 RB(Z) RECT25 NOTHING IN THE QUEUE LD A4,BUF200 LOAD TARGET BUFFER CF A14,COPY CF A14,STBUF RELEASE BUFFER LDK A1,0 RB RECT25 CREDIT PROGRAM * * * END OF CHECK ROUTINE * 0 = DATA COPIED FROM QUED BUFFER * 1 = DATA COPIED FROM QUED BUFFER AND MORE * 2 = NO DATA IN QUEUE * * EJECT ************************************************************************* * * * FUNCTION :- * * TO COPY DATA FROM SOURCE BUFFER TO ONE OF THE * * COMMON BUFFERS. * * * * ENTRY :- * * CALL RECOPY,BUFFER,BINARYINDEX * * RECOPY = NAME OF THE ROUTINE * * BUFFER = DATA BUFFER * * BIN.INDEX= BINARY ITEM * * * * EXIT :- * * BINARY INDEX IS SET TO 1 IF DATA IS COPIED, * * OTHERWISE IT WILL BE SET TO 2. * * * ************************************************************************* * * RECOPY EQU * ENTRY TO THE ROUTINE CF A14,I:EVA0 GET SOURCE BUFFER ADDRESS ST A9,BUF100 CF A14,I:EVA0 GET BINARY INDEX ST A9,BUF300 CF A14,GETANY GET BUFFER LDK A1,1 SET INDEX TO 1 LDR A4,A9 CHECK FOR BUFFER AVAILABILITY RB(Z) RECT25 LDR A7,A4 SAVE BUFFER POINTER ADK A4,2 LD A9,BUF100 LOAD SOURCE BUFFER SUKL A9,2 CF A14,COPY COPY DATA LDR A9,A7 RESET TARGET BUFFER CF A14,STBUF RELEASE BUFFER LDK A1,0 RB RECT25 RETURN TO THE CALLING PROGRAM * * * END OF THE ROUTINE * * * END
0x0000…0034 (0, 0, 398) Head {h00=0x0030, h01=0x0050, text=» IDENT RECASM TABS REL. 1.0. 80/12/08 B.T «, t00=0x0000, t01=0x0004}
0x0034…005e Head {h00=0x0026, h01=0x0022, text=» ENTRY RECASM ENTRY TO THE ROUTINE«, t00=0x0000, t01=0x0038}
0x005e…008c Head {h00=0x002a, h01=0x0050, text=» ENTRY RECBUF SET UP A CHAIN OF BUFFER«, t00=0x0000, t01=0x0062}
0x008c…00b4 Head {h00=0x0024, h01=0x0050, text=» ENTRY RECITO COPY DATA OR QUEUE«, t00=0x0000, t01=0x0090}
0x00b4…00dc Head {h00=0x0024, h01=0x0050, text=» ENTRY RECOPY ENTRY TO COPY DATA«, t00=0x0000, t01=0x00b8}
0x00dc…00f2 Head {h00=0x0012, h01=0x0050, text=» ENTRY RECTCK «, t00=0x0000, t01=0x00e0}
0x00f2…011c Head {h00=0x0026, h01=0x0021, text=» EXTRN I:RT1 RETURN TO THE CREDIT «, t00=0x0000, t01=0x00f6}
0x011c…0144 Head {h00=0x0024, h01=0x001f, text=» EXTRN T:FDSP GET ECB IN REG A8 «, t00=0x0000, t01=0x0120}
0x0144…016a Head {h00=0x0022, h01=0x001e, text=» EXTRN I:EVA0 GET DATA POINTER«, t00=0x0000, t01=0x0148}
0x016a…0174 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x016e}
0x0174…017e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0178}
0x017e…0188 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0182}
0x0188…0192 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x018c}
0x0192…01aa Head {h00=0x0014, h01=0x000f, text=»* EQUATES «, t00=0x0001, t01=0x0008}
0x01aa…01b4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0020}
0x01b4…01be Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x002a}
0x01be…01ec Head {h00=0x002a, h01=0x0025, text=»MODNOP EQU X'0001' MODEM NOT OPERABLE «, t00=0x0001, t01=0x0034}
0x01ec…0224 Head {h00=0x0034, h01=0x0050, text=»NORESP EQU X'0002' NO RESPONSE,NOT IN POLL LIST «, t00=0x0001, t01=0x0062}
0x0224…024a Head {h00=0x0022, h01=0x0050, text=»INVATC EQU X'0004' INVALID TC «, t00=0x0001, t01=0x009a}
0x024a…0276 Head {h00=0x0028, h01=0x0050, text=»PLOVER EQU X'0008' POL LIST OVERFLOW«, t00=0x0001, t01=0x00c0}
0x0276…029a Head {h00=0x0020, h01=0x001c, text=»LIOPEN EQU X'0010' LINE OPEN«, t00=0x0001, t01=0x00ec}
0x029a…02c0 Head {h00=0x0022, h01=0x001d, text=»LICLOS EQU X'0010' LINE CLOSE «, t00=0x0001, t01=0x0110}
0x02c0…02e8 Head {h00=0x0024, h01=0x0050, text=»INACTC EQU X'0020' TC NOT ACTIVE«, t00=0x0001, t01=0x0136}
0x02e8…0314 Head {h00=0x0028, h01=0x0050, text=»NOTCPL EQU X'0040' NO TC IN POL LIST«, t00=0x0001, t01=0x015e}
0x0314…031e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x018a}
0x031e…0328 (2, 0, 400) Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0004}
0x0328…0332 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x000e}
0x0332…033c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0018}
0x033c…034a Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0002, t01=0x0022}
0x034a…039a Head {h00=0x004c, h01=0x0047, text=»*********************************************************************** «, t00=0x0002, t01=0x0030}
0x039a…03ea Head {h00=0x004c, h01=0x0047, text=»* THIS SUBROUTINE ALLOWS THE FOLLOWING FACILITIES ON A * «, t00=0x0002, t01=0x0080}
0x03ea…043a Head {h00=0x004c, h01=0x0047, text=»* REMOTE LINE: * «, t00=0x0002, t01=0x00d0}
0x043a…048a Head {h00=0x004c, h01=0x0050, text=»* ORDER CODE /22: OPEN LINE * «, t00=0x0002, t01=0x0120}
0x048a…04da Head {h00=0x004c, h01=0x0050, text=»* /24: CLOSE LINE * «, t00=0x0002, t01=0x0170}
0x04da…052a Head {h00=0x004c, h01=0x0050, text=»* /26: HALT POLLING * «, t00=0x0003, t01=0x0030}
0x052a…057a Head {h00=0x004c, h01=0x0050, text=»* /27: START POLLING * «, t00=0x0003, t01=0x0080}
0x057a…05ca Head {h00=0x004c, h01=0x0050, text=»* /00: TEST LINE * «, t00=0x0003, t01=0x00d0}
0x05ca…061a Head {h00=0x004c, h01=0x0050, text=»* /37: OPEN TERMINAL COMPUTER * «, t00=0x0003, t01=0x0120}
0x061a…066a Head {h00=0x004c, h01=0x0050, text=»* /38: CLOSE TERMINAL COMPUTER * «, t00=0x0003, t01=0x0170}
0x066a…06ba Head {h00=0x004c, h01=0x0047, text=»* ENTRY TO THE SUBROUTINE FROM CREDIT APPLICATION PROGRAM * «, t00=0x0004, t01=0x0030}
0x06ba…070a Head {h00=0x004c, h01=0x0047, text=»* IS AS FOLLOWS * «, t00=0x0004, t01=0x0080}
0x070a…0754 Head {h00=0x0046, h01=0x0050, text=»* CALL RECASM,DSET,CONTRL VALUE,BINARY VALUE,INDEX * «, t00=0x0004, t01=0x00d0}
0x0754…07a4 Head {h00=0x004c, h01=0x0047, text=»* RECASM: NAME OF THE SUBROUTINE * «, t00=0x0004, t01=0x011a}
0x07a4…07f4 Head {h00=0x004c, h01=0x0047, text=»* DSET: DATASET NAME * «, t00=0x0004, t01=0x016a}
0x07f4…0844 Head {h00=0x004c, h01=0x0050, text=»* CVAL: X'24' : CLOSE LINE * «, t00=0x0005, t01=0x002a}
0x0844…0894 Head {h00=0x004c, h01=0x0050, text=»* X'26' : HALT POLLING * «, t00=0x0005, t01=0x007a}
0x0894…08e4 Head {h00=0x004c, h01=0x0050, text=»* X'00' : TEST LINE * «, t00=0x0005, t01=0x00ca}
0x08e4…0934 Head {h00=0x004c, h01=0x0050, text=»* X'B7' : OPEN TERMINAL COMPUTER * «, t00=0x0005, t01=0x011a}
0x0934…0984 Head {h00=0x004c, h01=0x0050, text=»* X'B8' : CLOSE TERMINAL COMPUTER * «, t00=0x0005, t01=0x016a}
0x0984…09d0 Head {h00=0x0048, h01=0x0050, text=»* X'27' * START POLLING * «, t00=0x0006, t01=0x002a}
0x09d0…0a20 Head {h00=0x004c, h01=0x0050, text=»* BINARY ITEM MUST CONTAIN ONE OF THE FOLLOWING VALUES FOR * «, t00=0x0006, t01=0x0076}
0x0a20…0a70 Head {h00=0x004c, h01=0x0047, text=»* VARIOUS ORDER CODES * «, t00=0x0006, t01=0x00c6}
0x0a70…0ac0 Head {h00=0x004c, h01=0x0047, text=»* INDEX: IS BINARY VALUE,UPON THE EXIT OF THE SUBROUTINE ONE * «, t00=0x0006, t01=0x0116}
0x0ac0…0b10 Head {h00=0x004c, h01=0x0047, text=»* OF THE FOLLOWING VALUES IS SET BY THE SUBROUTINE * «, t00=0x0006, t01=0x0166}
0x0b10…0b4c Head {h00=0x0038, h01=0x0050, text=»* 1= COMPLETION OK ALL ORDER CODES * «, t00=0x0007, t01=0x0026}
0x0b4c…0b8a Head {h00=0x003a, h01=0x0050, text=»* 2= MODEM INOPERABLE ALL ORDER CODES *«, t00=0x0007, t01=0x0062}
0x0b8a…0bc4 Head {h00=0x0036, h01=0x0050, text=»* OR LINE CLOSED START POLL, OPEN/CLOSE TC * «, t00=0x0007, t01=0x00a0}
0x0bc4…0c04 Head {h00=0x003c, h01=0x0050, text=»* OR POLL LIST OVERFLOW OPEN TC *«, t00=0x0007, t01=0x00da}
0x0c04…0c3c Head {h00=0x0034, h01=0x0050, text=»* 3= LINE OPEN OPEN LINE * «, t00=0x0007, t01=0x011a}
0x0c3c…0c76 Head {h00=0x0036, h01=0x0050, text=»* LINE CLOSED CLOSE LINE,HALT POLLING * «, t00=0x0007, t01=0x0152}
0x0c76…0cb0 Head {h00=0x0036, h01=0x0050, text=»* TC INACTIVE OPEN TC * «, t00=0x0007, t01=0x018c}
0x0cb0…0cee Head {h00=0x003a, h01=0x0050, text=»* NOT IN POLL LIST CLOSE TC *«, t00=0x0008, t01=0x0036}
0x0cee…0d28 Head {h00=0x0036, h01=0x0050, text=»* 0= OTHER ERROR TEST LINE,START POLL,OPEN TC * «, t00=0x0008, t01=0x0074}
0x0d28…0d78 Head {h00=0x004c, h01=0x0047, text=»*********************************************************************** «, t00=0x0008, t01=0x00ae}
0x0d78…0d86 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0008, t01=0x00fe}
0x0d86…0d90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x010c}
0x0d90…0d9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0116}
0x0d9a…0da4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0120}
0x0da4…0dae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x012a}
0x0dae…0ddc Head {h00=0x002a, h01=0x0050, text=»* EVENT CONTROL BLOCKS EQUATES «, t00=0x0008, t01=0x0134}
0x0ddc…0de6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0162}
0x0de6…0df0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x016c}
0x0df0…0dfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0176}
0x0dfa…0e04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0180}
0x0e04…0e0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x018a}
0x0e0e…0e34 (9, 0, 400) Head {h00=0x0022, h01=0x0050, text=»ECBBA EQU 2 ECB BUFFER ADDRESS«, t00=0x0009, t01=0x0004}
0x0e34…0e5c Head {h00=0x0024, h01=0x0050, text=»ECBRL EQU 4 ECB REQUESTED LENGTH«, t00=0x0009, t01=0x002a}
0x0e5c…0e84 Head {h00=0x0024, h01=0x0050, text=»ECBBL EQU 6 ECB EFFECTIVE LENGTH«, t00=0x0009, t01=0x0052}
0x0e84…0ea8 Head {h00=0x0020, h01=0x0050, text=»ECBRC EQU 8 ECB CONTROL WORD«, t00=0x0009, t01=0x007a}
0x0ea8…0ecc Head {h00=0x0020, h01=0x0050, text=»ECBCW EQU 10 ECB RETURN CODE«, t00=0x0009, t01=0x009e}
0x0ecc…0ed6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00c2}
0x0ed6…0ee0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00cc}
0x0ee0…0eea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d6}
0x0eea…0ef4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00e0}
0x0ef4…0efe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ea}
0x0efe…0f08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00f4}
0x0f08…0f12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00fe}
0x0f12…0f36 Head {h00=0x0020, h01=0x0050, text=»* ORDER CODE EQUATES«, t00=0x0009, t01=0x0108}
0x0f36…0f40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x012c}
0x0f40…0f4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0136}
0x0f4a…0f6a Head {h00=0x001c, h01=0x0050, text=»ORTEST EQU /00 TEST LINE«, t00=0x0009, t01=0x0140}
0x0f6a…0f8a Head {h00=0x001c, h01=0x0050, text=»OROPEN EQU /22 OPEN LINE«, t00=0x0009, t01=0x0160}
0x0f8a…0fac Head {h00=0x001e, h01=0x0050, text=»ORCLOS EQU /24 CLOSE LINE «, t00=0x0009, t01=0x0180}
0x0fac…0fd0 Head {h00=0x0020, h01=0x0050, text=»ORHALT EQU /26 HALT POLLING «, t00=0x000a, t01=0x0012}
0x0fd0…0ff4 Head {h00=0x0020, h01=0x0050, text=»ORSTRT EQU /27 START POLLING«, t00=0x000a, t01=0x0036}
0x0ff4…1012 Head {h00=0x001a, h01=0x0050, text=»OROPTC EQU /37 OPEN TC«, t00=0x000a, t01=0x005a}
0x1012…1032 Head {h00=0x001c, h01=0x0050, text=»ORCLTC EQU /38 CLOSE TC «, t00=0x000a, t01=0x0078}
0x1032…103c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0098}
0x103c…1046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a2}
0x1046…1050 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ac}
0x1050…105e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00b6}
0x105e…1068 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x00c4}
0x1068…1090 Head {h00=0x0024, h01=0x0020, text=»RECASM EQU * ENTRY TO THE MODULE«, t00=0x000a, t01=0x00ce}
0x1090…10c0 Head {h00=0x002c, h01=0x0050, text=» CF A14,T:FDSP GET DATA SET (ECB IN A8) «, t00=0x000a, t01=0x00f6}
0x10c0…10ee Head {h00=0x002a, h01=0x0050, text=» CF A14,I:EVA0 GET ORDER CODE ADDRESS «, t00=0x000a, t01=0x0126}
0x10ee…1118 Head {h00=0x0026, h01=0x0021, text=» LDR* A7,A9 LOAD ORDER CODE IN A7 «, t00=0x000a, t01=0x0154}
0x1118…1148 Head {h00=0x002c, h01=0x0028, text=» CF A14,I:EVA0 GET CONTROL VALUE ADDRESS«, t00=0x000a, t01=0x017e}
0x1148…116e Head {h00=0x0022, h01=0x001e, text=» LDR* A9,A9 LOAD CONTROL VALUE«, t00=0x000b, t01=0x001e}
0x116e…11a0 Head {h00=0x002e, h01=0x0050, text=» ST A9,ECBCW,A8 STORE CONTROL VALUE IN ECB«, t00=0x000b, t01=0x0044}
0x11a0…11ac Head {h00=0x0008, h01=0x0004, text=» LKM«, t00=0x000b, t01=0x0076}
0x11ac…11d0 Head {h00=0x0020, h01=0x001b, text=» DATA 1 LINK TO THE MONITOR «, t00=0x000b, t01=0x0082}
0x11d0…11f8 Head {h00=0x0024, h01=0x0050, text=» LD A2,ECBRC,A8 LOAD RETURN CODE«, t00=0x000b, t01=0x00a6}
0x11f8…121a Head {h00=0x001e, h01=0x0050, text=» RF(Z) REC105 REQUEST O.K.«, t00=0x000b, t01=0x00ce}
0x121a…1238 Head {h00=0x001a, h01=0x0050, text=» ANK A7,/7F TEST LINE «, t00=0x000b, t01=0x00f0}
0x1238…1256 Head {h00=0x001a, h01=0x0050, text=» RF(Z) RECW30 TESTLINE«, t00=0x000b, t01=0x010e}
0x1256…126c Head {h00=0x0012, h01=0x0050, text=» SUK A7,OROPEN«, t00=0x000b, t01=0x012c}
0x126c…128c Head {h00=0x001c, h01=0x0050, text=» RF(Z) RECW00 OPEN LINE «, t00=0x000b, t01=0x0142}
0x128c…12aa Head {h00=0x001a, h01=0x0050, text=» SUK A7,ORCLOS-OROPEN «, t00=0x000b, t01=0x0162}
0x12aa…12ca Head {h00=0x001c, h01=0x0050, text=» RF(Z) RECW10 CLOSE LINE«, t00=0x000b, t01=0x0180}
0x12ca…12e8 Head {h00=0x001a, h01=0x0050, text=» SUK A7,ORHALT-ORCLOS «, t00=0x000c, t01=0x0010}
0x12e8…130a Head {h00=0x001e, h01=0x0050, text=» RF(Z) RECW20 HALT POLLING«, t00=0x000c, t01=0x002e}
0x130a…1328 Head {h00=0x001a, h01=0x0050, text=» SUK A7,ORSTRT-ORHALT «, t00=0x000c, t01=0x0050}
0x1328…134c Head {h00=0x0020, h01=0x0050, text=» RF(Z) RETCOP START POLLING «, t00=0x000c, t01=0x006e}
0x134c…135e Head {h00=0x000e, h01=0x0050, text=» RF RETCCL«, t00=0x000c, t01=0x0092}
0x135e…1372 Head {h00=0x0010, h01=0x000c, text=»REC100 EQU *«, t00=0x000c, t01=0x00a4}
0x1372…139a Head {h00=0x0024, h01=0x0020, text=» CF A14,I:EVA0 GET INDEX POINTER«, t00=0x000c, t01=0x00b8}
0x139a…13bc Head {h00=0x001e, h01=0x0050, text=» LD A2,ECBCW,A8 LOAD INDEX«, t00=0x000c, t01=0x00e0}
0x13bc…13ce Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x000c, t01=0x0102}
0x13ce…13e0 Head {h00=0x000e, h01=0x0050, text=» STR A2,A9«, t00=0x000c, t01=0x0114}
0x13e0…1414 Head {h00=0x0030, h01=0x002b, text=» ABL I:RT1 RETURN TO THE CREDIT INTERPRETER «, t00=0x000c, t01=0x0126}
0x1414…1428 Head {h00=0x0010, h01=0x0050, text=»REC105 EQU *«, t00=0x000c, t01=0x015a}
0x1428…1450 Head {h00=0x0024, h01=0x0050, text=» ST A2,ECBCW,A8 STORE IN CONTROL«, t00=0x000c, t01=0x016e}
0x1450…1462 Head {h00=0x000e, h01=0x0050, text=» RB REC100«, t00=0x000d, t01=0x0008}
0x1462…1470 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x000d, t01=0x001a}
0x1470…147a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x0028}
0x147a…1484 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x0032}
0x1484…148e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x003c}
0x148e…14be Head {h00=0x002c, h01=0x0027, text=»RECW00 EQU * CONTROL WORD =0, OPEN LINE «, t00=0x000d, t01=0x0046}
0x14be…14de Head {h00=0x001c, h01=0x0018, text=» LDK A3,1 SET INDEX TO 1«, t00=0x000d, t01=0x0076}
0x14de…14f4 Head {h00=0x0012, h01=0x000e, text=» SUK A2,MODNOP«, t00=0x000d, t01=0x0096}
0x14f4…151c Head {h00=0x0024, h01=0x0020, text=» RF(Z) RECW05 MODEM NOT OPERABLE«, t00=0x000d, t01=0x00ac}
0x151c…153c Head {h00=0x001c, h01=0x0018, text=» ADK A3,1 ADD 1 TO INDEX«, t00=0x000d, t01=0x00d4}
0x153c…155a Head {h00=0x001a, h01=0x0015, text=» SUK A2,LIOPEN-MODNOP «, t00=0x000d, t01=0x00f4}
0x155a…1582 Head {h00=0x0024, h01=0x0050, text=» RF(Z) RECW05 LINE ALREADY OPEN «, t00=0x000d, t01=0x0112}
0x1582…15ac Head {h00=0x0026, h01=0x0050, text=» LDKL A3,-1 SET INDEX TO NEGATIVE «, t00=0x000d, t01=0x013a}
0x15ac…15c0 Head {h00=0x0010, h01=0x000c, text=»RECW05 EQU *«, t00=0x000d, t01=0x0164}
0x15c0…15d8 Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBCW,A8 «, t00=0x000d, t01=0x0178}
0x15d8…15ea Head {h00=0x000e, h01=0x0050, text=» RB REC100«, t00=0x000d, t01=0x0190}
0x15ea…15f4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x0012}
0x15f4…15fe Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x001c}
0x15fe…1608 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x0026}
0x1608…1616 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x000e, t01=0x0030}
0x1616…1620 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x003e}
0x1620…162a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x0048}
0x162a…1634 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x0052}
0x1634…1656 Head {h00=0x001e, h01=0x0050, text=»RECW20 EQU * HALT POLLING «, t00=0x000e, t01=0x005c}
0x1656…1684 Head {h00=0x002a, h01=0x0025, text=»RECW10 EQU * CLOSE LINE ERROR ROUTINE «, t00=0x000e, t01=0x007e}
0x1684…16a4 Head {h00=0x001c, h01=0x0050, text=» LDK A3,1 SET INDEX TO 1«, t00=0x000e, t01=0x00ac}
0x16a4…16ba Head {h00=0x0012, h01=0x0050, text=» SUK A2,MODNOP«, t00=0x000e, t01=0x00cc}
0x16ba…16e0 Head {h00=0x0022, h01=0x0050, text=» RB(Z) RECW05 MODEM NOPERABLE «, t00=0x000e, t01=0x00e2}
0x16e0…16f2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x000e, t01=0x0108}
0x16f2…1710 Head {h00=0x001a, h01=0x0050, text=» SUK A2,LICLOS-MODNOP «, t00=0x000e, t01=0x011a}
0x1710…173a Head {h00=0x0026, h01=0x0050, text=» RB(Z) RECW05 LINE ALREADY CLOSED «, t00=0x000e, t01=0x0138}
0x173a…1760 Head {h00=0x0022, h01=0x0050, text=» LDKL A3,-1 SET NEGATIVE INDEX«, t00=0x000e, t01=0x0162}
0x1760…1772 Head {h00=0x000e, h01=0x000a, text=» RB RECW05«, t00=0x000e, t01=0x0188}
0x1772…177c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x000a}
0x177c…1786 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x0014}
0x1786…1790 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x001e}
0x1790…17ae Head {h00=0x001a, h01=0x0016, text=»RECW30 EQU * TEST LINE«, t00=0x000f, t01=0x0028}
0x17ae…17c0 Head {h00=0x000e, h01=0x0050, text=» RB RECW00«, t00=0x000f, t01=0x0046}
0x17c0…17ca Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x0058}
0x17ca…17d4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x0062}
0x17d4…17de Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x006c}
0x17de…17ec Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x000f, t01=0x0076}
0x17ec…180c Head {h00=0x001c, h01=0x0017, text=»RETCCL EQU * CLOSE LINE «, t00=0x000f, t01=0x0084}
0x180c…182a Head {h00=0x001a, h01=0x0016, text=»RETCOP EQU * OPEN LINE«, t00=0x000f, t01=0x00a4}
0x182a…1852 Head {h00=0x0024, h01=0x0050, text=» LD A2,ECBRC,A8 GET RETURN CODE «, t00=0x000f, t01=0x00c2}
0x1852…1872 Head {h00=0x001c, h01=0x0018, text=» LDK A3,1 SET INDEX TO 1«, t00=0x000f, t01=0x00ea}
0x1872…189c Head {h00=0x0026, h01=0x0021, text=» SUK A2,MODNOP MODEM NOT OPERABLE «, t00=0x000f, t01=0x010a}
0x189c…18b2 Head {h00=0x0012, h01=0x000d, text=» RF(Z) RETC10 «, t00=0x000f, t01=0x0134}
0x18b2…18d0 Head {h00=0x001a, h01=0x0050, text=» SUK A2,PLOVER-MODNOP «, t00=0x000f, t01=0x014a}
0x18d0…18f8 Head {h00=0x0024, h01=0x0050, text=» RF(Z) RETC10 POLL LIST OVERFLOW«, t00=0x000f, t01=0x0168}
0x18f8…1916 Head {h00=0x001a, h01=0x0050, text=» SUK A2,LICLOS-PLOVER «, t00=0x000f, t01=0x0190}
0x1916…1936 Head {h00=0x001c, h01=0x0050, text=» RF(Z) RETC10 LINE CLOSE«, t00=0x0010, t01=0x001e}
0x1936…1948 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0010, t01=0x003e}
0x1948…1966 Head {h00=0x001a, h01=0x0050, text=» SUK A2,INACTC-LICLOS «, t00=0x0010, t01=0x0050}
0x1966…197c Head {h00=0x0012, h01=0x0050, text=» RF(Z) RETC10 «, t00=0x0010, t01=0x006e}
0x197c…19aa Head {h00=0x002a, h01=0x0050, text=» SUK A2,NOTCPL-INACTC NOT IN POLL LIST«, t00=0x0010, t01=0x0084}
0x19aa…19c0 Head {h00=0x0012, h01=0x0050, text=» RF(Z) RETC10 «, t00=0x0010, t01=0x00b2}
0x19c0…19ea Head {h00=0x0026, h01=0x0050, text=» LDKL A3,-1 SET INDEX TO NEGATIVE «, t00=0x0010, t01=0x00c8}
0x19ea…19fe Head {h00=0x0010, h01=0x000c, text=»RETC10 EQU *«, t00=0x0010, t01=0x00f2}
0x19fe…1a16 Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBCW,A8 «, t00=0x0010, t01=0x0106}
0x1a16…1a2a Head {h00=0x0010, h01=0x000b, text=» ABL REC100 «, t00=0x0010, t01=0x011e}
0x1a2a…1a38 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0010, t01=0x0132}
0x1a38…1a8a Head {h00=0x004e, h01=0x0050, text=»************************************************************************* «, t00=0x0010, t01=0x0140}
0x1a8a…1adc (17, 0, 400) Head {h00=0x004e, h01=0x0050, text=»* * «, t00=0x0011, t01=0x0004}
0x1adc…1b2e Head {h00=0x004e, h01=0x0050, text=»* THIS ROUTINE SETS UP A CHAIN OF 6 BUFFERS. * «, t00=0x0011, t01=0x0056}
0x1b2e…1b80 Head {h00=0x004e, h01=0x0050, text=»* * «, t00=0x0011, t01=0x00a8}
0x1b80…1bd2 Head {h00=0x004e, h01=0x0050, text=»* ENTRY :- * «, t00=0x0011, t01=0x00fa}
0x1bd2…1c24 Head {h00=0x004e, h01=0x0050, text=»* CALL RECBUFF,BUF1,BUF2,BUF3,BUF4,BUF5,BUF6 * «, t00=0x0011, t01=0x014c}
0x1c24…1c76 Head {h00=0x004e, h01=0x0050, text=»* * «, t00=0x0012, t01=0x000e}
0x1c76…1cc8 Head {h00=0x004e, h01=0x0050, text=»************************************************************************* «, t00=0x0012, t01=0x0060}
0x1cc8…1cd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00b2}
0x1cd2…1cdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00bc}
0x1cdc…1d06 Head {h00=0x0026, h01=0x0050, text=»RECBUF EQU * ENTRY TO THE ROUTINE «, t00=0x0012, t01=0x00c6}
0x1d06…1d32 Head {h00=0x0028, h01=0x0050, text=» CF A14,I:EVA0 GET FIRST BUF POINTER«, t00=0x0012, t01=0x00f0}
0x1d32…1d50 Head {h00=0x001a, h01=0x0050, text=» CM 2,A9 CLEAR TASK ID«, t00=0x0012, t01=0x011c}
0x1d50…1d7a Head {h00=0x0026, h01=0x0050, text=» CF A14,STBUF STORE BUFFER POINTER«, t00=0x0012, t01=0x013a}
0x1d7a…1daa Head {h00=0x002c, h01=0x0050, text=» CF A14,I:EVA0 GET SECOND BUFFER POINTER«, t00=0x0012, t01=0x0164}
0x1daa…1dc8 (19, 0, 400) Head {h00=0x001a, h01=0x0050, text=» CM 2,A9 CLEAR TASK ID«, t00=0x0013, t01=0x0004}
0x1dc8…1df2 Head {h00=0x0026, h01=0x0050, text=» CF A14,STBUF STORE BUFFER POINTER«, t00=0x0013, t01=0x0022}
0x1df2…1e22 Head {h00=0x002c, h01=0x0050, text=» ABL I:RT1 RETURN TO THE CREDIT PROGFAM «, t00=0x0013, t01=0x004c}
0x1e22…1e2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x007c}
0x1e2c…1e36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0086}
0x1e36…1e56 Head {h00=0x001c, h01=0x0050, text=»* END OF ROTINE «, t00=0x0013, t01=0x0090}
0x1e56…1e60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00b0}
0x1e60…1e6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ba}
0x1e6a…1e78 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x00c4}
0x1e78…1e82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00d2}
0x1e82…1eae Head {h00=0x0028, h01=0x0050, text=»* A ROUTINE TO STORE BUFFER «, t00=0x0013, t01=0x00dc}
0x1eae…1eb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0108}
0x1eb8…1ed4 Head {h00=0x0018, h01=0x0050, text=»* ENTRY :- «, t00=0x0013, t01=0x0112}
0x1ed4…1f14 Head {h00=0x003c, h01=0x0050, text=»* REGISTER A9 MUST CONTAIN THE BUFFER POINTER «, t00=0x0013, t01=0x012e}
0x1f14…1f1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x016e}
0x1f1e…1f28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0178}
0x1f28…1f32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0182}
0x1f32…1f46 Head {h00=0x0010, h01=0x0050, text=»STBUF EQU * «, t00=0x0013, t01=0x018c}
0x1f46…1f70 Head {h00=0x0026, h01=0x0050, text=» LDKL A2,BUFADR LOAD BUFFER ANCHOR«, t00=0x0014, t01=0x0010}
0x1f70…1f84 Head {h00=0x0010, h01=0x0050, text=»STBUF0 EQU *«, t00=0x0014, t01=0x003a}
0x1f84…1f98 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A2 «, t00=0x0014, t01=0x004e}
0x1f98…1fba Head {h00=0x001e, h01=0x0050, text=» RF(Z) STBUF1 END OF CHAIN«, t00=0x0014, t01=0x0062}
0x1fba…1fcc Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0014, t01=0x0084}
0x1fcc…1fe8 Head {h00=0x0018, h01=0x0050, text=» RB STBUF0 TRY AGAIN«, t00=0x0014, t01=0x0096}
0x1fe8…200a Head {h00=0x001e, h01=0x0050, text=»STBUF1 EQU * END OF CHAIN «, t00=0x0014, t01=0x00b2}
0x200a…2032 Head {h00=0x0024, h01=0x0050, text=» STR A9,A2 STORE BUFFER POINTER «, t00=0x0014, t01=0x00d4}
0x2032…2042 Head {h00=0x000c, h01=0x0050, text=» CMR A9 «, t00=0x0014, t01=0x00fc}
0x2042…2068 Head {h00=0x0022, h01=0x0050, text=» RTN A14 EXIT FROM THE ROUTINE«, t00=0x0014, t01=0x010c}
0x2068…2072 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0132}
0x2072…207c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x013c}
0x207c…20a0 Head {h00=0x0020, h01=0x0050, text=»* END OF THE ROUTINE«, t00=0x0014, t01=0x0146}
0x20a0…20aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x016a}
0x20aa…20b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0174}
0x20b4…20be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x017e}
0x20be…20cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0188}
0x20cc…211c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0015, t01=0x0008}
0x211c…216c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0015, t01=0x0058}
0x216c…21bc Head {h00=0x004c, h01=0x0050, text=»* GET BUFFER FROM THE POOL AND CHECK TASK ID *«, t00=0x0015, t01=0x00a8}
0x21bc…220c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0015, t01=0x00f8}
0x220c…225c Head {h00=0x004c, h01=0x0050, text=»* ENTRY :- *«, t00=0x0015, t01=0x0148}
0x225c…22ac Head {h00=0x004c, h01=0x0050, text=»* CF A14,RECGET *«, t00=0x0016, t01=0x0008}
0x22ac…22fc Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0016, t01=0x0058}
0x22fc…234c Head {h00=0x004c, h01=0x0050, text=»* EXIT :- *«, t00=0x0016, t01=0x00a8}
0x234c…239c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0016, t01=0x00f8}
0x239c…23ec Head {h00=0x004c, h01=0x0050, text=»* A9 CONTAINS THE BUFFER ADDRESS OR ZER0 *«, t00=0x0016, t01=0x0148}
0x23ec…243c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0017, t01=0x0008}
0x243c…248c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0017, t01=0x0058}
0x248c…2496 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00a8}
0x2496…24a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00b2}
0x24a0…24ca Head {h00=0x0026, h01=0x0050, text=»RECGET EQU * ENTRY TO THE ROUTINE «, t00=0x0017, t01=0x00bc}
0x24ca…24f4 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUFADR GET BUFFER ANCHOR «, t00=0x0017, t01=0x00e6}
0x24f4…2508 Head {h00=0x0010, h01=0x0050, text=»RECG10 EQU *«, t00=0x0017, t01=0x0110}
0x2508…251c Head {h00=0x0010, h01=0x0050, text=» LDR* A9,A4 «, t00=0x0017, t01=0x0124}
0x251c…253c Head {h00=0x001c, h01=0x0050, text=» LD A3,2,A9 LOAD TASK ID«, t00=0x0017, t01=0x0138}
0x253c…2568 Head {h00=0x0028, h01=0x0050, text=» LD* A2,BUF400 LOAD CURRENT TASK ID «, t00=0x0017, t01=0x0158}
0x2568…258e Head {h00=0x0022, h01=0x0050, text=» CWR A2,A3 CHECK FOR SAME TASK«, t00=0x0017, t01=0x0184}
0x258e…25b2 Head {h00=0x0020, h01=0x0050, text=» RF(E) REC640 YES SAME TASK «, t00=0x0018, t01=0x001a}
0x25b2…25c4 Head {h00=0x000e, h01=0x0050, text=» SRL A3,8 «, t00=0x0018, t01=0x003e}
0x25c4…25d8 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/7F «, t00=0x0018, t01=0x0050}
0x25d8…25ec Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0018, t01=0x0064}
0x25ec…25fe Head {h00=0x000e, h01=0x0050, text=» CWR A2,A3«, t00=0x0018, t01=0x0078}
0x25fe…261c Head {h00=0x001a, h01=0x0050, text=» RF(E) RECG20 SAME ID «, t00=0x0018, t01=0x008a}
0x261c…262e Head {h00=0x000e, h01=0x0050, text=» LDR A4,A9«, t00=0x0018, t01=0x00a8}
0x262e…2644 Head {h00=0x0012, h01=0x0050, text=» RF(Z) RECG30 «, t00=0x0018, t01=0x00ba}
0x2644…2656 Head {h00=0x000e, h01=0x0050, text=» RB RECG10«, t00=0x0018, t01=0x00d0}
0x2656…266a Head {h00=0x0010, h01=0x0050, text=»RECG20 EQU *«, t00=0x0018, t01=0x00e2}
0x266a…2690 Head {h00=0x0022, h01=0x0050, text=» LDR* A3,A9 REMOVE FROM QUEUE «, t00=0x0018, t01=0x00f6}
0x2690…26a2 Head {h00=0x000e, h01=0x0050, text=» STR A3,A4«, t00=0x0018, t01=0x011c}
0x26a2…26b2 Head {h00=0x000c, h01=0x0050, text=» CMR A9 «, t00=0x0018, t01=0x012e}
0x26b2…26c6 Head {h00=0x0010, h01=0x0050, text=»RECG30 EQU *«, t00=0x0018, t01=0x013e}
0x26c6…26ec Head {h00=0x0022, h01=0x0050, text=» RTN A14 RETURN TO THE CALLER «, t00=0x0018, t01=0x0152}
0x26ec…270a Head {h00=0x001a, h01=0x0050, text=»REC640 EQU * SAME TASK«, t00=0x0018, t01=0x0178}
0x270a…2732 Head {h00=0x0024, h01=0x0050, text=» LDKL A2,/4B31 LOAD 'K1'TASK ID «, t00=0x0019, t01=0x0008}
0x2732…2756 Head {h00=0x0020, h01=0x0050, text=» ST A2,2,A9 STORE IN TASK ID«, t00=0x0019, t01=0x0030}
0x2756…2770 Head {h00=0x0016, h01=0x0050, text=» RB RECG20 SEND IT«, t00=0x0019, t01=0x0054}
0x2770…277a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x006e}
0x277a…2784 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0078}
0x2784…27a8 Head {h00=0x0020, h01=0x0050, text=»* END OF THE ROUTINE«, t00=0x0019, t01=0x0082}
0x27a8…27b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00a6}
0x27b2…27bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00b0}
0x27bc…27c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ba}
0x27c6…27f2 Head {h00=0x0028, h01=0x0050, text=»BUFADR DATA 0 BUFFER ANCHOR POINTER «, t00=0x0019, t01=0x00c4}
0x27f2…281e Head {h00=0x0028, h01=0x0050, text=»BUF100 DATA 0 SOURCE BUFFER ADDRESS «, t00=0x0019, t01=0x00f0}
0x281e…284a Head {h00=0x0028, h01=0x0050, text=»BUF200 DATA 0 TARGET BUFFER ADDRESS «, t00=0x0019, t01=0x011c}
0x284a…2872 Head {h00=0x0024, h01=0x0050, text=»BUF300 DATA 0 FLAG/INDEX ADDRESS«, t00=0x0019, t01=0x0148}
0x2872…2898 Head {h00=0x0022, h01=0x0050, text=»BUF400 DATA 0 TASK ID ADDRESS «, t00=0x0019, t01=0x0170}
0x2898…28a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0008}
0x28a2…28ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0012}
0x28ac…28b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x001c}
0x28b6…28c4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0026}
0x28c4…28cc Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x0034}
0x28cc…291c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001a, t01=0x003c}
0x291c…296c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001a, t01=0x008c}
0x296c…29bc Head {h00=0x004c, h01=0x0050, text=»* COPY DATA FROM SOURCE BUFFER TO TARGET BUFFER *«, t00=0x001a, t01=0x00dc}
0x29bc…2a0c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001a, t01=0x012c}
0x2a0c…2a5c Head {h00=0x004c, h01=0x0050, text=»* ENTRY :- *«, t00=0x001a, t01=0x017c}
0x2a5c…2aac Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001b, t01=0x003c}
0x2aac…2afc Head {h00=0x004c, h01=0x0050, text=»* CF 14,COPY *«, t00=0x001b, t01=0x008c}
0x2afc…2b4c Head {h00=0x004c, h01=0x0050, text=»* REGISTER A9 = SOURCE BUFFER POINTER *«, t00=0x001b, t01=0x00dc}
0x2b4c…2b9c Head {h00=0x004c, h01=0x0050, text=»* REGISTER A4 ~ TARGET BUFFER POINTER *«, t00=0x001b, t01=0x012c}
0x2b9c…2bec Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001b, t01=0x017c}
0x2bec…2c3c Head {h00=0x004c, h01=0x0050, text=»* EXIT :- *«, t00=0x001c, t01=0x003c}
0x2c3c…2c8c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001c, t01=0x008c}
0x2c8c…2cdc Head {h00=0x004c, h01=0x0050, text=»* DATA FROM SOURCE BUFFER ADDRESS WILL BE COPIED *«, t00=0x001c, t01=0x00dc}
0x2cdc…2d2c Head {h00=0x004c, h01=0x0050, text=»* TO TARGET BUFFER ADDRESS *«, t00=0x001c, t01=0x012c}
0x2d2c…2d7c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001c, t01=0x017c}
0x2d7c…2dcc Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001d, t01=0x003c}
0x2dcc…2dd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x008c}
0x2dd6…2de0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0096}
0x2de0…2dea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00a0}
0x2dea…2e12 Head {h00=0x0024, h01=0x0050, text=»COPY EQU * ENTRY TO THE ROUTINE «, t00=0x001d, t01=0x00aa}
0x2e12…2e24 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,2«, t00=0x001d, t01=0x00d2}
0x2e24…2e4a Head {h00=0x0022, h01=0x0050, text=» LDR A3,A9 SAVE BUFFER ADDRESS«, t00=0x001d, t01=0x00e4}
0x2e4a…2e68 Head {h00=0x001a, h01=0x0050, text=» LD A2,2,A9 GET LENGTH«, t00=0x001d, t01=0x010a}
0x2e68…2e7c Head {h00=0x0010, h01=0x0050, text=»COPY10 EQU *«, t00=0x001d, t01=0x0128}
0x2e7c…2e8e Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x001d, t01=0x013c}
0x2e8e…2eb0 Head {h00=0x001e, h01=0x0050, text=» RF(NP) COPY20 END OF COPY«, t00=0x001d, t01=0x014e}
0x2eb0…2ec4 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A3 «, t00=0x001d, t01=0x0170}
0x2ec4…2ee2 Head {h00=0x001a, h01=0x0050, text=» STR A1,A4 STORE DATA «, t00=0x001d, t01=0x0184}
0x2ee2…2f0a Head {h00=0x0024, h01=0x0050, text=» ADK A3,2 UPDATE BUFFER POINTER «, t00=0x001e, t01=0x0012}
0x2f0a…2f1c Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x001e, t01=0x003a}
0x2f1c…2f40 Head {h00=0x0020, h01=0x0050, text=» SUK A2,2 DECREMENT COUNTER «, t00=0x001e, t01=0x004c}
0x2f40…2f52 Head {h00=0x000e, h01=0x0050, text=» RB COPY10«, t00=0x001e, t01=0x0070}
0x2f52…2f66 Head {h00=0x0010, h01=0x0050, text=»COPY20 EQU *«, t00=0x001e, t01=0x0082}
0x2f66…2f84 Head {h00=0x001a, h01=0x0050, text=» CMR A9 CLEAR TASK ID «, t00=0x001e, t01=0x0096}
0x2f84…2fac Head {h00=0x0024, h01=0x0050, text=» SUKL A9,2 RESET BUFFER POINTER «, t00=0x001e, t01=0x00b4}
0x2fac…2fd2 Head {h00=0x0022, h01=0x0050, text=» RTN A14 EXIT FROM THE ROUTINE«, t00=0x001e, t01=0x00dc}
0x2fd2…2fdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0102}
0x2fdc…2fe6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x010c}
0x2fe6…300c Head {h00=0x0022, h01=0x0050, text=»* END OF COPY ROUTINE «, t00=0x001e, t01=0x0116}
0x300c…3016 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x013c}
0x3016…3020 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0146}
0x3020…302e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0150}
0x302e…307e Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x001e, t01=0x015e}
0x307e…30ce Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x001f, t01=0x001e}
0x30ce…311e Head {h00=0x004c, h01=0x0050, text=»* G E T A N Y B U F F E R A D R R E S S * «, t00=0x001f, t01=0x006e}
0x311e…316e Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x001f, t01=0x00be}
0x316e…31be Head {h00=0x004c, h01=0x0050, text=»* ENTRY :- * «, t00=0x001f, t01=0x010e}
0x31be…320e Head {h00=0x004c, h01=0x0050, text=»* CF A14 GETANY * «, t00=0x001f, t01=0x015e}
0x320e…325e Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0020, t01=0x001e}
0x325e…32ae Head {h00=0x004c, h01=0x0050, text=»* EXIT :- * «, t00=0x0020, t01=0x006e}
0x32ae…32fe Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0020, t01=0x00be}
0x32fe…334e Head {h00=0x004c, h01=0x0050, text=»* A9 = BUFFER ADDRESS IF AVAILABLE OR ZERO * «, t00=0x0020, t01=0x010e}
0x334e…339e Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0020, t01=0x015e}
0x339e…33ee Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0021, t01=0x001e}
0x33ee…33f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x006e}
0x33f8…3402 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0078}
0x3402…340c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0082}
0x340c…3436 Head {h00=0x0026, h01=0x0050, text=»GETANY EQU * ENTRY TO THE ROUTINE «, t00=0x0021, t01=0x008c}
0x3436…3460 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUFADR GET BUFFER ANCHOR «, t00=0x0021, t01=0x00b6}
0x3460…3474 Head {h00=0x0010, h01=0x0050, text=»GETA10 EQU *«, t00=0x0021, t01=0x00e0}
0x3474…3488 Head {h00=0x0010, h01=0x0050, text=» LDR* A9,A4 «, t00=0x0021, t01=0x00f4}
0x3488…34b2 Head {h00=0x0026, h01=0x0050, text=» RF(Z) GETA40 NO BUFFER AVAILABLE «, t00=0x0021, t01=0x0108}
0x34b2…34d2 Head {h00=0x001c, h01=0x0050, text=» LD A2,2,A9 GET TASK ID «, t00=0x0021, t01=0x0132}
0x34d2…34f8 Head {h00=0x0022, h01=0x0050, text=» RF(Z) GETA20 BUFFER AVAILABLE«, t00=0x0021, t01=0x0152}
0x34f8…350a Head {h00=0x000e, h01=0x0050, text=» LDR A4,A9«, t00=0x0021, t01=0x0178}
0x350a…3526 Head {h00=0x0018, h01=0x0050, text=» RB GETA10 TRY AGAIN«, t00=0x0021, t01=0x018a}
0x3526…353a Head {h00=0x0010, h01=0x0050, text=»GETA20 EQU *«, t00=0x0022, t01=0x0016}
0x353a…3564 Head {h00=0x0026, h01=0x0050, text=» LDR* A3,A9 REMOVE FROM THE QUEUE «, t00=0x0022, t01=0x002a}
0x3564…3576 Head {h00=0x000e, h01=0x0050, text=» STR A3,A4«, t00=0x0022, t01=0x0054}
0x3576…3586 Head {h00=0x000c, h01=0x0050, text=» CMR A9 «, t00=0x0022, t01=0x0066}
0x3586…359a Head {h00=0x0010, h01=0x0050, text=»GETA40 EQU *«, t00=0x0022, t01=0x0076}
0x359a…35aa Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0022, t01=0x008a}
0x35aa…35b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x009a}
0x35b4…35be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00a4}
0x35be…35e6 Head {h00=0x0024, h01=0x0050, text=»* END OF GET FREE BUFFER«, t00=0x0022, t01=0x00ae}
0x35e6…35f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00d6}
0x35f0…35fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00e0}
0x35fa…3604 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00ea}
0x3604…3612 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x00f4}
0x3612…361c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0102}
0x361c…3626 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x010c}
0x3626…3630 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0116}
0x3630…365a Head {h00=0x0026, h01=0x0050, text=»RECITO EQU * ENTRY TO THE ROUTINE «, t00=0x0022, t01=0x0120}
0x365a…368a Head {h00=0x002c, h01=0x0050, text=» CF A14,I:EVA0 GET SOURCE BUFFER ADDRESS«, t00=0x0022, t01=0x014a}
0x368a…36a0 Head {h00=0x0012, h01=0x0050, text=» ST A9,BUF100 «, t00=0x0022, t01=0x017a}
0x36a0…36d0 Head {h00=0x002c, h01=0x0050, text=» CF A14,I:EVA0 GET TARGET BUFFER ADDRESS«, t00=0x0022, t01=0x0190}
0x36d0…36e6 Head {h00=0x0012, h01=0x0050, text=» ST A9,BUF200 «, t00=0x0023, t01=0x0030}
0x36e6…3722 Head {h00=0x0038, h01=0x0050, text=» CF A14,I:EVA0 GET BINARY FLAG/INDEX BUFFER ADDRESS «, t00=0x0023, t01=0x0046}
0x3722…3738 Head {h00=0x0012, h01=0x0050, text=» ST A9,BUF300 «, t00=0x0023, t01=0x0082}
0x3738…3762 Head {h00=0x0026, h01=0x0050, text=» CF A14,I:EVA0 GET TASK ID ADDRESS«, t00=0x0023, t01=0x0098}
0x3762…3778 Head {h00=0x0012, h01=0x0050, text=» ST A9,BUF400 «, t00=0x0023, t01=0x00c2}
0x3778…379c Head {h00=0x0020, h01=0x0050, text=» LD* A4,BUF400 LOAD TASK ID «, t00=0x0023, t01=0x00d8}
0x379c…37b2 Head {h00=0x0012, h01=0x0050, text=» LD A9,BUF100 «, t00=0x0023, t01=0x00fc}
0x37b2…37d6 Head {h00=0x0020, h01=0x0050, text=» LD* A3,BUF100 LOAD TASK ID «, t00=0x0023, t01=0x0112}
0x37d6…37f8 Head {h00=0x001e, h01=0x0050, text=» CWR A3,A4 CHECK IF EQUAL «, t00=0x0023, t01=0x0136}
0x37f8…3818 Head {h00=0x001c, h01=0x0050, text=» RF(NE) RECI05 NOT EQUAL«, t00=0x0023, t01=0x0158}
0x3818…383c Head {h00=0x0020, h01=0x0050, text=» LDKL A3,/4B31 'K1' TASK ID «, t00=0x0023, t01=0x0178}
0x383c…3852 Head {h00=0x0012, h01=0x0050, text=» ST* A3,BUF100«, t00=0x0024, t01=0x000c}
0x3852…3866 Head {h00=0x0010, h01=0x0050, text=»RECI05 EQU *«, t00=0x0024, t01=0x0022}
0x3866…389c Head {h00=0x0032, h01=0x0050, text=» CF A14,RECGET GET MESSAGE BUFFER IF IN QUEUE «, t00=0x0024, t01=0x0036}
0x389c…38ae Head {h00=0x000e, h01=0x0050, text=» LDR A1,A9«, t00=0x0024, t01=0x006c}
0x38ae…38d8 Head {h00=0x0026, h01=0x0050, text=» RF(Z) RECT20 NOTHING IN THE QUEUE«, t00=0x0024, t01=0x007e}
0x38d8…3908 Head {h00=0x002c, h01=0x0050, text=» LD A4,BUF200 LOAD TARGET BUFFER ADDRESS«, t00=0x0024, t01=0x00a8}
0x3908…3926 Head {h00=0x001a, h01=0x0050, text=» CF A14,COPY COPY DATA«, t00=0x0024, t01=0x00d8}
0x3926…394a Head {h00=0x0020, h01=0x0050, text=» CF A14,STBUF RELEASE BUFFER«, t00=0x0024, t01=0x00f6}
0x394a…3972 Head {h00=0x0024, h01=0x0050, text=» CF A14,GETANY GET SPARE BUFFER «, t00=0x0024, t01=0x011a}
0x3972…3984 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A9«, t00=0x0024, t01=0x0142}
0x3984…39ae Head {h00=0x0026, h01=0x0050, text=» RF(Z) RECT15 NO BUFFER AVAILABLE «, t00=0x0024, t01=0x0154}
0x39ae…39c0 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A9«, t00=0x0024, t01=0x017e}
0x39c0…39ec Head {h00=0x0028, h01=0x0050, text=» ADKL A4,2 SET TARGET BUFFER ADDRESS«, t00=0x0024, t01=0x0190}
0x39ec…3a12 Head {h00=0x0022, h01=0x0050, text=» LDR A7,A9 SAVE BUFFER ADDRESS«, t00=0x0025, t01=0x002c}
0x3a12…3a3a Head {h00=0x0024, h01=0x0050, text=» LD A9,BUF100 LOAD TARGET BUFFER«, t00=0x0025, t01=0x0052}
0x3a3a…3a66 Head {h00=0x0028, h01=0x0050, text=» SUKL A9,2 SET SOURCE BUFFER ADDRESS«, t00=0x0025, t01=0x007a}
0x3a66…3a7a Head {h00=0x0010, h01=0x0050, text=» CF A14,COPY«, t00=0x0025, t01=0x00a6}
0x3a7a…3aa4 Head {h00=0x0026, h01=0x0050, text=» LDR A9,A7 RESTORE BUFFER ADDRESS «, t00=0x0025, t01=0x00ba}
0x3aa4…3ac8 Head {h00=0x0020, h01=0x0050, text=» CF A14,STBUF RELEASE BUFFER«, t00=0x0025, t01=0x00e4}
0x3ac8…3ada Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0025, t01=0x0108}
0x3ada…3aec Head {h00=0x000e, h01=0x0050, text=» RF RECT25«, t00=0x0025, t01=0x011a}
0x3aec…3b00 Head {h00=0x0010, h01=0x0050, text=»RECT15 EQU *«, t00=0x0025, t01=0x012c}
0x3b00…3b12 Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0025, t01=0x0140}
0x3b12…3b24 Head {h00=0x000e, h01=0x0050, text=» RF RECT25«, t00=0x0025, t01=0x0152}
0x3b24…3b38 Head {h00=0x0010, h01=0x0050, text=»RECT20 EQU *«, t00=0x0025, t01=0x0164}
0x3b38…3b4e Head {h00=0x0012, h01=0x0050, text=» LD A9,BUF100 «, t00=0x0025, t01=0x0178}
0x3b4e…3b6e Head {h00=0x001c, h01=0x0050, text=» LDR* A4,A9 LOAD TASK ID«, t00=0x0025, t01=0x018e}
0x3b6e…3b80 Head {h00=0x000e, h01=0x0050, text=» SRL A4,8 «, t00=0x0026, t01=0x001e}
0x3b80…3b94 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/7F «, t00=0x0026, t01=0x0030}
0x3b94…3ba8 Head {h00=0x0010, h01=0x0050, text=» CCK A4,/52 «, t00=0x0026, t01=0x0044}
0x3ba8…3bbe Head {h00=0x0012, h01=0x0050, text=» RF(NE) RECT21«, t00=0x0026, t01=0x0058}
0x3bbe…3bde Head {h00=0x001c, h01=0x0050, text=» LDKL A4,/4B31 'K1'TASK «, t00=0x0026, t01=0x006e}
0x3bde…3c02 Head {h00=0x0020, h01=0x0050, text=» ST* A4,BUF100 STORE TASK ID«, t00=0x0026, t01=0x008e}
0x3c02…3c16 Head {h00=0x0010, h01=0x0050, text=»RECT21 EQU *«, t00=0x0026, t01=0x00b2}
0x3c16…3c36 Head {h00=0x001c, h01=0x0050, text=» SUKL A9,2 SET BUFFER-2 «, t00=0x0026, t01=0x00c6}
0x3c36…3c5e Head {h00=0x0024, h01=0x0050, text=» LD A4,BUF200 LOAD TARGET BUFFER«, t00=0x0026, t01=0x00e6}
0x3c5e…3c72 Head {h00=0x0010, h01=0x0050, text=» CF A14,COPY«, t00=0x0026, t01=0x010e}
0x3c72…3c84 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0026, t01=0x0122}
0x3c84…3c98 Head {h00=0x0010, h01=0x0050, text=»RECT25 EQU *«, t00=0x0026, t01=0x0134}
0x3c98…3caa Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0026, t01=0x0148}
0x3caa…3cce Head {h00=0x0020, h01=0x0050, text=» ST* A1,BUF300 ST*ORE INDEX «, t00=0x0026, t01=0x015a}
0x3cce…3cfa Head {h00=0x0028, h01=0x0050, text=» ABL I:RT1 RETURN TO CREDIT PROGRAM «, t00=0x0026, t01=0x017e}
0x3cfa…3d04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x001a}
0x3d04…3d0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0024}
0x3d0e…3d18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x002e}
0x3d18…3d26 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0038}
0x3d26…3d30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0046}
0x3d30…3d3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0050}
0x3d3a…3d44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x005a}
0x3d44…3d6e Head {h00=0x0026, h01=0x0050, text=»RECTCK EQU * ENTRY TO THE ROUTINE «, t00=0x0027, t01=0x0064}
0x3d6e…3d98 Head {h00=0x0026, h01=0x0050, text=» CF A14,I:EVA0 GET TARGET ADDRESS «, t00=0x0027, t01=0x008e}
0x3d98…3dae Head {h00=0x0012, h01=0x0050, text=» ST A9,BUF200 «, t00=0x0027, t01=0x00b8}
0x3dae…3dd6 Head {h00=0x0024, h01=0x0050, text=» CF A14,I:EVA0 GET BINARY INDEX «, t00=0x0027, t01=0x00ce}
0x3dd6…3dec Head {h00=0x0012, h01=0x0050, text=» ST A9,BUF300 «, t00=0x0027, t01=0x00f6}
0x3dec…3e0e Head {h00=0x001e, h01=0x0050, text=» CF A14,I:EVA0 GET TASK ID«, t00=0x0027, t01=0x010c}
0x3e0e…3e24 Head {h00=0x0012, h01=0x0050, text=» ST A9,BUF400 «, t00=0x0027, t01=0x012e}
0x3e24…3e46 Head {h00=0x001e, h01=0x0050, text=» CF A14,RECGET GET MESSAGE«, t00=0x0027, t01=0x0144}
0x3e46…3e58 Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0027, t01=0x0166}
0x3e58…3e6a Head {h00=0x000e, h01=0x0050, text=» LDR A9,A9«, t00=0x0027, t01=0x0178}
0x3e6a…3e94 Head {h00=0x0026, h01=0x0050, text=» RB(Z) RECT25 NOTHING IN THE QUEUE«, t00=0x0027, t01=0x018a}
0x3e94…3ebc Head {h00=0x0024, h01=0x0050, text=» LD A4,BUF200 LOAD TARGET BUFFER«, t00=0x0028, t01=0x0024}
0x3ebc…3ed0 Head {h00=0x0010, h01=0x0050, text=» CF A14,COPY«, t00=0x0028, t01=0x004c}
0x3ed0…3ef4 Head {h00=0x0020, h01=0x0050, text=» CF A14,STBUF RELEASE BUFFER«, t00=0x0028, t01=0x0060}
0x3ef4…3f06 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0028, t01=0x0084}
0x3f06…3f28 Head {h00=0x001e, h01=0x0050, text=» RB RECT25 CREDIT PROGRAM «, t00=0x0028, t01=0x0096}
0x3f28…3f32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00b8}
0x3f32…3f3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00c2}
0x3f3c…3f62 Head {h00=0x0022, h01=0x0050, text=»* END OF CHECK ROUTINE«, t00=0x0028, t01=0x00cc}
0x3f62…3f94 Head {h00=0x002e, h01=0x0050, text=»* 0 = DATA COPIED FROM QUED BUFFER«, t00=0x0028, t01=0x00f2}
0x3f94…3fd0 Head {h00=0x0038, h01=0x0050, text=»* 1 = DATA COPIED FROM QUED BUFFER AND MORE «, t00=0x0028, t01=0x0124}
0x3fd0…3ff6 Head {h00=0x0022, h01=0x0050, text=»* 2 = NO DATA IN QUEUE«, t00=0x0028, t01=0x0160}
0x3ff6…4000 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0186}
0x4000…400a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0190}
0x400a…4018 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x000a}
0x4018…406a Head {h00=0x004e, h01=0x0050, text=»************************************************************************* «, t00=0x0029, t01=0x0018}
0x406a…40bc Head {h00=0x004e, h01=0x0050, text=»* * «, t00=0x0029, t01=0x006a}
0x40bc…410e Head {h00=0x004e, h01=0x0050, text=»* FUNCTION :- * «, t00=0x0029, t01=0x00bc}
0x410e…4160 Head {h00=0x004e, h01=0x0050, text=»* TO COPY DATA FROM SOURCE BUFFER TO ONE OF THE * «, t00=0x0029, t01=0x010e}
0x4160…41b2 Head {h00=0x004e, h01=0x0050, text=»* COMMON BUFFERS. * «, t00=0x0029, t01=0x0160}
0x41b2…4204 Head {h00=0x004e, h01=0x0050, text=»* * «, t00=0x002a, t01=0x0022}
0x4204…4256 Head {h00=0x004e, h01=0x0050, text=»* ENTRY :- * «, t00=0x002a, t01=0x0074}
0x4256…42a8 Head {h00=0x004e, h01=0x0050, text=»* CALL RECOPY,BUFFER,BINARYINDEX * «, t00=0x002a, t01=0x00c6}
0x42a8…42fa Head {h00=0x004e, h01=0x0050, text=»* RECOPY = NAME OF THE ROUTINE * «, t00=0x002a, t01=0x0118}
0x42fa…434c Head {h00=0x004e, h01=0x0050, text=»* BUFFER = DATA BUFFER * «, t00=0x002a, t01=0x016a}
0x434c…439e Head {h00=0x004e, h01=0x0050, text=»* BIN.INDEX= BINARY ITEM * «, t00=0x002b, t01=0x002c}
0x439e…43f0 Head {h00=0x004e, h01=0x0050, text=»* * «, t00=0x002b, t01=0x007e}
0x43f0…4442 Head {h00=0x004e, h01=0x0050, text=»* EXIT :- * «, t00=0x002b, t01=0x00d0}
0x4442…4494 Head {h00=0x004e, h01=0x0050, text=»* BINARY INDEX IS SET TO 1 IF DATA IS COPIED, * «, t00=0x002b, t01=0x0122}
0x4494…44e6 Head {h00=0x004e, h01=0x0050, text=»* OTHERWISE IT WILL BE SET TO 2. * «, t00=0x002b, t01=0x0174}
0x44e6…4538 Head {h00=0x004e, h01=0x0050, text=»* * «, t00=0x002c, t01=0x0036}
0x4538…458a Head {h00=0x004e, h01=0x0050, text=»************************************************************************* «, t00=0x002c, t01=0x0088}
0x458a…4594 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00da}
0x4594…459e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00e4}
0x459e…45c8 Head {h00=0x0026, h01=0x0050, text=»RECOPY EQU * ENTRY TO THE ROUTINE «, t00=0x002c, t01=0x00ee}
0x45c8…45f8 Head {h00=0x002c, h01=0x0050, text=» CF A14,I:EVA0 GET SOURCE BUFFER ADDRESS«, t00=0x002c, t01=0x0118}
0x45f8…460e Head {h00=0x0012, h01=0x0050, text=» ST A9,BUF100 «, t00=0x002c, t01=0x0148}
0x460e…4636 Head {h00=0x0024, h01=0x0050, text=» CF A14,I:EVA0 GET BINARY INDEX «, t00=0x002c, t01=0x015e}
0x4636…464c Head {h00=0x0012, h01=0x0050, text=» ST A9,BUF300 «, t00=0x002c, t01=0x0186}
0x464c…466e Head {h00=0x001e, h01=0x0050, text=» CF A14,GETANY GET BUFFER «, t00=0x002d, t01=0x000c}
0x466e…468e Head {h00=0x001c, h01=0x0050, text=» LDK A1,1 SET INDEX TO 1«, t00=0x002d, t01=0x002e}
0x468e…46be Head {h00=0x002c, h01=0x0050, text=» LDR A4,A9 CHECK FOR BUFFER AVAILABILITY«, t00=0x002d, t01=0x004e}
0x46be…46d4 Head {h00=0x0012, h01=0x0050, text=» RB(Z) RECT25 «, t00=0x002d, t01=0x007e}
0x46d4…46fa Head {h00=0x0022, h01=0x0050, text=» LDR A7,A4 SAVE BUFFER POINTER«, t00=0x002d, t01=0x0094}
0x46fa…470c Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x002d, t01=0x00ba}
0x470c…4734 Head {h00=0x0024, h01=0x0050, text=» LD A9,BUF100 LOAD SOURCE BUFFER«, t00=0x002d, t01=0x00cc}
0x4734…4746 Head {h00=0x000e, h01=0x0050, text=» SUKL A9,2«, t00=0x002d, t01=0x00f4}
0x4746…4764 Head {h00=0x001a, h01=0x0050, text=» CF A14,COPY COPY DATA«, t00=0x002d, t01=0x0106}
0x4764…478a Head {h00=0x0022, h01=0x0050, text=» LDR A9,A7 RESET TARGET BUFFER«, t00=0x002d, t01=0x0124}
0x478a…47ae Head {h00=0x0020, h01=0x0050, text=» CF A14,STBUF RELEASE BUFFER«, t00=0x002d, t01=0x014a}
0x47ae…47c0 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002d, t01=0x016e}
0x47c0…47f0 Head {h00=0x002c, h01=0x0050, text=» RB RECT25 RETURN TO THE CALLING PROGRAM«, t00=0x002d, t01=0x0180}
0x47f0…47fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0020}
0x47fa…4804 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x002a}
0x4804…4828 Head {h00=0x0020, h01=0x0050, text=»* END OF THE ROUTINE «, t00=0x002e, t01=0x0034}
0x4828…4832 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0058}
0x4832…483c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0062}
0x483c…4846 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x006c}
0x4846…4852 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x002e, t01=0x0076}
0x4852…4856 Head {h00=0x4004, h01=0x0000}
0x4856…485a 00 2e 00 82 ┆ . ┆
0x485a…4862 (47, 1, 8) 20 04 00 00 00 2f 00 04 ┆ / ┆
0x4862…48b2 (48, 0, 400) 00 4c 00 48 20 49 44 45 4e 54 20 5a 3a 54 42 37 30 20 20 54 52 41 20 34 2e 32 20 20 38 31 2d 30 34 2d 31 35 20 46 31 20 4f 31 31 31 31 20 20 54 41 42 53 20 52 45 4c 2e 20 31 2e 30 20 20 38 31 2f 30 34 2f 31 35 20 42 2e 54 2e 20 00 30 00 04 ┆ L H IDENT Z:TB70 TRA 4.2 81-04-15 F1 O1111 TABS REL. 1.0 81/04/15 B.T. 0 ┆
0x48b2…4902 00 0e 00 0a 01 04 c8 5a 3a 54 42 37 30 00 00 30 00 54 00 10 00 0c 05 05 c8 5a 3a 54 42 37 30 54 00 04 00 30 00 66 00 22 00 26 03 12 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 30 00 7a 00 0c 00 26 ┆ Z:TB70 0 T Z:TB70T 0 f " & 0 z &┆
0x4902…4952 03 12 00 00 00 1f 00 00 00 30 00 a0 00 0c 00 26 03 12 00 00 00 3d 00 00 00 30 00 b0 00 0c 00 26 03 12 00 00 00 5b 00 00 00 30 00 c0 00 0c 00 26 03 12 00 00 00 79 00 00 00 30 00 d0 00 0c 00 26 03 12 00 00 00 97 00 00 00 30 00 e0 00 0c 00 26 ┆ 0 & = 0 & [ 0 & y 0 & 0 &┆
0x4952…49a2 03 12 00 00 00 b5 00 00 00 30 00 f0 00 0c 00 26 03 12 00 00 00 d3 00 00 00 30 01 00 00 0c 00 26 03 12 00 00 00 f1 00 00 00 30 01 10 00 0c 00 26 03 12 00 00 01 0f 00 00 00 30 01 20 00 0c 00 26 03 12 00 00 01 2d 00 00 00 30 01 30 00 0c 00 26 ┆ 0 & 0 & 0 & 0 & - 0 0 &┆
0x49a2…49f2 03 12 00 00 01 4b 00 00 00 30 01 40 00 0c 00 26 03 12 00 00 01 69 00 00 00 30 01 50 00 0c 00 26 03 12 00 00 01 87 00 00 00 30 01 60 00 0c 00 26 03 12 00 00 01 a5 00 00 00 30 01 70 00 0c 00 26 03 12 00 00 01 c3 00 00 00 30 01 80 00 0c 00 26 ┆ K 0 @ & i 0 P & 0 ` & 0 p & 0 &┆
0x49f2…4a42 (49, 2, 90) 03 12 00 00 01 e1 00 00 00 30 01 90 00 0c 00 26 03 12 00 00 01 ff 00 00 00 31 00 10 00 0c 00 1c 03 0d 00 00 02 1d 00 00 00 31 00 20 00 10 00 0c 04 05 00 00 00 01 02 30 00 03 00 00 00 31 00 30 00 0e 00 0a 07 04 00 00 02 1d 02 30 00 00 00 31 ┆ 0 & 1 1 0 1 0 0 1┆
0x4a42…4a4c 00 44 40 04 00 00 00 31 00 56 ┆ D@ 1 V┆
0x4a4c…4a9c (50, 2, 258) 00 4c 00 48 20 49 44 45 4e 54 20 44 3a 54 42 37 30 20 20 54 52 41 20 34 2e 32 20 20 38 31 2d 30 34 2d 31 35 20 46 31 20 4f 31 31 31 31 20 20 54 41 42 53 20 52 45 4c 2e 20 31 2e 30 20 20 38 31 2f 30 34 2f 31 35 20 42 2e 54 2e 20 00 32 00 04 ┆ L H IDENT D:TB70 TRA 4.2 81-04-15 F1 O1111 TABS REL. 1.0 81/04/15 B.T. 2 ┆
0x4a9c…4aec 00 0e 00 0a 01 04 c8 44 3a 54 42 37 30 00 00 32 00 54 00 10 00 0c 05 05 c8 44 3a 54 42 37 30 54 00 02 00 32 00 66 00 2a 00 26 03 12 00 00 00 01 00 00 00 42 20 02 00 00 20 02 00 02 20 02 00 04 20 02 00 06 20 02 00 08 20 02 00 0a 20 02 00 0c ┆ D:TB70 2 T D:TB70T 2 f * & B ┆
0x4aec…4b3c 00 32 00 7a 00 2a 00 26 03 12 00 00 00 1f 00 00 20 02 00 0e 20 02 00 10 00 13 00 12 00 01 00 25 00 04 00 26 00 02 00 2a 01 00 00 2c 00 80 00 32 00 a8 00 12 00 0e 03 06 00 00 00 3d 00 00 01 2c 00 80 01 ac 00 32 00 d6 00 0e 00 0a 07 04 00 00 ┆ 2 z * & % & * , 2 = , 2 ┆
0x4b3c…4b4e 00 1f 00 42 00 00 00 32 00 ec 40 04 00 00 00 32 00 fe ┆ B 2 @ 2 ┆
0x4b4e…4b9e (51, 2, 124) 00 4c 00 48 20 49 44 45 4e 54 20 44 44 49 56 20 20 20 20 54 52 41 20 34 2e 32 20 20 38 31 2d 30 34 2d 31 35 20 46 31 20 4f 31 31 31 31 20 20 54 41 42 53 20 52 45 4c 2e 20 31 2e 30 20 20 38 31 2f 30 34 2f 31 35 20 42 2e 54 2e 20 00 33 00 04 ┆ L H IDENT DDIV TRA 4.2 81-04-15 F1 O1111 TABS REL. 1.0 81/04/15 B.T. 3 ┆
0x4b9e…4bca 00 0e 00 0a 02 04 c8 24 24 24 54 52 41 00 00 33 00 54 00 0e 00 0a 07 04 00 00 00 00 00 00 00 00 00 33 00 66 40 04 00 00 00 33 00 78 ┆ $$$TRA 3 T 3 f@ 3 x┆
0x4bca…4c1a (52, 0, 400) 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 33 01 86 00 0a 00 50 52 45 43 33 31 30 00 34 00 46 ┆************************************************************** 3 PREC310 4 F┆
0x4c1a…4c6a 00 24 00 50 5c 4d 4f 56 45 5c 57 4b 53 46 46 42 2c 57 4b 53 46 46 44 5c 53 41 56 45 20 42 55 46 46 45 52 20 00 34 00 54 00 16 00 50 5c 4d 4f 56 45 5c 57 4b 42 32 44 2c 57 4b 42 32 41 20 00 34 00 7c 00 36 00 50 5c 58 43 4f 50 59 5c 57 4b 42 ┆ $ P MOVE WKSFFB,WKSFFD SAVE BUFFER 4 T P MOVE WKB2D,WKB2A 4 | 6 P XCOPY WKB┆
0x4c6a…4cba 32 41 2c 43 4f 42 31 2c 43 4f 42 31 2c 57 4b 53 46 46 44 2c 43 4f 42 30 5c 47 45 54 20 41 54 4d 20 41 44 44 52 45 53 53 00 34 00 96 00 14 00 50 5c 53 55 42 5c 57 4b 42 32 43 2c 57 4b 42 32 43 00 34 00 d0 00 2c 00 50 5c 50 45 52 46 5c 41 54 ┆2A,COB1,COB1,WKSFFD,COB0 GET ATM ADDRESS 4 P SUB WKB2C,WKB2C 4 , P PERF AT┆
0x4cba…4d0a 4d 45 53 53 5c 4f 2f 50 20 4d 45 53 53 41 47 45 20 26 20 55 50 44 41 54 45 20 54 41 42 4c 45 20 00 34 00 e8 00 16 00 50 5c 4d 4f 56 45 5c 57 4b 42 32 41 2c 57 4b 42 32 44 20 00 34 01 18 00 2e 00 50 5c 4d 4f 56 45 5c 57 4b 53 46 46 44 2c 57 ┆MESS O/P MESSAGE & UPDATE TABLE 4 P MOVE WKB2A,WKB2D 4 . P MOVE WKSFFD,W┆
0x4d0a…4d5a 4b 53 46 46 42 5c 52 45 53 54 4f 52 45 20 52 45 43 45 49 56 45 20 42 55 46 46 45 52 00 34 01 32 00 2c 00 50 5c 43 42 4e 45 5c 57 4b 42 32 41 2c 43 4f 42 30 2c 52 45 43 32 31 30 5c 4d 45 53 53 41 47 45 20 46 52 4f 4d 20 41 54 4d 00 34 01 64 ┆KSFFB RESTORE RECEIVE BUFFER 4 2 , P CBNE WKB2A,COB0,REC210 MESSAGE FROM ATM 4 d┆