|
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: 39648 (0x9ae0)
Notes: pts_type(SC)
Names: »TABSIM.SC«
└─⟦cd4bbebb4⟧ Bits:30009680 Philips computer tape "600221"
└─⟦this⟧ »ATM6601/TABSIM.SC«
IDENT TABSIM 830428 NIJO
**********************************************************
* *
* THIS PROCEDURE CONTAINS MOST OF THE SUBROUTES REQUIRED *
* FOR TESTING THE PTS 6601 *
* *
**********************************************************
DDUM DDIV
PDIV
ENTRY SENDFC
ENTRY CUSREQ
ENTRY SOLLST
ENTRY UNSTAT
ENTRY OPENLN
ENTRY READOK
ENTRY ADDPOL
ENTRY KBINP
ENTRY KINW
ENTRY DCNW
ENTRY DLLATM
ENTRY RECHK
ENTRY SCRIBE
ENTRY OPRCMD
EXPROC LOADER
EXT RECASM
EXT COPY4
EXPROC LOADER
EXT RECASM
EXT COPY4
ENTERK EQU X'0D' ENTER KEY CODE
CANCEL EQU X'0A' CANCEL KEY CODE
DLLD EQU X'18' FORCE DOWNLINELOAD
KTAB1 KTAB ENTERK,CANCEL,DLLD KEYTABLE
EJECT
READOK PROC
*
****** READ OK
*
CBE LENGTH,COB0,READ10 READ AGAIN IF LEN=0
CBNG LENGTH,COB4,READ20
DLETE BUFIN,COB0,COB4 DELETE CONTROL CHARACTERS
SUB LENGTH,COB4 REDUCE LENGTH BY 4
XCOPY BUFIN,LENGTH,COB2,FS,COB0 ADD 2 FIELD SEPERATORS
ADD LENGTH,COB2 INCREASE LENGTH BY 2
XCOPY BIN1,COB0,COB2,BUFIN,COB0 COPY MESSAGE IDENTIFIERS
CBE BIN1,=C'22',READ30 SOLL.STATUS
CBE BIN1,=C'12',READ40 UNSOLL.STATUS
CBE BIN1,=C'11',READ50 CUSTOMER REQUEST
MOVE VARIOUS,=C'INVALID MESSAGE RECEIVED '
PERF SCRIBE,VARIUS
READ02 FIND NEXT FS
MOVE PNT1,COB0
MATCH BUFIN,PNT1,LENGTH,FS,COB0,COB1 SEARCH FOR FS
BNZ READ04 NO MATCH
XCOPY BUFIN,PNT1,COB1,CHAR2,COB0 EXCHANGE FS FOR .
B READ02 FIND NEXT FS
READ04 NO MATCH
MOVE BIN3,=W'80' SET BIN3 TO 80
READ06 TEST LENGTH
CBL LENGTH,BIN3,READ08 TEST FOR LENGTH<80
XCOPY INFO,COB0,BIN3,BUFIN,COB0 COPY BUFIN INTO INFO
PERF SCRIBE,INF DISPLAY DATA
DLETE BUFIN,COB0,BIN3 DELETE DATA FROM BUFIN
SUB LENGTH,BIN3 REDUCE LENGTH BY 80
B READ06 TEST LENGTH AGAIN
READ08 LENGTH<80
MOVE INFO,=C' ' CLEAR INFO
XCOPY INFO,COB0,LENGTH,BUFIN,COB0 REMAINING DATA INTO INFO
PERF SCRIBE,INF DISPLAY DATA
READ10 DO NEW READ
MOVE RETUR,COB0
B READ90
READ20 LENGTH < 5
MOVE INFO,=C' ' CLEAR INFO
XCOPY INFO,COB0,LENGTH,BUFIN,COB0 REMAINING DATA INTO INFO
PERF SCRIBE,INF DISPLAY DATA
MOVE RETUR,COB0
B READ90
READ30 SOLL.STATUS
MOVE RETUR,COB1
B READ90
READ40 UNSOLL.STATUS
MOVE RETUR,COB2
B READ90
READ50 CUSTOMER REQUEST
MOVE RETUR,COB3
B READ90
READ90 EXIT POINT
RET
PEND
EJECT
CUSREQ PROC
*
****** CUSTOMER REQUEST
*
CLEAR ERROR
DLETE BUFIN,COB0,COB9 REMOVE UNWANTED MESSAGE DATA
SUB LENGTH,COB9 SUBTRACT 9 FROM LENGTH
CLEAR F1 CLEAR FLAGS F1-F9
CLEAR F2
CLEAR F3
CLEAR F4
CLEAR F5
CLEAR F6
CLEAR F7
CLEAR F8
CLEAR F9
PERF UNLOAD,COMB,F1,=W'2' TXFG AND MESS COMBINED
XCOPY TXFG,COB0,COB1,COMB,COB0 COPY TXFG
XCOPY MESS,COB0,COB1,COMB,COB1 COPY MESS
PERF UNLOAD,TK2D,F2,=W'40' TRACK 2 DATA
PERF UNLOAD,TK3D,F3,=W'106' TRACK 3 DATA
MOVE TK3DL,PNT1 STORE TRACK 3 DATA LENGTH
PERF UNLOAD,OPKY,F4,=W'8' OPERATION KEYS
PERF UNLOAD,PPPP,F5,=W'16' POUNDS AND PENCE
PERF UNLOAD,GPBA,F6,=W'32' GENERAL PURPOSE BUFFER A
MOVE GPBA,=C' '
PERF UNLOAD,GPBB,F7,=W'32' GENERAL PURPOSE BUFFER B
PERF UNLOAD,GPBC,F8,=W'32' GENERAL PURPOSE BUFFER C
PERF UNLOAD,TK1D,F9,=W'80' TRACK 1 DATA
MOVE PBCD,PPPP MOVE 'MONEY' INTO BCD FIELD
MOVE NOTES,=C'0'
CBNE OPKY,=C'A ',CUSR02
CBL PBCD,=D'100',CUSR07
DIV PBCD,=D'100' THROW AWAY DECIMAL PART
CBG PBCD,DLIMIT,CUSR07 ABOVE LIMIT?
PERF LOMULT
BNOK CUSR07
PERF NOTMIX COMPUTE NOTEMIX
B CUSR08
CUSR02
CBNE OPKY,=C'B ',CUSR04
B CUSR08
CUSR04
CBNE OPKY,=C'C ',CUSR06
B CUSR08
CUSR06
CBNE OPKY,=C'D ',CUSR08
MOVE WKS14,GPBC
MOVE WKSTR7,=X'00' TRUNCATE GPBC TO 13 CHRS
XCOPY WKS14,COB13,COB1,WKSTR7,COB0
MOVE GPBC,WKS14
MOVE PBCD,GPBB
B CUSR08
CUSR07 INVALID AMOUNT ENCOUNTERD
MOVE OPKY,=C'X '
SET ERROR
CUSR08
MOVE BIN2,LENGTHS(COB2) BIN2 EQUALS LENGTH OF TK1D1
XCOPY TK1D1,COB0,BIN2,TK1D,COB0 COPY FIRST HALF OF TK1D
MOVE BIN3,LENGTHS(COB3) BIN3 EQUALS LENGTH OF TK1D2
XCOPY TK1D2,COB0,BIN3,TK1D,BIN2 COPY SECOND HALF OF TK1D
XCOPY TK3D1,COB0,BIN2,TK3D,COB0 COPY FIRST HALF OF TK3D
MOVE BIN3,LENGTHS(COB7) BIN3 EQUALS LENGTH OF TK3D2
XCOPY TK3D2,COB0,BIN3,TK3D,BIN2 COPY SECOND HALF OF TK3D
COPY WKSTG1,COB0,COB1,MESS,COB0 STORE TRUE VALUE OF MESS
PERF SCRIBE,CUSTRQ DISPLAY CUSTOMER REQUEST DATA
COPY MESS,COB0,COB1,WKSTG1,COB0 RESET VALUE OF MESS
MOVE FCBLDX,COB1 SET FCBLD INDEX TO FIRST ITEM
CUSR10 MATCH OPERATION KEYS
MOVE PNT1,COB0 SET PNT1 TO START OF DATA
MATCH FCBLD(FCBLDX),PNT1,COB8,OPKY,COB0,COB8 COMPARE STRINGS
BZ CUSR90
CBE FCBLDX,=W'30',CUSR20 TEST FOR END OF TABLE
ADD FCBLDX,COB1 INCREMENT INDEX
B CUSR10 SEARCH FCBLD TABLE AGAIN
CUSR20 NO MATCH FOUND
PERF SCRIBE,FCMD
MOVE FCBLDX,COB1 DEFAULT COMMAND
CUSR90
TBF ERROR,CUSR95
PERF SCRIBE,AMTERR
CUSR95
MOVE RETUR,COB0
RET
PEND
EJECT
SOLLST PROC
*
****** SOLICITED STATUS MESSAGE
*
TBT RESFG,SOLL010 TEST RESPONSE EXPECTED FLAG
MOVE VARIOUS,=C'UNEXPECTED MESSAGE RECEIVED '
PERF SCRIBE,VARIUS
SOLL010 UNLOAD STATUS DESCRIPTOR
CLEAR RESFG CLEAR RESPONSE EXPECTED FLAG
DLETE BUFIN,COB0,COB7 DELETE UPTO STATUS DESCRIPTOR
CLEAR DUMMY CLEAR DUMMY FLAG
PERF UNLOAD,STAT,DUMMY,=W'1' COPY DATA INTO STAT
CBE STAT,=C'8',SOLL040 DEVICE FAULT,CONFIG.DATA
CBE STAT,=C'9',SOLL020 READY
CBE STAT,=C'A',SOLL030 COMMAND REJECT
CBE STAT,=C'B',SOLL020 READY
SOLL020 READY
MOVE VARIOUS,=C'READY '
PERF SCRIBE,VARIUS
B SOLL080
SOLL030 COMMAND REJECT
MOVE VARIOUS,=C'COMMAND REJECT '
PERF SCRIBE,VARIUS
B SOLL090
SOLL040 DEVICE FAULT
CLEAR DUMMY CLEAR DUMMY FLAG
PERF UNLOAD,COMB2,DUMMY,=W'2' COPY DID + DEVICE STATUS
XCOPY DID,COB1,COB1,COMB2,COB0 COPY DID
SUB DID,=W'49' CONVERT DID TO INDEX VALUE
SUB PNT1,COB2 SET PNT1 TO DATA LENGTH
MOVE DEVST,=C' ' CLEAR DEVICE STATUS FIELD
XCOPY DEVST,COB0,PNT1,COMB2,COB1 COPY DEVICE STATUS DATA
MOVE WKSTG4,=X'1D' GROUP SEPRARATOR
MOVE BIN4,=W'32' LENGTH OF 'DEVST'
MOVE BIN3,COB0
CLEAR DUMMY
MATCH DEVST,BIN3,BIN4,WKSTG4,COB0,COB1 ANY <GS>?
BNOK SOLL050 NO, NOT THIS TIME
SET DUMMY <GS> FOUND
SOLL050
PERF SCRIBE,ERROR 'DEVICE--STATUS'
* HERE THE GROUP IDENTIFIERS PLUS THE STATUS-
* HANDLING SHOULD BE IMPLEMENTED
CMP DID,COB1 TEST FOR PRINTER FAULT
BE SOLL090
MOVE FCBLDX,COB1 SET FCBLDX INDEX
SOLL080
MOVE RETUR,COB1 READ LINE MSG
B SOLL095
SOLL090
MOVE RETUR,COB0 RETRY READ
SOLL095
RET
PEND
EJECT
OPENLN PROC
*
****** OPEN LINE TO ATM
*
MOVE BIN2,=X'00A2' CODE FOR OPEN LINE
PERF OPL
IB BIN3,OPL010,OPL020,OPL030
B OPL030
OPL010 LINE OPENED
CLEAR MESFG
MOVE VARIOUS,=C'LINE OPENED '
PERF SCRIBE,VARIUS
MOVE RETUR,COB0 OK
B OPL090
OPL020 MODEM INOPERABLE
TBT MESFG,OPL025 ALREADY DISPLAYED?
MOVE VARIOUS,=C'LINE NOT OPERABLE '
PERF SCRIBE,VARIUS
SET MESFG SET 'MESSAGE DISPLAYED' FLAG
OPL025
MOVE RETUR,COB1
B OPL090
OPL030 LINE ALREADY OPEN
MOVE BIN2,=X'00A4' CLOSE LINE CODE
PERF OPL CLOSE LINE
DELAY TIME DELAY
MOVE RETUR,COB2
OPL090
RET
PEND
EJECT
ADDPOL PROC
*
****** ADD ATM TO POLL LIST
*
CLEAR INACTIV
ADD005
MOVE BIN2,=X'00B7' 'ADD TO POLL LIST' CODE
CALL RECASM,DSCMOP,BIN2,ADR,BIN3 ASS. SUBROUTINE
IB BIN3,ADD010,ADD020,ADD030
MOVE RETUR,COB1 RETURNCODE INVALID
B ADD090
ADD010
PERF SCRIBE,POLL
MOVE RETUR,COB0
B ADD090
ADD020 MODEM INOPERABLE
MOVE RETUR,COB2
B ADD090
ADD030
TBT INACTIV,ADD040 2ND TIME?
PERF SCRIBE,INACT
SET INACTIV
ADD040
B ADD005
ADD090
RET
PEND
EJECT
UNSTAT PROC
*
****** UNSOLICITED STATUS MESSAGE
*
MOVE DID,COB3 FIND POWERFAIL MESSAGE
MATCH BUFIN,DID,COB2,FS,COB0,COB2 AND EXPAND IT
BERR UNST010
INSRT BUFIN,COB0,COB3,WKSTG1,COB0
UNST010
MOVE DID,COB0
DLETE BUFIN,COB0,COB8 DELETE UPTO STATUS SOURCE
CLEAR DUMMY CLEAR DUMMY FLAG
PERF UNLOAD,COMB2,DUMMY,=W'2' STATUS SOURCE + DEVICE STATUS
TBT DUMMY,UNST020
XCOPY DID,COB1,COB1,COMB2,COB0 COPY STATUS SOURCE
SUB DID,=W'48' CHANGE STATUS SOURCE TO INDEX
SUB PNT1,COB2 LENGTH OF DEVICE STATUS DATA
MOVE DEVST,=C' ' CLEAR DEVICE STATUS FIELD
XCOPY DEVST,COB0,PNT1,COMB2,COB1 COPY DEVICE STATUS DATA
PERF SCRIBE,UNSS 'UNSOLICITED STATUS DD+SS '
IB DID,UNST030,UNST040,UNST070,UNST045, C
UNST050,UNST055,UNST060,UNST065
B UNST090 INVALID DEVICE,READ AGAIN
UNST020
MOVE VARIOUS,=C'UNSOLL.STATUS FROM UNKNOWN DEVICE '
PERF SCRIBE,VARIUS
B UNST090 INVALID DEVICE, READ AGAIN
UNST030
POWER FAILURE OCCURRED.
DOWNLINELOAD SCREENS ETC.
MOVE BIN1,COB13 SET HEADER LENGTH
MOVE WKSTG2,HEADER
UNST031
MOVE LENGTH,=W'256'
READ .NW,DSCMIP,BUFIN,LENGTH READ FOR ALARMS
DELAY COB10 WAIT 1 SEC
ABORT DSCMIP ABORT READ
BOK UNST032 READ NOT COMPLETE?
WAIT DSCMIP
B UNST031 READ AGAIN
UNST032
PERF LOADER DOWNLINELOAD PARAMTERS ETC
BOK UNST034
MOVE VARIOUS,=C'ERROR DURING DOWN-LINE LOADING '
PERF SCRIBE,VARIUS
UNST033
B UNST030 TRY AGAIN
UNST034
MOVE WKSTR7,=C'3' CONFIG.DATA
PERF OPRCMD OPERATIONAL COMMAND
BNOK UNST030
MOVE WKSTR7,=C'1'
PERF OPRCMD SEND OPEN COMMAND
B UNST090
UNST040 ALARM
UNST045 PRINTERS
UNST050 CARD READER
UNST055 CONTROL PANEL
UNST060 CARD WRITER
UNST065 VANDAL SHIELD
B UNST090
UNST070 KEYS
MOVE WKSTR7,=C'3' CONFIG.DATA
PERF OPRCMD OPERATIONAL COMMAND
BNOK UNST090
MOVE RETUR,COB0 SOLL.STATUS EXPECTED
RET
UNST090
MOVE RETUR,COB1
RET
PEND
EJECT
SENDFC PROC
*
****** SEND FUNCTION COMMAND
*
MOVE PNT1,COB0 POINTER WITHIN FCBLD
COPY OPKY,COB0,COB8,FCBLD(FCBLDX),COB0 COPY OPERATION KEYS
ADD PNT1,COB8
**********************************************************
FC1 BUILD FUNCTION COMMAND
MOVE FCMESS,=X'4131201B3142341C1C1C20' LOAD STANDARD HEADER
MOVE PNT3,=W'10' SET PNT3 TO FIRST FREE
BYTE IN FCMESS
**********************************************************
NEXT STATE
COPY FCMESS,PNT3,COB3,FCBLD(FCBLDX),PNT1 COPY STATE TO FCMESS
ADD PNT3,COB3 INCREMENT FCMESS POINTER
ADD PNT1,COB3 INCREMENT FCBLD POINTER
**********************************************************
FC2 LOAD FS.
COPY FCMESS,PNT3,COB1,FS,COB0 COPY FS. TO FCMESS
ADD PNT3,COB1 INCREMENT FCMESS POINTER
**********************************************************
COPY FCMESS,PNT3,COB16,NOTES,COB0 LOAD NOTES
ADD PNT3,=W'16' INCREMENT FCMESS POINTER
**********************************************************
FC4 LOAD FS.
COPY FCMESS,PNT3,COB1,FS,COB0 COPY FS TO FCMESS
ADD PNT3,COB1 INCREMENT FCMESS POINTER
**********************************************************
TRANSACTION SERIAL NUMBER
ADD SRLNBR,=D'1' INCREMENT SERIALNUMBER
EDIT WKSTG4,SRLFMT EDIT IT
COPY FCMESS,PNT3,COB4,WKSTG4,COB0
ADD PNT3,COB4 INCREMENT FCMESS POINTER
**********************************************************
FUNCTION ID
COPY FCMESS,PNT3,COB1,FCBLD(FCBLDX),PNT1 COPY FUNCTION ID
ADD PNT3,COB1 INCREMENT FCMESS POINTER
ADD PNT1,COB1 INCREMENT FCBLD POINTER
**********************************************************
SCREEN NUMBER
COPY FCMESS,PNT3,COB3,FCBLD(FCBLDX),PNT1 COPY SCREEN NO
ADD PNT3,COB3 INCREMENT FCMESS POINTER
ADD PNT1,COB3 INCREMENT FCBLD POINTER
**********************************************************
XCOPY WKSTG4,COB0,COB4,FCBLD(FCBLDX),PNT1 EXTRACT FID+SCREEN
ADD PNT1,COB4 INCREMENT FCBLD POINTER
CBE WKSTG4,=C'0000',FC4A NO FID+SCREEN
COPY FCMESS,PNT3,COB1,GS,COB0 <GS>
ADD PNT3,COB1 INCREMENT FCMESS POINTER
COPY FCMESS,PNT3,COB4,WKSTG4,COB0 FID+SCREEN
ADD PNT3,COB4 INCREMENT FCMESS POINTER
FC4A
XCOPY WKSTG4,COB0,COB4,FCBLD(FCBLDX),PNT1
ADD PNT1,COB4 INCREMENT FCBLD POINTER
CBE WKSTG4,=C'0000',FC4B NO FID+SCREEN
COPY FCMESS,PNT3,COB1,GS,COB0
ADD PNT3,COB1
COPY FCMESS,PNT3,COB4,WKSTG4,COB0 FID+SCREEN
ADD PNT3,COB4
FC4B
**********************************************************
FC5 LOAD FS.
COPY FCMESS,PNT3,COB1,FS,COB0 COPY FS. TO FCMESS
ADD PNT3,COB1 INCREMENT FCMESS POINTER
**********************************************************
MESSAGE COORDINATION NUMBER
COPY FCMESS,PNT3,COB1,MESS,COB0 COPY MESSAGE CO-ORD NUMBER
ADD PNT3,COB1 INCREMENT FCMESS POINTER
**********************************************************
CARD RETURN/RETAIN FLAG
COPY FCMESS,PNT3,COB1,FCBLD(FCBLDX),PNT1 COPY CARD'HOLD'FLAG
ADD PNT3,COB1 INCREMENT FCMESS POINTER
ADD PNT1,COB1 INCREMENT FCBLD POINTER
**********************************************************
PRINTER FLAG
COPY FCMESS,PNT3,COB1,FCBLD(FCBLDX),PNT1 COPY PRINTER FLAG
COPY WKSTR7,COB0,COB1,FCBLD(FCBLDX),PNT1
ADD PNT3,COB1 INCREMENT FCMESS POINTER
ADD PNT1,COB1 INCREMENT FCBLD POINTER
**********************************************************
PRINTER DATA POINTER
CBE WKSTR7,=C'0',FCP90 NO PRINTER FLAG
* RECEIPT PRINTER
CBNE TXFG,=C'1',FCP10
* EDIT HEADER ONLY IF FIRST TRANSACTION ON SLIP
MOVE FMBUF,=X'00'
EDIT FMBUF,DATEFMT
MOVE BIN7,COB0
MOVE BIN6,=W'256'
MOVE WKSTR7,=X'00'
MATCH FMBUF,BIN7,BIN6,WKSTR7,COB0,COB1
XCOPY FCMESS,PNT3,BIN7,FMBUF,COB0
ADD PNT3,BIN7
MOVE COUNT,PLEN(COB1,COB2) SET LINELENGTH
XCOPY FCMESS,PNT3,COUNT,PNAT(COB1),COB0 "THANK YOU ..."
ADD PNT3,COUNT INCREMENT FCMESS POINTER
FCP10
XCOPY WKSTR8,COB0,COB2,FCBLD(FCBLDX),PNT1 FORMAT NBR
ADD PNT1,COB2 INCREMENT FCBLD POINTER
CBE WKSTR8,=C'00',FCP30 USE PTAB/PLEN
MOVE WKBCD1,WKSTR8
MOVE BIN7,WKBCD1
MOVE FMBUF,=X'00'
EDIT FMBUF,FORMATS(BIN7) = FORMATS(SCREENNBR)
MOVE BIN6,COB0
MOVE WKSTR7,=X'00'
MOVE BIN7,=W'256' LENGTH FMBUF
MATCH FMBUF,BIN6,BIN7,WKSTR7,COB0,COB1
XCOPY FCMESS,PNT3,BIN6,FMBUF,COB0 MOVE ONLY GOOD LENGTH
ADD PNT3,BIN6
B FCP90
FCP30
MOVE BIN7,PLEN(FCBLDX,COB1) PRINTERDATALENGTH
CBE BIN7,COB0,FCP90 NOT IF ZERO LENGTH
XCOPY FCMESS,PNT3,BIN7,PTAB(FCBLDX),COB0 MOVE PRINTERDATA
ADD PNT3,BIN7
FCP90
**********************************************************
B FC9 T E M P O R A R Y
TEST TRACK 3 DATA FLAG
MOVE BIN1,PNT1 USE DUMMY POINTER
**********************************************************
MATCH FCBLD(FCBLDX),BIN1,COB1,WKSTG1,COB0,COB1 TEST FG NOT SET
BZ FC9 FLAG NOT SET. SEND FCMESS
**********************************************************
TEST TRACK 3 DATA LENGTH
CBE TK3DL,COB0,FC9 TEST LENGTH TK3 DATA RECEIVED
LOAD FS + GRAPHIC 4
MOVE WKSTG1,=X'1C34' CODE - FS. + GRAPHIC 4
COPY FCMESS,PNT3,COB2,WKSTG1,COB0 WRITE FS. + '4' TO FCMESS
ADD PNT3,COB2 INCREMENT FCMESS POINTER
**********************************************************
TEST TRACK 3 DATA FLAG
MOVE WKSTG1,=X'02' CODE - TK3 DATA FG =:02
MOVE BIN1,PNT1 USE DUMMY POINTER
MATCH FCBLD(FCBLDX),BIN1,COB1,WKSTG1,COB0,COB1 TEST TK3D FLAG
BNZ FC8 FLAG NOT SET TO :02
SEND TRACK 3 DATA AS RECEIVED
**********************************************************
TRACK 3 UPDATE POINTER
ADD PNT1,COB2 SET PNT1 TO TRACK 3 U/D INDEX
XCOPY PDX,COB1,COB1,FCBLD(FCBLDX),PNT1 LOAD PDX WITH TRACK 3
UPDATE POINTER
XCOPY PNT2,COB0,COB2,PDUOFF(PDX),COB0 POOL OFFSET -> PNT2
XCOPY COUNT,COB1,COB1,PDUOFF(PDX),COB2 DATA LENGTH -> COUNT
**********************************************************
TEST EXTENT OF UPDATE
SUB PNT1,COB1 PNT1 TO TK3 U/D OFFSET INDEX
MOVE BIN3,COB0 CLEAR BIN3
XCOPY BIN3,COB1,COB1,FCBLD(FCBLDX),PNT1 COPY TK3 U/D OFFSET
ADD BIN3,COUNT ADD U/D LENGTH TO U/D OFFSET
CBL BIN3,TK3DL,FC7 TEST U/D NOT< TK3 DATA LENGTH
MOVE VARIOUS,=C'TRACK 3 UPDATE ABORTED '
PERF SCRIBE,VARIUS
B FC8 SEND TK3 DATA AS RECEIVED
**********************************************************
FC7 UPDATE TRACK 3 DATA
SUB BIN3,COUNT RESET TRACK 3 U/D OFFSET
COPY TK3D,BIN3,COUNT,POOL,PNT2 UPDATE TRACK 3 DATA
FC8 SEND TRACK 3 DATA
COPY FCMESS,PNT3,TK3DL,TK3D,COB0 LOAD TRACK 3 DATA
ADD PNT3,TK3DL SET PNT3 TO MESSAGE LENGTH
**********************************************************
FC9 WRITE FUNCTION COMMAND
WRITE DSCMOP,FCMESS,PNT3 WRITE MESSAGE TO LINE
XSTAT DSCMOP,BIN3 COPY STATUS TO BIN3
PERF RECHK EXAMINE STATUS
IB BIN2, CHECK AND BRANCH ON INDEX C
FC10, READ OK C
FC11, MODEM NOT OPERABLE C
FC11, LINE CLOSED C
FC11, ATM INACTIVE C
FC10, RETRANSMISSIONS PERFORMED C
FC11, INVALID TC FOR WRITE C
FC11, POLL HALTED FOR READ C
FC11 ATM BUSY FOR WRITE
FC10 FUNCTION COMMAND SENT
SET RESFG SET RESPONSE EXPECTED FLAG
PERF SCRIBE,FCSENT 'FUNCTION COMMAND SENT (KEYS)'
B SFC010
FC11 WRITE ERROR
MOVE STATUS,BIN3 COPY STATUS TO BCD FIELD
PERF SCRIBE,DCWE 'DATA COMM WRITE ERROR-STATUS'
SFC010
MOVE RETUR,COB0
RET
PEND
EJECT
*
****** OPL OPEN/CLOSE LINE
*
* FUNCTION:-
* THIS SUBROUTINE OPENS AND CLOSES THE LINE TO THE AT
*
* CALLING SEQUENCE:-
* PERF OPL
*
* ENTRY:-
* THE FOLLOWING PARAMETERS ARE SET UP BEFORE CALLING
* THE SUBROUTINE:-
* BIN2 -- '00A2' OPEN LINE
* -- '00A4' CLOSE LINE
* ADR -- '0041' ATM ADDRESS
*
* EXIT:-
* THE ROUTINE WILL SET THE INDEX VALUE IN BIN3
* THE VALUE IS AS FOLLOWS:-
* 0 ILLEGAL/UNRECOGNISABLE ERROR
* 1 I/O OK
* 2 MODEM NOT OPERABLE
* 3 LINE ALREADY OPEN
* THE ROUTINE WILL ALSO UPDATE ATM LINE STATUS AND SET
* THE TABLE AS FOLLOWS:-
* 0 LINE TO ATM OK
* 1 MODEM INOPERABLE
OPL PROC
CALL RECASM,DSCMOP,BIN2,ADR,BIN3 PERFORM I/O ON LINE
CBNE BIN2,=X'00A2',OP5 TEST FOR CLOSE LINE CODE
IB BIN3, INDEX FROM ASS. SUBROUTINE C
OP2, LINE OK C
OP3, MODEM NOT OPERABLE C
OP2 LINE ALREADY OPEN
B OP6 ILLEGAL ERROR
OP2 MOVE BIN1,=W'0' SET CODE FOR LINE OPEN
B OP6
OP3 MOVE BIN1,=W'1' SET CODE FOR LINE NOT OPERABLE
B OP6
OP5 IB BIN3, INDEX FROM ASS. SUBROUTINE C C
OP7, LINE CLOSED C
OP6, N/A C
OP6 LINE ALREADY CLOSED
OP6 RET
OP7
CLEAR OPEN
B OP3
PEND
EJECT
*
****** RECHK CONVERTS A RETURN CODE INTO
* AN INDEX
*
*
* FUNCTION:-
* THIS ROUTINE CONVERTS A GIVEN RETURN CODE INTO AN
* INDEX VALUE AS FOLLOWS:-
* 1. I/O OK
* 2. MODEM NOT OPERABLE
* 3. LINE CLOSED
* 4. ATM INACTIVE
* 5. RETX
* 6. INVALID TC FOR WRITE
* POLL LIST OVERFLOW
* 7. POLL HALTED FOR READ
* 8. ATM BUSY FOR WRITE
* ATM ACTIVE FOR READ
*
* ENTRY:-
* THIS ROUTINE MUST HAVE A RETURN CODE IN BIN3
*
* EXIT:-
* BIN2 CONTAINS THE INDEX VALUE AS ABOVE
* BIN3 REMAINS UNCHANGED
*
RECHK PROC
MOVE BIN2,COB1 SET INDEX TO 1
CBE BIN3,COB0,R90 I/O OK?
ADD BIN2,COB1 INCREMENT INDEX (II)
CBE BIN3,COB1,R90 MODEM NOT OPERABLE
ADD BIN2,COB1 II
CBE BIN3,=X'0010',R90 LINE CLOSED
ADD BIN2,COB1 II
CBE BIN3,=X'0020',R90 ATM INACTIVE
ADD BIN2,COB1 II
CBE BIN3,=X'0100',R90 RETX
ADD BIN2,COB1 II
CBE BIN3,COB8,R90 POLL LIST OVERFLOW
CBE BIN3,=X'0040',R90 ATM NOT IN POLL LIST
ADD BIN2,COB1 II
CBE BIN3,=X'0080',R90 POLLING HALTED
ADD BIN2,COB1 ATM BUSY
R90 RET
PEND
EJECT
****** SCRIBE WRITES TO THE DISPLAY
*
* FUNCTION:-
* THIS SUBROUTINE WRITES TO THE DISPLAY AND REPORTS
* ON ANY DEVICE STATUS ERRORS
*
* ENTRY:-
* THE FORMAT NAME IS CARRIED INTO THE SUBROUTINE
*
* CALLING SEQUENCE:-
* PERF SCRIBE,FRMAT,DISPLAY
* SCRIBE PROC FRMAT,DISPLAY
*
* EXIT:-
* 1. WITH I/O OK,NORMAL RETURN.
* 2. ELSE STOP
SCRIBE PROC FRMAT
PFRMT FRMAT
EDWRT DY,FRMAT
BERR S1 TEST FOR ERROR
RET
S1
B S1
EXIT
PEND
EJECT
*
****** UNLOAD UNLOADS MESSAGE DATA
*
* FUNCTION:-
* THIS SUBROUTINE EXAMINES THE MESSAGE AND
* UNLOADS THE DATA FIELDS INTO SEPARATE WORK SPACES.
* INITALLY IT WILL CLEAR THE WORK SPACE AND ZEROISE
* THE POINTER.
* WHEN A FIELD SEPARATOR IS FOUND, IT EXAMINES THE
* LENGTH OF THE DATA FIELD. IF THIS IS NON-ZERO, IT
* COPIES THE DATA INTO THE APPROPRIATE WORK SPACE AND
* DELETES ALL CHARACTERS UPTO AND INCLUDING THE FIELD
* SEPERATOR. SHOULD THE LENGTH OF THE FIELD SEPARATOR
* IT DELETES THE FIELD SEPERATOR, AND SETS A FLAG WHICH
* WILL BE TESTED WHEN THE INFORMATION IS DISPLAYED.
*
* ENTRY:-
* THE WORKSPACE NAME IS CARRIED INTO THE SUBROUTINE
* AND A BOOLEAN FLAG.
*
* CALLING SEQUENCE:-
* PERF UNLOAD,<FIELD>,<FLAG>,<LENGTH>
* UNLOAD PROC FIELD,FLAG,LENGTH
*
* EXIT:-
* THE ROUTINE WILL RETURN TO THE MAIN PROGRAM VIA RET
*
UNLOAD PROC FIELD,FLAG,LEN
PSTRG FIELD
PBOOL FLAG
PLIT LEN
MOVE PNT1,COB0 SET POINTER TO ZERO
MOVE FIELD,=C' ' CLEAR FIELD
MATCH BUFIN,PNT1,LENGTH,FS,COB0,COB1 SEARCH FOR FS
CBE PNT1,COB0,UL1 CHECK INFORMATION LENGTH
CBNG PNT1,LEN,UL0
MOVE PNT1,LEN DELIMIT TO EXPLICIT LENGTH
UL0
XCOPY FIELD,COB0,PNT1,BUFIN,COB0 COPY INFORMATION INTO FIELD
UL1 ADD PNT1,COB1 ADD 1 TO POINTER
DLETE BUFIN,COB0,PNT1 DELETE UPTO FIELD SEPARATOR
CBNE PNT1,COB1,UL2 TEST FOR DATA LENGTH =0
SET FLAG SET ZERO LENGTH FLAG
UL2 RET
PEND
EJECT
**
** DLLATM
** ------
**
** THIS ROUTINE INSERTS A PROTOCOL/MESSAGE HEADER AT THE START
** OF THE DC BUFFER WRITES THE BUFFER TO THE ATM AND READS THE
** ATM'S RESPONSE.
** IF ANY DC ERROR OCCURS OR IF THE ATM DOES NOT RESPOND WITH
** A READY SOLICITED STATUS, THE ROUTINE EXITS WITH CR =2.
**
**
DLLATM PROC
INSRT BUFIN,COB0,COB13,WKSTG2,COB0 INSERT HEADER
ADD LENGTH,COB13 UPDATE MESSAGE LENGTH
SUB LENGTH,COB1 IGNORE TRAILING FIELD SEPR.
WRITE DSCMOP,BUFIN,LENGTH SEND MESSAGE TO ATM
XSTAT DSCMOP,BIN3 GET EXTENDED STATUS
PERF RECHK CONVERT TO INDEX
CBE BIN2,COB1,DLL100 WRITE OK?
CBE BIN2,COB5,DLL100 RETRIES PERFORMED?
MOVE STATUS,BIN3 CONVERT XSTAT TO BCD
PERF SCRIBE,DCWE O/P DC WRITE ERROR
DLL050
CMP COB0,COB1 SET CONDITION REG TO 2
RET
DLL100
MOVE LENGTH,=W'256'
READ DSCMIP,BUFIN,LENGTH READ FOR RESPONSE
XSTAT DSCMIP,BIN3 GET EXTENDED STATUS
PERF RECHK CONVERT TO INDEX
CBE BIN2,COB1,DLL150 READ OK?
MOVE STATUS,BIN2 CONVERT XSTAT TO BCD
PERF SCRIBE,DATAER 'DC READ ERROR'
B DLL050
DLL150
MOVE WKSTG1,=X'32321C3030301C1C39' SET UP READY PATTERN
MOVE BIN2,COB4 INIT MATCH
MATCH BUFIN,BIN2,COB9,WKSTG1,COB0,COB9
SEARCH FOR READY PATTERN
BNERR DLL200 READY RECEIVED
MOVE WKSTG1,=X'3132' KEYLOCKS OR ALARMS
MOVE BIN2,COB7
MATCH BUFIN,BIN2,COB2,WKSTG1,COB0,COB2
BNERR DLL100 DISREGARD THOSE THINGS
MOVE VARIOUS,=C'INVALID MESSAGE RECEIVED '
PERF SCRIBE,VARIUS
B DLL050
DLL200
CMP COB0,COB0 SET CONDITION REG TO 0
RET
PEND
EJECT
KBINP PROC
DSC KB,X'02' SKIP BUFFER
MOVE LENGTH,COB9
KI KB,BUFIN,KTAB1,LENGTH,INDEX READ DATA
RET
PEND
KINW PROC
DSC KB,X'02'
MOVE KILN,COB1
KI .NW,KB,KIBUF,KTAB1,KILN,KIIX
RET
PEND
DCNW PROC
MOVE BUFIN,=C' ' CLEAR BUFIN
MOVE LENGTH,=W'256' SET LENGTH TO 256
READ .NW,DSCMIP,BUFIN,LENGTH READ LINE MESSAGE FROM ATM
RET
PEND
EJECT
OPRCMD PROC
*
* THIS ROUTINE SENDS AN OPERATIONAL COMMAND AND WAITS FOR THE ANSWER
* IT NEEDS A PARAMTER IN WKSTR7
* 1 - OPEN
* 2 - CLOSE
* 3 - CONFIG.DATA
*
PERF SCRIBE,FMCMD
EDIT BUFIN,OPCMD
MOVE LENGTH,COB11
WRITE DSCMOP,BUFIN,LENGTH SEND MESSAGE TO ATM
XSTAT DSCMOP,BIN3 GET EXTENDED STATUS
PERF RECHK CONVERT TO INDEX
CBE BIN2,COB1,OPRC010 OK?
CBE BIN2,COB5,OPRC010 RETRIES?
MOVE STATUS,BIN3 CONVERT XSTAT TO BCD
PERF SCRIBE,DCWE O/P DC WRITE ERROR
CMP COB0,COB1
RET
*
OPRC010
MOVE LENGTH,=W'256'
MOVE BUFIN,=C' '
READ DSCMIP,BUFIN,LENGTH READ FOR RESPONSE
XSTAT DSCMIP,BIN3 GET EXTENDED STATUS
PERF RECHK CONVERT TO INDEX
CBE BIN2,COB1,OPRC020 OK?
MOVE STATUS,BIN2 CONVERT XSTAT TO BCD
PERF SCRIBE,DATAER 'DC READ ERROR'
OPRC015
CMP COB0,COB1 NOT OK
RET
*
OPRC020
*
MOVE WKSTR8,=X'1D44' GROUP SEP. + "D"
MOVE BIN3,LENGTH
SUB BIN3,COB1
MOVE BIN4,COB0
MATCH BUFIN,BIN4,BIN3,WKSTR8,COB0,COB2
BERR OPRC050 NOT FOUND, NORMAL RETURN
ADD BIN4,COB2 POINT TO 1. CASS.STAT
MOVE BIN5,COB0 LOOP CONTROL
OPRC040
ADD BIN5,COB1
CBG BIN5,COB4,OPRC050
XCOPY WKSTR8,COB0,COB2,BUFIN,BIN4 MOVE DENOM TO CASTAT
COPY WKSTR7,COB0,COB1,WKSTR8,COB1 IF NO CASSETTE
CBNE WKSTR7,=C'0',OPRC042 PRESENT, THEN FORCE
MOVE WKSTR8,=X'3E30' LOW-NOTE-CONDITION
OPRC042
CALL COPY4,CASTAT(COB1,BIN5),COB3,COB1, C
WKSTR8,COB3
MOVE BIN3,COB0
CALL COPY4,BIN3,COB3,COB1,WKSTR8,COB1
MOVE CASTAT(COB2,BIN5),COB0 RESET FIRST
CBNE BIN3,=X'000E',OPRC045
MOVE CASTAT(COB2,BIN5),COB1 INDICATE LOW NOTES
OPRC045
ADD BIN4,COB2 NEXT FEEDER
B OPRC040
OPRC050
CMP COB0,COB0
RET
PEND
EJECT
NOTMIX PROC
* COMPUTE NOTEMIX
MOVE WKB2A,COB9
MOVE WKD12A,PBCD
NOT100
SUB WKB2A,COB1 STEP INDEX
CBL WKB2A,COB1,NOT130 WRONG INPUT
PERF DENCK DENOMINATION CHECK
B NOT100 NOT AVAILABLE
CBG DENOM(WKB2A),WKD12A,NOT100 NEXT HIGHER
MOVE WKD3A,=D'0'
NOT110
CBL WKD12A,DENOM(WKB2A),NOT120 FINISHED?
SUB WKD12A,DENOM(WKB2A) 1 NOTE
ADD WKD3A,=D'1'
B NOT110
NOT120
MOVE WKB2B,WKB2A CREATE INDEX
SUB WKB2B,COB1
ADD WKB2B,WKB2B
MOVE WKS4A,WKD3A CONVERT TO ASCII
COPY NOTES,WKB2B,COB2,WKS4A,COB2
CBE WKD12A,=D'0',NOT900 FINISHED?
B NOT100
NOT130
CMP COB0,COB1
RET
NOT900
CMP COB0,COB0
RET
PEND
EJECT
DENCK PROC
* CHECK EXISTANCE AND STATUS OF DENOMINATION
* WHICH INDEX IS GIVEN IN WKB2A
MOVE WKB2B,COB0
DENCK2
ADD WKB2B,COB1
CBG WKB2B,COB4,DENCK4
CBNE CASTAT(COB1,WKB2B),WKB2A,DENCK2
CBE CASTAT(COB2,WKB2B),COB1,DENCK2 LOW NOTES?
RET 2
DENCK4
RET
PEND
EJECT
LOMULT PROC
*
* THE PROCEDURE CHECKS THAT THE AMOUNT REQUIESTED IS A MULTIPLE
* OF THE LOWEST ACCESSIBLE DENOMINATION
*
MOVE WKD12A,PBCD
PERF FNDLOW GET INDEX TO LOWEST
B LOMUL9 NOTHING ACCESSIBLE
MOVE WKD12B,DENOM(WKB2B) LOWEST DENOMINATION
LOMUL2
DIV WKD12A,WKD12B
MUL WKD12A,WKD12B
CBNE WKD12A,PBCD,LOMUL9 ANY REMAINDER?
CMP COB0,COB0 NO THERE WASNT
RET
LOMUL9
CMP COB0,COB1 REMAINDER OR UNAVAILABLE
RET
PEND
FNDLOW PROC
* THE ROUTINE FINDS THE LOWEST DENOMINATION
MOVE WKB2A,COB0
MOVE WKB2B,COB8
FNDL10
ADD WKB2A,COB1
CBG WKB2A,COB4,FNDL20 DENOM EXHAUSTED
CBE CASTAT(COB1,WKB2A),COB0,FNDL10 NO CASSETTE
CBE CASTAT(COB2,WKB2A),COB1,FNDL10 LOW NOTES
CBNL CASTAT(COB1,WKB2A),WKB2B,FNDL10 NOT LOWEST
MOVE WKB2B,CASTAT(COB1,WKB2A) LOWEST SO FAR
B FNDL10
FNDL20
CBNE WKB2B,COB8,FNDL30 AT LEAST ONE AVAILABLE
RET NOTHING AVAILABLE
FNDL30
RET 2
PEND
EJECT
POLL FRMT
FCOPY ='22'
FCOPY ='POLLING '
FCOPY ='MICROBANK'
FMEND
INACT FRMT
FCOPY ='22'
FCOPY ='MICROBANK'
FCOPY =' NOT'
FCOPY =' RESPONDING TO POLL'
FMEND
DATAER FRMT
FTEXT '22DATA COMM READ ERROR : '
FMEL '9999',STATUS
FMEND
INF FRMT
FCOPY =C'22'
FCOPY INFO
FMEND
DATEFMT FRMT
FMEL '99V99V99',DATE
FILLR ' ',1
FCOPY ='TI.ME ATM001'
FILLR X'0A',3
FMEND
CUSTRQ FRMT
FTEXT '00CUSTOMER REQUEST'
FNL
FTEXT 'OP KEYS: '
FBT F4,CUS1
FCOPY OPKY
FB CUS2
CUS1 FTEXT ' NONE '
CUS2 FILLR ' ',2
FTEXT '1ST TRANS: '
FCOPY TXFG
FILLR ' ',2
FTEXT 'MESS.CO-ORD NO: '
FCOPY MESS
FILLR ' ',2
FBT F5,CUS3
FTEXT 'DOLLAR AMOUNT: '
FMEL 'ZZZZZZZ9V99',PBCD
CUS3 FNL
FBT F6,CUS4
FTEXT 'GP BUFFER A: '
FCOPY GPBA
FNL
CUS4 FBT F7,CUS5
FTEXT 'GP BUFFER B: '
FCOPY GPBB
FNL
CUS5 FBT F8,CUS6
FTEXT 'AMOUNT: '
FCOPY GPBC
FNL
CUS6 FBT F9,CUS7
FTEXT 'TRACK 1 DATA: '
FCOPY TK1D1
FNL
FILLR ' ',14
FCOPY TK1D2
FNL
CUS7 FBT F2,CUS8
FTEXT 'TRACK 2 DATA: '
FCOPY TK2D
FNL
CUS8 FBT F3,CUS9
FTEXT 'TRACK 3 DATA: '
FCOPY TK3D1
FNL
FILLR ' ',14
FCOPY TK3D2
CUS9 FMEND
AMTERR FRMT
FTEXT '22'
FCOPY ='AMOUNT ERROR. TRANSACTION CANCELLED.'
FMEND
UNSS FRMT
FTEXT '22UNSOLICITED STATUS : '
FCOPY DEVAR2(DID)
FCOPY DEVST
FMEND
FCSENT FRMT
FTEXT '22FUNCTION COMMAND SENT ('
FCOPY OPKY
FTEXT ')'
FMEND
DCWE FRMT
FTEXT '22DATA COMM WRITE ERROR : '
FMEL '9999',STATUS
FMEND
SRLFMT FRMT
FMEL '9999',SRLNBR
FMEND
FCMD FRMT
FCOPY ='22'
FTEXT 'INVALID FUNCTION COMMAND'
FMEND
VARIUS FRMT
FCOPY ='22'
FCOPY VARIOUS
FMEND
OPCMD FRMT
FCOPY =X'4131201B3142'
FCOPY =X'311C1C1C'
FCOPY WKSTR7
FMEND
FMCMD FRMT
FCOPY ='22'
FTEXT 'FUNCTIONAL COMMAND '
FCOPY WKSTR7
FTEXT ' SENT '
FMEND
FORMATS FTABLE FMT1,FMT2,FMT3,FMT4,FMT5,FMT6,FMT7
FMT1 FRMT
FTEXT 'WDR '
FMEL '9999',SRLNBR
FMEL '********9',PBCD
FTEXT ',00 '
FILLR X'0A',1
FMEND
FMT2 FRMT
FTEXT 'DEP '
FMEL '9999',SRLNBR
FMEL '********9,99-',PBCD
FILLR X'0A',1
FMEND
FMT3 FRMT
FTEXT 'ENQ '
FMEL '9999',SRLNBR
FILLR X'0A',1
FMEND
FMT4 FRMT
FTEXT 'XFR '
FMEL '9999',SRLNBR
FMEL '********9,99-',PBCD
FILLR X'0A',1
FTEXT 'TO ACCOUNT '
FCOPY GPBC
FILLR X'0A',1
FMEND
FMT5 FRMT
FILLR '*',25
FILLR X'0A',1
FMEND
FMT6 FRMT
FILLR '*',25
FILLR X'0A',1
FMEND
FMT7 FRMT
FILLR X'0C',1
FMEND
END
0x0000…0022 (0, 0, 400) Head {h00=0x001e, h01=0x0050, text=» IDENT TABSIM 830428 NIJO «, t00=0x0000, t01=0x0004}
0x0022…002a Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0026}
0x002a…0032 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x002e}
0x0032…0074 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0000, t01=0x0036}
0x0074…00b6 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0000, t01=0x0078}
0x00b6…00f8 Head {h00=0x003e, h01=0x0050, text=»* THIS PROCEDURE CONTAINS MOST OF THE SUBROUTES REQUIRED *«, t00=0x0000, t01=0x00ba}
0x00f8…013a Head {h00=0x003e, h01=0x0050, text=»* FOR TESTING THE PTS 6601 *«, t00=0x0000, t01=0x00fc}
0x013a…017c Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0000, t01=0x013e}
0x017c…01be Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0000, t01=0x0180}
0x01be…01c6 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0032}
0x01c6…01ce Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x003a}
0x01ce…01e0 Head {h00=0x000e, h01=0x0050, text=» DDUM DDIV«, t00=0x0001, t01=0x0042}
0x01e0…01ee Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0001, t01=0x0054}
0x01ee…0204 Head {h00=0x0012, h01=0x0050, text=» ENTRY SENDFC «, t00=0x0001, t01=0x0062}
0x0204…021a Head {h00=0x0012, h01=0x0050, text=» ENTRY CUSREQ «, t00=0x0001, t01=0x0078}
0x021a…0230 Head {h00=0x0012, h01=0x0050, text=» ENTRY SOLLST «, t00=0x0001, t01=0x008e}
0x0230…0246 Head {h00=0x0012, h01=0x0050, text=» ENTRY UNSTAT «, t00=0x0001, t01=0x00a4}
0x0246…025c Head {h00=0x0012, h01=0x0050, text=» ENTRY OPENLN «, t00=0x0001, t01=0x00ba}
0x025c…0272 Head {h00=0x0012, h01=0x0050, text=» ENTRY READOK «, t00=0x0001, t01=0x00d0}
0x0272…0288 Head {h00=0x0012, h01=0x0050, text=» ENTRY ADDPOL «, t00=0x0001, t01=0x00e6}
0x0288…029c Head {h00=0x0010, h01=0x0050, text=» ENTRY KBINP«, t00=0x0001, t01=0x00fc}
0x029c…02b0 Head {h00=0x0010, h01=0x0050, text=» ENTRY KINW «, t00=0x0001, t01=0x0110}
0x02b0…02c4 Head {h00=0x0010, h01=0x0050, text=» ENTRY DCNW «, t00=0x0001, t01=0x0124}
0x02c4…02da Head {h00=0x0012, h01=0x0050, text=» ENTRY DLLATM «, t00=0x0001, t01=0x0138}
0x02da…02ee Head {h00=0x0010, h01=0x0050, text=» ENTRY RECHK«, t00=0x0001, t01=0x014e}
0x02ee…0304 Head {h00=0x0012, h01=0x0050, text=» ENTRY SCRIBE «, t00=0x0001, t01=0x0162}
0x0304…031a Head {h00=0x0012, h01=0x0050, text=» ENTRY OPRCMD «, t00=0x0001, t01=0x0178}
0x031a…0330 Head {h00=0x0012, h01=0x0050, text=» EXPROC LOADER«, t00=0x0001, t01=0x018e}
0x0330…0344 Head {h00=0x0010, h01=0x0050, text=» EXT RECASM «, t00=0x0002, t01=0x0014}
0x0344…0356 Head {h00=0x000e, h01=0x0050, text=» EXT COPY4«, t00=0x0002, t01=0x0028}
0x0356…035e Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x003a}
0x035e…0374 Head {h00=0x0012, h01=0x0050, text=» EXPROC LOADER«, t00=0x0002, t01=0x0042}
0x0374…0388 Head {h00=0x0010, h01=0x0050, text=» EXT RECASM «, t00=0x0002, t01=0x0058}
0x0388…039a Head {h00=0x000e, h01=0x0050, text=» EXT COPY4«, t00=0x0002, t01=0x006c}
0x039a…03a2 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x007e}
0x03a2…03aa Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0086}
0x03aa…03d2 Head {h00=0x0024, h01=0x0050, text=»ENTERK EQU X'0D' ENTER KEY CODE «, t00=0x0002, t01=0x008e}
0x03d2…03fa Head {h00=0x0024, h01=0x0050, text=»CANCEL EQU X'0A' CANCEL KEY CODE«, t00=0x0002, t01=0x00b6}
0x03fa…0424 Head {h00=0x0026, h01=0x0050, text=»DLLD EQU X'18' FORCE DOWNLINELOAD «, t00=0x0002, t01=0x00de}
0x0424…0452 Head {h00=0x002a, h01=0x0050, text=»KTAB1 KTAB ENTERK,CANCEL,DLLD KEYTABLE«, t00=0x0002, t01=0x0108}
0x0452…045a Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0136}
0x045a…0462 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x013e}
0x0462…0470 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0146}
0x0470…0484 Head {h00=0x0010, h01=0x0050, text=»READOK PROC «, t00=0x0002, t01=0x0154}
0x0484…048e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0168}
0x048e…04ae Head {h00=0x001c, h01=0x0050, text=»****** READ OK«, t00=0x0002, t01=0x0172}
0x04ae…04b8 (3, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0004}
0x04b8…04ec Head {h00=0x0030, h01=0x0050, text=» CBE LENGTH,COB0,READ10 READ AGAIN IF LEN=0 «, t00=0x0003, t01=0x000e}
0x04ec…050c Head {h00=0x001c, h01=0x0050, text=» CBNG LENGTH,COB4,READ20«, t00=0x0003, t01=0x0042}
0x050c…0544 Head {h00=0x0034, h01=0x0050, text=» DLETE BUFIN,COB0,COB4 DELETE CONTROL CHARACTERS«, t00=0x0003, t01=0x0062}
0x0544…0570 Head {h00=0x0028, h01=0x0050, text=» SUB LENGTH,COB4 REDUCE LENGTH BY 4 «, t00=0x0003, t01=0x009a}
0x0570…05b0 Head {h00=0x003c, h01=0x0050, text=» XCOPY BUFIN,LENGTH,COB2,FS,COB0 ADD 2 FIELD SEPERATORS «, t00=0x0003, t01=0x00c6}
0x05b0…05de Head {h00=0x002a, h01=0x0050, text=» ADD LENGTH,COB2 INCREASE LENGTH BY 2 «, t00=0x0003, t01=0x0106}
0x05de…0620 Head {h00=0x003e, h01=0x0050, text=» XCOPY BIN1,COB0,COB2,BUFIN,COB0 COPY MESSAGE IDENTIFIERS «, t00=0x0003, t01=0x0134}
0x0620…064c Head {h00=0x0028, h01=0x0050, text=» CBE BIN1,=C'22',READ30 SOLL.STATUS «, t00=0x0003, t01=0x0176}
0x064c…067a Head {h00=0x002a, h01=0x0050, text=» CBE BIN1,=C'12',READ40 UNSOLL.STATUS «, t00=0x0004, t01=0x0012}
0x067a…06aa Head {h00=0x002c, h01=0x0050, text=» CBE BIN1,=C'11',READ50 CUSTOMER REQUEST«, t00=0x0004, t01=0x0040}
0x06aa…06de Head {h00=0x0030, h01=0x0050, text=» MOVE VARIOUS,=C'INVALID MESSAGE RECEIVED ' «, t00=0x0004, t01=0x0070}
0x06de…06fa Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0004, t01=0x00a4}
0x06fa…0718 Head {h00=0x001a, h01=0x0050, text=»READ02 FIND NEXT FS «, t00=0x0004, t01=0x00c0}
0x0718…0730 Head {h00=0x0014, h01=0x0050, text=» MOVE PNT1,COB0 «, t00=0x0004, t01=0x00de}
0x0730…076c Head {h00=0x0038, h01=0x0050, text=» MATCH BUFIN,PNT1,LENGTH,FS,COB0,COB1 SEARCH FOR FS «, t00=0x0004, t01=0x00f6}
0x076c…0788 Head {h00=0x0018, h01=0x0050, text=» BNZ READ04 NO MATCH«, t00=0x0004, t01=0x0132}
0x0788…07c4 Head {h00=0x0038, h01=0x0050, text=» XCOPY BUFIN,PNT1,COB1,CHAR2,COB0 EXCHANGE FS FOR . «, t00=0x0004, t01=0x014e}
0x07c4…07e2 Head {h00=0x001a, h01=0x0050, text=» B READ02 FIND NEXT FS«, t00=0x0004, t01=0x018a}
0x07e2…07fc Head {h00=0x0016, h01=0x0050, text=»READ04 NO MATCH «, t00=0x0005, t01=0x0018}
0x07fc…0824 Head {h00=0x0024, h01=0x0050, text=» MOVE BIN3,=W'80' SET BIN3 TO 80«, t00=0x0005, t01=0x0032}
0x0824…0840 Head {h00=0x0018, h01=0x0050, text=»READ06 TEST LENGTH«, t00=0x0005, t01=0x005a}
0x0840…0872 Head {h00=0x002e, h01=0x0050, text=» CBL LENGTH,BIN3,READ08 TEST FOR LENGTH<80«, t00=0x0005, t01=0x0076}
0x0872…08b0 Head {h00=0x003a, h01=0x0050, text=» XCOPY INFO,COB0,BIN3,BUFIN,COB0 COPY BUFIN INTO INFO «, t00=0x0005, t01=0x00a8}
0x08b0…08d6 Head {h00=0x0022, h01=0x0050, text=» PERF SCRIBE,INF DISPLAY DATA«, t00=0x0005, t01=0x00e6}
0x08d6…090c Head {h00=0x0032, h01=0x0050, text=» DLETE BUFIN,COB0,BIN3 DELETE DATA FROM BUFIN «, t00=0x0005, t01=0x010c}
0x090c…0938 Head {h00=0x0028, h01=0x0050, text=» SUB LENGTH,BIN3 REDUCE LENGTH BY 80«, t00=0x0005, t01=0x0142}
0x0938…095c Head {h00=0x0020, h01=0x0050, text=» B READ06 TEST LENGTH AGAIN «, t00=0x0005, t01=0x016e}
0x095c…0976 (6, 0, 400) Head {h00=0x0016, h01=0x0050, text=»READ08 LENGTH<80«, t00=0x0006, t01=0x0004}
0x0976…099a Head {h00=0x0020, h01=0x0050, text=» MOVE INFO,=C' ' CLEAR INFO «, t00=0x0006, t01=0x001e}
0x099a…09de Head {h00=0x0040, h01=0x0050, text=» XCOPY INFO,COB0,LENGTH,BUFIN,COB0 REMAINING DATA INTO INFO «, t00=0x0006, t01=0x0042}
0x09de…0a06 Head {h00=0x0024, h01=0x0050, text=» PERF SCRIBE,INF DISPLAY DATA «, t00=0x0006, t01=0x0086}
0x0a06…0a0e Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x00ae}
0x0a0e…0a2a Head {h00=0x0018, h01=0x0050, text=»READ10 DO NEW READ«, t00=0x0006, t01=0x00b6}
0x0a2a…0a42 Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB0«, t00=0x0006, t01=0x00d2}
0x0a42…0a54 Head {h00=0x000e, h01=0x0050, text=» B READ90 «, t00=0x0006, t01=0x00ea}
0x0a54…0a5c Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x00fc}
0x0a5c…0a78 Head {h00=0x0018, h01=0x0050, text=»READ20 LENGTH < 5 «, t00=0x0006, t01=0x0104}
0x0a78…0a9c Head {h00=0x0020, h01=0x0050, text=» MOVE INFO,=C' ' CLEAR INFO «, t00=0x0006, t01=0x0120}
0x0a9c…0ae0 Head {h00=0x0040, h01=0x0050, text=» XCOPY INFO,COB0,LENGTH,BUFIN,COB0 REMAINING DATA INTO INFO «, t00=0x0006, t01=0x0144}
0x0ae0…0b08 Head {h00=0x0024, h01=0x0050, text=» PERF SCRIBE,INF DISPLAY DATA «, t00=0x0006, t01=0x0188}
0x0b08…0b20 Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB0«, t00=0x0007, t01=0x0020}
0x0b20…0b32 Head {h00=0x000e, h01=0x0050, text=» B READ90 «, t00=0x0007, t01=0x0038}
0x0b32…0b3a Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x004a}
0x0b3a…0b56 Head {h00=0x0018, h01=0x0050, text=»READ30 SOLL.STATUS«, t00=0x0007, t01=0x0052}
0x0b56…0b6e Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB1«, t00=0x0007, t01=0x006e}
0x0b6e…0b80 Head {h00=0x000e, h01=0x0050, text=» B READ90 «, t00=0x0007, t01=0x0086}
0x0b80…0b88 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0098}
0x0b88…0ba6 Head {h00=0x001a, h01=0x0050, text=»READ40 UNSOLL.STATUS«, t00=0x0007, t01=0x00a0}
0x0ba6…0bbe Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB2«, t00=0x0007, t01=0x00be}
0x0bbe…0bd0 Head {h00=0x000e, h01=0x0050, text=» B READ90 «, t00=0x0007, t01=0x00d6}
0x0bd0…0bd8 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x00e8}
0x0bd8…0bfa Head {h00=0x001e, h01=0x0050, text=»READ50 CUSTOMER REQUEST «, t00=0x0007, t01=0x00f0}
0x0bfa…0c12 Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB3«, t00=0x0007, t01=0x0112}
0x0c12…0c24 Head {h00=0x000e, h01=0x0050, text=» B READ90 «, t00=0x0007, t01=0x012a}
0x0c24…0c2c Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x013c}
0x0c2c…0c48 Head {h00=0x0018, h01=0x0050, text=»READ90 EXIT POINT «, t00=0x0007, t01=0x0144}
0x0c48…0c54 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0160}
0x0c54…0c62 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x016c}
0x0c62…0c70 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x017a}
0x0c70…0c84 Head {h00=0x0010, h01=0x0050, text=»CUSREQ PROC «, t00=0x0007, t01=0x0188}
0x0c84…0c8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x000c}
0x0c8e…0cb8 Head {h00=0x0026, h01=0x0050, text=»****** CUSTOMER REQUEST «, t00=0x0008, t01=0x0016}
0x0cb8…0cc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0040}
0x0cc2…0cd6 Head {h00=0x0010, h01=0x0050, text=» CLEAR ERROR«, t00=0x0008, t01=0x004a}
0x0cd6…0d12 Head {h00=0x0038, h01=0x0050, text=» DLETE BUFIN,COB0,COB9 REMOVE UNWANTED MESSAGE DATA «, t00=0x0008, t01=0x005e}
0x0d12…0d42 Head {h00=0x002c, h01=0x0050, text=» SUB LENGTH,COB9 SUBTRACT 9 FROM LENGTH «, t00=0x0008, t01=0x009a}
0x0d42…0d66 Head {h00=0x0020, h01=0x0050, text=» CLEAR F1 CLEAR FLAGS F1-F9 «, t00=0x0008, t01=0x00ca}
0x0d66…0d78 Head {h00=0x000e, h01=0x0050, text=» CLEAR F2 «, t00=0x0008, t01=0x00ee}
0x0d78…0d8a Head {h00=0x000e, h01=0x0050, text=» CLEAR F3«, t00=0x0008, t01=0x0100}
0x0d8a…0d9c Head {h00=0x000e, h01=0x0050, text=» CLEAR F4 «, t00=0x0008, t01=0x0112}
0x0d9c…0dae Head {h00=0x000e, h01=0x0050, text=» CLEAR F5 «, t00=0x0008, t01=0x0124}
0x0dae…0dc0 Head {h00=0x000e, h01=0x0050, text=» CLEAR F6 «, t00=0x0008, t01=0x0136}
0x0dc0…0dd2 Head {h00=0x000e, h01=0x0050, text=» CLEAR F7 «, t00=0x0008, t01=0x0148}
0x0dd2…0de4 Head {h00=0x000e, h01=0x0050, text=» CLEAR F8 «, t00=0x0008, t01=0x015a}
0x0de4…0df6 Head {h00=0x000e, h01=0x0050, text=» CLEAR F9 «, t00=0x0008, t01=0x016c}
0x0df6…0e30 Head {h00=0x0036, h01=0x0050, text=» PERF UNLOAD,COMB,F1,=W'2' TXFG AND MESS COMBINED «, t00=0x0008, t01=0x017e}
0x0e30…0e62 Head {h00=0x002e, h01=0x0050, text=» XCOPY TXFG,COB0,COB1,COMB,COB0 COPY TXFG «, t00=0x0009, t01=0x0028}
0x0e62…0e94 Head {h00=0x002e, h01=0x0050, text=» XCOPY MESS,COB0,COB1,COMB,COB1 COPY MESS «, t00=0x0009, t01=0x005a}
0x0e94…0ec4 Head {h00=0x002c, h01=0x0050, text=» PERF UNLOAD,TK2D,F2,=W'40' TRACK 2 DATA«, t00=0x0009, t01=0x008c}
0x0ec4…0ef6 Head {h00=0x002e, h01=0x0050, text=» PERF UNLOAD,TK3D,F3,=W'106' TRACK 3 DATA «, t00=0x0009, t01=0x00bc}
0x0ef6…0f28 Head {h00=0x002e, h01=0x0050, text=» MOVE TK3DL,PNT1 STORE TRACK 3 DATA LENGTH«, t00=0x0009, t01=0x00ee}
0x0f28…0f5a Head {h00=0x002e, h01=0x0050, text=» PERF UNLOAD,OPKY,F4,=W'8' OPERATION KEYS «, t00=0x0009, t01=0x0120}
0x0f5a…0f8e Head {h00=0x0030, h01=0x0050, text=» PERF UNLOAD,PPPP,F5,=W'16' POUNDS AND PENCE«, t00=0x0009, t01=0x0152}
0x0f8e…0fca Head {h00=0x0038, h01=0x0050, text=» PERF UNLOAD,GPBA,F6,=W'32' GENERAL PURPOSE BUFFER A«, t00=0x0009, t01=0x0186}
0x0fca…0fe2 Head {h00=0x0014, h01=0x0050, text=» MOVE GPBA,=C' '«, t00=0x000a, t01=0x0032}
0x0fe2…101e Head {h00=0x0038, h01=0x0050, text=» PERF UNLOAD,GPBB,F7,=W'32' GENERAL PURPOSE BUFFER B«, t00=0x000a, t01=0x004a}
0x101e…105a Head {h00=0x0038, h01=0x0050, text=» PERF UNLOAD,GPBC,F8,=W'32' GENERAL PURPOSE BUFFER C«, t00=0x000a, t01=0x0086}
0x105a…108a Head {h00=0x002c, h01=0x0050, text=» PERF UNLOAD,TK1D,F9,=W'80' TRACK 1 DATA«, t00=0x000a, t01=0x00c2}
0x108a…10be Head {h00=0x0030, h01=0x0050, text=» MOVE PBCD,PPPP MOVE 'MONEY' INTO BCD FIELD «, t00=0x000a, t01=0x00f2}
0x10be…10c6 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0126}
0x10c6…10e0 Head {h00=0x0016, h01=0x0050, text=» MOVE NOTES,=C'0' «, t00=0x000a, t01=0x012e}
0x10e0…1106 Head {h00=0x0022, h01=0x0050, text=» CBNE OPKY,=C'A ',CUSR02«, t00=0x000a, t01=0x0148}
0x1106…1126 Head {h00=0x001c, h01=0x0050, text=» CBL PBCD,=D'100',CUSR07«, t00=0x000a, t01=0x016e}
0x1126…1158 Head {h00=0x002e, h01=0x0050, text=» DIV PBCD,=D'100' THROW AWAY DECIMAL PART «, t00=0x000a, t01=0x018e}
0x1158…1184 Head {h00=0x0028, h01=0x0050, text=» CBG PBCD,DLIMIT,CUSR07 ABOVE LIMIT?«, t00=0x000b, t01=0x0030}
0x1184…1198 Head {h00=0x0010, h01=0x0050, text=» PERF LOMULT«, t00=0x000b, t01=0x005c}
0x1198…11ac Head {h00=0x0010, h01=0x0050, text=» BNOK CUSR07«, t00=0x000b, t01=0x0070}
0x11ac…11d0 Head {h00=0x0020, h01=0x0050, text=» PERF NOTMIX COMPUTE NOTEMIX«, t00=0x000b, t01=0x0084}
0x11d0…11e2 Head {h00=0x000e, h01=0x0050, text=» B CUSR08 «, t00=0x000b, t01=0x00a8}
0x11e2…11ea Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00ba}
0x11ea…11f8 Head {h00=0x000a, h01=0x0050, text=»CUSR02«, t00=0x000b, t01=0x00c2}
0x11f8…121e Head {h00=0x0022, h01=0x0050, text=» CBNE OPKY,=C'B ',CUSR04«, t00=0x000b, t01=0x00d0}
0x121e…1230 Head {h00=0x000e, h01=0x0050, text=» B CUSR08 «, t00=0x000b, t01=0x00f6}
0x1230…1238 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0108}
0x1238…1246 Head {h00=0x000a, h01=0x0050, text=»CUSR04«, t00=0x000b, t01=0x0110}
0x1246…126c Head {h00=0x0022, h01=0x0050, text=» CBNE OPKY,=C'C ',CUSR06«, t00=0x000b, t01=0x011e}
0x126c…127e Head {h00=0x000e, h01=0x0050, text=» B CUSR08 «, t00=0x000b, t01=0x0144}
0x127e…1286 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0156}
0x1286…1294 Head {h00=0x000a, h01=0x0050, text=»CUSR06«, t00=0x000b, t01=0x015e}
0x1294…12ba Head {h00=0x0022, h01=0x0050, text=» CBNE OPKY,=C'D ',CUSR08«, t00=0x000b, t01=0x016c}
0x12ba…12d2 (12, 0, 400) Head {h00=0x0014, h01=0x0050, text=» MOVE WKS14,GPBC«, t00=0x000c, t01=0x0004}
0x12d2…1306 Head {h00=0x0030, h01=0x0050, text=» MOVE WKSTR7,=X'00' TRUNCATE GPBC TO 13 CHRS«, t00=0x000c, t01=0x001c}
0x1306…1332 Head {h00=0x0028, h01=0x0050, text=» XCOPY WKS14,COB13,COB1,WKSTR7,COB0 «, t00=0x000c, t01=0x0050}
0x1332…134a Head {h00=0x0014, h01=0x0050, text=» MOVE GPBC,WKS14«, t00=0x000c, t01=0x007c}
0x134a…1362 Head {h00=0x0014, h01=0x0050, text=» MOVE PBCD,GPBB «, t00=0x000c, t01=0x0094}
0x1362…1374 Head {h00=0x000e, h01=0x0050, text=» B CUSR08 «, t00=0x000c, t01=0x00ac}
0x1374…137c Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x00be}
0x137c…13a6 Head {h00=0x0026, h01=0x0050, text=»CUSR07 INVALID AMOUNT ENCOUNTERD«, t00=0x000c, t01=0x00c6}
0x13a6…13c0 Head {h00=0x0016, h01=0x0050, text=» MOVE OPKY,=C'X ' «, t00=0x000c, t01=0x00f0}
0x13c0…13d2 Head {h00=0x000e, h01=0x0050, text=» SET ERROR«, t00=0x000c, t01=0x010a}
0x13d2…13da Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x011c}
0x13da…13e2 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0124}
0x13e2…13f0 Head {h00=0x000a, h01=0x0050, text=»CUSR08«, t00=0x000c, t01=0x012c}
0x13f0…142c Head {h00=0x0038, h01=0x0050, text=» MOVE BIN2,LENGTHS(COB2) BIN2 EQUALS LENGTH OF TK1D1«, t00=0x000c, t01=0x013a}
0x142c…146c Head {h00=0x003c, h01=0x0050, text=» XCOPY TK1D1,COB0,BIN2,TK1D,COB0 COPY FIRST HALF OF TK1D«, t00=0x000c, t01=0x0176}
0x146c…14a8 Head {h00=0x0038, h01=0x0050, text=» MOVE BIN3,LENGTHS(COB3) BIN3 EQUALS LENGTH OF TK1D2«, t00=0x000d, t01=0x0026}
0x14a8…14ea Head {h00=0x003e, h01=0x0050, text=» XCOPY TK1D2,COB0,BIN3,TK1D,BIN2 COPY SECOND HALF OF TK1D «, t00=0x000d, t01=0x0062}
0x14ea…152a Head {h00=0x003c, h01=0x0050, text=» XCOPY TK3D1,COB0,BIN2,TK3D,COB0 COPY FIRST HALF OF TK3D«, t00=0x000d, t01=0x00a4}
0x152a…1566 Head {h00=0x0038, h01=0x0050, text=» MOVE BIN3,LENGTHS(COB7) BIN3 EQUALS LENGTH OF TK3D2«, t00=0x000d, t01=0x00e4}
0x1566…15a8 Head {h00=0x003e, h01=0x0050, text=» XCOPY TK3D2,COB0,BIN3,TK3D,BIN2 COPY SECOND HALF OF TK3D «, t00=0x000d, t01=0x0120}
0x15a8…15ea Head {h00=0x003e, h01=0x0050, text=» COPY WKSTG1,COB0,COB1,MESS,COB0 STORE TRUE VALUE OF MESS «, t00=0x000d, t01=0x0162}
0x15ea…1624 Head {h00=0x0036, h01=0x0050, text=» PERF SCRIBE,CUSTRQ DISPLAY CUSTOMER REQUEST DATA«, t00=0x000e, t01=0x0014}
0x1624…1660 Head {h00=0x0038, h01=0x0050, text=» COPY MESS,COB0,COB1,WKSTG1,COB0 RESET VALUE OF MESS«, t00=0x000e, t01=0x004e}
0x1660…1668 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x008a}
0x1668…16a0 Head {h00=0x0034, h01=0x0050, text=» MOVE FCBLDX,COB1 SET FCBLD INDEX TO FIRST ITEM «, t00=0x000e, t01=0x0092}
0x16a0…16a8 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x00ca}
0x16a8…16ce Head {h00=0x0022, h01=0x0050, text=»CUSR10 MATCH OPERATION KEYS «, t00=0x000e, t01=0x00d2}
0x16ce…1700 Head {h00=0x002e, h01=0x0050, text=» MOVE PNT1,COB0 SET PNT1 TO START OF DATA «, t00=0x000e, t01=0x00f8}
0x1700…1746 Head {h00=0x0042, h01=0x0050, text=» MATCH FCBLD(FCBLDX),PNT1,COB8,OPKY,COB0,COB8 COMPARE STRINGS «, t00=0x000e, t01=0x012a}
0x1746…1758 Head {h00=0x000e, h01=0x0050, text=» BZ CUSR90«, t00=0x000e, t01=0x0170}
0x1758…1790 Head {h00=0x0034, h01=0x0050, text=» CBE FCBLDX,=W'30',CUSR20 TEST FOR END OF TABLE «, t00=0x000e, t01=0x0182}
0x1790…17b8 Head {h00=0x0024, h01=0x0050, text=» ADD FCBLDX,COB1 INCREMENT INDEX«, t00=0x000f, t01=0x002a}
0x17b8…17e2 Head {h00=0x0026, h01=0x0050, text=» B CUSR10 SEARCH FCBLD TABLE AGAIN«, t00=0x000f, t01=0x0052}
0x17e2…17ea Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x007c}
0x17ea…180a Head {h00=0x001c, h01=0x0050, text=»CUSR20 NO MATCH FOUND «, t00=0x000f, t01=0x0084}
0x180a…1824 Head {h00=0x0016, h01=0x0050, text=» PERF SCRIBE,FCMD «, t00=0x000f, t01=0x00a4}
0x1824…184e Head {h00=0x0026, h01=0x0050, text=» MOVE FCBLDX,COB1 DEFAULT COMMAND «, t00=0x000f, t01=0x00be}
0x184e…1856 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x00e8}
0x1856…1864 Head {h00=0x000a, h01=0x0050, text=»CUSR90«, t00=0x000f, t01=0x00f0}
0x1864…187e Head {h00=0x0016, h01=0x0050, text=» TBF ERROR,CUSR95 «, t00=0x000f, t01=0x00fe}
0x187e…189a Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,AMTERR «, t00=0x000f, t01=0x0118}
0x189a…18a8 Head {h00=0x000a, h01=0x0050, text=»CUSR95«, t00=0x000f, t01=0x0134}
0x18a8…18c0 Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB0«, t00=0x000f, t01=0x0142}
0x18c0…18cc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000f, t01=0x015a}
0x18cc…18da Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000f, t01=0x0166}
0x18da…18e2 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0174}
0x18e2…18f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x017c}
0x18f0…1904 Head {h00=0x0010, h01=0x0050, text=»SOLLST PROC «, t00=0x000f, t01=0x018a}
0x1904…190e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x000e}
0x190e…1940 Head {h00=0x002e, h01=0x0050, text=»****** SOLICITED STATUS MESSAGE «, t00=0x0010, t01=0x0018}
0x1940…194a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x004a}
0x194a…1980 Head {h00=0x0032, h01=0x0050, text=» TBT RESFG,SOLL010 TEST RESPONSE EXPECTED FLAG«, t00=0x0010, t01=0x0054}
0x1980…19b6 Head {h00=0x0032, h01=0x0050, text=» MOVE VARIOUS,=C'UNEXPECTED MESSAGE RECEIVED '«, t00=0x0010, t01=0x008a}
0x19b6…19d2 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0010, t01=0x00c0}
0x19d2…19da Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x00dc}
0x19da…1a04 Head {h00=0x0026, h01=0x0050, text=»SOLL010 UNLOAD STATUS DESCRIPTOR«, t00=0x0010, t01=0x00e4}
0x1a04…1a36 Head {h00=0x002e, h01=0x0050, text=» CLEAR RESFG CLEAR RESPONSE EXPECTED FLAG «, t00=0x0010, t01=0x010e}
0x1a36…1a72 Head {h00=0x0038, h01=0x0050, text=» DLETE BUFIN,COB0,COB7 DELETE UPTO STATUS DESCRIPTOR«, t00=0x0010, t01=0x0140}
0x1a72…1a98 Head {h00=0x0022, h01=0x0050, text=» CLEAR DUMMY CLEAR DUMMY FLAG «, t00=0x0010, t01=0x017c}
0x1a98…1ad2 Head {h00=0x0036, h01=0x0050, text=» PERF UNLOAD,STAT,DUMMY,=W'1' COPY DATA INTO STAT «, t00=0x0011, t01=0x0012}
0x1ad2…1b0a Head {h00=0x0034, h01=0x0050, text=» CBE STAT,=C'8',SOLL040 DEVICE FAULT,CONFIG.DATA«, t00=0x0011, t01=0x004c}
0x1b0a…1b30 Head {h00=0x0022, h01=0x0050, text=» CBE STAT,=C'9',SOLL020 READY «, t00=0x0011, t01=0x0084}
0x1b30…1b5e Head {h00=0x002a, h01=0x0050, text=» CBE STAT,=C'A',SOLL030 COMMAND REJECT«, t00=0x0011, t01=0x00aa}
0x1b5e…1b84 Head {h00=0x0022, h01=0x0050, text=» CBE STAT,=C'B',SOLL020 READY «, t00=0x0011, t01=0x00d8}
0x1b84…1b8c Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x00fe}
0x1b8c…1ba4 Head {h00=0x0014, h01=0x0050, text=»SOLL020 READY «, t00=0x0011, t01=0x0106}
0x1ba4…1bc4 Head {h00=0x001c, h01=0x0050, text=» MOVE VARIOUS,=C'READY '«, t00=0x0011, t01=0x011e}
0x1bc4…1be0 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0011, t01=0x013e}
0x1be0…1bf2 Head {h00=0x000e, h01=0x0050, text=» B SOLL080«, t00=0x0011, t01=0x015a}
0x1bf2…1bfa Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x016c}
0x1bfa…1c1a Head {h00=0x001c, h01=0x0050, text=»SOLL030 COMMAND REJECT«, t00=0x0011, t01=0x0174}
0x1c1a…1c44 (18, 0, 400) Head {h00=0x0026, h01=0x0050, text=» MOVE VARIOUS,=C'COMMAND REJECT ' «, t00=0x0012, t01=0x0004}
0x1c44…1c60 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0012, t01=0x002e}
0x1c60…1c72 Head {h00=0x000e, h01=0x0050, text=» B SOLL090«, t00=0x0012, t01=0x004a}
0x1c72…1c7a Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x005c}
0x1c7a…1c98 Head {h00=0x001a, h01=0x0050, text=»SOLL040 DEVICE FAULT«, t00=0x0012, t01=0x0064}
0x1c98…1cbe Head {h00=0x0022, h01=0x0050, text=» CLEAR DUMMY CLEAR DUMMY FLAG «, t00=0x0012, t01=0x0082}
0x1cbe…1cfe Head {h00=0x003c, h01=0x0050, text=» PERF UNLOAD,COMB2,DUMMY,=W'2' COPY DID + DEVICE STATUS«, t00=0x0012, t01=0x00a8}
0x1cfe…1d2e Head {h00=0x002c, h01=0x0050, text=» XCOPY DID,COB1,COB1,COMB2,COB0 COPY DID«, t00=0x0012, t01=0x00e8}
0x1d2e…1d62 Head {h00=0x0030, h01=0x0050, text=» SUB DID,=W'49' CONVERT DID TO INDEX VALUE «, t00=0x0012, t01=0x0118}
0x1d62…1d90 Head {h00=0x002a, h01=0x0050, text=» SUB PNT1,COB2 SET PNT1 TO DATA LENGTH«, t00=0x0012, t01=0x014c}
0x1d90…1dc4 Head {h00=0x0030, h01=0x0050, text=» MOVE DEVST,=C' ' CLEAR DEVICE STATUS FIELD «, t00=0x0012, t01=0x017a}
0x1dc4…1e06 Head {h00=0x003e, h01=0x0050, text=» XCOPY DEVST,COB0,PNT1,COMB2,COB1 COPY DEVICE STATUS DATA «, t00=0x0013, t01=0x001e}
0x1e06…1e32 Head {h00=0x0028, h01=0x0050, text=» MOVE WKSTG4,=X'1D' GROUP SEPRARATOR«, t00=0x0013, t01=0x0060}
0x1e32…1e5e Head {h00=0x0028, h01=0x0050, text=» MOVE BIN4,=W'32' LENGTH OF 'DEVST' «, t00=0x0013, t01=0x008c}
0x1e5e…1e76 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN3,COB0 «, t00=0x0013, t01=0x00b8}
0x1e76…1e8a Head {h00=0x0010, h01=0x0050, text=» CLEAR DUMMY«, t00=0x0013, t01=0x00d0}
0x1e8a…1ec4 Head {h00=0x0036, h01=0x0050, text=» MATCH DEVST,BIN3,BIN4,WKSTG4,COB0,COB1 ANY <GS>? «, t00=0x0013, t01=0x00e4}
0x1ec4…1eec Head {h00=0x0024, h01=0x0050, text=» BNOK SOLL050 NO, NOT THIS TIME «, t00=0x0013, t01=0x011e}
0x1eec…1f0a Head {h00=0x001a, h01=0x0050, text=» SET DUMMY <GS> FOUND «, t00=0x0013, t01=0x0146}
0x1f0a…1f1a Head {h00=0x000c, h01=0x0050, text=»SOLL050 «, t00=0x0013, t01=0x0164}
0x1f1a…1f46 Head {h00=0x0028, h01=0x0050, text=» PERF SCRIBE,ERROR 'DEVICE--STATUS'«, t00=0x0013, t01=0x0174}
0x1f46…1f7c Head {h00=0x0032, h01=0x0050, text=»* HERE THE GROUP IDENTIFIERS PLUS THE STATUS- «, t00=0x0014, t01=0x0010}
0x1f7c…1fa4 Head {h00=0x0024, h01=0x0050, text=»* HANDLING SHOULD BE IMPLEMENTED«, t00=0x0014, t01=0x0046}
0x1fa4…1fd0 Head {h00=0x0028, h01=0x0050, text=» CMP DID,COB1 TEST FOR PRINTER FAULT«, t00=0x0014, t01=0x006e}
0x1fd0…1fe4 Head {h00=0x0010, h01=0x0050, text=» BE SOLL090 «, t00=0x0014, t01=0x009a}
0x1fe4…200e Head {h00=0x0026, h01=0x0050, text=» MOVE FCBLDX,COB1 SET FCBLDX INDEX«, t00=0x0014, t01=0x00ae}
0x200e…201e Head {h00=0x000c, h01=0x0050, text=»SOLL080 «, t00=0x0014, t01=0x00d8}
0x201e…2044 Head {h00=0x0022, h01=0x0050, text=» MOVE RETUR,COB1 READ LINE MSG«, t00=0x0014, t01=0x00e8}
0x2044…2056 Head {h00=0x000e, h01=0x0050, text=» B SOLL095«, t00=0x0014, t01=0x010e}
0x2056…2066 Head {h00=0x000c, h01=0x0050, text=»SOLL090 «, t00=0x0014, t01=0x0120}
0x2066…208a Head {h00=0x0020, h01=0x0050, text=» MOVE RETUR,COB0 RETRY READ «, t00=0x0014, t01=0x0130}
0x208a…209a Head {h00=0x000c, h01=0x0050, text=»SOLL095 «, t00=0x0014, t01=0x0154}
0x209a…20a6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0014, t01=0x0164}
0x20a6…20b4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0014, t01=0x0170}
0x20b4…20c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x017e}
0x20c2…20d6 Head {h00=0x0010, h01=0x0050, text=»OPENLN PROC «, t00=0x0014, t01=0x018c}
0x20d6…20e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0010}
0x20e0…210a Head {h00=0x0026, h01=0x0050, text=»****** OPEN LINE TO ATM «, t00=0x0015, t01=0x001a}
0x210a…2114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0044}
0x2114…2142 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN2,=X'00A2' CODE FOR OPEN LINE«, t00=0x0015, t01=0x004e}
0x2142…2154 Head {h00=0x000e, h01=0x0050, text=» PERF OPL «, t00=0x0015, t01=0x007c}
0x2154…217a Head {h00=0x0022, h01=0x0050, text=» IB BIN3,OPL010,OPL020,OPL030 «, t00=0x0015, t01=0x008e}
0x217a…218c Head {h00=0x000e, h01=0x0050, text=» B OPL030 «, t00=0x0015, t01=0x00b4}
0x218c…2194 Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x00c6}
0x2194…21b0 Head {h00=0x0018, h01=0x0050, text=»OPL010 LINE OPENED«, t00=0x0015, t01=0x00ce}
0x21b0…21c4 Head {h00=0x0010, h01=0x0050, text=» CLEAR MESFG«, t00=0x0015, t01=0x00ea}
0x21c4…21ea Head {h00=0x0022, h01=0x0050, text=» MOVE VARIOUS,=C'LINE OPENED '«, t00=0x0015, t01=0x00fe}
0x21ea…2206 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0015, t01=0x0124}
0x2206…2222 Head {h00=0x0018, h01=0x0050, text=» MOVE RETUR,COB0 OK «, t00=0x0015, t01=0x0140}
0x2222…2234 Head {h00=0x000e, h01=0x0050, text=» B OPL090 «, t00=0x0015, t01=0x015c}
0x2234…223c Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x016e}
0x223c…225e Head {h00=0x001e, h01=0x0050, text=»OPL020 MODEM INOPERABLE «, t00=0x0015, t01=0x0176}
0x225e…228a Head {h00=0x0028, h01=0x0050, text=» TBT MESFG,OPL025 ALREADY DISPLAYED?«, t00=0x0016, t01=0x0008}
0x228a…22b6 Head {h00=0x0028, h01=0x0050, text=» MOVE VARIOUS,=C'LINE NOT OPERABLE '«, t00=0x0016, t01=0x0034}
0x22b6…22d2 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0016, t01=0x0060}
0x22d2…2302 Head {h00=0x002c, h01=0x0050, text=» SET MESFG SET 'MESSAGE DISPLAYED' FLAG «, t00=0x0016, t01=0x007c}
0x2302…2310 Head {h00=0x000a, h01=0x0050, text=»OPL025«, t00=0x0016, t01=0x00ac}
0x2310…2328 Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB1«, t00=0x0016, t01=0x00ba}
0x2328…233a Head {h00=0x000e, h01=0x0050, text=» B OPL090 «, t00=0x0016, t01=0x00d2}
0x233a…2342 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x00e4}
0x2342…2364 Head {h00=0x001e, h01=0x0050, text=»OPL030 LINE ALREADY OPEN«, t00=0x0016, t01=0x00ec}
0x2364…2390 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN2,=X'00A4' CLOSE LINE CODE «, t00=0x0016, t01=0x010e}
0x2390…23ac Head {h00=0x0018, h01=0x0050, text=» PERF OPL CLOSE LINE«, t00=0x0016, t01=0x013a}
0x23ac…23c6 Head {h00=0x0016, h01=0x0050, text=» DELAY TIME DELAY «, t00=0x0016, t01=0x0156}
0x23c6…23de Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB2«, t00=0x0016, t01=0x0170}
0x23de…23e6 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0188}
0x23e6…23f4 Head {h00=0x000a, h01=0x0050, text=»OPL090«, t00=0x0016, t01=0x0190}
0x23f4…2400 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0017, t01=0x000e}
0x2400…240e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0017, t01=0x001a}
0x240e…241c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0028}
0x241c…2430 Head {h00=0x0010, h01=0x0050, text=»ADDPOL PROC «, t00=0x0017, t01=0x0036}
0x2430…243a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x004a}
0x243a…2468 Head {h00=0x002a, h01=0x0050, text=»****** ADD ATM TO POLL LIST «, t00=0x0017, t01=0x0054}
0x2468…2472 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0082}
0x2472…2488 Head {h00=0x0012, h01=0x0050, text=» CLEAR INACTIV«, t00=0x0017, t01=0x008c}
0x2488…2496 Head {h00=0x000a, h01=0x0050, text=»ADD005«, t00=0x0017, t01=0x00a2}
0x2496…24ca Head {h00=0x0030, h01=0x0050, text=» MOVE BIN2,=X'00B7' 'ADD TO POLL LIST' CODE «, t00=0x0017, t01=0x00b0}
0x24ca…2506 Head {h00=0x0038, h01=0x0050, text=» CALL RECASM,DSCMOP,BIN2,ADR,BIN3 ASS. SUBROUTINE «, t00=0x0017, t01=0x00e4}
0x2506…252c Head {h00=0x0022, h01=0x0050, text=» IB BIN3,ADD010,ADD020,ADD030 «, t00=0x0017, t01=0x0120}
0x252c…2558 Head {h00=0x0028, h01=0x0050, text=» MOVE RETUR,COB1 RETURNCODE INVALID «, t00=0x0017, t01=0x0146}
0x2558…256a Head {h00=0x000e, h01=0x0050, text=» B ADD090 «, t00=0x0017, t01=0x0172}
0x256a…2572 Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x0184}
0x2572…2580 Head {h00=0x000a, h01=0x0050, text=»ADD010«, t00=0x0017, t01=0x018c}
0x2580…259a Head {h00=0x0016, h01=0x0050, text=» PERF SCRIBE,POLL «, t00=0x0018, t01=0x000a}
0x259a…25b2 Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB0«, t00=0x0018, t01=0x0024}
0x25b2…25c4 Head {h00=0x000e, h01=0x0050, text=» B ADD090 «, t00=0x0018, t01=0x003c}
0x25c4…25cc Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x004e}
0x25cc…25ee Head {h00=0x001e, h01=0x0050, text=»ADD020 MODEM INOPERABLE «, t00=0x0018, t01=0x0056}
0x25ee…2606 Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB2«, t00=0x0018, t01=0x0078}
0x2606…2618 Head {h00=0x000e, h01=0x0050, text=» B ADD090 «, t00=0x0018, t01=0x0090}
0x2618…2620 Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x00a2}
0x2620…262e Head {h00=0x000a, h01=0x0050, text=»ADD030«, t00=0x0018, t01=0x00aa}
0x262e…2654 Head {h00=0x0022, h01=0x0050, text=» TBT INACTIV,ADD040 2ND TIME? «, t00=0x0018, t01=0x00b8}
0x2654…266e Head {h00=0x0016, h01=0x0050, text=» PERF SCRIBE,INACT«, t00=0x0018, t01=0x00de}
0x266e…2682 Head {h00=0x0010, h01=0x0050, text=» SET INACTIV«, t00=0x0018, t01=0x00f8}
0x2682…2690 Head {h00=0x000a, h01=0x0050, text=»ADD040«, t00=0x0018, t01=0x010c}
0x2690…26a2 Head {h00=0x000e, h01=0x0050, text=» B ADD005 «, t00=0x0018, t01=0x011a}
0x26a2…26aa Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x012c}
0x26aa…26b8 Head {h00=0x000a, h01=0x0050, text=»ADD090«, t00=0x0018, t01=0x0134}
0x26b8…26c4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x0142}
0x26c4…26d2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0018, t01=0x014e}
0x26d2…26e0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x015c}
0x26e0…26f4 Head {h00=0x0010, h01=0x0050, text=»UNSTAT PROC «, t00=0x0018, t01=0x016a}
0x26f4…26fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x017e}
0x26fe…2732 Head {h00=0x0030, h01=0x0050, text=»****** UNSOLICITED STATUS MESSAGE «, t00=0x0018, t01=0x0188}
0x2732…273c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x002c}
0x273c…276a Head {h00=0x002a, h01=0x0050, text=» MOVE DID,COB3 FIND POWERFAIL MESSAGE «, t00=0x0019, t01=0x0036}
0x276a…27a2 Head {h00=0x0034, h01=0x0050, text=» MATCH BUFIN,DID,COB2,FS,COB0,COB2 AND EXPAND IT«, t00=0x0019, t01=0x0064}
0x27a2…27b8 Head {h00=0x0012, h01=0x0050, text=» BERR UNST010 «, t00=0x0019, t01=0x009c}
0x27b8…27e2 Head {h00=0x0026, h01=0x0050, text=» INSRT BUFIN,COB0,COB3,WKSTG1,COB0«, t00=0x0019, t01=0x00b2}
0x27e2…27f2 Head {h00=0x000c, h01=0x0050, text=»UNST010 «, t00=0x0019, t01=0x00dc}
0x27f2…2808 Head {h00=0x0012, h01=0x0050, text=» MOVE DID,COB0«, t00=0x0019, t01=0x00ec}
0x2808…2840 Head {h00=0x0034, h01=0x0050, text=» DLETE BUFIN,COB0,COB8 DELETE UPTO STATUS SOURCE«, t00=0x0019, t01=0x0102}
0x2840…2866 Head {h00=0x0022, h01=0x0050, text=» CLEAR DUMMY CLEAR DUMMY FLAG«, t00=0x0019, t01=0x013a}
0x2866…28aa Head {h00=0x0040, h01=0x0050, text=» PERF UNLOAD,COMB2,DUMMY,=W'2' STATUS SOURCE + DEVICE STATUS«, t00=0x0019, t01=0x0160}
0x28aa…28c4 Head {h00=0x0016, h01=0x0050, text=» TBT DUMMY,UNST020«, t00=0x001a, t01=0x0014}
0x28c4…28fe Head {h00=0x0036, h01=0x0050, text=» XCOPY DID,COB1,COB1,COMB2,COB0 COPY STATUS SOURCE«, t00=0x001a, t01=0x002e}
0x28fe…2934 Head {h00=0x0032, h01=0x0050, text=» SUB DID,=W'48' CHANGE STATUS SOURCE TO INDEX «, t00=0x001a, t01=0x0068}
0x2934…2968 Head {h00=0x0030, h01=0x0050, text=» SUB PNT1,COB2 LENGTH OF DEVICE STATUS DATA «, t00=0x001a, t01=0x009e}
0x2968…299c Head {h00=0x0030, h01=0x0050, text=» MOVE DEVST,=C' ' CLEAR DEVICE STATUS FIELD «, t00=0x001a, t01=0x00d2}
0x299c…29de Head {h00=0x003e, h01=0x0050, text=» XCOPY DEVST,COB0,PNT1,COMB2,COB1 COPY DEVICE STATUS DATA «, t00=0x001a, t01=0x0106}
0x29de…2a16 Head {h00=0x0034, h01=0x0050, text=» PERF SCRIBE,UNSS 'UNSOLICITED STATUS DD+SS ' «, t00=0x001a, t01=0x0148}
0x2a16…2a4a Head {h00=0x0030, h01=0x0050, text=» IB DID,UNST030,UNST040,UNST070,UNST045, C «, t00=0x001a, t01=0x0180}
0x2a4a…2a74 Head {h00=0x0026, h01=0x0050, text=» UNST050,UNST055,UNST060,UNST065 «, t00=0x001b, t01=0x0024}
0x2a74…2aa0 Head {h00=0x0028, h01=0x0050, text=» B UNST090 INVALID DEVICE,READ AGAIN«, t00=0x001b, t01=0x004e}
0x2aa0…2aa8 Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x007a}
0x2aa8…2ab8 Head {h00=0x000c, h01=0x0050, text=»UNST020 «, t00=0x001b, t01=0x0082}
0x2ab8…2af4 Head {h00=0x0038, h01=0x0050, text=» MOVE VARIOUS,=C'UNSOLL.STATUS FROM UNKNOWN DEVICE '«, t00=0x001b, t01=0x0092}
0x2af4…2b10 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x001b, t01=0x00ce}
0x2b10…2b3e Head {h00=0x002a, h01=0x0050, text=» B UNST090 INVALID DEVICE, READ AGAIN «, t00=0x001b, t01=0x00ea}
0x2b3e…2b46 Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x0118}
0x2b46…2b56 Head {h00=0x000c, h01=0x0050, text=»UNST030 «, t00=0x001b, t01=0x0120}
0x2b56…2b78 Head {h00=0x001e, h01=0x0050, text=» POWER FAILURE OCCURRED.«, t00=0x001b, t01=0x0130}
0x2b78…2b9c Head {h00=0x0020, h01=0x0050, text=» DOWNLINELOAD SCREENS ETC.«, t00=0x001b, t01=0x0152}
0x2b9c…2bc6 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN1,COB13 SET HEADER LENGTH«, t00=0x001b, t01=0x0176}
0x2bc6…2be2 Head {h00=0x0018, h01=0x0050, text=» MOVE WKSTG2,HEADER «, t00=0x001c, t01=0x0010}
0x2be2…2bf2 Head {h00=0x000c, h01=0x0050, text=»UNST031 «, t00=0x001c, t01=0x002c}
0x2bf2…2c0e Head {h00=0x0018, h01=0x0050, text=» MOVE LENGTH,=W'256'«, t00=0x001c, t01=0x003c}
0x2c0e…2c44 Head {h00=0x0032, h01=0x0050, text=» READ .NW,DSCMIP,BUFIN,LENGTH READ FOR ALARMS «, t00=0x001c, t01=0x0058}
0x2c44…2c64 Head {h00=0x001c, h01=0x0050, text=» DELAY COB10 WAIT 1 SEC «, t00=0x001c, t01=0x008e}
0x2c64…2c84 Head {h00=0x001c, h01=0x0050, text=» ABORT DSCMIP ABORT READ«, t00=0x001c, t01=0x00ae}
0x2c84…2cac Head {h00=0x0024, h01=0x0050, text=» BOK UNST032 READ NOT COMPLETE? «, t00=0x001c, t01=0x00ce}
0x2cac…2cc0 Head {h00=0x0010, h01=0x0050, text=» WAIT DSCMIP«, t00=0x001c, t01=0x00f6}
0x2cc0…2cde Head {h00=0x001a, h01=0x0050, text=» B UNST031 READ AGAIN «, t00=0x001c, t01=0x010a}
0x2cde…2cee Head {h00=0x000c, h01=0x0050, text=»UNST032 «, t00=0x001c, t01=0x0128}
0x2cee…2d1e Head {h00=0x002c, h01=0x0050, text=» PERF LOADER DOWNLINELOAD PARAMTERS ETC «, t00=0x001c, t01=0x0138}
0x2d1e…2d32 Head {h00=0x0010, h01=0x0050, text=» BOK UNST034«, t00=0x001c, t01=0x0168}
0x2d32…2d6c Head {h00=0x0036, h01=0x0050, text=» MOVE VARIOUS,=C'ERROR DURING DOWN-LINE LOADING ' «, t00=0x001c, t01=0x017c}
0x2d6c…2d88 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x001d, t01=0x0026}
0x2d88…2d98 Head {h00=0x000c, h01=0x0050, text=»UNST033 «, t00=0x001d, t01=0x0042}
0x2d98…2db4 Head {h00=0x0018, h01=0x0050, text=» B UNST030 TRY AGAIN«, t00=0x001d, t01=0x0052}
0x2db4…2dbc Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x006e}
0x2dbc…2dcc Head {h00=0x000c, h01=0x0050, text=»UNST034 «, t00=0x001d, t01=0x0076}
0x2dcc…2df2 Head {h00=0x0022, h01=0x0050, text=» MOVE WKSTR7,=C'3' CONFIG.DATA«, t00=0x001d, t01=0x0086}
0x2df2…2e1a Head {h00=0x0024, h01=0x0050, text=» PERF OPRCMD OPERATIONAL COMMAND«, t00=0x001d, t01=0x00ac}
0x2e1a…2e30 Head {h00=0x0012, h01=0x0050, text=» BNOK UNST030 «, t00=0x001d, t01=0x00d4}
0x2e30…2e4a Head {h00=0x0016, h01=0x0050, text=» MOVE WKSTR7,=C'1'«, t00=0x001d, t01=0x00ea}
0x2e4a…2e70 Head {h00=0x0022, h01=0x0050, text=» PERF OPRCMD SEND OPEN COMMAND«, t00=0x001d, t01=0x0104}
0x2e70…2e82 Head {h00=0x000e, h01=0x0050, text=» B UNST090«, t00=0x001d, t01=0x012a}
0x2e82…2e8a Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x013c}
0x2e8a…2e92 Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0144}
0x2e92…2eaa Head {h00=0x0014, h01=0x0050, text=»UNST040 ALARM «, t00=0x001d, t01=0x014c}
0x2eaa…2ec4 Head {h00=0x0016, h01=0x0050, text=»UNST045 PRINTERS«, t00=0x001d, t01=0x0164}
0x2ec4…2ee2 Head {h00=0x001a, h01=0x0050, text=»UNST050 CARD READER «, t00=0x001d, t01=0x017e}
0x2ee2…2f02 Head {h00=0x001c, h01=0x0050, text=»UNST055 CONTROL PANEL «, t00=0x001e, t01=0x000c}
0x2f02…2f20 Head {h00=0x001a, h01=0x0050, text=»UNST060 CARD WRITER «, t00=0x001e, t01=0x002c}
0x2f20…2f40 Head {h00=0x001c, h01=0x0050, text=»UNST065 VANDAL SHIELD «, t00=0x001e, t01=0x004a}
0x2f40…2f52 Head {h00=0x000e, h01=0x0050, text=» B UNST090«, t00=0x001e, t01=0x006a}
0x2f52…2f5a Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x007c}
0x2f5a…2f70 Head {h00=0x0012, h01=0x0050, text=»UNST070 KEYS«, t00=0x001e, t01=0x0084}
0x2f70…2f96 Head {h00=0x0022, h01=0x0050, text=» MOVE WKSTR7,=C'3' CONFIG.DATA«, t00=0x001e, t01=0x009a}
0x2f96…2fbe Head {h00=0x0024, h01=0x0050, text=» PERF OPRCMD OPERATIONAL COMMAND«, t00=0x001e, t01=0x00c0}
0x2fbe…2fd4 Head {h00=0x0012, h01=0x0050, text=» BNOK UNST090 «, t00=0x001e, t01=0x00e8}
0x2fd4…3002 Head {h00=0x002a, h01=0x0050, text=» MOVE RETUR,COB0 SOLL.STATUS EXPECTED «, t00=0x001e, t01=0x00fe}
0x3002…300e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001e, t01=0x012c}
0x300e…3016 Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x0138}
0x3016…3026 Head {h00=0x000c, h01=0x0050, text=»UNST090 «, t00=0x001e, t01=0x0140}
0x3026…303e Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB1«, t00=0x001e, t01=0x0150}
0x303e…304a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001e, t01=0x0168}
0x304a…3058 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001e, t01=0x0174}
0x3058…3066 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0182}
0x3066…307a Head {h00=0x0010, h01=0x0050, text=»SENDFC PROC «, t00=0x001e, t01=0x0190}
0x307a…3084 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0014}
0x3084…30b2 Head {h00=0x002a, h01=0x0050, text=»****** SEND FUNCTION COMMAND«, t00=0x001f, t01=0x001e}
0x30b2…30bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x004c}
0x30bc…30e8 Head {h00=0x0028, h01=0x0050, text=» MOVE PNT1,COB0 POINTER WITHIN FCBLD«, t00=0x001f, t01=0x0056}
0x30e8…30f0 Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x0082}
0x30f0…3134 Head {h00=0x0040, h01=0x0050, text=» COPY OPKY,COB0,COB8,FCBLD(FCBLDX),COB0 COPY OPERATION KEYS «, t00=0x001f, t01=0x008a}
0x3134…314a Head {h00=0x0012, h01=0x0050, text=» ADD PNT1,COB8«, t00=0x001f, t01=0x00ce}
0x314a…318c Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x001f, t01=0x00e4}
0x318c…31b0 Head {h00=0x0020, h01=0x0050, text=»FC1 BUILD FUNCTION COMMAND«, t00=0x001f, t01=0x0126}
0x31b0…31f4 Head {h00=0x0040, h01=0x0050, text=» MOVE FCMESS,=X'4131201B3142341C1C1C20' LOAD STANDARD HEADER«, t00=0x001f, t01=0x014a}
0x31f4…31fc Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x018e}
0x31fc…322e Head {h00=0x002e, h01=0x0050, text=» MOVE PNT3,=W'10' SET PNT3 TO FIRST FREE «, t00=0x0020, t01=0x0008}
0x322e…3248 Head {h00=0x0016, h01=0x0050, text=» BYTE IN FCMESS «, t00=0x0020, t01=0x003a}
0x3248…328a Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0020, t01=0x0054}
0x328a…32a0 Head {h00=0x0012, h01=0x0050, text=» NEXT STATE «, t00=0x0020, t01=0x0096}
0x32a0…32e6 Head {h00=0x0042, h01=0x0050, text=» COPY FCMESS,PNT3,COB3,FCBLD(FCBLDX),PNT1 COPY STATE TO FCMESS«, t00=0x0020, t01=0x00ac}
0x32e6…3316 Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB3 INCREMENT FCMESS POINTER «, t00=0x0020, t01=0x00f2}
0x3316…3344 Head {h00=0x002a, h01=0x0050, text=» ADD PNT1,COB3 INCREMENT FCBLD POINTER«, t00=0x0020, t01=0x0122}
0x3344…3386 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0020, t01=0x0150}
0x3386…339c (33, 0, 400) Head {h00=0x0012, h01=0x0050, text=»FC2 LOAD FS.«, t00=0x0021, t01=0x0004}
0x339c…33d6 Head {h00=0x0036, h01=0x0050, text=» COPY FCMESS,PNT3,COB1,FS,COB0 COPY FS. TO FCMESS «, t00=0x0021, t01=0x001a}
0x33d6…3406 Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB1 INCREMENT FCMESS POINTER «, t00=0x0021, t01=0x0054}
0x3406…3448 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0021, t01=0x0084}
0x3448…347e Head {h00=0x0032, h01=0x0050, text=» COPY FCMESS,PNT3,COB16,NOTES,COB0 LOAD NOTES «, t00=0x0021, t01=0x00c6}
0x347e…34b0 Head {h00=0x002e, h01=0x0050, text=» ADD PNT3,=W'16' INCREMENT FCMESS POINTER «, t00=0x0021, t01=0x00fc}
0x34b0…34f2 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0021, t01=0x012e}
0x34f2…3508 Head {h00=0x0012, h01=0x0050, text=»FC4 LOAD FS.«, t00=0x0021, t01=0x0170}
0x3508…3540 Head {h00=0x0034, h01=0x0050, text=» COPY FCMESS,PNT3,COB1,FS,COB0 COPY FS TO FCMESS«, t00=0x0021, t01=0x0186}
0x3540…3570 Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB1 INCREMENT FCMESS POINTER «, t00=0x0022, t01=0x002e}
0x3570…35b2 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0022, t01=0x005e}
0x35b2…35d6 Head {h00=0x0020, h01=0x0050, text=» TRANSACTION SERIAL NUMBER«, t00=0x0022, t01=0x00a0}
0x35d6…3606 Head {h00=0x002c, h01=0x0050, text=» ADD SRLNBR,=D'1' INCREMENT SERIALNUMBER«, t00=0x0022, t01=0x00c4}
0x3606…362a Head {h00=0x0020, h01=0x0050, text=» EDIT WKSTG4,SRLFMT EDIT IT «, t00=0x0022, t01=0x00f4}
0x362a…3654 Head {h00=0x0026, h01=0x0050, text=» COPY FCMESS,PNT3,COB4,WKSTG4,COB0«, t00=0x0022, t01=0x0118}
0x3654…3684 Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB4 INCREMENT FCMESS POINTER «, t00=0x0022, t01=0x0142}
0x3684…36c6 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0022, t01=0x0172}
0x36c6…36dc Head {h00=0x0012, h01=0x0050, text=» FUNCTION ID«, t00=0x0023, t01=0x0024}
0x36dc…371e Head {h00=0x003e, h01=0x0050, text=» COPY FCMESS,PNT3,COB1,FCBLD(FCBLDX),PNT1 COPY FUNCTION ID«, t00=0x0023, t01=0x003a}
0x371e…374e Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB1 INCREMENT FCMESS POINTER «, t00=0x0023, t01=0x007c}
0x374e…377c Head {h00=0x002a, h01=0x0050, text=» ADD PNT1,COB1 INCREMENT FCBLD POINTER«, t00=0x0023, t01=0x00ac}
0x377c…37be Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0023, t01=0x00da}
0x37be…37d6 Head {h00=0x0014, h01=0x0050, text=» SCREEN NUMBER«, t00=0x0023, t01=0x011c}
0x37d6…3816 Head {h00=0x003c, h01=0x0050, text=» COPY FCMESS,PNT3,COB3,FCBLD(FCBLDX),PNT1 COPY SCREEN NO«, t00=0x0023, t01=0x0134}
0x3816…3846 Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB3 INCREMENT FCMESS POINTER «, t00=0x0023, t01=0x0174}
0x3846…3874 Head {h00=0x002a, h01=0x0050, text=» ADD PNT1,COB3 INCREMENT FCBLD POINTER«, t00=0x0024, t01=0x0014}
0x3874…38b6 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0024, t01=0x0042}
0x38b6…38fc Head {h00=0x0042, h01=0x0050, text=» XCOPY WKSTG4,COB0,COB4,FCBLD(FCBLDX),PNT1 EXTRACT FID+SCREEN «, t00=0x0024, t01=0x0084}
0x38fc…392a Head {h00=0x002a, h01=0x0050, text=» ADD PNT1,COB4 INCREMENT FCBLD POINTER«, t00=0x0024, t01=0x00ca}
0x392a…395a Head {h00=0x002c, h01=0x0050, text=» CBE WKSTG4,=C'0000',FC4A NO FID+SCREEN «, t00=0x0024, t01=0x00f8}
0x395a…3986 Head {h00=0x0028, h01=0x0050, text=» COPY FCMESS,PNT3,COB1,GS,COB0 <GS> «, t00=0x0024, t01=0x0128}
0x3986…39b6 Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB1 INCREMENT FCMESS POINTER «, t00=0x0024, t01=0x0154}
0x39b6…39ec Head {h00=0x0032, h01=0x0050, text=» COPY FCMESS,PNT3,COB4,WKSTG4,COB0 FID+SCREEN «, t00=0x0024, t01=0x0184}
0x39ec…3a1c Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB4 INCREMENT FCMESS POINTER «, t00=0x0025, t01=0x002a}
0x3a1c…3a28 Head {h00=0x0008, h01=0x0050, text=»FC4A«, t00=0x0025, t01=0x005a}
0x3a28…3a5a Head {h00=0x002e, h01=0x0050, text=» XCOPY WKSTG4,COB0,COB4,FCBLD(FCBLDX),PNT1«, t00=0x0025, t01=0x0066}
0x3a5a…3a88 Head {h00=0x002a, h01=0x0050, text=» ADD PNT1,COB4 INCREMENT FCBLD POINTER«, t00=0x0025, t01=0x0098}
0x3a88…3ab8 Head {h00=0x002c, h01=0x0050, text=» CBE WKSTG4,=C'0000',FC4B NO FID+SCREEN «, t00=0x0025, t01=0x00c6}
0x3ab8…3ade Head {h00=0x0022, h01=0x0050, text=» COPY FCMESS,PNT3,COB1,GS,COB0«, t00=0x0025, t01=0x00f6}
0x3ade…3af4 Head {h00=0x0012, h01=0x0050, text=» ADD PNT3,COB1«, t00=0x0025, t01=0x011c}
0x3af4…3b2a Head {h00=0x0032, h01=0x0050, text=» COPY FCMESS,PNT3,COB4,WKSTG4,COB0 FID+SCREEN «, t00=0x0025, t01=0x0132}
0x3b2a…3b40 Head {h00=0x0012, h01=0x0050, text=» ADD PNT3,COB4«, t00=0x0025, t01=0x0168}
0x3b40…3b4c Head {h00=0x0008, h01=0x0050, text=»FC4B«, t00=0x0025, t01=0x017e}
0x3b4c…3b8e Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0025, t01=0x018a}
0x3b8e…3ba4 Head {h00=0x0012, h01=0x0050, text=»FC5 LOAD FS.«, t00=0x0026, t01=0x003c}
0x3ba4…3bde Head {h00=0x0036, h01=0x0050, text=» COPY FCMESS,PNT3,COB1,FS,COB0 COPY FS. TO FCMESS «, t00=0x0026, t01=0x0052}
0x3bde…3c0e Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB1 INCREMENT FCMESS POINTER «, t00=0x0026, t01=0x008c}
0x3c0e…3c50 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0026, t01=0x00bc}
0x3c50…3c76 Head {h00=0x0022, h01=0x0050, text=» MESSAGE COORDINATION NUMBER«, t00=0x0026, t01=0x00fe}
0x3c76…3cba Head {h00=0x0040, h01=0x0050, text=» COPY FCMESS,PNT3,COB1,MESS,COB0 COPY MESSAGE CO-ORD NUMBER «, t00=0x0026, t01=0x0124}
0x3cba…3cea Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB1 INCREMENT FCMESS POINTER «, t00=0x0026, t01=0x0168}
0x3cea…3d2c Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0027, t01=0x0008}
0x3d2c…3d4e Head {h00=0x001e, h01=0x0050, text=» CARD RETURN/RETAIN FLAG«, t00=0x0027, t01=0x004a}
0x3d4e…3d94 Head {h00=0x0042, h01=0x0050, text=» COPY FCMESS,PNT3,COB1,FCBLD(FCBLDX),PNT1 COPY CARD'HOLD'FLAG «, t00=0x0027, t01=0x006c}
0x3d94…3dc4 Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB1 INCREMENT FCMESS POINTER «, t00=0x0027, t01=0x00b2}
0x3dc4…3df2 Head {h00=0x002a, h01=0x0050, text=» ADD PNT1,COB1 INCREMENT FCBLD POINTER«, t00=0x0027, t01=0x00e2}
0x3df2…3e34 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0027, t01=0x0110}
0x3e34…3e4c Head {h00=0x0014, h01=0x0050, text=» PRINTER FLAG «, t00=0x0027, t01=0x0152}
0x3e4c…3e90 Head {h00=0x0040, h01=0x0050, text=» COPY FCMESS,PNT3,COB1,FCBLD(FCBLDX),PNT1 COPY PRINTER FLAG «, t00=0x0027, t01=0x016a}
0x3e90…3ec2 Head {h00=0x002e, h01=0x0050, text=» COPY WKSTR7,COB0,COB1,FCBLD(FCBLDX),PNT1 «, t00=0x0028, t01=0x001e}
0x3ec2…3ef2 Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB1 INCREMENT FCMESS POINTER «, t00=0x0028, t01=0x0050}
0x3ef2…3f20 Head {h00=0x002a, h01=0x0050, text=» ADD PNT1,COB1 INCREMENT FCBLD POINTER«, t00=0x0028, t01=0x0080}
0x3f20…3f62 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0028, t01=0x00ae}
0x3f62…3f82 Head {h00=0x001c, h01=0x0050, text=» PRINTER DATA POINTER «, t00=0x0028, t01=0x00f0}
0x3f82…3fb2 Head {h00=0x002c, h01=0x0050, text=» CBE WKSTR7,=C'0',FCP90 NO PRINTER FLAG «, t00=0x0028, t01=0x0110}
0x3fb2…3fcc Head {h00=0x0016, h01=0x0050, text=»* RECEIPT PRINTER «, t00=0x0028, t01=0x0140}
0x3fcc…3fea Head {h00=0x001a, h01=0x0050, text=» CBNE TXFG,=C'1',FCP10«, t00=0x0028, t01=0x015a}
0x3fea…4022 Head {h00=0x0034, h01=0x0050, text=»* EDIT HEADER ONLY IF FIRST TRANSACTION ON SLIP «, t00=0x0028, t01=0x0178}
0x4022…403c Head {h00=0x0016, h01=0x0050, text=» MOVE FMBUF,=X'00'«, t00=0x0029, t01=0x0020}
0x403c…4058 Head {h00=0x0018, h01=0x0050, text=» EDIT FMBUF,DATEFMT «, t00=0x0029, t01=0x003a}
0x4058…4070 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN7,COB0 «, t00=0x0029, t01=0x0056}
0x4070…408a Head {h00=0x0016, h01=0x0050, text=» MOVE BIN6,=W'256'«, t00=0x0029, t01=0x006e}
0x408a…40a6 Head {h00=0x0018, h01=0x0050, text=» MOVE WKSTR7,=X'00' «, t00=0x0029, t01=0x0088}
0x40a6…40d6 Head {h00=0x002c, h01=0x0050, text=» MATCH FMBUF,BIN7,BIN6,WKSTR7,COB0,COB1 «, t00=0x0029, t01=0x00a4}
0x40d6…4100 Head {h00=0x0026, h01=0x0050, text=» XCOPY FCMESS,PNT3,BIN7,FMBUF,COB0«, t00=0x0029, t01=0x00d4}
0x4100…4116 Head {h00=0x0012, h01=0x0050, text=» ADD PNT3,BIN7«, t00=0x0029, t01=0x00fe}
0x4116…4148 Head {h00=0x002e, h01=0x0050, text=» MOVE COUNT,PLEN(COB1,COB2) SET LINELENGTH«, t00=0x0029, t01=0x0114}
0x4148…4188 Head {h00=0x003c, h01=0x0050, text=» XCOPY FCMESS,PNT3,COUNT,PNAT(COB1),COB0 "THANK YOU ..."«, t00=0x0029, t01=0x0146}
0x4188…41b8 Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COUNT INCREMENT FCMESS POINTER«, t00=0x0029, t01=0x0186}
0x41b8…41c6 Head {h00=0x000a, h01=0x0050, text=»FCP10 «, t00=0x002a, t01=0x0026}
0x41c6…4204 Head {h00=0x003a, h01=0x0050, text=» XCOPY WKSTR8,COB0,COB2,FCBLD(FCBLDX),PNT1 FORMAT NBR «, t00=0x002a, t01=0x0034}
0x4204…4232 Head {h00=0x002a, h01=0x0050, text=» ADD PNT1,COB2 INCREMENT FCBLD POINTER«, t00=0x002a, t01=0x0072}
0x4232…4260 Head {h00=0x002a, h01=0x0050, text=» CBE WKSTR8,=C'00',FCP30 USE PTAB/PLEN«, t00=0x002a, t01=0x00a0}
0x4260…427c Head {h00=0x0018, h01=0x0050, text=» MOVE WKBCD1,WKSTR8 «, t00=0x002a, t01=0x00ce}
0x427c…4296 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN7,WKBCD1 «, t00=0x002a, t01=0x00ea}
0x4296…42b0 Head {h00=0x0016, h01=0x0050, text=» MOVE FMBUF,=X'00'«, t00=0x002a, t01=0x0104}
0x42b0…42e6 Head {h00=0x0032, h01=0x0050, text=» EDIT FMBUF,FORMATS(BIN7) = FORMATS(SCREENNBR)«, t00=0x002a, t01=0x011e}
0x42e6…42fe Head {h00=0x0014, h01=0x0050, text=» MOVE BIN6,COB0 «, t00=0x002a, t01=0x0154}
0x42fe…431a Head {h00=0x0018, h01=0x0050, text=» MOVE WKSTR7,=X'00' «, t00=0x002a, t01=0x016c}
0x431a…4342 Head {h00=0x0024, h01=0x0050, text=» MOVE BIN7,=W'256' LENGTH FMBUF «, t00=0x002a, t01=0x0188}
0x4342…4372 Head {h00=0x002c, h01=0x0050, text=» MATCH FMBUF,BIN6,BIN7,WKSTR7,COB0,COB1 «, t00=0x002b, t01=0x0020}
0x4372…43b2 Head {h00=0x003c, h01=0x0050, text=» XCOPY FCMESS,PNT3,BIN6,FMBUF,COB0 MOVE ONLY GOOD LENGTH«, t00=0x002b, t01=0x0050}
0x43b2…43c8 Head {h00=0x0012, h01=0x0050, text=» ADD PNT3,BIN6«, t00=0x002b, t01=0x0090}
0x43c8…43d8 Head {h00=0x000c, h01=0x0050, text=» B FCP90«, t00=0x002b, t01=0x00a6}
0x43d8…43e6 Head {h00=0x000a, h01=0x0050, text=»FCP30 «, t00=0x002b, t01=0x00b6}
0x43e6…441c Head {h00=0x0032, h01=0x0050, text=» MOVE BIN7,PLEN(FCBLDX,COB1) PRINTERDATALENGTH«, t00=0x002b, t01=0x00c4}
0x441c…444c Head {h00=0x002c, h01=0x0050, text=» CBE BIN7,COB0,FCP90 NOT IF ZERO LENGTH «, t00=0x002b, t01=0x00fa}
0x444c…448e Head {h00=0x003e, h01=0x0050, text=» XCOPY FCMESS,PNT3,BIN7,PTAB(FCBLDX),COB0 MOVE PRINTERDATA«, t00=0x002b, t01=0x012a}
0x448e…44a4 Head {h00=0x0012, h01=0x0050, text=» ADD PNT3,BIN7«, t00=0x002b, t01=0x016c}
0x44a4…44b2 Head {h00=0x000a, h01=0x0050, text=»FCP90 «, t00=0x002b, t01=0x0182}
0x44b2…44f4 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002b, t01=0x0190}
0x44f4…4514 Head {h00=0x001c, h01=0x0050, text=» B FC9 T E M P O R A R Y«, t00=0x002c, t01=0x0042}
0x4514…453a Head {h00=0x0022, h01=0x0050, text=» TEST TRACK 3 DATA FLAG «, t00=0x002c, t01=0x0062}
0x453a…4564 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN1,PNT1 USE DUMMY POINTER «, t00=0x002c, t01=0x0088}
0x4564…45a6 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002c, t01=0x00b2}
0x45a6…45ee Head {h00=0x0044, h01=0x0050, text=» MATCH FCBLD(FCBLDX),BIN1,COB1,WKSTG1,COB0,COB1 TEST FG NOT SET «, t00=0x002c, t01=0x00f4}
0x45ee…4618 Head {h00=0x0026, h01=0x0050, text=» BZ FC9 FLAG NOT SET. SEND FCMESS «, t00=0x002c, t01=0x013c}
0x4618…465a Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002c, t01=0x0166}
0x465a…467e Head {h00=0x0020, h01=0x0050, text=» TEST TRACK 3 DATA LENGTH «, t00=0x002d, t01=0x0018}
0x467e…46b8 Head {h00=0x0036, h01=0x0050, text=» CBE TK3DL,COB0,FC9 TEST LENGTH TK3 DATA RECEIVED «, t00=0x002d, t01=0x003c}
0x46b8…46d6 Head {h00=0x001a, h01=0x0050, text=» LOAD FS + GRAPHIC 4«, t00=0x002d, t01=0x0076}
0x46d6…46de Head {h00=0x0004, h01=0x0050, t00=0x002d, t01=0x0094}
0x46de…4712 Head {h00=0x0030, h01=0x0050, text=» MOVE WKSTG1,=X'1C34' CODE - FS. + GRAPHIC 4«, t00=0x002d, t01=0x009c}
0x4712…4756 Head {h00=0x0040, h01=0x0050, text=» COPY FCMESS,PNT3,COB2,WKSTG1,COB0 WRITE FS. + '4' TO FCMESS«, t00=0x002d, t01=0x00d0}
0x4756…4786 Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB2 INCREMENT FCMESS POINTER «, t00=0x002d, t01=0x0114}
0x4786…47c8 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002d, t01=0x0144}
0x47c8…47ea Head {h00=0x001e, h01=0x0050, text=» TEST TRACK 3 DATA FLAG «, t00=0x002d, t01=0x0186}
0x47ea…481e Head {h00=0x0030, h01=0x0050, text=» MOVE WKSTG1,=X'02' CODE - TK3 DATA FG =:02 «, t00=0x002e, t01=0x0018}
0x481e…4848 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN1,PNT1 USE DUMMY POINTER «, t00=0x002e, t01=0x004c}
0x4848…488e Head {h00=0x0042, h01=0x0050, text=» MATCH FCBLD(FCBLDX),BIN1,COB1,WKSTG1,COB0,COB1 TEST TK3D FLAG«, t00=0x002e, t01=0x0076}
0x488e…48b2 Head {h00=0x0020, h01=0x0050, text=» BNZ FC8 FLAG NOT SET TO :02«, t00=0x002e, t01=0x00bc}
0x48b2…48da Head {h00=0x0024, h01=0x0050, text=» SEND TRACK 3 DATA AS RECEIVED«, t00=0x002e, t01=0x00e0}
0x48da…491c Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002e, t01=0x0108}
0x491c…493e Head {h00=0x001e, h01=0x0050, text=» TRACK 3 UPDATE POINTER «, t00=0x002e, t01=0x014a}
0x493e…4972 Head {h00=0x0030, h01=0x0050, text=» ADD PNT1,COB2 SET PNT1 TO TRACK 3 U/D INDEX«, t00=0x002e, t01=0x016c}
0x4972…49b8 Head {h00=0x0042, h01=0x0050, text=» XCOPY PDX,COB1,COB1,FCBLD(FCBLDX),PNT1 LOAD PDX WITH TRACK 3 «, t00=0x002f, t01=0x0010}
0x49b8…49d8 Head {h00=0x001c, h01=0x0050, text=» UPDATE POINTER«, t00=0x002f, t01=0x0056}
0x49d8…4a1a Head {h00=0x003e, h01=0x0050, text=» XCOPY PNT2,COB0,COB2,PDUOFF(PDX),COB0 POOL OFFSET -> PNT2«, t00=0x002f, t01=0x0076}
0x4a1a…4a5e Head {h00=0x0040, h01=0x0050, text=» XCOPY COUNT,COB1,COB1,PDUOFF(PDX),COB2 DATA LENGTH -> COUNT«, t00=0x002f, t01=0x00b8}
0x4a5e…4aa0 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002f, t01=0x00fc}
0x4aa0…4ac0 Head {h00=0x001c, h01=0x0050, text=» TEST EXTENT OF UPDATE«, t00=0x002f, t01=0x013e}
0x4ac0…4af4 Head {h00=0x0030, h01=0x0050, text=» SUB PNT1,COB1 PNT1 TO TK3 U/D OFFSET INDEX «, t00=0x002f, t01=0x015e}
0x4af4…4b16 (48, 0, 400) Head {h00=0x001e, h01=0x0050, text=» MOVE BIN3,COB0 CLEAR BIN3«, t00=0x0030, t01=0x0004}
0x4b16…4b5a Head {h00=0x0040, h01=0x0050, text=» XCOPY BIN3,COB1,COB1,FCBLD(FCBLDX),PNT1 COPY TK3 U/D OFFSET«, t00=0x0030, t01=0x0026}
0x4b5a…4b8e Head {h00=0x0030, h01=0x0050, text=» ADD BIN3,COUNT ADD U/D LENGTH TO U/D OFFSET«, t00=0x0030, t01=0x006a}
0x4b8e…4bc8 Head {h00=0x0036, h01=0x0050, text=» CBL BIN3,TK3DL,FC7 TEST U/D NOT< TK3 DATA LENGTH «, t00=0x0030, t01=0x009e}
0x4bc8…4bfa Head {h00=0x002e, h01=0x0050, text=» MOVE VARIOUS,=C'TRACK 3 UPDATE ABORTED ' «, t00=0x0030, t01=0x00d8}
0x4bfa…4c16 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0030, t01=0x010a}
0x4c16…4c3e Head {h00=0x0024, h01=0x0050, text=» B FC8 SEND TK3 DATA AS RECEIVED«, t00=0x0030, t01=0x0126}
0x4c3e…4c80 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0030, t01=0x014e}
0x4c80…4ca2 Head {h00=0x001e, h01=0x0050, text=»FC7 UPDATE TRACK 3 DATA «, t00=0x0030, t01=0x0190}
0x4ca2…4cd2 Head {h00=0x002c, h01=0x0050, text=» SUB BIN3,COUNT RESET TRACK 3 U/D OFFSET«, t00=0x0031, t01=0x0022}
0x4cd2…4d0e Head {h00=0x0038, h01=0x0050, text=» COPY TK3D,BIN3,COUNT,POOL,PNT2 UPDATE TRACK 3 DATA «, t00=0x0031, t01=0x0052}
0x4d0e…4d16 Head {h00=0x0004, h01=0x0050, t00=0x0031, t01=0x008e}
0x4d16…4d36 Head {h00=0x001c, h01=0x0050, text=»FC8 SEND TRACK 3 DATA «, t00=0x0031, t01=0x0096}
0x4d36…4d72 Head {h00=0x0038, h01=0x0050, text=» COPY FCMESS,PNT3,TK3DL,TK3D,COB0 LOAD TRACK 3 DATA «, t00=0x0031, t01=0x00b6}
0x4d72…4da4 Head {h00=0x002e, h01=0x0050, text=» ADD PNT3,TK3DL SET PNT3 TO MESSAGE LENGTH«, t00=0x0031, t01=0x00f2}
0x4da4…4de6 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0031, t01=0x0124}
0x4de6…4e0a Head {h00=0x0020, h01=0x0050, text=»FC9 WRITE FUNCTION COMMAND«, t00=0x0031, t01=0x0166}
0x4e0a…4e42 Head {h00=0x0034, h01=0x0050, text=» WRITE DSCMOP,FCMESS,PNT3 WRITE MESSAGE TO LINE «, t00=0x0031, t01=0x018a}
0x4e42…4e70 Head {h00=0x002a, h01=0x0050, text=» XSTAT DSCMOP,BIN3 COPY STATUS TO BIN3«, t00=0x0032, t01=0x0032}
0x4e70…4e92 Head {h00=0x001e, h01=0x0050, text=» PERF RECHK EXAMINE STATUS«, t00=0x0032, t01=0x0060}
0x4e92…4ec0 Head {h00=0x002a, h01=0x0050, text=» IB BIN2, CHECK AND BRANCH ON INDEX C «, t00=0x0032, t01=0x0082}
0x4ec0…4eda Head {h00=0x0016, h01=0x0050, text=» FC10, READ OK C «, t00=0x0032, t01=0x00b0}
0x4eda…4efe Head {h00=0x0020, h01=0x0050, text=» FC11, MODEM NOT OPERABLE C«, t00=0x0032, t01=0x00ca}
0x4efe…4f1c Head {h00=0x001a, h01=0x0050, text=» FC11, LINE CLOSED C «, t00=0x0032, t01=0x00ee}
0x4f1c…4f3a Head {h00=0x001a, h01=0x0050, text=» FC11, ATM INACTIVE C«, t00=0x0032, t01=0x010c}
0x4f3a…4f66 Head {h00=0x0028, h01=0x0050, text=» FC10, RETRANSMISSIONS PERFORMED C «, t00=0x0032, t01=0x012a}
0x4f66…4f8c Head {h00=0x0022, h01=0x0050, text=» FC11, INVALID TC FOR WRITE C«, t00=0x0032, t01=0x0156}
0x4f8c…4fb2 Head {h00=0x0022, h01=0x0050, text=» FC11, POLL HALTED FOR READ C«, t00=0x0032, t01=0x017c}
0x4fb2…4fd4 Head {h00=0x001e, h01=0x0050, text=» FC11 ATM BUSY FOR WRITE «, t00=0x0033, t01=0x0012}
0x4fd4…4fdc Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x0034}
0x4fdc…5000 Head {h00=0x0020, h01=0x0050, text=»FC10 FUNCTION COMMAND SENT«, t00=0x0033, t01=0x003c}
0x5000…502e Head {h00=0x002a, h01=0x0050, text=» SET RESFG SET RESPONSE EXPECTED FLAG «, t00=0x0033, t01=0x0060}
0x502e…506a Head {h00=0x0038, h01=0x0050, text=» PERF SCRIBE,FCSENT 'FUNCTION COMMAND SENT (KEYS)' «, t00=0x0033, t01=0x008e}
0x506a…507c Head {h00=0x000e, h01=0x0050, text=» B SFC010 «, t00=0x0033, t01=0x00ca}
0x507c…5084 Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x00dc}
0x5084…509e Head {h00=0x0016, h01=0x0050, text=»FC11 WRITE ERROR«, t00=0x0033, t01=0x00e4}
0x509e…50d0 Head {h00=0x002e, h01=0x0050, text=» MOVE STATUS,BIN3 COPY STATUS TO BCD FIELD«, t00=0x0033, t01=0x00fe}
0x50d0…510a Head {h00=0x0036, h01=0x0050, text=» PERF SCRIBE,DCWE 'DATA COMM WRITE ERROR-STATUS' «, t00=0x0033, t01=0x0130}
0x510a…5112 Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x016a}
0x5112…5120 Head {h00=0x000a, h01=0x0050, text=»SFC010«, t00=0x0033, t01=0x0172}
0x5120…5138 Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB0«, t00=0x0033, t01=0x0180}
0x5138…5144 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0034, t01=0x0008}
0x5144…5152 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0034, t01=0x0014}
0x5152…5160 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x0022}
0x5160…516a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0030}
0x516a…51ac Head {h00=0x003e, h01=0x0050, text=»****** OPL OPEN/CLOSE LINE«, t00=0x0034, t01=0x003a}
0x51ac…51b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x007c}
0x51b6…51da Head {h00=0x0020, h01=0x0050, text=»* FUNCTION:- «, t00=0x0034, t01=0x0086}
0x51da…522a Head {h00=0x004c, h01=0x0050, text=»* THIS SUBROUTINE OPENS AND CLOSES THE LINE TO THE AT«, t00=0x0034, t01=0x00aa}
0x522a…5234 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00fa}
0x5234…5260 Head {h00=0x0028, h01=0x0050, text=»* CALLING SEQUENCE:- «, t00=0x0034, t01=0x0104}
0x5260…5286 Head {h00=0x0022, h01=0x0050, text=»* PERF OPL «, t00=0x0034, t01=0x0130}
0x5286…5290 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0156}
0x5290…52b0 Head {h00=0x001c, h01=0x0050, text=»* ENTRY:-«, t00=0x0034, t01=0x0160}
0x52b0…5300 Head {h00=0x004c, h01=0x0050, text=»* THE FOLLOWING PARAMETERS ARE SET UP BEFORE CALLING «, t00=0x0034, t01=0x0180}
0x5300…532a Head {h00=0x0026, h01=0x0050, text=»* THE SUBROUTINE:- «, t00=0x0035, t01=0x0040}
0x532a…5362 Head {h00=0x0034, h01=0x0050, text=»* BIN2 -- '00A2' OPEN LINE «, t00=0x0035, t01=0x006a}
0x5362…539a Head {h00=0x0034, h01=0x0050, text=»* -- '00A4' CLOSE LINE«, t00=0x0035, t01=0x00a2}
0x539a…53d4 Head {h00=0x0036, h01=0x0050, text=»* ADR -- '0041' ATM ADDRESS «, t00=0x0035, t01=0x00da}
0x53d4…53de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0114}
0x53de…53fe Head {h00=0x001c, h01=0x0050, text=»* EXIT:- «, t00=0x0035, t01=0x011e}
0x53fe…5448 Head {h00=0x0046, h01=0x0050, text=»* THE ROUTINE WILL SET THE INDEX VALUE IN BIN3 «, t00=0x0035, t01=0x013e}
0x5448…547a Head {h00=0x002e, h01=0x0050, text=»* THE VALUE IS AS FOLLOWS:-«, t00=0x0035, t01=0x0188}
0x547a…54b6 Head {h00=0x0038, h01=0x0050, text=»* 0 ILLEGAL/UNRECOGNISABLE ERROR«, t00=0x0036, t01=0x002a}
0x54b6…54dc Head {h00=0x0022, h01=0x0050, text=»* 1 I/O OK«, t00=0x0036, t01=0x0066}
0x54dc…550e Head {h00=0x002e, h01=0x0050, text=»* 2 MODEM NOT OPERABLE«, t00=0x0036, t01=0x008c}
0x550e…5540 Head {h00=0x002e, h01=0x0050, text=»* 3 LINE ALREADY OPEN «, t00=0x0036, t01=0x00be}
0x5540…558e Head {h00=0x004a, h01=0x0050, text=»* THE ROUTINE WILL ALSO UPDATE ATM LINE STATUS AND SET «, t00=0x0036, t01=0x00f0}
0x558e…55be Head {h00=0x002c, h01=0x0050, text=»* THE TABLE AS FOLLOWS:- «, t00=0x0036, t01=0x013e}
0x55be…55ec Head {h00=0x002a, h01=0x0050, text=»* 0 LINE TO ATM OK«, t00=0x0036, t01=0x016e}
0x55ec…561c Head {h00=0x002c, h01=0x0050, text=»* 1 MODEM INOPERABLE«, t00=0x0037, t01=0x000c}
0x561c…562e Head {h00=0x000e, h01=0x0050, text=»OPL PROC «, t00=0x0037, t01=0x003c}
0x562e…566c Head {h00=0x003a, h01=0x0050, text=» CALL RECASM,DSCMOP,BIN2,ADR,BIN3 PERFORM I/O ON LINE «, t00=0x0037, t01=0x004e}
0x566c…56a4 Head {h00=0x0034, h01=0x0050, text=» CBNE BIN2,=X'00A2',OP5 TEST FOR CLOSE LINE CODE«, t00=0x0037, t01=0x008c}
0x56a4…56d4 Head {h00=0x002c, h01=0x0050, text=» IB BIN3, INDEX FROM ASS. SUBROUTINE C «, t00=0x0037, t01=0x00c4}
0x56d4…56ec Head {h00=0x0014, h01=0x0050, text=» OP2, LINE OK C«, t00=0x0037, t01=0x00f4}
0x56ec…5710 Head {h00=0x0020, h01=0x0050, text=» OP3, MODEM NOT OPERABLE C «, t00=0x0037, t01=0x010c}
0x5710…5730 Head {h00=0x001c, h01=0x0050, text=» OP2 LINE ALREADY OPEN «, t00=0x0037, t01=0x0130}
0x5730…574c Head {h00=0x0018, h01=0x0050, text=» B OP6 ILLEGAL ERROR«, t00=0x0037, t01=0x0150}
0x574c…577e Head {h00=0x002e, h01=0x0050, text=»OP2 MOVE BIN1,=W'0' SET CODE FOR LINE OPEN«, t00=0x0037, t01=0x016c}
0x577e…578c Head {h00=0x000a, h01=0x0050, text=» B OP6«, t00=0x0038, t01=0x000e}
0x578c…57c6 Head {h00=0x0036, h01=0x0050, text=»OP3 MOVE BIN1,=W'1' SET CODE FOR LINE NOT OPERABLE«, t00=0x0038, t01=0x001c}
0x57c6…57d4 Head {h00=0x000a, h01=0x0050, text=» B OP6«, t00=0x0038, t01=0x0056}
0x57d4…5808 Head {h00=0x0030, h01=0x0050, text=»OP5 IB BIN3, INDEX FROM ASS. SUBROUTINE C C«, t00=0x0038, t01=0x0064}
0x5808…5824 Head {h00=0x0018, h01=0x0050, text=» OP7, LINE CLOSED C«, t00=0x0038, t01=0x0098}
0x5824…5838 Head {h00=0x0010, h01=0x0050, text=» OP6, N/A C«, t00=0x0038, t01=0x00b4}
0x5838…585a Head {h00=0x001e, h01=0x0050, text=» OP6 LINE ALREADY CLOSED «, t00=0x0038, t01=0x00c8}
0x585a…586a Head {h00=0x000c, h01=0x0050, text=»OP6 RET «, t00=0x0038, t01=0x00ea}
0x586a…5876 Head {h00=0x0008, h01=0x0050, text=»OP7 «, t00=0x0038, t01=0x00fa}
0x5876…588a Head {h00=0x0010, h01=0x0050, text=» CLEAR OPEN «, t00=0x0038, t01=0x0106}
0x588a…5898 Head {h00=0x000a, h01=0x0050, text=» B OP3«, t00=0x0038, t01=0x011a}
0x5898…58a6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0038, t01=0x0128}
0x58a6…58b4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x0136}
0x58b4…58be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0144}
0x58be…590c Head {h00=0x004a, h01=0x0050, text=»****** RECHK CONVERTS A RETURN CODE INTO«, t00=0x0038, t01=0x014e}
0x590c…5948 Head {h00=0x0038, h01=0x0050, text=»* AN INDEX «, t00=0x0039, t01=0x000c}
0x5948…5952 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0048}
0x5952…595c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0052}
0x595c…5980 Head {h00=0x0020, h01=0x0050, text=»* FUNCTION:- «, t00=0x0039, t01=0x005c}
0x5980…59ce Head {h00=0x004a, h01=0x0050, text=»* THIS ROUTINE CONVERTS A GIVEN RETURN CODE INTO AN«, t00=0x0039, t01=0x0080}
0x59ce…5a00 Head {h00=0x002e, h01=0x0050, text=»* INDEX VALUE AS FOLLOWS:- «, t00=0x0039, t01=0x00ce}
0x5a00…5a26 Head {h00=0x0022, h01=0x0050, text=»* 1. I/O OK«, t00=0x0039, t01=0x0100}
0x5a26…5a58 Head {h00=0x002e, h01=0x0050, text=»* 2. MODEM NOT OPERABLE«, t00=0x0039, t01=0x0126}
0x5a58…5a84 Head {h00=0x0028, h01=0x0050, text=»* 3. LINE CLOSED «, t00=0x0039, t01=0x0158}
0x5a84…5ab0 Head {h00=0x0028, h01=0x0050, text=»* 4. ATM INACTIVE«, t00=0x0039, t01=0x0184}
0x5ab0…5ad4 Head {h00=0x0020, h01=0x0050, text=»* 5. RETX«, t00=0x003a, t01=0x0020}
0x5ad4…5b08 Head {h00=0x0030, h01=0x0050, text=»* 6. INVALID TC FOR WRITE«, t00=0x003a, t01=0x0044}
0x5b08…5b3a Head {h00=0x002e, h01=0x0050, text=»* POLL LIST OVERFLOW«, t00=0x003a, t01=0x0078}
0x5b3a…5b6e Head {h00=0x0030, h01=0x0050, text=»* 7. POLL HALTED FOR READ«, t00=0x003a, t01=0x00aa}
0x5b6e…5ba0 Head {h00=0x002e, h01=0x0050, text=»* 8. ATM BUSY FOR WRITE«, t00=0x003a, t01=0x00de}
0x5ba0…5bd4 Head {h00=0x0030, h01=0x0050, text=»* ATM ACTIVE FOR READ «, t00=0x003a, t01=0x0110}
0x5bd4…5bde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0144}
0x5bde…5bfe Head {h00=0x001c, h01=0x0050, text=»* ENTRY:-«, t00=0x003a, t01=0x014e}
0x5bfe…5c48 Head {h00=0x0046, h01=0x0050, text=»* THIS ROUTINE MUST HAVE A RETURN CODE IN BIN3 «, t00=0x003a, t01=0x016e}
0x5c48…5c52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0028}
0x5c52…5c72 Head {h00=0x001c, h01=0x0050, text=»* EXIT:- «, t00=0x003b, t01=0x0032}
0x5c72…5cb6 Head {h00=0x0040, h01=0x0050, text=»* BIN2 CONTAINS THE INDEX VALUE AS ABOVE «, t00=0x003b, t01=0x0052}
0x5cb6…5cea Head {h00=0x0030, h01=0x0050, text=»* BIN3 REMAINS UNCHANGED «, t00=0x003b, t01=0x0096}
0x5cea…5cf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00ca}
0x5cf4…5cfc Head {h00=0x0004, h01=0x0050, t00=0x003b, t01=0x00d4}
0x5cfc…5d10 Head {h00=0x0010, h01=0x0050, text=»RECHK PROC «, t00=0x003b, t01=0x00dc}
0x5d10…5d36 Head {h00=0x0022, h01=0x0050, text=» MOVE BIN2,COB1 SET INDEX TO 1«, t00=0x003b, t01=0x00f0}
0x5d36…5d58 Head {h00=0x001e, h01=0x0050, text=» CBE BIN3,COB0,R90 I/O OK?«, t00=0x003b, t01=0x0116}
0x5d58…5d84 Head {h00=0x0028, h01=0x0050, text=» ADD BIN2,COB1 INCREMENT INDEX (II) «, t00=0x003b, t01=0x0138}
0x5d84…5db2 Head {h00=0x002a, h01=0x0050, text=» CBE BIN3,COB1,R90 MODEM NOT OPERABLE «, t00=0x003b, t01=0x0164}
0x5db2…5dcc (60, 0, 400) Head {h00=0x0016, h01=0x0050, text=» ADD BIN2,COB1 II«, t00=0x003c, t01=0x0004}
0x5dcc…5df6 Head {h00=0x0026, h01=0x0050, text=» CBE BIN3,=X'0010',R90 LINE CLOSED«, t00=0x003c, t01=0x001e}
0x5df6…5e10 Head {h00=0x0016, h01=0x0050, text=» ADD BIN2,COB1 II«, t00=0x003c, t01=0x0048}
0x5e10…5e3c Head {h00=0x0028, h01=0x0050, text=» CBE BIN3,=X'0020',R90 ATM INACTIVE «, t00=0x003c, t01=0x0062}
0x5e3c…5e56 Head {h00=0x0016, h01=0x0050, text=» ADD BIN2,COB1 II«, t00=0x003c, t01=0x008e}
0x5e56…5e7a Head {h00=0x0020, h01=0x0050, text=» CBE BIN3,=X'0100',R90 RETX «, t00=0x003c, t01=0x00a8}
0x5e7a…5e94 Head {h00=0x0016, h01=0x0050, text=» ADD BIN2,COB1 II «, t00=0x003c, t01=0x00cc}
0x5e94…5ec2 Head {h00=0x002a, h01=0x0050, text=» CBE BIN3,COB8,R90 POLL LIST OVERFLOW «, t00=0x003c, t01=0x00e6}
0x5ec2…5ef6 Head {h00=0x0030, h01=0x0050, text=» CBE BIN3,=X'0040',R90 ATM NOT IN POLL LIST «, t00=0x003c, t01=0x0114}
0x5ef6…5f10 Head {h00=0x0016, h01=0x0050, text=» ADD BIN2,COB1 II «, t00=0x003c, t01=0x0148}
0x5f10…5f3e Head {h00=0x002a, h01=0x0050, text=» CBE BIN3,=X'0080',R90 POLLING HALTED «, t00=0x003c, t01=0x0162}
0x5f3e…5f5e Head {h00=0x001c, h01=0x0050, text=» ADD BIN2,COB1 ATM BUSY «, t00=0x003c, t01=0x0190}
0x5f5e…5f6e Head {h00=0x000c, h01=0x0050, text=»R90 RET «, t00=0x003d, t01=0x0020}
0x5f6e…5f7c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003d, t01=0x0030}
0x5f7c…5f8a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x003e}
0x5f8a…5fd2 Head {h00=0x0044, h01=0x0050, text=»****** SCRIBE WRITES TO THE DISPLAY«, t00=0x003d, t01=0x004c}
0x5fd2…5fdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0094}
0x5fdc…6000 Head {h00=0x0020, h01=0x0050, text=»* FUNCTION:- «, t00=0x003d, t01=0x009e}
0x6000…604e Head {h00=0x004a, h01=0x0050, text=»* THIS SUBROUTINE WRITES TO THE DISPLAY AND REPORTS«, t00=0x003d, t01=0x00c2}
0x604e…6082 Head {h00=0x0030, h01=0x0050, text=»* ON ANY DEVICE STATUS ERRORS«, t00=0x003d, t01=0x0110}
0x6082…608c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0144}
0x608c…60ac Head {h00=0x001c, h01=0x0050, text=»* ENTRY:-«, t00=0x003d, t01=0x014e}
0x60ac…60f8 Head {h00=0x0048, h01=0x0050, text=»* THE FORMAT NAME IS CARRIED INTO THE SUBROUTINE «, t00=0x003d, t01=0x016e}
0x60f8…6102 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x002a}
0x6102…612e Head {h00=0x0028, h01=0x0050, text=»* CALLING SEQUENCE:- «, t00=0x003e, t01=0x0034}
0x612e…6172 Head {h00=0x0040, h01=0x0050, text=»* PERF SCRIBE,FRMAT,DISPLAY «, t00=0x003e, t01=0x0060}
0x6172…61ae Head {h00=0x0038, h01=0x0050, text=»* SCRIBE PROC FRMAT,DISPLAY«, t00=0x003e, t01=0x00a4}
0x61ae…61b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00e0}
0x61b8…61d8 Head {h00=0x001c, h01=0x0050, text=»* EXIT:- «, t00=0x003e, t01=0x00ea}
0x61d8…6212 Head {h00=0x0036, h01=0x0050, text=»* 1. WITH I/O OK,NORMAL RETURN.«, t00=0x003e, t01=0x010a}
0x6212…623c Head {h00=0x0026, h01=0x0050, text=»* 2. ELSE STOP«, t00=0x003e, t01=0x0144}
0x623c…6256 Head {h00=0x0016, h01=0x0050, text=»SCRIBE PROC FRMAT «, t00=0x003e, t01=0x016e}
0x6256…626a Head {h00=0x0010, h01=0x0050, text=» PFRMT FRMAT«, t00=0x003e, t01=0x0188}
0x626a…6272 Head {h00=0x0004, h01=0x0050, t00=0x003f, t01=0x000c}
0x6272…628a Head {h00=0x0014, h01=0x0050, text=» EDWRT DY,FRMAT «, t00=0x003f, t01=0x0014}
0x628a…62aa Head {h00=0x001c, h01=0x0050, text=» BERR S1 TEST FOR ERROR «, t00=0x003f, t01=0x002c}
0x62aa…62b6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003f, t01=0x004c}
0x62b6…62c0 Head {h00=0x0006, h01=0x0050, text=»S1«, t00=0x003f, t01=0x0058}
0x62c0…62ce Head {h00=0x000a, h01=0x0050, text=» B S1 «, t00=0x003f, t01=0x0062}
0x62ce…62dc Head {h00=0x000a, h01=0x0050, text=» EXIT «, t00=0x003f, t01=0x0070}
0x62dc…62ea Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003f, t01=0x007e}
0x62ea…62f8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x008c}
0x62f8…6302 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x009a}
0x6302…634a Head {h00=0x0044, h01=0x0050, text=»****** UNLOAD UNLOADS MESSAGE DATA «, t00=0x003f, t01=0x00a4}
0x634a…6354 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00ec}
0x6354…6378 Head {h00=0x0020, h01=0x0050, text=»* FUNCTION:- «, t00=0x003f, t01=0x00f6}
0x6378…63be Head {h00=0x0042, h01=0x0050, text=»* THIS SUBROUTINE EXAMINES THE MESSAGE AND «, t00=0x003f, t01=0x011a}
0x63be…640a Head {h00=0x0048, h01=0x0050, text=»* UNLOADS THE DATA FIELDS INTO SEPARATE WORK SPACES. «, t00=0x003f, t01=0x0160}
0x640a…6458 Head {h00=0x004a, h01=0x0050, text=»* INITALLY IT WILL CLEAR THE WORK SPACE AND ZEROISE«, t00=0x0040, t01=0x001c}
0x6458…647e Head {h00=0x0022, h01=0x0050, text=»* THE POINTER. «, t00=0x0040, t01=0x006a}
0x647e…64cc Head {h00=0x004a, h01=0x0050, text=»* WHEN A FIELD SEPARATOR IS FOUND, IT EXAMINES THE «, t00=0x0040, t01=0x0090}
0x64cc…6516 Head {h00=0x0046, h01=0x0050, text=»* LENGTH OF THE DATA FIELD. IF THIS IS NON-ZERO, IT«, t00=0x0040, t01=0x00de}
0x6516…6562 Head {h00=0x0048, h01=0x0050, text=»* COPIES THE DATA INTO THE APPROPRIATE WORK SPACE AND«, t00=0x0040, t01=0x0128}
0x6562…65ae Head {h00=0x0048, h01=0x0050, text=»* DELETES ALL CHARACTERS UPTO AND INCLUDING THE FIELD«, t00=0x0040, t01=0x0174}
0x65ae…65fa Head {h00=0x0048, h01=0x0050, text=»* SEPERATOR. SHOULD THE LENGTH OF THE FIELD SEPARATOR«, t00=0x0041, t01=0x0030}
0x65fa…6648 Head {h00=0x004a, h01=0x0050, text=»* IT DELETES THE FIELD SEPERATOR, AND SETS A FLAG WHICH«, t00=0x0041, t01=0x007c}
0x6648…6692 Head {h00=0x0046, h01=0x0050, text=»* WILL BE TESTED WHEN THE INFORMATION IS DISPLAYED.«, t00=0x0041, t01=0x00ca}
0x6692…669c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0114}
0x669c…66bc Head {h00=0x001c, h01=0x0050, text=»* ENTRY:-«, t00=0x0041, t01=0x011e}
0x66bc…670a Head {h00=0x004a, h01=0x0050, text=»* THE WORKSPACE NAME IS CARRIED INTO THE SUBROUTINE«, t00=0x0041, t01=0x013e}
0x670a…6736 Head {h00=0x0028, h01=0x0050, text=»* AND A BOOLEAN FLAG.«, t00=0x0041, t01=0x018c}
0x6736…6740 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0028}
0x6740…676c Head {h00=0x0028, h01=0x0050, text=»* CALLING SEQUENCE:- «, t00=0x0042, t01=0x0032}
0x676c…67b8 Head {h00=0x0048, h01=0x0050, text=»* PERF UNLOAD,<FIELD>,<FLAG>,<LENGTH> «, t00=0x0042, t01=0x005e}
0x67b8…67f8 Head {h00=0x003c, h01=0x0050, text=»* UNLOAD PROC FIELD,FLAG,LENGTH «, t00=0x0042, t01=0x00aa}
0x67f8…6802 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00ea}
0x6802…6822 Head {h00=0x001c, h01=0x0050, text=»* EXIT:- «, t00=0x0042, t01=0x00f4}
0x6822…6872 Head {h00=0x004c, h01=0x0050, text=»* THE ROUTINE WILL RETURN TO THE MAIN PROGRAM VIA RET«, t00=0x0042, t01=0x0114}
0x6872…687c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0164}
0x687c…689e Head {h00=0x001e, h01=0x0050, text=»UNLOAD PROC FIELD,FLAG,LEN«, t00=0x0042, t01=0x016e}
0x689e…68b2 Head {h00=0x0010, h01=0x0050, text=» PSTRG FIELD«, t00=0x0042, t01=0x0190}
0x68b2…68c6 Head {h00=0x0010, h01=0x0050, text=» PBOOL FLAG «, t00=0x0043, t01=0x0014}
0x68c6…68d8 Head {h00=0x000e, h01=0x0050, text=» PLIT LEN «, t00=0x0043, t01=0x0028}
0x68d8…68e0 Head {h00=0x0004, h01=0x0050, t00=0x0043, t01=0x003a}
0x68e0…68e8 Head {h00=0x0004, h01=0x0050, t00=0x0043, t01=0x0042}
0x68e8…6914 Head {h00=0x0028, h01=0x0050, text=» MOVE PNT1,COB0 SET POINTER TO ZERO «, t00=0x0043, t01=0x004a}
0x6914…693a Head {h00=0x0022, h01=0x0050, text=» MOVE FIELD,=C' ' CLEAR FIELD «, t00=0x0043, t01=0x0076}
0x693a…6976 Head {h00=0x0038, h01=0x0050, text=» MATCH BUFIN,PNT1,LENGTH,FS,COB0,COB1 SEARCH FOR FS «, t00=0x0043, t01=0x009c}
0x6976…69aa Head {h00=0x0030, h01=0x0050, text=» CBE PNT1,COB0,UL1 CHECK INFORMATION LENGTH «, t00=0x0043, t01=0x00d8}
0x69aa…69c4 Head {h00=0x0016, h01=0x0050, text=» CBNG PNT1,LEN,UL0«, t00=0x0043, t01=0x010c}
0x69c4…69f6 Head {h00=0x002e, h01=0x0050, text=» MOVE PNT1,LEN DELIMIT TO EXPLICIT LENGTH «, t00=0x0043, t01=0x0126}
0x69f6…6a02 Head {h00=0x0008, h01=0x0050, text=»UL0 «, t00=0x0043, t01=0x0158}
0x6a02…6a48 Head {h00=0x0042, h01=0x0050, text=» XCOPY FIELD,COB0,PNT1,BUFIN,COB0 COPY INFORMATION INTO FIELD «, t00=0x0043, t01=0x0164}
0x6a48…6a72 Head {h00=0x0026, h01=0x0050, text=»UL1 ADD PNT1,COB1 ADD 1 TO POINTER«, t00=0x0044, t01=0x001a}
0x6a72…6aac Head {h00=0x0036, h01=0x0050, text=» DLETE BUFIN,COB0,PNT1 DELETE UPTO FIELD SEPARATOR«, t00=0x0044, t01=0x0044}
0x6aac…6ae0 Head {h00=0x0030, h01=0x0050, text=» CBNE PNT1,COB1,UL2 TEST FOR DATA LENGTH =0 «, t00=0x0044, t01=0x007e}
0x6ae0…6b06 Head {h00=0x0022, h01=0x0050, text=» SET FLAG SET ZERO LENGTH FLAG«, t00=0x0044, t01=0x00b2}
0x6b06…6b16 Head {h00=0x000c, h01=0x0050, text=»UL2 RET «, t00=0x0044, t01=0x00d8}
0x6b16…6b24 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0044, t01=0x00e8}
0x6b24…6b32 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0044, t01=0x00f6}
0x6b32…6b3c Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0044, t01=0x0104}
0x6b3c…6b52 Head {h00=0x0012, h01=0x0050, text=»** DLLATM«, t00=0x0044, t01=0x010e}
0x6b52…6b68 Head {h00=0x0012, h01=0x0050, text=»** ------«, t00=0x0044, t01=0x0124}
0x6b68…6b72 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0044, t01=0x013a}
0x6b72…6bbe Head {h00=0x0048, h01=0x0050, text=»** THIS ROUTINE INSERTS A PROTOCOL/MESSAGE HEADER AT THE START «, t00=0x0044, t01=0x0144}
0x6bbe…6c0a Head {h00=0x0048, h01=0x0050, text=»** OF THE DC BUFFER WRITES THE BUFFER TO THE ATM AND READS THE «, t00=0x0044, t01=0x0190}
0x6c0a…6c2a Head {h00=0x001c, h01=0x0050, text=»** ATM'S RESPONSE. «, t00=0x0045, t01=0x004c}
0x6c2a…6c74 Head {h00=0x0046, h01=0x0050, text=»** IF ANY DC ERROR OCCURS OR IF THE ATM DOES NOT RESPOND WITH«, t00=0x0045, t01=0x006c}
0x6c74…6cbc Head {h00=0x0044, h01=0x0050, text=»** A READY SOLICITED STATUS, THE ROUTINE EXITS WITH CR =2. «, t00=0x0045, t01=0x00b6}
0x6cbc…6cc6 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0045, t01=0x00fe}
0x6cc6…6cd0 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0045, t01=0x0108}
0x6cd0…6ce4 Head {h00=0x0010, h01=0x0050, text=»DLLATM PROC «, t00=0x0045, t01=0x0112}
0x6ce4…6d1e Head {h00=0x0036, h01=0x0050, text=» INSRT BUFIN,COB0,COB13,WKSTG2,COB0 INSERT HEADER «, t00=0x0045, t01=0x0126}
0x6d1e…6d4e Head {h00=0x002c, h01=0x0050, text=» ADD LENGTH,COB13 UPDATE MESSAGE LENGTH «, t00=0x0045, t01=0x0160}
0x6d4e…6d82 Head {h00=0x0030, h01=0x0050, text=» SUB LENGTH,COB1 IGNORE TRAILING FIELD SEPR.«, t00=0x0045, t01=0x0190}
0x6d82…6db8 Head {h00=0x0032, h01=0x0050, text=» WRITE DSCMOP,BUFIN,LENGTH SEND MESSAGE TO ATM«, t00=0x0046, t01=0x0034}
0x6db8…6de6 Head {h00=0x002a, h01=0x0050, text=» XSTAT DSCMOP,BIN3 GET EXTENDED STATUS«, t00=0x0046, t01=0x006a}
0x6de6…6e0a Head {h00=0x0020, h01=0x0050, text=» PERF RECHK CONVERT TO INDEX«, t00=0x0046, t01=0x0098}
0x6e0a…6e32 Head {h00=0x0024, h01=0x0050, text=» CBE BIN2,COB1,DLL100 WRITE OK? «, t00=0x0046, t01=0x00bc}
0x6e32…6e62 Head {h00=0x002c, h01=0x0050, text=» CBE BIN2,COB5,DLL100 RETRIES PERFORMED?«, t00=0x0046, t01=0x00e4}
0x6e62…6e90 Head {h00=0x002a, h01=0x0050, text=» MOVE STATUS,BIN3 CONVERT XSTAT TO BCD«, t00=0x0046, t01=0x0114}
0x6e90…6ebe Head {h00=0x002a, h01=0x0050, text=» PERF SCRIBE,DCWE O/P DC WRITE ERROR «, t00=0x0046, t01=0x0142}
0x6ebe…6ecc Head {h00=0x000a, h01=0x0050, text=»DLL050«, t00=0x0046, t01=0x0170}
0x6ecc…6efa Head {h00=0x002a, h01=0x0050, text=» CMP COB0,COB1 SET CONDITION REG TO 2 «, t00=0x0046, t01=0x017e}
0x6efa…6f06 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0047, t01=0x001c}
0x6f06…6f14 Head {h00=0x000a, h01=0x0050, text=»DLL100«, t00=0x0047, t01=0x0028}
0x6f14…6f30 Head {h00=0x0018, h01=0x0050, text=» MOVE LENGTH,=W'256'«, t00=0x0047, t01=0x0036}
0x6f30…6f64 Head {h00=0x0030, h01=0x0050, text=» READ DSCMIP,BUFIN,LENGTH READ FOR RESPONSE «, t00=0x0047, t01=0x0052}
0x6f64…6f92 Head {h00=0x002a, h01=0x0050, text=» XSTAT DSCMIP,BIN3 GET EXTENDED STATUS«, t00=0x0047, t01=0x0086}
0x6f92…6fb6 Head {h00=0x0020, h01=0x0050, text=» PERF RECHK CONVERT TO INDEX«, t00=0x0047, t01=0x00b4}
0x6fb6…6fdc Head {h00=0x0022, h01=0x0050, text=» CBE BIN2,COB1,DLL150 READ OK?«, t00=0x0047, t01=0x00d8}
0x6fdc…700a Head {h00=0x002a, h01=0x0050, text=» MOVE STATUS,BIN2 CONVERT XSTAT TO BCD«, t00=0x0047, t01=0x00fe}
0x700a…7036 Head {h00=0x0028, h01=0x0050, text=» PERF SCRIBE,DATAER 'DC READ ERROR'«, t00=0x0047, t01=0x012c}
0x7036…7048 Head {h00=0x000e, h01=0x0050, text=» B DLL050 «, t00=0x0047, t01=0x0158}
0x7048…7056 Head {h00=0x000a, h01=0x0050, text=»DLL150«, t00=0x0047, t01=0x016a}
0x7056…7096 Head {h00=0x003c, h01=0x0050, text=» MOVE WKSTG1,=X'32321C3030301C1C39' SET UP READY PATTERN«, t00=0x0047, t01=0x0178}
0x7096…70b8 Head {h00=0x001e, h01=0x0050, text=» MOVE BIN2,COB4 INIT MATCH«, t00=0x0048, t01=0x0028}
0x70b8…70e8 Head {h00=0x002c, h01=0x0050, text=» MATCH BUFIN,BIN2,COB9,WKSTG1,COB0,COB9 «, t00=0x0048, t01=0x004a}
0x70e8…710c Head {h00=0x0020, h01=0x0050, text=» SEARCH FOR READY PATTERN «, t00=0x0048, t01=0x007a}
0x710c…7130 Head {h00=0x0020, h01=0x0050, text=» BNERR DLL200 READY RECEIVED«, t00=0x0048, t01=0x009e}
0x7130…7160 Head {h00=0x002c, h01=0x0050, text=» MOVE WKSTG1,=X'3132' KEYLOCKS OR ALARMS«, t00=0x0048, t01=0x00c2}
0x7160…7178 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN2,COB7 «, t00=0x0048, t01=0x00f2}
0x7178…71a8 Head {h00=0x002c, h01=0x0050, text=» MATCH BUFIN,BIN2,COB2,WKSTG1,COB0,COB2 «, t00=0x0048, t01=0x010a}
0x71a8…71d4 Head {h00=0x0028, h01=0x0050, text=» BNERR DLL100 DISREGARD THOSE THINGS«, t00=0x0048, t01=0x013a}
0x71d4…7208 Head {h00=0x0030, h01=0x0050, text=» MOVE VARIOUS,=C'INVALID MESSAGE RECEIVED ' «, t00=0x0048, t01=0x0166}
0x7208…7224 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0049, t01=0x000a}
0x7224…7236 Head {h00=0x000e, h01=0x0050, text=» B DLL050 «, t00=0x0049, t01=0x0026}
0x7236…7244 Head {h00=0x000a, h01=0x0050, text=»DLL200«, t00=0x0049, t01=0x0038}
0x7244…7272 Head {h00=0x002a, h01=0x0050, text=» CMP COB0,COB0 SET CONDITION REG TO 0 «, t00=0x0049, t01=0x0046}
0x7272…727e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0049, t01=0x0074}
0x727e…728c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0049, t01=0x0080}
0x728c…729a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x008e}
0x729a…72ac Head {h00=0x000e, h01=0x0050, text=»KBINP PROC«, t00=0x0049, t01=0x009c}
0x72ac…72ce Head {h00=0x001e, h01=0x0050, text=» DSC KB,X'02' SKIP BUFFER «, t00=0x0049, t01=0x00ae}
0x72ce…72e8 Head {h00=0x0016, h01=0x0050, text=» MOVE LENGTH,COB9 «, t00=0x0049, t01=0x00d0}
0x72e8…731a Head {h00=0x002e, h01=0x0050, text=» KI KB,BUFIN,KTAB1,LENGTH,INDEX READ DATA «, t00=0x0049, t01=0x00ea}
0x731a…7326 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0049, t01=0x011c}
0x7326…7334 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0049, t01=0x0128}
0x7334…733c Head {h00=0x0004, h01=0x0050, t00=0x0049, t01=0x0136}
0x733c…7344 Head {h00=0x0004, h01=0x0050, t00=0x0049, t01=0x013e}
0x7344…734c Head {h00=0x0004, h01=0x0050, t00=0x0049, t01=0x0146}
0x734c…735e Head {h00=0x000e, h01=0x0050, text=»KINW PROC «, t00=0x0049, t01=0x014e}
0x735e…7374 Head {h00=0x0012, h01=0x0050, text=» DSC KB,X'02' «, t00=0x0049, t01=0x0160}
0x7374…738c Head {h00=0x0014, h01=0x0050, text=» MOVE KILN,COB1 «, t00=0x0049, t01=0x0176}
0x738c…73b4 Head {h00=0x0024, h01=0x0050, text=» KI .NW,KB,KIBUF,KTAB1,KILN,KIIX«, t00=0x0049, t01=0x018e}
0x73b4…73c0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004a, t01=0x0026}
0x73c0…73ce Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004a, t01=0x0032}
0x73ce…73d6 Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x0040}
0x73d6…73de Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x0048}
0x73de…73e6 Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x0050}
0x73e6…73f8 Head {h00=0x000e, h01=0x0050, text=»DCNW PROC «, t00=0x004a, t01=0x0058}
0x73f8…741e Head {h00=0x0022, h01=0x0050, text=» MOVE BUFIN,=C' ' CLEAR BUFIN «, t00=0x004a, t01=0x006a}
0x741e…744c Head {h00=0x002a, h01=0x0050, text=» MOVE LENGTH,=W'256' SET LENGTH TO 256«, t00=0x004a, t01=0x0090}
0x744c…748c Head {h00=0x003c, h01=0x0050, text=» READ .NW,DSCMIP,BUFIN,LENGTH READ LINE MESSAGE FROM ATM«, t00=0x004a, t01=0x00be}
0x748c…7498 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004a, t01=0x00fe}
0x7498…74a6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004a, t01=0x010a}
0x74a6…74b4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004a, t01=0x0118}
0x74b4…74c8 Head {h00=0x0010, h01=0x0050, text=»OPRCMD PROC «, t00=0x004a, t01=0x0126}
0x74c8…74d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x013a}
0x74d2…751e Head {h00=0x0048, h01=0x0050, text=»* THIS ROUTINE SENDS AN OPERATIONAL COMMAND AND WAITS FOR THE ANSWER«, t00=0x004a, t01=0x0144}
0x751e…7546 Head {h00=0x0024, h01=0x0050, text=»* IT NEEDS A PARAMTER IN WKSTR7 «, t00=0x004a, t01=0x0190}
0x7546…7558 Head {h00=0x000e, h01=0x0050, text=»* 1 - OPEN«, t00=0x004b, t01=0x0028}
0x7558…756c Head {h00=0x0010, h01=0x0050, text=»* 2 - CLOSE «, t00=0x004b, t01=0x003a}
0x756c…7586 Head {h00=0x0016, h01=0x0050, text=»* 3 - CONFIG.DATA «, t00=0x004b, t01=0x004e}
0x7586…7590 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0068}
0x7590…75aa Head {h00=0x0016, h01=0x0050, text=» PERF SCRIBE,FMCMD«, t00=0x004b, t01=0x0072}
0x75aa…75c4 Head {h00=0x0016, h01=0x0050, text=» EDIT BUFIN,OPCMD «, t00=0x004b, t01=0x008c}
0x75c4…75de Head {h00=0x0016, h01=0x0050, text=» MOVE LENGTH,COB11«, t00=0x004b, t01=0x00a6}
0x75de…7614 Head {h00=0x0032, h01=0x0050, text=» WRITE DSCMOP,BUFIN,LENGTH SEND MESSAGE TO ATM«, t00=0x004b, t01=0x00c0}
0x7614…7642 Head {h00=0x002a, h01=0x0050, text=» XSTAT DSCMOP,BIN3 GET EXTENDED STATUS«, t00=0x004b, t01=0x00f6}
0x7642…7666 Head {h00=0x0020, h01=0x0050, text=» PERF RECHK CONVERT TO INDEX«, t00=0x004b, t01=0x0124}
0x7666…7688 Head {h00=0x001e, h01=0x0050, text=» CBE BIN2,COB1,OPRC010 OK?«, t00=0x004b, t01=0x0148}
0x7688…76b0 Head {h00=0x0024, h01=0x0050, text=» CBE BIN2,COB5,OPRC010 RETRIES? «, t00=0x004b, t01=0x016a}
0x76b0…76de (76, 0, 400) Head {h00=0x002a, h01=0x0050, text=» MOVE STATUS,BIN3 CONVERT XSTAT TO BCD«, t00=0x004c, t01=0x0004}
0x76de…770c Head {h00=0x002a, h01=0x0050, text=» PERF SCRIBE,DCWE O/P DC WRITE ERROR «, t00=0x004c, t01=0x0032}
0x770c…7722 Head {h00=0x0012, h01=0x0050, text=» CMP COB0,COB1«, t00=0x004c, t01=0x0060}
0x7722…772e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004c, t01=0x0076}
0x772e…7738 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0082}
0x7738…7748 Head {h00=0x000c, h01=0x0050, text=»OPRC010 «, t00=0x004c, t01=0x008c}
0x7748…7764 Head {h00=0x0018, h01=0x0050, text=» MOVE LENGTH,=W'256'«, t00=0x004c, t01=0x009c}
0x7764…777e Head {h00=0x0016, h01=0x0050, text=» MOVE BUFIN,=C' ' «, t00=0x004c, t01=0x00b8}
0x777e…77b2 Head {h00=0x0030, h01=0x0050, text=» READ DSCMIP,BUFIN,LENGTH READ FOR RESPONSE «, t00=0x004c, t01=0x00d2}
0x77b2…77e0 Head {h00=0x002a, h01=0x0050, text=» XSTAT DSCMIP,BIN3 GET EXTENDED STATUS«, t00=0x004c, t01=0x0106}
0x77e0…7804 Head {h00=0x0020, h01=0x0050, text=» PERF RECHK CONVERT TO INDEX«, t00=0x004c, t01=0x0134}
0x7804…7826 Head {h00=0x001e, h01=0x0050, text=» CBE BIN2,COB1,OPRC020 OK?«, t00=0x004c, t01=0x0158}
0x7826…7854 Head {h00=0x002a, h01=0x0050, text=» MOVE STATUS,BIN2 CONVERT XSTAT TO BCD«, t00=0x004c, t01=0x017a}
0x7854…7880 Head {h00=0x0028, h01=0x0050, text=» PERF SCRIBE,DATAER 'DC READ ERROR'«, t00=0x004d, t01=0x0018}
0x7880…7890 Head {h00=0x000c, h01=0x0050, text=»OPRC015 «, t00=0x004d, t01=0x0044}
0x7890…78ae Head {h00=0x001a, h01=0x0050, text=» CMP COB0,COB1 NOT OK «, t00=0x004d, t01=0x0054}
0x78ae…78ba Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004d, t01=0x0072}
0x78ba…78c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x007e}
0x78c4…78d4 Head {h00=0x000c, h01=0x0050, text=»OPRC020 «, t00=0x004d, t01=0x0088}
0x78d4…78de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0098}
0x78de…790c Head {h00=0x002a, h01=0x0050, text=» MOVE WKSTR8,=X'1D44' GROUP SEP. + "D"«, t00=0x004d, t01=0x00a2}
0x790c…7926 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN3,LENGTH «, t00=0x004d, t01=0x00d0}
0x7926…793c Head {h00=0x0012, h01=0x0050, text=» SUB BIN3,COB1«, t00=0x004d, t01=0x00ea}
0x793c…7954 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN4,COB0 «, t00=0x004d, t01=0x0100}
0x7954…7984 Head {h00=0x002c, h01=0x0050, text=» MATCH BUFIN,BIN4,BIN3,WKSTR8,COB0,COB2 «, t00=0x004d, t01=0x0118}
0x7984…79b2 Head {h00=0x002a, h01=0x0050, text=» BERR OPRC050 NOT FOUND, NORMAL RETURN«, t00=0x004d, t01=0x0148}
0x79b2…79de Head {h00=0x0028, h01=0x0050, text=» ADD BIN4,COB2 POINT TO 1. CASS.STAT«, t00=0x004d, t01=0x0176}
0x79de…7a02 Head {h00=0x0020, h01=0x0050, text=» MOVE BIN5,COB0 LOOP CONTROL«, t00=0x004e, t01=0x0012}
0x7a02…7a12 Head {h00=0x000c, h01=0x0050, text=»OPRC040 «, t00=0x004e, t01=0x0036}
0x7a12…7a28 Head {h00=0x0012, h01=0x0050, text=» ADD BIN5,COB1«, t00=0x004e, t01=0x0046}
0x7a28…7a46 Head {h00=0x001a, h01=0x0050, text=» CBG BIN5,COB4,OPRC050«, t00=0x004e, t01=0x005c}
0x7a46…7a86 Head {h00=0x003c, h01=0x0050, text=» XCOPY WKSTR8,COB0,COB2,BUFIN,BIN4 MOVE DENOM TO CASTAT «, t00=0x004e, t01=0x007a}
0x7a86…7ac0 Head {h00=0x0036, h01=0x0050, text=» COPY WKSTR7,COB0,COB1,WKSTR8,COB1 IF NO CASSETTE «, t00=0x004e, t01=0x00ba}
0x7ac0…7af6 Head {h00=0x0032, h01=0x0050, text=» CBNE WKSTR7,=C'0',OPRC042 PRESENT, THEN FORCE«, t00=0x004e, t01=0x00f4}
0x7af6…7b26 Head {h00=0x002c, h01=0x0050, text=» MOVE WKSTR8,=X'3E30' LOW-NOTE-CONDITION«, t00=0x004e, t01=0x012a}
0x7b26…7b36 Head {h00=0x000c, h01=0x0050, text=»OPRC042 «, t00=0x004e, t01=0x015a}
0x7b36…7b6a Head {h00=0x0030, h01=0x0050, text=» CALL COPY4,CASTAT(COB1,BIN5),COB3,COB1, C «, t00=0x004e, t01=0x016a}
0x7b6a…7b80 Head {h00=0x0012, h01=0x0050, text=» WKSTR8,COB3 «, t00=0x004f, t01=0x000e}
0x7b80…7b98 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN3,COB0 «, t00=0x004f, t01=0x0024}
0x7b98…7bc6 Head {h00=0x002a, h01=0x0050, text=» CALL COPY4,BIN3,COB3,COB1,WKSTR8,COB1«, t00=0x004f, t01=0x003c}
0x7bc6…7bf6 Head {h00=0x002c, h01=0x0050, text=» MOVE CASTAT(COB2,BIN5),COB0 RESET FIRST«, t00=0x004f, t01=0x006a}
0x7bf6…7c1a Head {h00=0x0020, h01=0x0050, text=» CBNE BIN3,=X'000E',OPRC045 «, t00=0x004f, t01=0x009a}
0x7c1a…7c52 Head {h00=0x0034, h01=0x0050, text=» MOVE CASTAT(COB2,BIN5),COB1 INDICATE LOW NOTES «, t00=0x004f, t01=0x00be}
0x7c52…7c62 Head {h00=0x000c, h01=0x0050, text=»OPRC045 «, t00=0x004f, t01=0x00f6}
0x7c62…7c84 Head {h00=0x001e, h01=0x0050, text=» ADD BIN4,COB2 NEXT FEEDER«, t00=0x004f, t01=0x0106}
0x7c84…7c96 Head {h00=0x000e, h01=0x0050, text=» B OPRC040«, t00=0x004f, t01=0x0128}
0x7c96…7ca6 Head {h00=0x000c, h01=0x0050, text=»OPRC050 «, t00=0x004f, t01=0x013a}
0x7ca6…7cbc Head {h00=0x0012, h01=0x0050, text=» CMP COB0,COB0«, t00=0x004f, t01=0x014a}
0x7cbc…7cc8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004f, t01=0x0160}
0x7cc8…7cd6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004f, t01=0x016c}
0x7cd6…7ce4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004f, t01=0x017a}
0x7ce4…7cf8 Head {h00=0x0010, h01=0x0050, text=»NOTMIX PROC «, t00=0x004f, t01=0x0188}
0x7cf8…7d12 Head {h00=0x0016, h01=0x0050, text=»* COMPUTE NOTEMIX «, t00=0x0050, t01=0x000c}
0x7d12…7d2a Head {h00=0x0014, h01=0x0050, text=» MOVE WKB2A,COB9«, t00=0x0050, t01=0x0026}
0x7d2a…7d44 Head {h00=0x0016, h01=0x0050, text=» MOVE WKD12A,PBCD «, t00=0x0050, t01=0x003e}
0x7d44…7d52 Head {h00=0x000a, h01=0x0050, text=»NOT100«, t00=0x0050, t01=0x0058}
0x7d52…7d74 Head {h00=0x001e, h01=0x0050, text=» SUB WKB2A,COB1 STEP INDEX«, t00=0x0050, t01=0x0066}
0x7d74…7d9e Head {h00=0x0026, h01=0x0050, text=» CBL WKB2A,COB1,NOT130 WRONG INPUT«, t00=0x0050, t01=0x0088}
0x7d9e…7dc4 Head {h00=0x0022, h01=0x0050, text=» PERF DENCK DENOMINATION CHECK«, t00=0x0050, t01=0x00b2}
0x7dc4…7de4 Head {h00=0x001c, h01=0x0050, text=» B NOT100 NOT AVAILABLE «, t00=0x0050, t01=0x00d8}
0x7de4…7e18 Head {h00=0x0030, h01=0x0050, text=» CBG DENOM(WKB2A),WKD12A,NOT100 NEXT HIGHER «, t00=0x0050, t01=0x00f8}
0x7e18…7e32 Head {h00=0x0016, h01=0x0050, text=» MOVE WKD3A,=D'0' «, t00=0x0050, t01=0x012c}
0x7e32…7e40 Head {h00=0x000a, h01=0x0050, text=»NOT110«, t00=0x0050, t01=0x0146}
0x7e40…7e72 Head {h00=0x002e, h01=0x0050, text=» CBL WKD12A,DENOM(WKB2A),NOT120 FINISHED? «, t00=0x0050, t01=0x0154}
0x7e72…7e9a Head {h00=0x0024, h01=0x0050, text=» SUB WKD12A,DENOM(WKB2A) 1 NOTE «, t00=0x0050, t01=0x0186}
0x7e9a…7eb2 Head {h00=0x0014, h01=0x0050, text=» ADD WKD3A,=D'1'«, t00=0x0051, t01=0x001e}
0x7eb2…7ec4 Head {h00=0x000e, h01=0x0050, text=» B NOT110 «, t00=0x0051, t01=0x0036}
0x7ec4…7ed2 Head {h00=0x000a, h01=0x0050, text=»NOT120«, t00=0x0051, t01=0x0048}
0x7ed2…7ef8 Head {h00=0x0022, h01=0x0050, text=» MOVE WKB2B,WKB2A CREATE INDEX«, t00=0x0051, t01=0x0056}
0x7ef8…7f10 Head {h00=0x0014, h01=0x0050, text=» SUB WKB2B,COB1 «, t00=0x0051, t01=0x007c}
0x7f10…7f28 Head {h00=0x0014, h01=0x0050, text=» ADD WKB2B,WKB2B«, t00=0x0051, t01=0x0094}
0x7f28…7f52 Head {h00=0x0026, h01=0x0050, text=» MOVE WKS4A,WKD3A CONVERT TO ASCII«, t00=0x0051, t01=0x00ac}
0x7f52…7f7c Head {h00=0x0026, h01=0x0050, text=» COPY NOTES,WKB2B,COB2,WKS4A,COB2 «, t00=0x0051, t01=0x00d6}
0x7f7c…7fa6 Head {h00=0x0026, h01=0x0050, text=» CBE WKD12A,=D'0',NOT900 FINISHED?«, t00=0x0051, t01=0x0100}
0x7fa6…7fb8 Head {h00=0x000e, h01=0x0050, text=» B NOT100 «, t00=0x0051, t01=0x012a}
0x7fb8…7fc6 Head {h00=0x000a, h01=0x0050, text=»NOT130«, t00=0x0051, t01=0x013c}
0x7fc6…7fdc Head {h00=0x0012, h01=0x0050, text=» CMP COB0,COB1«, t00=0x0051, t01=0x014a}
0x7fdc…7fe8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0051, t01=0x0160}
0x7fe8…7ff6 Head {h00=0x000a, h01=0x0050, text=»NOT900«, t00=0x0051, t01=0x016c}
0x7ff6…800c Head {h00=0x0012, h01=0x0050, text=» CMP COB0,COB0«, t00=0x0051, t01=0x017a}
0x800c…8018 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0051, t01=0x0190}
0x8018…8026 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0052, t01=0x000c}
0x8026…8034 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x001a}
0x8034…8046 Head {h00=0x000e, h01=0x0050, text=»DENCK PROC«, t00=0x0052, t01=0x0028}
0x8046…807a Head {h00=0x0030, h01=0x0050, text=»* CHECK EXISTANCE AND STATUS OF DENOMINATION«, t00=0x0052, t01=0x003a}
0x807a…80a2 Head {h00=0x0024, h01=0x0050, text=»* WHICH INDEX IS GIVEN IN WKB2A «, t00=0x0052, t01=0x006e}
0x80a2…80ba Head {h00=0x0014, h01=0x0050, text=» MOVE WKB2B,COB0«, t00=0x0052, t01=0x0096}
0x80ba…80c8 Head {h00=0x000a, h01=0x0050, text=»DENCK2«, t00=0x0052, t01=0x00ae}
0x80c8…80e0 Head {h00=0x0014, h01=0x0050, text=» ADD WKB2B,COB1 «, t00=0x0052, t01=0x00bc}
0x80e0…80fe Head {h00=0x001a, h01=0x0050, text=» CBG WKB2B,COB4,DENCK4«, t00=0x0052, t01=0x00d4}
0x80fe…812c Head {h00=0x002a, h01=0x0050, text=» CBNE CASTAT(COB1,WKB2B),WKB2A,DENCK2 «, t00=0x0052, t01=0x00f2}
0x812c…8162 Head {h00=0x0032, h01=0x0050, text=» CBE CASTAT(COB2,WKB2B),COB1,DENCK2 LOW NOTES?«, t00=0x0052, t01=0x0120}
0x8162…8170 Head {h00=0x000a, h01=0x0050, text=» RET 2«, t00=0x0052, t01=0x0156}
0x8170…817e Head {h00=0x000a, h01=0x0050, text=»DENCK4«, t00=0x0052, t01=0x0164}
0x817e…818a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0052, t01=0x0172}
0x818a…8198 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0052, t01=0x017e}
0x8198…81a0 Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x018c}
0x81a0…81ae (83, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0053, t01=0x0004}
0x81ae…81c2 Head {h00=0x0010, h01=0x0050, text=»LOMULT PROC «, t00=0x0053, t01=0x0012}
0x81c2…81cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0026}
0x81cc…8214 Head {h00=0x0044, h01=0x0050, text=»* THE PROCEDURE CHECKS THAT THE AMOUNT REQUIESTED IS A MULTIPLE «, t00=0x0053, t01=0x0030}
0x8214…8244 Head {h00=0x002c, h01=0x0050, text=»* OF THE LOWEST ACCESSIBLE DENOMINATION «, t00=0x0053, t01=0x0078}
0x8244…824e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00a8}
0x824e…8268 Head {h00=0x0016, h01=0x0050, text=» MOVE WKD12A,PBCD «, t00=0x0053, t01=0x00b2}
0x8268…8290 Head {h00=0x0024, h01=0x0050, text=» PERF FNDLOW GET INDEX TO LOWEST«, t00=0x0053, t01=0x00cc}
0x8290…82b4 Head {h00=0x0020, h01=0x0050, text=» B LOMUL9 NOTHING ACCESSIBLE«, t00=0x0053, t01=0x00f4}
0x82b4…82ea Head {h00=0x0032, h01=0x0050, text=» MOVE WKD12B,DENOM(WKB2B) LOWEST DENOMINATION «, t00=0x0053, t01=0x0118}
0x82ea…82f8 Head {h00=0x000a, h01=0x0050, text=»LOMUL2«, t00=0x0053, t01=0x014e}
0x82f8…8312 Head {h00=0x0016, h01=0x0050, text=» DIV WKD12A,WKD12B«, t00=0x0053, t01=0x015c}
0x8312…832c Head {h00=0x0016, h01=0x0050, text=» MUL WKD12A,WKD12B«, t00=0x0053, t01=0x0176}
0x832c…835c Head {h00=0x002c, h01=0x0050, text=» CBNE WKD12A,PBCD,LOMUL9 ANY REMAINDER? «, t00=0x0053, t01=0x0190}
0x835c…8382 Head {h00=0x0022, h01=0x0050, text=» CMP COB0,COB0 NO THERE WASNT «, t00=0x0054, t01=0x0030}
0x8382…838e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0054, t01=0x0056}
0x838e…839c Head {h00=0x000a, h01=0x0050, text=»LOMUL9«, t00=0x0054, t01=0x0062}
0x839c…83cc Head {h00=0x002c, h01=0x0050, text=» CMP COB0,COB1 REMAINDER OR UNAVAILABLE «, t00=0x0054, t01=0x0070}
0x83cc…83d8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0054, t01=0x00a0}
0x83d8…83e6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0054, t01=0x00ac}
0x83e6…83ee Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x00ba}
0x83ee…83f6 Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x00c2}
0x83f6…840a Head {h00=0x0010, h01=0x0050, text=»FNDLOW PROC «, t00=0x0054, t01=0x00ca}
0x840a…843e Head {h00=0x0030, h01=0x0050, text=»* THE ROUTINE FINDS THE LOWEST DENOMINATION «, t00=0x0054, t01=0x00de}
0x843e…8456 Head {h00=0x0014, h01=0x0050, text=» MOVE WKB2A,COB0«, t00=0x0054, t01=0x0112}
0x8456…846e Head {h00=0x0014, h01=0x0050, text=» MOVE WKB2B,COB8«, t00=0x0054, t01=0x012a}
0x846e…847c Head {h00=0x000a, h01=0x0050, text=»FNDL10«, t00=0x0054, t01=0x0142}
0x847c…8494 Head {h00=0x0014, h01=0x0050, text=» ADD WKB2A,COB1 «, t00=0x0054, t01=0x0150}
0x8494…84c2 Head {h00=0x002a, h01=0x0050, text=» CBG WKB2A,COB4,FNDL20 DENOM EXHAUSTED«, t00=0x0054, t01=0x0168}
0x84c2…84fa Head {h00=0x0034, h01=0x0050, text=» CBE CASTAT(COB1,WKB2A),COB0,FNDL10 NO CASSETTE «, t00=0x0055, t01=0x0008}
0x84fa…8530 Head {h00=0x0032, h01=0x0050, text=» CBE CASTAT(COB2,WKB2A),COB1,FNDL10 LOW NOTES «, t00=0x0055, t01=0x0040}
0x8530…8568 Head {h00=0x0034, h01=0x0050, text=» CBNL CASTAT(COB1,WKB2A),WKB2B,FNDL10 NOT LOWEST«, t00=0x0055, t01=0x0076}
0x8568…859c Head {h00=0x0030, h01=0x0050, text=» MOVE WKB2B,CASTAT(COB1,WKB2A) LOWEST SO FAR«, t00=0x0055, t01=0x00ae}
0x859c…85ae Head {h00=0x000e, h01=0x0050, text=» B FNDL10 «, t00=0x0055, t01=0x00e2}
0x85ae…85bc Head {h00=0x000a, h01=0x0050, text=»FNDL20«, t00=0x0055, t01=0x00f4}
0x85bc…85f2 Head {h00=0x0032, h01=0x0050, text=» CBNE WKB2B,COB8,FNDL30 AT LEAST ONE AVAILABLE«, t00=0x0055, t01=0x0102}
0x85f2…8612 Head {h00=0x001c, h01=0x0050, text=» RET NOTHING AVAILABLE «, t00=0x0055, t01=0x0138}
0x8612…8620 Head {h00=0x000a, h01=0x0050, text=»FNDL30«, t00=0x0055, t01=0x0158}
0x8620…862e Head {h00=0x000a, h01=0x0050, text=» RET 2«, t00=0x0055, t01=0x0166}
0x862e…863c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0055, t01=0x0174}
0x863c…864a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0055, t01=0x0182}
0x864a…865c Head {h00=0x000e, h01=0x0050, text=»POLL FRMT «, t00=0x0055, t01=0x0190}
0x865c…8670 Head {h00=0x0010, h01=0x0050, text=» FCOPY ='22'«, t00=0x0056, t01=0x0012}
0x8670…868a Head {h00=0x0016, h01=0x0050, text=» FCOPY ='POLLING '«, t00=0x0056, t01=0x0026}
0x868a…86a6 Head {h00=0x0018, h01=0x0050, text=» FCOPY ='MICROBANK' «, t00=0x0056, t01=0x0040}
0x86a6…86b4 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0056, t01=0x005c}
0x86b4…86bc Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x006a}
0x86bc…86ce Head {h00=0x000e, h01=0x0050, text=»INACT FRMT«, t00=0x0056, t01=0x0072}
0x86ce…86e2 Head {h00=0x0010, h01=0x0050, text=» FCOPY ='22'«, t00=0x0056, t01=0x0084}
0x86e2…86fe Head {h00=0x0018, h01=0x0050, text=» FCOPY ='MICROBANK' «, t00=0x0056, t01=0x0098}
0x86fe…8714 Head {h00=0x0012, h01=0x0050, text=» FCOPY =' NOT'«, t00=0x0056, t01=0x00b4}
0x8714…873a Head {h00=0x0022, h01=0x0050, text=» FCOPY =' RESPONDING TO POLL' «, t00=0x0056, t01=0x00ca}
0x873a…8748 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0056, t01=0x00f0}
0x8748…8750 Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x00fe}
0x8750…8764 Head {h00=0x0010, h01=0x0050, text=»DATAER FRMT «, t00=0x0056, t01=0x0106}
0x8764…8798 Head {h00=0x0030, h01=0x0050, text=» FTEXT '22DATA COMM READ ERROR : '«, t00=0x0056, t01=0x011a}
0x8798…87b4 Head {h00=0x0018, h01=0x0050, text=» FMEL '9999',STATUS «, t00=0x0056, t01=0x014e}
0x87b4…87c2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0056, t01=0x016a}
0x87c2…87ca Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x0178}
0x87ca…87da Head {h00=0x000c, h01=0x0050, text=»INF FRMT«, t00=0x0056, t01=0x0180}
0x87da…87f0 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'22' «, t00=0x0056, t01=0x0190}
0x87f0…8804 Head {h00=0x0010, h01=0x0050, text=» FCOPY INFO «, t00=0x0057, t01=0x0016}
0x8804…8812 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0057, t01=0x002a}
0x8812…8826 Head {h00=0x0010, h01=0x0050, text=»DATEFMT FRMT«, t00=0x0057, t01=0x0038}
0x8826…8844 Head {h00=0x001a, h01=0x0050, text=» FMEL '99V99V99',DATE «, t00=0x0057, t01=0x004c}
0x8844…8858 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0057, t01=0x006a}
0x8858…8876 Head {h00=0x001a, h01=0x0050, text=» FCOPY ='TI.ME ATM001'«, t00=0x0057, t01=0x007e}
0x8876…888c Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',3«, t00=0x0057, t01=0x009c}
0x888c…889a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0057, t01=0x00b2}
0x889a…88a2 Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x00c0}
0x88a2…88b6 Head {h00=0x0010, h01=0x0050, text=»CUSTRQ FRMT «, t00=0x0057, t01=0x00c8}
0x88b6…88da Head {h00=0x0020, h01=0x0050, text=» FTEXT '00CUSTOMER REQUEST' «, t00=0x0057, t01=0x00dc}
0x88da…88e6 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0057, t01=0x0100}
0x88e6…8900 Head {h00=0x0016, h01=0x0050, text=» FTEXT 'OP KEYS: '«, t00=0x0057, t01=0x010c}
0x8900…8914 Head {h00=0x0010, h01=0x0050, text=» FBT F4,CUS1«, t00=0x0057, t01=0x0126}
0x8914…8928 Head {h00=0x0010, h01=0x0050, text=» FCOPY OPKY «, t00=0x0057, t01=0x013a}
0x8928…8938 Head {h00=0x000c, h01=0x0050, text=» FB CUS2«, t00=0x0057, t01=0x014e}
0x8938…8956 Head {h00=0x001a, h01=0x0050, text=»CUS1 FTEXT ' NONE ' «, t00=0x0057, t01=0x015e}
0x8956…896e Head {h00=0x0014, h01=0x0050, text=»CUS2 FILLR ' ',2«, t00=0x0057, t01=0x017c}
0x896e…898a (88, 0, 398) Head {h00=0x0018, h01=0x0050, text=» FTEXT '1ST TRANS: '«, t00=0x0058, t01=0x0004}
0x898a…899e Head {h00=0x0010, h01=0x0050, text=» FCOPY TXFG «, t00=0x0058, t01=0x0020}
0x899e…89b2 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0058, t01=0x0034}
0x89b2…89d4 Head {h00=0x001e, h01=0x0050, text=» FTEXT 'MESS.CO-ORD NO: ' «, t00=0x0058, t01=0x0048}
0x89d4…89e8 Head {h00=0x0010, h01=0x0050, text=» FCOPY MESS «, t00=0x0058, t01=0x006a}
0x89e8…89fc Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0058, t01=0x007e}
0x89fc…8a10 Head {h00=0x0010, h01=0x0050, text=» FBT F5,CUS3«, t00=0x0058, t01=0x0092}
0x8a10…8a30 Head {h00=0x001c, h01=0x0050, text=» FTEXT 'DOLLAR AMOUNT: '«, t00=0x0058, t01=0x00a6}
0x8a30…8a50 Head {h00=0x001c, h01=0x0050, text=» FMEL 'ZZZZZZZ9V99',PBCD«, t00=0x0058, t01=0x00c6}
0x8a50…8a60 Head {h00=0x000c, h01=0x0050, text=»CUS3 FNL«, t00=0x0058, t01=0x00e6}
0x8a60…8a74 Head {h00=0x0010, h01=0x0050, text=» FBT F6,CUS4«, t00=0x0058, t01=0x00f6}
0x8a74…8a92 Head {h00=0x001a, h01=0x0050, text=» FTEXT 'GP BUFFER A: '«, t00=0x0058, t01=0x010a}
0x8a92…8aa6 Head {h00=0x0010, h01=0x0050, text=» FCOPY GPBA «, t00=0x0058, t01=0x0128}
0x8aa6…8ab2 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0058, t01=0x013c}
0x8ab2…8aca Head {h00=0x0014, h01=0x0050, text=»CUS4 FBT F7,CUS5«, t00=0x0058, t01=0x0148}
0x8aca…8ae8 Head {h00=0x001a, h01=0x0050, text=» FTEXT 'GP BUFFER B: '«, t00=0x0058, t01=0x0160}
0x8ae8…8afc Head {h00=0x0010, h01=0x0050, text=» FCOPY GPBB «, t00=0x0058, t01=0x017e}
0x8afc…8b08 (89, 0, 400) Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0059, t01=0x0004}
0x8b08…8b20 Head {h00=0x0014, h01=0x0050, text=»CUS5 FBT F8,CUS6«, t00=0x0059, t01=0x0010}
0x8b20…8b3a Head {h00=0x0016, h01=0x0050, text=» FTEXT 'AMOUNT: ' «, t00=0x0059, t01=0x0028}
0x8b3a…8b4e Head {h00=0x0010, h01=0x0050, text=» FCOPY GPBC «, t00=0x0059, t01=0x0042}
0x8b4e…8b5a Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0059, t01=0x0056}
0x8b5a…8b72 Head {h00=0x0014, h01=0x0050, text=»CUS6 FBT F9,CUS7«, t00=0x0059, t01=0x0062}
0x8b72…8b92 Head {h00=0x001c, h01=0x0050, text=» FTEXT 'TRACK 1 DATA: ' «, t00=0x0059, t01=0x007a}
0x8b92…8ba6 Head {h00=0x0010, h01=0x0050, text=» FCOPY TK1D1«, t00=0x0059, t01=0x009a}
0x8ba6…8bb2 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0059, t01=0x00ae}
0x8bb2…8bc8 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',14 «, t00=0x0059, t01=0x00ba}
0x8bc8…8bdc Head {h00=0x0010, h01=0x0050, text=» FCOPY TK1D2«, t00=0x0059, t01=0x00d0}
0x8bdc…8be8 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0059, t01=0x00e4}
0x8be8…8c00 Head {h00=0x0014, h01=0x0050, text=»CUS7 FBT F2,CUS8«, t00=0x0059, t01=0x00f0}
0x8c00…8c20 Head {h00=0x001c, h01=0x0050, text=» FTEXT 'TRACK 2 DATA: ' «, t00=0x0059, t01=0x0108}
0x8c20…8c34 Head {h00=0x0010, h01=0x0050, text=» FCOPY TK2D «, t00=0x0059, t01=0x0128}
0x8c34…8c40 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0059, t01=0x013c}
0x8c40…8c58 Head {h00=0x0014, h01=0x0050, text=»CUS8 FBT F3,CUS9«, t00=0x0059, t01=0x0148}
0x8c58…8c78 Head {h00=0x001c, h01=0x0050, text=» FTEXT 'TRACK 3 DATA: ' «, t00=0x0059, t01=0x0160}
0x8c78…8c8c Head {h00=0x0010, h01=0x0050, text=» FCOPY TK3D1«, t00=0x0059, t01=0x0180}
0x8c8c…8c98 (90, 0, 400) Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x005a, t01=0x0004}
0x8c98…8cae Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',14 «, t00=0x005a, t01=0x0010}
0x8cae…8cc2 Head {h00=0x0010, h01=0x0050, text=» FCOPY TK3D2«, t00=0x005a, t01=0x0026}
0x8cc2…8cd4 Head {h00=0x000e, h01=0x0050, text=»CUS9 FMEND«, t00=0x005a, t01=0x003a}
0x8cd4…8cdc Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x004c}
0x8cdc…8cf0 Head {h00=0x0010, h01=0x0050, text=»AMTERR FRMT «, t00=0x005a, t01=0x0054}
0x8cf0…8d04 Head {h00=0x0010, h01=0x0050, text=» FTEXT '22' «, t00=0x005a, t01=0x0068}
0x8d04…8d3a Head {h00=0x0032, h01=0x0050, text=» FCOPY ='AMOUNT ERROR. TRANSACTION CANCELLED.'«, t00=0x005a, t01=0x007c}
0x8d3a…8d48 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005a, t01=0x00b2}
0x8d48…8d50 Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x00c0}
0x8d50…8d62 Head {h00=0x000e, h01=0x0050, text=»UNSS FRMT «, t00=0x005a, t01=0x00c8}
0x8d62…8d96 Head {h00=0x0030, h01=0x0050, text=» FTEXT '22UNSOLICITED STATUS : '«, t00=0x005a, t01=0x00da}
0x8d96…8db0 Head {h00=0x0016, h01=0x0050, text=» FCOPY DEVAR2(DID)«, t00=0x005a, t01=0x010e}
0x8db0…8dc4 Head {h00=0x0010, h01=0x0050, text=» FCOPY DEVST«, t00=0x005a, t01=0x0128}
0x8dc4…8dd2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005a, t01=0x013c}
0x8dd2…8dda Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x014a}
0x8dda…8dee Head {h00=0x0010, h01=0x0050, text=»FCSENT FRMT «, t00=0x005a, t01=0x0152}
0x8dee…8e18 Head {h00=0x0026, h01=0x0050, text=» FTEXT '22FUNCTION COMMAND SENT ('«, t00=0x005a, t01=0x0166}
0x8e18…8e2c Head {h00=0x0010, h01=0x0050, text=» FCOPY OPKY «, t00=0x005a, t01=0x0190}
0x8e2c…8e3e Head {h00=0x000e, h01=0x0050, text=» FTEXT ')'«, t00=0x005b, t01=0x0014}
0x8e3e…8e4c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005b, t01=0x0026}
0x8e4c…8e54 Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x0034}
0x8e54…8e66 Head {h00=0x000e, h01=0x0050, text=»DCWE FRMT «, t00=0x005b, t01=0x003c}
0x8e66…8e9c Head {h00=0x0032, h01=0x0050, text=» FTEXT '22DATA COMM WRITE ERROR : ' «, t00=0x005b, t01=0x004e}
0x8e9c…8eb8 Head {h00=0x0018, h01=0x0050, text=» FMEL '9999',STATUS «, t00=0x005b, t01=0x0084}
0x8eb8…8ec6 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005b, t01=0x00a0}
0x8ec6…8ece Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x00ae}
0x8ece…8ee2 Head {h00=0x0010, h01=0x0050, text=»SRLFMT FRMT «, t00=0x005b, t01=0x00b6}
0x8ee2…8efe Head {h00=0x0018, h01=0x0050, text=» FMEL '9999',SRLNBR «, t00=0x005b, t01=0x00ca}
0x8efe…8f0c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005b, t01=0x00e6}
0x8f0c…8f14 Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x00f4}
0x8f14…8f26 Head {h00=0x000e, h01=0x0050, text=»FCMD FRMT «, t00=0x005b, t01=0x00fc}
0x8f26…8f3a Head {h00=0x0010, h01=0x0050, text=» FCOPY ='22'«, t00=0x005b, t01=0x010e}
0x8f3a…8f64 Head {h00=0x0026, h01=0x0050, text=» FTEXT 'INVALID FUNCTION COMMAND' «, t00=0x005b, t01=0x0122}
0x8f64…8f72 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005b, t01=0x014c}
0x8f72…8f7a Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x015a}
0x8f7a…8f8e Head {h00=0x0010, h01=0x0050, text=»VARIUS FRMT «, t00=0x005b, t01=0x0162}
0x8f8e…8fa2 Head {h00=0x0010, h01=0x0050, text=» FCOPY ='22'«, t00=0x005b, t01=0x0176}
0x8fa2…8fb8 Head {h00=0x0012, h01=0x0050, text=» FCOPY VARIOUS«, t00=0x005b, t01=0x018a}
0x8fb8…8fc6 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005c, t01=0x0010}
0x8fc6…8fce Head {h00=0x0004, h01=0x0050, t00=0x005c, t01=0x001e}
0x8fce…8fe0 Head {h00=0x000e, h01=0x0050, text=»OPCMD FRMT«, t00=0x005c, t01=0x0026}
0x8fe0…9000 Head {h00=0x001c, h01=0x0050, text=» FCOPY =X'4131201B3142' «, t00=0x005c, t01=0x0038}
0x9000…901c Head {h00=0x0018, h01=0x0050, text=» FCOPY =X'311C1C1C' «, t00=0x005c, t01=0x0058}
0x901c…9032 Head {h00=0x0012, h01=0x0050, text=» FCOPY WKSTR7 «, t00=0x005c, t01=0x0074}
0x9032…9040 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005c, t01=0x008a}
0x9040…9048 Head {h00=0x0004, h01=0x0050, t00=0x005c, t01=0x0098}
0x9048…905a Head {h00=0x000e, h01=0x0050, text=»FMCMD FRMT«, t00=0x005c, t01=0x00a0}
0x905a…906e Head {h00=0x0010, h01=0x0050, text=» FCOPY ='22'«, t00=0x005c, t01=0x00b2}
0x906e…9092 Head {h00=0x0020, h01=0x0050, text=» FTEXT 'FUNCTIONAL COMMAND '«, t00=0x005c, t01=0x00c6}
0x9092…90a8 Head {h00=0x0012, h01=0x0050, text=» FCOPY WKSTR7 «, t00=0x005c, t01=0x00ea}
0x90a8…90c0 Head {h00=0x0014, h01=0x0050, text=» FTEXT ' SENT ' «, t00=0x005c, t01=0x0100}
0x90c0…90ce Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005c, t01=0x0118}
0x90ce…90d6 Head {h00=0x0004, h01=0x0050, t00=0x005c, t01=0x0126}
0x90d6…9110 Head {h00=0x0036, h01=0x0050, text=»FORMATS FTABLE FMT1,FMT2,FMT3,FMT4,FMT5,FMT6,FMT7 «, t00=0x005c, t01=0x012e}
0x9110…9118 Head {h00=0x0004, h01=0x0050, t00=0x005c, t01=0x0168}
0x9118…912a Head {h00=0x000e, h01=0x0050, text=»FMT1 FRMT «, t00=0x005c, t01=0x0170}
0x912a…9140 Head {h00=0x0012, h01=0x0050, text=» FTEXT 'WDR ' «, t00=0x005c, t01=0x0182}
0x9140…915c Head {h00=0x0018, h01=0x0050, text=» FMEL '9999',SRLNBR «, t00=0x005d, t01=0x0008}
0x915c…917a Head {h00=0x001a, h01=0x0050, text=» FMEL '********9',PBCD«, t00=0x005d, t01=0x0024}
0x917a…9190 Head {h00=0x0012, h01=0x0050, text=» FTEXT ',00 ' «, t00=0x005d, t01=0x0042}
0x9190…91a6 Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x005d, t01=0x0058}
0x91a6…91b4 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005d, t01=0x006e}
0x91b4…91bc Head {h00=0x0004, h01=0x0050, t00=0x005d, t01=0x007c}
0x91bc…91ce Head {h00=0x000e, h01=0x0050, text=»FMT2 FRMT «, t00=0x005d, t01=0x0084}
0x91ce…91e4 Head {h00=0x0012, h01=0x0050, text=» FTEXT 'DEP ' «, t00=0x005d, t01=0x0096}
0x91e4…9200 Head {h00=0x0018, h01=0x0050, text=» FMEL '9999',SRLNBR «, t00=0x005d, t01=0x00ac}
0x9200…9222 Head {h00=0x001e, h01=0x0050, text=» FMEL '********9,99-',PBCD«, t00=0x005d, t01=0x00c8}
0x9222…9238 Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x005d, t01=0x00ea}
0x9238…9246 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005d, t01=0x0100}
0x9246…924e Head {h00=0x0004, h01=0x0050, t00=0x005d, t01=0x010e}
0x924e…9260 Head {h00=0x000e, h01=0x0050, text=»FMT3 FRMT «, t00=0x005d, t01=0x0116}
0x9260…9276 Head {h00=0x0012, h01=0x0050, text=» FTEXT 'ENQ ' «, t00=0x005d, t01=0x0128}
0x9276…9292 Head {h00=0x0018, h01=0x0050, text=» FMEL '9999',SRLNBR «, t00=0x005d, t01=0x013e}
0x9292…92a8 Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x005d, t01=0x015a}
0x92a8…92b6 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005d, t01=0x0170}
0x92b6…92be Head {h00=0x0004, h01=0x0050, t00=0x005d, t01=0x017e}
0x92be…92d0 Head {h00=0x000e, h01=0x0050, text=»FMT4 FRMT «, t00=0x005d, t01=0x0186}
0x92d0…92e6 Head {h00=0x0012, h01=0x0050, text=» FTEXT 'XFR ' «, t00=0x005e, t01=0x0008}
0x92e6…9302 Head {h00=0x0018, h01=0x0050, text=» FMEL '9999',SRLNBR «, t00=0x005e, t01=0x001e}
0x9302…9324 Head {h00=0x001e, h01=0x0050, text=» FMEL '********9,99-',PBCD«, t00=0x005e, t01=0x003a}
0x9324…933a Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x005e, t01=0x005c}
0x933a…9356 Head {h00=0x0018, h01=0x0050, text=» FTEXT 'TO ACCOUNT '«, t00=0x005e, t01=0x0072}
0x9356…936a Head {h00=0x0010, h01=0x0050, text=» FCOPY GPBC «, t00=0x005e, t01=0x008e}
0x936a…9380 Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x005e, t01=0x00a2}
0x9380…938e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005e, t01=0x00b8}
0x938e…9396 Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x00c6}
0x9396…93a8 Head {h00=0x000e, h01=0x0050, text=»FMT5 FRMT «, t00=0x005e, t01=0x00ce}
0x93a8…93be Head {h00=0x0012, h01=0x0050, text=» FILLR '*',25 «, t00=0x005e, t01=0x00e0}
0x93be…93d4 Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x005e, t01=0x00f6}
0x93d4…93e2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005e, t01=0x010c}
0x93e2…93ea Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x011a}
0x93ea…93fc Head {h00=0x000e, h01=0x0050, text=»FMT6 FRMT «, t00=0x005e, t01=0x0122}
0x93fc…9412 Head {h00=0x0012, h01=0x0050, text=» FILLR '*',25 «, t00=0x005e, t01=0x0134}
0x9412…9428 Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x005e, t01=0x014a}
0x9428…9436 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005e, t01=0x0160}
0x9436…943e Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x016e}
0x943e…9450 Head {h00=0x000e, h01=0x0050, text=»FMT7 FRMT «, t00=0x005e, t01=0x0176}
0x9450…9466 Head {h00=0x0012, h01=0x0050, text=» FILLR X'0C',1«, t00=0x005e, t01=0x0188}
0x9466…9474 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005f, t01=0x000e}
0x9474…947c Head {h00=0x0004, h01=0x0050, t00=0x005f, t01=0x001c}
0x947c…9484 Head {h00=0x0004, h01=0x0050, t00=0x005f, t01=0x0024}
0x9484…9490 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x005f, t01=0x002c}
0x9490…9494 Head {h00=0x4004, h01=0x0000}
0x9494…9498 00 5f 00 38 ┆ _ 8┆
0x9498…94a0 (96, 1, 8) 20 04 00 00 00 60 00 04 ┆ ` ┆
0x94a0…94f0 (97, 0, 400) 15 22 02 22 32 21 8f 41 28 00 65 8f 00 74 65 01 8d 2d 61 8d 2a 74 00 73 00 38 01 82 00 2a 00 26 03 12 00 00 04 cf 00 00 30 01 8e 2d 01 74 28 68 8d 73 74 8e 30 31 6a 6f 24 73 8d 30 02 24 73 57 13 00 74 16 15 31 00 39 00 20 00 2a 00 26 03 12 ┆ " "2! A( e te -a *t s 8 * & 0 - t(h st 01jo$s 0 $sW t 1 9 * & ┆
0x94f0…9540 00 00 04 ed 00 00 20 74 30 0a 6a 6f 24 74 18 15 30 02 24 74 57 73 00 28 22 68 1c 15 28 31 69 30 31 50 66 20 00 39 00 4e 00 2a 00 26 03 12 00 00 05 0b 00 00 63 30 62 01 69 3b 62 6f 24 32 69 30 02 24 32 01 69 2e 00 28 22 68 1c 15 28 31 69 30 ┆ t0 jo$t 0 $tWs ("h (1i01Pf 9 N * & c0b i;bo$2i0 $2 i. ("h (1i0┆
0x9540…9590 31 54 00 39 00 7c 00 2a 00 26 03 12 00 00 05 29 00 00 3d 02 22 32 6a 11 31 31 1c 15 22 6a 23 30 32 13 11 30 6a 26 31 31 13 11 32 04 22 31 00 2a 00 39 00 aa 00 2a 00 26 03 12 00 00 05 47 00 00 30 6a 2a 31 31 1c 15 22 02 2a 26 24 2a 63 08 01 ┆1T 9 | * & ) = "2j 11 "j#02 0j&11 2 "1 * 9 * & G 0j*11 " *&$*c ┆
0x9590…95e0 7a 69 81 01 13 57 09 04 2a 26 62 4a 2a 26 00 39 00 d8 00 2a 00 26 03 12 00 00 05 65 00 00 12 23 62 6f 24 63 4a 30 02 24 63 30 09 94 6f 24 30 04 14 2a 80 09 36 29 08 00 07 07 07 00 00 39 01 06 00 2a 00 26 03 12 00 00 05 83 00 00 07 07 07 41 ┆zi W *&bJ*& 9 * & e #bo$cJ0 $c0 o$0 * 6) 9 * & A┆
0x95e0…9630 21 81 01 23 57 06 00 51 2a 81 01 26 00 70 30 34 00 30 06 14 29 21 2a 29 29 21 00 39 01 34 00 2a 00 26 03 12 00 00 05 a1 00 00 12 36 2a 03 02 07 02 57 10 01 28 10 57 0b 01 28 11 57 06 36 2a 03 02 00 00 34 00 40 24 5f 00 39 01 62 00 2a 00 26 ┆! #W Q* & p04 0 )!*))! 9 4 * & 6* W ( W ( W 6* 4 @$_ 9 b * &┆
0x9630…9680 (98, 0, 400) 03 12 00 00 05 bf 00 00 11 00 29 31 20 2a 30 31 02 29 31 20 2a 31 2a 02 29 31 21 2a 16 23 02 29 31 21 2a 19 1c 02 00 39 01 90 00 2a 00 26 03 12 00 00 05 dd 00 00 29 31 21 2a 28 15 02 29 31 20 2a 38 0e 21 2a 1d 0a 02 29 31 21 2a 20 03 02 29 ┆ )1 *01 )1 *1* )1!* # )1!* 9 * & )1!*( )1 *8 !* )1!* )┆
0x9680…96d0 31 34 00 31 00 3a 00 2e 00 2a 00 26 03 12 00 00 05 fb 00 00 0a 90 00 52 02 34 00 5f 02 30 0b 00 22 30 01 00 30 68 53 22 25 2d 30 31 20 22 30 0d 2b 22 00 3a 00 5c 00 2a 00 26 03 12 00 00 06 19 00 00 02 03 01 22 02 6a 00 30 22 53 30 02 22 31 ┆14 1 : . * & R 4 _ 0 "0 0hS"%-01 "0 +" : * & " j 0"S0 "1┆
0x96d0…9720 66 53 30 22 28 22 31 02 41 01 34 00 64 53 30 3c 00 3a 00 8a 00 2a 00 26 03 12 00 00 06 37 00 00 6a 30 02 25 3c 04 25 31 30 09 94 53 25 30 04 14 2a 80 09 20 29 31 0f 20 29 35 0b 00 51 2a 00 3a 00 b8 00 2a 00 26 03 12 00 00 06 55 00 00 81 01 ┆fS0"("1 A 4 dS0< : * & 7 j0 %< %10 S%0 * )1 )5 Q* : * & U ┆
0x9720…9770 26 06 30 31 34 00 01 25 28 30 07 93 53 25 30 04 13 2a 80 09 20 29 31 08 00 51 29 81 00 3a 00 e6 00 2a 00 26 03 12 00 00 06 73 00 00 01 25 5f 1f 01 69 5b 00 29 34 68 53 29 39 69 30 39 56 17 01 69 43 00 29 37 68 53 29 32 69 00 3a 01 14 00 2a ┆& 014 %(0 S%0 * )1 Q) : * & s %_ i[ )4hS)9i09V iC )7hS)2i : *┆
0x9770…97c0 00 26 03 12 00 00 06 91 00 00 30 32 5e 38 01 7a 6a 81 01 13 5f 45 06 30 30 34 00 30 01 91 02 00 25 39 30 0c d1 53 10 25 00 3a 01 42 00 2a 00 26 03 12 00 00 06 af 00 00 27 34 00 30 01 91 02 00 93 31 30 0c 51 9d 10 93 92 34 00 01 53 30 01 25 ┆ & 02^8 zj _E 004 0 %90 S % : B * & '4 0 10 Q 4 S0 %┆
0x97c0…9810 (99, 0, 400) 28 30 07 13 53 25 00 3a 01 70 00 2a 00 26 03 12 00 00 06 cd 00 00 34 00 81 01 24 61 53 18 00 25 3b 30 09 94 53 25 30 04 14 2a 80 09 20 29 31 0f 20 29 35 0b 00 3b 00 0e 00 2a 00 26 03 12 00 00 06 eb 00 00 00 51 2a 81 01 26 06 30 31 34 00 01 ┆(0 S% : p * & 4 $aS %;0 S%0 * )1 )5 ; * & Q* & 014 ┆
0x9810…9860 25 28 01 53 30 30 07 93 53 25 30 04 13 2a 80 09 20 29 00 3b 00 3c 00 2a 00 26 03 12 00 00 07 09 00 00 31 0b 00 51 29 81 01 25 06 30 31 34 00 01 8f 3c 00 2a 25 04 2a 31 00 2b 30 68 53 2b 2a 8f 00 3b 00 6a 00 2a 00 26 03 12 00 00 07 27 00 00 ┆%( S00 S%0 * ) ; < * & 1 Q) % 014 < *% *1 +0hS+* ; j * & ' ┆
0x9860…98b0 30 32 52 46 02 2b 32 00 72 30 02 72 31 22 72 34 39 6a 8f 30 32 53 2b 62 8e 30 31 8f 31 29 00 3b 00 98 00 2a 00 26 03 12 00 00 07 45 00 00 8e 31 03 01 8f 45 30 0d 90 31 72 33 31 8f 33 00 2a 30 30 0d 2a 33 31 8f 31 00 90 32 72 30 00 3b 00 c6 ┆02RF +2 r0 r1"r49j 02S+b 01 1) ; * & E 1 E0 1r31 3 *00 *31 1 2r0 ; ┆
0x98b0…9900 00 2a 00 26 03 12 00 00 07 63 00 00 29 2a 15 05 00 90 32 72 31 02 2b 32 5f 40 06 30 30 34 00 00 a0 39 00 a2 42 04 a0 31 24 a0 00 3b 00 f4 00 2a 00 26 03 12 00 00 07 81 00 00 31 32 80 13 5f 0b 12 95 a0 a2 10 01 a3 77 24 a2 95 a0 09 04 a2 95 ┆ * & c )* 2r1 +2_@ 004 9 B 1$ ; * & 12 _ w$ ┆
0x9900…9950 a0 03 a3 78 5f 0e 00 a1 00 3b 01 22 00 2a 00 26 03 12 00 00 07 9f 00 00 a0 04 a1 31 02 a1 a1 00 a4 a3 62 9b a1 32 a4 32 21 a2 77 07 5f 39 06 30 31 34 00 06 30 30 00 3b 01 50 00 2a 00 26 03 12 00 00 07 bd 00 00 34 00 00 a1 30 02 a1 31 22 a1 ┆ x_ ; " * & 1 b 2 2! w _9 014 00 ; P * & 4 0 1" ┆
0x9950…99a0 (100, 0, 400) 34 0e 18 90 31 a1 a0 0d 10 90 32 a1 31 13 34 02 34 00 00 a2 00 3b 01 7e 00 2a 00 26 03 12 00 00 07 db 00 00 42 80 14 57 13 00 a6 95 a1 0a a2 a6 08 a2 a6 28 a2 42 05 06 30 30 34 00 06 30 31 34 00 00 00 3c 00 1c 00 2a 00 26 03 12 00 00 07 f9 ┆4 1 2 1 4 4 ; ~ * & B W ( B 004 014 < * & ┆
0x99a0…99f0 00 00 a0 30 00 a1 38 02 a0 31 22 a0 34 19 10 90 31 a0 30 0d 10 90 32 a0 31 13 1c 90 31 a0 a1 19 00 3c 00 4a 00 2a 00 26 03 12 00 00 08 17 00 00 00 a1 90 31 a0 5f 20 28 a1 38 02 34 00 34 02 01 7a 75 81 01 13 80 15 50 05 81 01 1c 5f 0f 00 3c ┆ 0 8 1" 4 1 0 2 1 1 < J * & 1 _ ( 8 4 4 zu P _ <┆
0x99f0…9a40 00 78 00 2a 00 26 03 12 00 00 08 35 00 00 01 54 30 81 01 15 18 27 31 19 04 25 31 54 06 01 53 53 00 25 36 62 7e 31 30 38 54 30 62 7e 00 3c 00 a6 00 2a 00 26 03 12 00 00 08 53 00 00 31 30 25 53 30 62 7e 31 38 36 7b 30 40 71 82 16 31 80 50 08 ┆ x * & 5 T0 '1 %1T SS %6b~108T0b~ < * & S 10%S0b~186{0@q 1 P ┆
0x9a40…9a90 01 7a 60 81 01 13 57 d3 01 8e 00 3c 00 d4 00 2a 00 26 03 12 00 00 08 71 00 00 33 80 08 5c 07 01 7a 6d 81 01 13 41 23 01 6a 63 00 60 30 00 76 30 00 77 30 01 7d 30 80 17 00 3c 01 02 00 2a 00 26 03 12 00 00 08 8f 00 00 54 9d 80 17 54 99 80 17 ┆ z` W < * & q 3 zm A# jc `0 v0 w0 }0 < * & T T ┆
0x9a90…9ae0 54 95 41 70 6a 72 30 32 7d 60 02 60 32 6a 73 30 32 7d 60 02 60 32 00 3c 01 30 00 2a 00 26 03 12 00 00 08 ad 00 00 6a 75 30 32 7d 60 02 60 32 04 75 34 01 53 2d 6a 53 30 75 7d 60 00 25 75 00 65 72 61 69 11 00 3c 01 5e 00 2a 00 26 03 12 00 00 ┆T Apjr02}` `2js02}` `2 < 0 * & ju02}` `2 u4 S-jS0u}` %u erai < ^ * & ┆