|
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: 39662 (0x9aee)
Notes: pts_type(SC)
Names: »TABSIM.SC«
└─⟦cd4bbebb4⟧ Bits:30009680 Philips computer tape "600221"
└─⟦this⟧ »ATM/TABSIM.SC«
IDENT TABSIM 830729 NJ
**********************************************************
* *
* 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
ENTERK EQU X'0D' ENTER KEY CODE
CANCEL EQU X'0A' CANCEL KEY CODE
DLLD EQU X'18' FORCE DOWNLINELOAD
PENGE EQU X'00' LOAD MORE MONEY
KLOKKEN EQU X'00' SET TIME
NYTBDT EQU X'00' NYTT BUNTNR.
LUKKES EQU X'00' CLOSE MACHINE
KTAB1 KTAB ENTERK,CANCEL,DLLD,PENGE,KLOKKEN,NYTBDT,LUKKES
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
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
MOVE WKB1,=W'27' POINT AT AFFECTED SERIALNUMBER
XCOPY WKSTR7,COB0,COB1,FCBLD(FCBLDX),WKB1 COPY IT
MOVE WKBCD1,WKSTR7 CONVERT TO BCD
MOVE WKB1,WKBCD1 CONVERT TO BIN
ADD SRLNBR(WKB1),=D'1' INCREMENT SERIAL NUNBER
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'
GETTIME KL HENT KLOKKEN
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
SUB BEHOLDN(WKB2A,COB1),DENOM(WKB2A)
ADD BEHOLDN(WKB2A,COB2),DENOM(WKB2A) MONEY PAID
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 KL
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(WKB1)
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,FMT8,FMT9
FMT1 FRMT
FTEXT 'WDR '
FCOPY WKSTG4
FMEL '********9',PBCD
FTEXT ',00 '
FILLR X'0A',1
FMEND
FMT2 FRMT
FTEXT 'DEP '
FCOPY WKSTG4
FMEL '********9,99-',PBCD
FILLR X'0A',1
FMEND
FMT3 FRMT
FTEXT 'ENQ '
FCOPY WKSTG4
FILLR X'0A',1
FMEND
FMT4 FRMT
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
FMT8 FRMT
FILLR '*',25
FILLR X'0A',1
FTEXT 'BEHOLDNING/UTLEVERT'
FILLR X'0A',2
FILLR '1',1
FMEL '*********9',BEHOLDN(COB1,COB1)
FILLR '/',1
FMEL '*********9',BEHOLDN(COB1,COB2)
FILLR X'0A',2
FILLR '2',1
FMEL '*********9',BEHOLDN(COB2,COB1)
FILLR '/',1
FMEL '*********9',BEHOLDN(COB2,COB2)
FILLR X'0A',2
FILLR '*',25
FILLR X'0A',1
FMEND
FMT9 FRMT
FILLR '*',25
FILLR X'0A',1
FTEXT 'SJEKKHEFTET KAN HENTES'
FILLR X'0A',2
FTEXT 'VED HENVENDELSE I KASSE 1'
FILLR X'0A',2
FMEND
END
0x0000…0020 (0, 0, 400) Head {h00=0x001c, h01=0x0050, text=» IDENT TABSIM 830729 NJ «, t00=0x0000, t01=0x0004}
0x0020…0028 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0024}
0x0028…0030 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x002c}
0x0030…0072 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0000, t01=0x0034}
0x0072…00b4 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0000, t01=0x0076}
0x00b4…00f6 Head {h00=0x003e, h01=0x0050, text=»* THIS PROCEDURE CONTAINS MOST OF THE SUBROUTES REQUIRED *«, t00=0x0000, t01=0x00b8}
0x00f6…0138 Head {h00=0x003e, h01=0x0050, text=»* FOR TESTING THE PTS 6601 *«, t00=0x0000, t01=0x00fa}
0x0138…017a Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0000, t01=0x013c}
0x017a…01bc Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0000, t01=0x017e}
0x01bc…01c4 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0030}
0x01c4…01cc Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0038}
0x01cc…01de Head {h00=0x000e, h01=0x0050, text=» DDUM DDIV«, t00=0x0001, t01=0x0040}
0x01de…01ec Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0001, t01=0x0052}
0x01ec…0202 Head {h00=0x0012, h01=0x0050, text=» ENTRY SENDFC «, t00=0x0001, t01=0x0060}
0x0202…0218 Head {h00=0x0012, h01=0x0050, text=» ENTRY CUSREQ «, t00=0x0001, t01=0x0076}
0x0218…022e Head {h00=0x0012, h01=0x0050, text=» ENTRY SOLLST «, t00=0x0001, t01=0x008c}
0x022e…0244 Head {h00=0x0012, h01=0x0050, text=» ENTRY UNSTAT «, t00=0x0001, t01=0x00a2}
0x0244…025a Head {h00=0x0012, h01=0x0050, text=» ENTRY OPENLN «, t00=0x0001, t01=0x00b8}
0x025a…0270 Head {h00=0x0012, h01=0x0050, text=» ENTRY READOK «, t00=0x0001, t01=0x00ce}
0x0270…0286 Head {h00=0x0012, h01=0x0050, text=» ENTRY ADDPOL «, t00=0x0001, t01=0x00e4}
0x0286…029a Head {h00=0x0010, h01=0x0050, text=» ENTRY KBINP«, t00=0x0001, t01=0x00fa}
0x029a…02ae Head {h00=0x0010, h01=0x0050, text=» ENTRY KINW «, t00=0x0001, t01=0x010e}
0x02ae…02c2 Head {h00=0x0010, h01=0x0050, text=» ENTRY DCNW «, t00=0x0001, t01=0x0122}
0x02c2…02d8 Head {h00=0x0012, h01=0x0050, text=» ENTRY DLLATM «, t00=0x0001, t01=0x0136}
0x02d8…02ec Head {h00=0x0010, h01=0x0050, text=» ENTRY RECHK«, t00=0x0001, t01=0x014c}
0x02ec…0302 Head {h00=0x0012, h01=0x0050, text=» ENTRY SCRIBE «, t00=0x0001, t01=0x0160}
0x0302…0318 Head {h00=0x0012, h01=0x0050, text=» ENTRY OPRCMD «, t00=0x0001, t01=0x0176}
0x0318…0320 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x018c}
0x0320…0336 (2, 0, 400) Head {h00=0x0012, h01=0x0050, text=» EXPROC LOADER«, t00=0x0002, t01=0x0004}
0x0336…034a Head {h00=0x0010, h01=0x0050, text=» EXT RECASM «, t00=0x0002, t01=0x001a}
0x034a…035c Head {h00=0x000e, h01=0x0050, text=» EXT COPY4«, t00=0x0002, t01=0x002e}
0x035c…0364 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0040}
0x0364…036c Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0048}
0x036c…0394 Head {h00=0x0024, h01=0x0050, text=»ENTERK EQU X'0D' ENTER KEY CODE «, t00=0x0002, t01=0x0050}
0x0394…03bc Head {h00=0x0024, h01=0x0050, text=»CANCEL EQU X'0A' CANCEL KEY CODE«, t00=0x0002, t01=0x0078}
0x03bc…03e6 Head {h00=0x0026, h01=0x0050, text=»DLLD EQU X'18' FORCE DOWNLINELOAD «, t00=0x0002, t01=0x00a0}
0x03e6…040e Head {h00=0x0024, h01=0x0050, text=»PENGE EQU X'00' LOAD MORE MONEY «, t00=0x0002, t01=0x00ca}
0x040e…0430 Head {h00=0x001e, h01=0x0050, text=»KLOKKEN EQU X'00' SET TIME«, t00=0x0002, t01=0x00f2}
0x0430…0456 Head {h00=0x0022, h01=0x0050, text=»NYTBDT EQU X'00' NYTT BUNTNR. «, t00=0x0002, t01=0x0114}
0x0456…047c Head {h00=0x0022, h01=0x0050, text=»LUKKES EQU X'00' CLOSE MACHINE«, t00=0x0002, t01=0x013a}
0x047c…0484 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0160}
0x0484…04c6 Head {h00=0x003e, h01=0x0050, text=»KTAB1 KTAB ENTERK,CANCEL,DLLD,PENGE,KLOKKEN,NYTBDT,LUKKES «, t00=0x0002, t01=0x0168}
0x04c6…04ce Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x001a}
0x04ce…04d6 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0022}
0x04d6…04e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x002a}
0x04e4…04f8 Head {h00=0x0010, h01=0x0050, text=»READOK PROC «, t00=0x0003, t01=0x0038}
0x04f8…0502 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x004c}
0x0502…0522 Head {h00=0x001c, h01=0x0050, text=»****** READ OK«, t00=0x0003, t01=0x0056}
0x0522…052c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0076}
0x052c…0560 Head {h00=0x0030, h01=0x0050, text=» CBE LENGTH,COB0,READ10 READ AGAIN IF LEN=0 «, t00=0x0003, t01=0x0080}
0x0560…0580 Head {h00=0x001c, h01=0x0050, text=» CBNG LENGTH,COB4,READ20«, t00=0x0003, t01=0x00b4}
0x0580…05b8 Head {h00=0x0034, h01=0x0050, text=» DLETE BUFIN,COB0,COB4 DELETE CONTROL CHARACTERS«, t00=0x0003, t01=0x00d4}
0x05b8…05e4 Head {h00=0x0028, h01=0x0050, text=» SUB LENGTH,COB4 REDUCE LENGTH BY 4 «, t00=0x0003, t01=0x010c}
0x05e4…0624 Head {h00=0x003c, h01=0x0050, text=» XCOPY BUFIN,LENGTH,COB2,FS,COB0 ADD 2 FIELD SEPERATORS «, t00=0x0003, t01=0x0138}
0x0624…0652 Head {h00=0x002a, h01=0x0050, text=» ADD LENGTH,COB2 INCREASE LENGTH BY 2 «, t00=0x0003, t01=0x0178}
0x0652…0694 Head {h00=0x003e, h01=0x0050, text=» XCOPY BIN1,COB0,COB2,BUFIN,COB0 COPY MESSAGE IDENTIFIERS «, t00=0x0004, t01=0x0016}
0x0694…06c0 Head {h00=0x0028, h01=0x0050, text=» CBE BIN1,=C'22',READ30 SOLL.STATUS «, t00=0x0004, t01=0x0058}
0x06c0…06ee Head {h00=0x002a, h01=0x0050, text=» CBE BIN1,=C'12',READ40 UNSOLL.STATUS «, t00=0x0004, t01=0x0084}
0x06ee…071e Head {h00=0x002c, h01=0x0050, text=» CBE BIN1,=C'11',READ50 CUSTOMER REQUEST«, t00=0x0004, t01=0x00b2}
0x071e…0752 Head {h00=0x0030, h01=0x0050, text=» MOVE VARIOUS,=C'INVALID MESSAGE RECEIVED ' «, t00=0x0004, t01=0x00e2}
0x0752…076e Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0004, t01=0x0116}
0x076e…078c Head {h00=0x001a, h01=0x0050, text=»READ02 FIND NEXT FS «, t00=0x0004, t01=0x0132}
0x078c…07a4 Head {h00=0x0014, h01=0x0050, text=» MOVE PNT1,COB0 «, t00=0x0004, t01=0x0150}
0x07a4…07e0 Head {h00=0x0038, h01=0x0050, text=» MATCH BUFIN,PNT1,LENGTH,FS,COB0,COB1 SEARCH FOR FS «, t00=0x0004, t01=0x0168}
0x07e0…07fc Head {h00=0x0018, h01=0x0050, text=» BNZ READ04 NO MATCH«, t00=0x0005, t01=0x0014}
0x07fc…0838 Head {h00=0x0038, h01=0x0050, text=» XCOPY BUFIN,PNT1,COB1,CHAR2,COB0 EXCHANGE FS FOR . «, t00=0x0005, t01=0x0030}
0x0838…0856 Head {h00=0x001a, h01=0x0050, text=» B READ02 FIND NEXT FS«, t00=0x0005, t01=0x006c}
0x0856…0870 Head {h00=0x0016, h01=0x0050, text=»READ04 NO MATCH «, t00=0x0005, t01=0x008a}
0x0870…0898 Head {h00=0x0024, h01=0x0050, text=» MOVE BIN3,=W'80' SET BIN3 TO 80«, t00=0x0005, t01=0x00a4}
0x0898…08b4 Head {h00=0x0018, h01=0x0050, text=»READ06 TEST LENGTH«, t00=0x0005, t01=0x00cc}
0x08b4…08e6 Head {h00=0x002e, h01=0x0050, text=» CBL LENGTH,BIN3,READ08 TEST FOR LENGTH<80«, t00=0x0005, t01=0x00e8}
0x08e6…0924 Head {h00=0x003a, h01=0x0050, text=» XCOPY INFO,COB0,BIN3,BUFIN,COB0 COPY BUFIN INTO INFO «, t00=0x0005, t01=0x011a}
0x0924…094a Head {h00=0x0022, h01=0x0050, text=» PERF SCRIBE,INF DISPLAY DATA«, t00=0x0005, t01=0x0158}
0x094a…0980 Head {h00=0x0032, h01=0x0050, text=» DLETE BUFIN,COB0,BIN3 DELETE DATA FROM BUFIN «, t00=0x0005, t01=0x017e}
0x0980…09ac Head {h00=0x0028, h01=0x0050, text=» SUB LENGTH,BIN3 REDUCE LENGTH BY 80«, t00=0x0006, t01=0x0024}
0x09ac…09d0 Head {h00=0x0020, h01=0x0050, text=» B READ06 TEST LENGTH AGAIN «, t00=0x0006, t01=0x0050}
0x09d0…09ea Head {h00=0x0016, h01=0x0050, text=»READ08 LENGTH<80«, t00=0x0006, t01=0x0074}
0x09ea…0a0e Head {h00=0x0020, h01=0x0050, text=» MOVE INFO,=C' ' CLEAR INFO «, t00=0x0006, t01=0x008e}
0x0a0e…0a52 Head {h00=0x0040, h01=0x0050, text=» XCOPY INFO,COB0,LENGTH,BUFIN,COB0 REMAINING DATA INTO INFO «, t00=0x0006, t01=0x00b2}
0x0a52…0a7a Head {h00=0x0024, h01=0x0050, text=» PERF SCRIBE,INF DISPLAY DATA «, t00=0x0006, t01=0x00f6}
0x0a7a…0a82 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x011e}
0x0a82…0a9e Head {h00=0x0018, h01=0x0050, text=»READ10 DO NEW READ«, t00=0x0006, t01=0x0126}
0x0a9e…0ab6 Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB0«, t00=0x0006, t01=0x0142}
0x0ab6…0ac8 Head {h00=0x000e, h01=0x0050, text=» B READ90 «, t00=0x0006, t01=0x015a}
0x0ac8…0ad0 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x016c}
0x0ad0…0aec Head {h00=0x0018, h01=0x0050, text=»READ20 LENGTH < 5 «, t00=0x0006, t01=0x0174}
0x0aec…0b10 Head {h00=0x0020, h01=0x0050, text=» MOVE INFO,=C' ' CLEAR INFO «, t00=0x0006, t01=0x0190}
0x0b10…0b54 Head {h00=0x0040, h01=0x0050, text=» XCOPY INFO,COB0,LENGTH,BUFIN,COB0 REMAINING DATA INTO INFO «, t00=0x0007, t01=0x0024}
0x0b54…0b7c Head {h00=0x0024, h01=0x0050, text=» PERF SCRIBE,INF DISPLAY DATA «, t00=0x0007, t01=0x0068}
0x0b7c…0b94 Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB0«, t00=0x0007, t01=0x0090}
0x0b94…0ba6 Head {h00=0x000e, h01=0x0050, text=» B READ90 «, t00=0x0007, t01=0x00a8}
0x0ba6…0bae Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x00ba}
0x0bae…0bca Head {h00=0x0018, h01=0x0050, text=»READ30 SOLL.STATUS«, t00=0x0007, t01=0x00c2}
0x0bca…0be2 Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB1«, t00=0x0007, t01=0x00de}
0x0be2…0bf4 Head {h00=0x000e, h01=0x0050, text=» B READ90 «, t00=0x0007, t01=0x00f6}
0x0bf4…0bfc Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0108}
0x0bfc…0c1a Head {h00=0x001a, h01=0x0050, text=»READ40 UNSOLL.STATUS«, t00=0x0007, t01=0x0110}
0x0c1a…0c32 Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB2«, t00=0x0007, t01=0x012e}
0x0c32…0c44 Head {h00=0x000e, h01=0x0050, text=» B READ90 «, t00=0x0007, t01=0x0146}
0x0c44…0c4c Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0158}
0x0c4c…0c6e Head {h00=0x001e, h01=0x0050, text=»READ50 CUSTOMER REQUEST «, t00=0x0007, t01=0x0160}
0x0c6e…0c86 Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB3«, t00=0x0007, t01=0x0182}
0x0c86…0c98 Head {h00=0x000e, h01=0x0050, text=» B READ90 «, t00=0x0008, t01=0x000a}
0x0c98…0ca0 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x001c}
0x0ca0…0cbc Head {h00=0x0018, h01=0x0050, text=»READ90 EXIT POINT «, t00=0x0008, t01=0x0024}
0x0cbc…0cc8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0008, t01=0x0040}
0x0cc8…0cd6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0008, t01=0x004c}
0x0cd6…0ce4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x005a}
0x0ce4…0cf8 Head {h00=0x0010, h01=0x0050, text=»CUSREQ PROC «, t00=0x0008, t01=0x0068}
0x0cf8…0d02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x007c}
0x0d02…0d2c Head {h00=0x0026, h01=0x0050, text=»****** CUSTOMER REQUEST «, t00=0x0008, t01=0x0086}
0x0d2c…0d36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00b0}
0x0d36…0d4a Head {h00=0x0010, h01=0x0050, text=» CLEAR ERROR«, t00=0x0008, t01=0x00ba}
0x0d4a…0d86 Head {h00=0x0038, h01=0x0050, text=» DLETE BUFIN,COB0,COB9 REMOVE UNWANTED MESSAGE DATA «, t00=0x0008, t01=0x00ce}
0x0d86…0db6 Head {h00=0x002c, h01=0x0050, text=» SUB LENGTH,COB9 SUBTRACT 9 FROM LENGTH «, t00=0x0008, t01=0x010a}
0x0db6…0dda Head {h00=0x0020, h01=0x0050, text=» CLEAR F1 CLEAR FLAGS F1-F9 «, t00=0x0008, t01=0x013a}
0x0dda…0dec Head {h00=0x000e, h01=0x0050, text=» CLEAR F2 «, t00=0x0008, t01=0x015e}
0x0dec…0dfe Head {h00=0x000e, h01=0x0050, text=» CLEAR F3«, t00=0x0008, t01=0x0170}
0x0dfe…0e10 Head {h00=0x000e, h01=0x0050, text=» CLEAR F4 «, t00=0x0008, t01=0x0182}
0x0e10…0e22 (9, 0, 400) Head {h00=0x000e, h01=0x0050, text=» CLEAR F5 «, t00=0x0009, t01=0x0004}
0x0e22…0e34 Head {h00=0x000e, h01=0x0050, text=» CLEAR F6 «, t00=0x0009, t01=0x0016}
0x0e34…0e46 Head {h00=0x000e, h01=0x0050, text=» CLEAR F7 «, t00=0x0009, t01=0x0028}
0x0e46…0e58 Head {h00=0x000e, h01=0x0050, text=» CLEAR F8 «, t00=0x0009, t01=0x003a}
0x0e58…0e6a Head {h00=0x000e, h01=0x0050, text=» CLEAR F9 «, t00=0x0009, t01=0x004c}
0x0e6a…0ea4 Head {h00=0x0036, h01=0x0050, text=» PERF UNLOAD,COMB,F1,=W'2' TXFG AND MESS COMBINED «, t00=0x0009, t01=0x005e}
0x0ea4…0ed6 Head {h00=0x002e, h01=0x0050, text=» XCOPY TXFG,COB0,COB1,COMB,COB0 COPY TXFG «, t00=0x0009, t01=0x0098}
0x0ed6…0f08 Head {h00=0x002e, h01=0x0050, text=» XCOPY MESS,COB0,COB1,COMB,COB1 COPY MESS «, t00=0x0009, t01=0x00ca}
0x0f08…0f38 Head {h00=0x002c, h01=0x0050, text=» PERF UNLOAD,TK2D,F2,=W'40' TRACK 2 DATA«, t00=0x0009, t01=0x00fc}
0x0f38…0f6a Head {h00=0x002e, h01=0x0050, text=» PERF UNLOAD,TK3D,F3,=W'106' TRACK 3 DATA «, t00=0x0009, t01=0x012c}
0x0f6a…0f9c Head {h00=0x002e, h01=0x0050, text=» MOVE TK3DL,PNT1 STORE TRACK 3 DATA LENGTH«, t00=0x0009, t01=0x015e}
0x0f9c…0fce Head {h00=0x002e, h01=0x0050, text=» PERF UNLOAD,OPKY,F4,=W'8' OPERATION KEYS «, t00=0x0009, t01=0x0190}
0x0fce…1002 Head {h00=0x0030, h01=0x0050, text=» PERF UNLOAD,PPPP,F5,=W'16' POUNDS AND PENCE«, t00=0x000a, t01=0x0032}
0x1002…103e Head {h00=0x0038, h01=0x0050, text=» PERF UNLOAD,GPBA,F6,=W'32' GENERAL PURPOSE BUFFER A«, t00=0x000a, t01=0x0066}
0x103e…1056 Head {h00=0x0014, h01=0x0050, text=» MOVE GPBA,=C' '«, t00=0x000a, t01=0x00a2}
0x1056…1092 Head {h00=0x0038, h01=0x0050, text=» PERF UNLOAD,GPBB,F7,=W'32' GENERAL PURPOSE BUFFER B«, t00=0x000a, t01=0x00ba}
0x1092…10ce Head {h00=0x0038, h01=0x0050, text=» PERF UNLOAD,GPBC,F8,=W'32' GENERAL PURPOSE BUFFER C«, t00=0x000a, t01=0x00f6}
0x10ce…10fe Head {h00=0x002c, h01=0x0050, text=» PERF UNLOAD,TK1D,F9,=W'80' TRACK 1 DATA«, t00=0x000a, t01=0x0132}
0x10fe…1132 Head {h00=0x0030, h01=0x0050, text=» MOVE PBCD,PPPP MOVE 'MONEY' INTO BCD FIELD «, t00=0x000a, t01=0x0162}
0x1132…113a Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0008}
0x113a…1154 Head {h00=0x0016, h01=0x0050, text=» MOVE NOTES,=C'0' «, t00=0x000b, t01=0x0010}
0x1154…117a Head {h00=0x0022, h01=0x0050, text=» CBNE OPKY,=C'A ',CUSR02«, t00=0x000b, t01=0x002a}
0x117a…119a Head {h00=0x001c, h01=0x0050, text=» CBL PBCD,=D'100',CUSR07«, t00=0x000b, t01=0x0050}
0x119a…11cc Head {h00=0x002e, h01=0x0050, text=» DIV PBCD,=D'100' THROW AWAY DECIMAL PART «, t00=0x000b, t01=0x0070}
0x11cc…11f8 Head {h00=0x0028, h01=0x0050, text=» CBG PBCD,DLIMIT,CUSR07 ABOVE LIMIT?«, t00=0x000b, t01=0x00a2}
0x11f8…120c Head {h00=0x0010, h01=0x0050, text=» PERF LOMULT«, t00=0x000b, t01=0x00ce}
0x120c…1220 Head {h00=0x0010, h01=0x0050, text=» BNOK CUSR07«, t00=0x000b, t01=0x00e2}
0x1220…1244 Head {h00=0x0020, h01=0x0050, text=» PERF NOTMIX COMPUTE NOTEMIX«, t00=0x000b, t01=0x00f6}
0x1244…1256 Head {h00=0x000e, h01=0x0050, text=» B CUSR08 «, t00=0x000b, t01=0x011a}
0x1256…125e Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x012c}
0x125e…126c Head {h00=0x000a, h01=0x0050, text=»CUSR02«, t00=0x000b, t01=0x0134}
0x126c…1292 Head {h00=0x0022, h01=0x0050, text=» CBNE OPKY,=C'B ',CUSR04«, t00=0x000b, t01=0x0142}
0x1292…12a4 Head {h00=0x000e, h01=0x0050, text=» B CUSR08 «, t00=0x000b, t01=0x0168}
0x12a4…12ac Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x017a}
0x12ac…12ba Head {h00=0x000a, h01=0x0050, text=»CUSR04«, t00=0x000b, t01=0x0182}
0x12ba…12e0 Head {h00=0x0022, h01=0x0050, text=» CBNE OPKY,=C'C ',CUSR06«, t00=0x000b, t01=0x0190}
0x12e0…12f2 Head {h00=0x000e, h01=0x0050, text=» B CUSR08 «, t00=0x000c, t01=0x0026}
0x12f2…12fa Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0038}
0x12fa…1308 Head {h00=0x000a, h01=0x0050, text=»CUSR06«, t00=0x000c, t01=0x0040}
0x1308…132e Head {h00=0x0022, h01=0x0050, text=» CBNE OPKY,=C'D ',CUSR08«, t00=0x000c, t01=0x004e}
0x132e…1340 Head {h00=0x000e, h01=0x0050, text=» B CUSR08 «, t00=0x000c, t01=0x0074}
0x1340…1348 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0086}
0x1348…1372 Head {h00=0x0026, h01=0x0050, text=»CUSR07 INVALID AMOUNT ENCOUNTERD«, t00=0x000c, t01=0x008e}
0x1372…138c Head {h00=0x0016, h01=0x0050, text=» MOVE OPKY,=C'X ' «, t00=0x000c, t01=0x00b8}
0x138c…139e Head {h00=0x000e, h01=0x0050, text=» SET ERROR«, t00=0x000c, t01=0x00d2}
0x139e…13a6 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x00e4}
0x13a6…13ae Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x00ec}
0x13ae…13bc Head {h00=0x000a, h01=0x0050, text=»CUSR08«, t00=0x000c, t01=0x00f4}
0x13bc…13f8 Head {h00=0x0038, h01=0x0050, text=» MOVE BIN2,LENGTHS(COB2) BIN2 EQUALS LENGTH OF TK1D1«, t00=0x000c, t01=0x0102}
0x13f8…1438 Head {h00=0x003c, h01=0x0050, text=» XCOPY TK1D1,COB0,BIN2,TK1D,COB0 COPY FIRST HALF OF TK1D«, t00=0x000c, t01=0x013e}
0x1438…1474 Head {h00=0x0038, h01=0x0050, text=» MOVE BIN3,LENGTHS(COB3) BIN3 EQUALS LENGTH OF TK1D2«, t00=0x000c, t01=0x017e}
0x1474…14b6 Head {h00=0x003e, h01=0x0050, text=» XCOPY TK1D2,COB0,BIN3,TK1D,BIN2 COPY SECOND HALF OF TK1D «, t00=0x000d, t01=0x002a}
0x14b6…14f6 Head {h00=0x003c, h01=0x0050, text=» XCOPY TK3D1,COB0,BIN2,TK3D,COB0 COPY FIRST HALF OF TK3D«, t00=0x000d, t01=0x006c}
0x14f6…1532 Head {h00=0x0038, h01=0x0050, text=» MOVE BIN3,LENGTHS(COB7) BIN3 EQUALS LENGTH OF TK3D2«, t00=0x000d, t01=0x00ac}
0x1532…1574 Head {h00=0x003e, h01=0x0050, text=» XCOPY TK3D2,COB0,BIN3,TK3D,BIN2 COPY SECOND HALF OF TK3D «, t00=0x000d, t01=0x00e8}
0x1574…15b6 Head {h00=0x003e, h01=0x0050, text=» COPY WKSTG1,COB0,COB1,MESS,COB0 STORE TRUE VALUE OF MESS «, t00=0x000d, t01=0x012a}
0x15b6…15f0 Head {h00=0x0036, h01=0x0050, text=» PERF SCRIBE,CUSTRQ DISPLAY CUSTOMER REQUEST DATA«, t00=0x000d, t01=0x016c}
0x15f0…162c Head {h00=0x0038, h01=0x0050, text=» COPY MESS,COB0,COB1,WKSTG1,COB0 RESET VALUE OF MESS«, t00=0x000e, t01=0x0016}
0x162c…1634 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0052}
0x1634…166c Head {h00=0x0034, h01=0x0050, text=» MOVE FCBLDX,COB1 SET FCBLD INDEX TO FIRST ITEM «, t00=0x000e, t01=0x005a}
0x166c…1674 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0092}
0x1674…169a Head {h00=0x0022, h01=0x0050, text=»CUSR10 MATCH OPERATION KEYS «, t00=0x000e, t01=0x009a}
0x169a…16cc Head {h00=0x002e, h01=0x0050, text=» MOVE PNT1,COB0 SET PNT1 TO START OF DATA «, t00=0x000e, t01=0x00c0}
0x16cc…1712 Head {h00=0x0042, h01=0x0050, text=» MATCH FCBLD(FCBLDX),PNT1,COB8,OPKY,COB0,COB8 COMPARE STRINGS «, t00=0x000e, t01=0x00f2}
0x1712…1724 Head {h00=0x000e, h01=0x0050, text=» BZ CUSR90«, t00=0x000e, t01=0x0138}
0x1724…175c Head {h00=0x0034, h01=0x0050, text=» CBE FCBLDX,=W'30',CUSR20 TEST FOR END OF TABLE «, t00=0x000e, t01=0x014a}
0x175c…1784 Head {h00=0x0024, h01=0x0050, text=» ADD FCBLDX,COB1 INCREMENT INDEX«, t00=0x000e, t01=0x0182}
0x1784…17ae Head {h00=0x0026, h01=0x0050, text=» B CUSR10 SEARCH FCBLD TABLE AGAIN«, t00=0x000f, t01=0x001a}
0x17ae…17b6 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0044}
0x17b6…17d6 Head {h00=0x001c, h01=0x0050, text=»CUSR20 NO MATCH FOUND «, t00=0x000f, t01=0x004c}
0x17d6…17f0 Head {h00=0x0016, h01=0x0050, text=» PERF SCRIBE,FCMD «, t00=0x000f, t01=0x006c}
0x17f0…181a Head {h00=0x0026, h01=0x0050, text=» MOVE FCBLDX,COB1 DEFAULT COMMAND «, t00=0x000f, t01=0x0086}
0x181a…1822 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x00b0}
0x1822…1830 Head {h00=0x000a, h01=0x0050, text=»CUSR90«, t00=0x000f, t01=0x00b8}
0x1830…184a Head {h00=0x0016, h01=0x0050, text=» TBF ERROR,CUSR95 «, t00=0x000f, t01=0x00c6}
0x184a…1866 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,AMTERR «, t00=0x000f, t01=0x00e0}
0x1866…1874 Head {h00=0x000a, h01=0x0050, text=»CUSR95«, t00=0x000f, t01=0x00fc}
0x1874…188c Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB0«, t00=0x000f, t01=0x010a}
0x188c…1898 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000f, t01=0x0122}
0x1898…18a6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000f, t01=0x012e}
0x18a6…18ae Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x013c}
0x18ae…18bc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0144}
0x18bc…18d0 Head {h00=0x0010, h01=0x0050, text=»SOLLST PROC «, t00=0x000f, t01=0x0152}
0x18d0…18da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0166}
0x18da…190c Head {h00=0x002e, h01=0x0050, text=»****** SOLICITED STATUS MESSAGE «, t00=0x000f, t01=0x0170}
0x190c…1916 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0012}
0x1916…194c Head {h00=0x0032, h01=0x0050, text=» TBT RESFG,SOLL010 TEST RESPONSE EXPECTED FLAG«, t00=0x0010, t01=0x001c}
0x194c…1982 Head {h00=0x0032, h01=0x0050, text=» MOVE VARIOUS,=C'UNEXPECTED MESSAGE RECEIVED '«, t00=0x0010, t01=0x0052}
0x1982…199e Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0010, t01=0x0088}
0x199e…19a6 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x00a4}
0x19a6…19d0 Head {h00=0x0026, h01=0x0050, text=»SOLL010 UNLOAD STATUS DESCRIPTOR«, t00=0x0010, t01=0x00ac}
0x19d0…1a02 Head {h00=0x002e, h01=0x0050, text=» CLEAR RESFG CLEAR RESPONSE EXPECTED FLAG «, t00=0x0010, t01=0x00d6}
0x1a02…1a3e Head {h00=0x0038, h01=0x0050, text=» DLETE BUFIN,COB0,COB7 DELETE UPTO STATUS DESCRIPTOR«, t00=0x0010, t01=0x0108}
0x1a3e…1a64 Head {h00=0x0022, h01=0x0050, text=» CLEAR DUMMY CLEAR DUMMY FLAG «, t00=0x0010, t01=0x0144}
0x1a64…1a9e Head {h00=0x0036, h01=0x0050, text=» PERF UNLOAD,STAT,DUMMY,=W'1' COPY DATA INTO STAT «, t00=0x0010, t01=0x016a}
0x1a9e…1ad6 Head {h00=0x0034, h01=0x0050, text=» CBE STAT,=C'8',SOLL040 DEVICE FAULT,CONFIG.DATA«, t00=0x0011, t01=0x0014}
0x1ad6…1afc Head {h00=0x0022, h01=0x0050, text=» CBE STAT,=C'9',SOLL020 READY «, t00=0x0011, t01=0x004c}
0x1afc…1b2a Head {h00=0x002a, h01=0x0050, text=» CBE STAT,=C'A',SOLL030 COMMAND REJECT«, t00=0x0011, t01=0x0072}
0x1b2a…1b50 Head {h00=0x0022, h01=0x0050, text=» CBE STAT,=C'B',SOLL020 READY «, t00=0x0011, t01=0x00a0}
0x1b50…1b58 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x00c6}
0x1b58…1b70 Head {h00=0x0014, h01=0x0050, text=»SOLL020 READY «, t00=0x0011, t01=0x00ce}
0x1b70…1b90 Head {h00=0x001c, h01=0x0050, text=» MOVE VARIOUS,=C'READY '«, t00=0x0011, t01=0x00e6}
0x1b90…1bac Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0011, t01=0x0106}
0x1bac…1bbe Head {h00=0x000e, h01=0x0050, text=» B SOLL080«, t00=0x0011, t01=0x0122}
0x1bbe…1bc6 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x0134}
0x1bc6…1be6 Head {h00=0x001c, h01=0x0050, text=»SOLL030 COMMAND REJECT«, t00=0x0011, t01=0x013c}
0x1be6…1c10 Head {h00=0x0026, h01=0x0050, text=» MOVE VARIOUS,=C'COMMAND REJECT ' «, t00=0x0011, t01=0x015c}
0x1c10…1c2c Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0011, t01=0x0186}
0x1c2c…1c3e Head {h00=0x000e, h01=0x0050, text=» B SOLL090«, t00=0x0012, t01=0x0012}
0x1c3e…1c46 Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x0024}
0x1c46…1c64 Head {h00=0x001a, h01=0x0050, text=»SOLL040 DEVICE FAULT«, t00=0x0012, t01=0x002c}
0x1c64…1c8a Head {h00=0x0022, h01=0x0050, text=» CLEAR DUMMY CLEAR DUMMY FLAG «, t00=0x0012, t01=0x004a}
0x1c8a…1cca Head {h00=0x003c, h01=0x0050, text=» PERF UNLOAD,COMB2,DUMMY,=W'2' COPY DID + DEVICE STATUS«, t00=0x0012, t01=0x0070}
0x1cca…1cfa Head {h00=0x002c, h01=0x0050, text=» XCOPY DID,COB1,COB1,COMB2,COB0 COPY DID«, t00=0x0012, t01=0x00b0}
0x1cfa…1d2e Head {h00=0x0030, h01=0x0050, text=» SUB DID,=W'49' CONVERT DID TO INDEX VALUE «, t00=0x0012, t01=0x00e0}
0x1d2e…1d5c Head {h00=0x002a, h01=0x0050, text=» SUB PNT1,COB2 SET PNT1 TO DATA LENGTH«, t00=0x0012, t01=0x0114}
0x1d5c…1d90 Head {h00=0x0030, h01=0x0050, text=» MOVE DEVST,=C' ' CLEAR DEVICE STATUS FIELD «, t00=0x0012, t01=0x0142}
0x1d90…1dd2 Head {h00=0x003e, h01=0x0050, text=» XCOPY DEVST,COB0,PNT1,COMB2,COB1 COPY DEVICE STATUS DATA «, t00=0x0012, t01=0x0176}
0x1dd2…1dfe Head {h00=0x0028, h01=0x0050, text=» MOVE WKSTG4,=X'1D' GROUP SEPRARATOR«, t00=0x0013, t01=0x0028}
0x1dfe…1e2a Head {h00=0x0028, h01=0x0050, text=» MOVE BIN4,=W'32' LENGTH OF 'DEVST' «, t00=0x0013, t01=0x0054}
0x1e2a…1e42 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN3,COB0 «, t00=0x0013, t01=0x0080}
0x1e42…1e56 Head {h00=0x0010, h01=0x0050, text=» CLEAR DUMMY«, t00=0x0013, t01=0x0098}
0x1e56…1e90 Head {h00=0x0036, h01=0x0050, text=» MATCH DEVST,BIN3,BIN4,WKSTG4,COB0,COB1 ANY <GS>? «, t00=0x0013, t01=0x00ac}
0x1e90…1eb8 Head {h00=0x0024, h01=0x0050, text=» BNOK SOLL050 NO, NOT THIS TIME «, t00=0x0013, t01=0x00e6}
0x1eb8…1ed6 Head {h00=0x001a, h01=0x0050, text=» SET DUMMY <GS> FOUND «, t00=0x0013, t01=0x010e}
0x1ed6…1ee6 Head {h00=0x000c, h01=0x0050, text=»SOLL050 «, t00=0x0013, t01=0x012c}
0x1ee6…1f12 Head {h00=0x0028, h01=0x0050, text=» PERF SCRIBE,ERROR 'DEVICE--STATUS'«, t00=0x0013, t01=0x013c}
0x1f12…1f48 Head {h00=0x0032, h01=0x0050, text=»* HERE THE GROUP IDENTIFIERS PLUS THE STATUS- «, t00=0x0013, t01=0x0168}
0x1f48…1f70 Head {h00=0x0024, h01=0x0050, text=»* HANDLING SHOULD BE IMPLEMENTED«, t00=0x0014, t01=0x000e}
0x1f70…1f9c Head {h00=0x0028, h01=0x0050, text=» CMP DID,COB1 TEST FOR PRINTER FAULT«, t00=0x0014, t01=0x0036}
0x1f9c…1fb0 Head {h00=0x0010, h01=0x0050, text=» BE SOLL090 «, t00=0x0014, t01=0x0062}
0x1fb0…1fda Head {h00=0x0026, h01=0x0050, text=» MOVE FCBLDX,COB1 SET FCBLDX INDEX«, t00=0x0014, t01=0x0076}
0x1fda…1fea Head {h00=0x000c, h01=0x0050, text=»SOLL080 «, t00=0x0014, t01=0x00a0}
0x1fea…2010 Head {h00=0x0022, h01=0x0050, text=» MOVE RETUR,COB1 READ LINE MSG«, t00=0x0014, t01=0x00b0}
0x2010…2022 Head {h00=0x000e, h01=0x0050, text=» B SOLL095«, t00=0x0014, t01=0x00d6}
0x2022…2032 Head {h00=0x000c, h01=0x0050, text=»SOLL090 «, t00=0x0014, t01=0x00e8}
0x2032…2056 Head {h00=0x0020, h01=0x0050, text=» MOVE RETUR,COB0 RETRY READ «, t00=0x0014, t01=0x00f8}
0x2056…2066 Head {h00=0x000c, h01=0x0050, text=»SOLL095 «, t00=0x0014, t01=0x011c}
0x2066…2072 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0014, t01=0x012c}
0x2072…2080 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0014, t01=0x0138}
0x2080…208e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0146}
0x208e…20a2 Head {h00=0x0010, h01=0x0050, text=»OPENLN PROC «, t00=0x0014, t01=0x0154}
0x20a2…20ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0168}
0x20ac…20d6 Head {h00=0x0026, h01=0x0050, text=»****** OPEN LINE TO ATM «, t00=0x0014, t01=0x0172}
0x20d6…20e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x000c}
0x20e0…210e Head {h00=0x002a, h01=0x0050, text=» MOVE BIN2,=X'00A2' CODE FOR OPEN LINE«, t00=0x0015, t01=0x0016}
0x210e…2120 Head {h00=0x000e, h01=0x0050, text=» PERF OPL «, t00=0x0015, t01=0x0044}
0x2120…2146 Head {h00=0x0022, h01=0x0050, text=» IB BIN3,OPL010,OPL020,OPL030 «, t00=0x0015, t01=0x0056}
0x2146…2158 Head {h00=0x000e, h01=0x0050, text=» B OPL030 «, t00=0x0015, t01=0x007c}
0x2158…2160 Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x008e}
0x2160…217c Head {h00=0x0018, h01=0x0050, text=»OPL010 LINE OPENED«, t00=0x0015, t01=0x0096}
0x217c…2190 Head {h00=0x0010, h01=0x0050, text=» CLEAR MESFG«, t00=0x0015, t01=0x00b2}
0x2190…21b6 Head {h00=0x0022, h01=0x0050, text=» MOVE VARIOUS,=C'LINE OPENED '«, t00=0x0015, t01=0x00c6}
0x21b6…21d2 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0015, t01=0x00ec}
0x21d2…21ee Head {h00=0x0018, h01=0x0050, text=» MOVE RETUR,COB0 OK «, t00=0x0015, t01=0x0108}
0x21ee…2200 Head {h00=0x000e, h01=0x0050, text=» B OPL090 «, t00=0x0015, t01=0x0124}
0x2200…2208 Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x0136}
0x2208…222a Head {h00=0x001e, h01=0x0050, text=»OPL020 MODEM INOPERABLE «, t00=0x0015, t01=0x013e}
0x222a…2256 Head {h00=0x0028, h01=0x0050, text=» TBT MESFG,OPL025 ALREADY DISPLAYED?«, t00=0x0015, t01=0x0160}
0x2256…2282 Head {h00=0x0028, h01=0x0050, text=» MOVE VARIOUS,=C'LINE NOT OPERABLE '«, t00=0x0015, t01=0x018c}
0x2282…229e Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0016, t01=0x0028}
0x229e…22ce Head {h00=0x002c, h01=0x0050, text=» SET MESFG SET 'MESSAGE DISPLAYED' FLAG «, t00=0x0016, t01=0x0044}
0x22ce…22dc Head {h00=0x000a, h01=0x0050, text=»OPL025«, t00=0x0016, t01=0x0074}
0x22dc…22f4 Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB1«, t00=0x0016, t01=0x0082}
0x22f4…2306 Head {h00=0x000e, h01=0x0050, text=» B OPL090 «, t00=0x0016, t01=0x009a}
0x2306…230e Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x00ac}
0x230e…2330 Head {h00=0x001e, h01=0x0050, text=»OPL030 LINE ALREADY OPEN«, t00=0x0016, t01=0x00b4}
0x2330…235c Head {h00=0x0028, h01=0x0050, text=» MOVE BIN2,=X'00A4' CLOSE LINE CODE «, t00=0x0016, t01=0x00d6}
0x235c…2378 Head {h00=0x0018, h01=0x0050, text=» PERF OPL CLOSE LINE«, t00=0x0016, t01=0x0102}
0x2378…2392 Head {h00=0x0016, h01=0x0050, text=» DELAY TIME DELAY «, t00=0x0016, t01=0x011e}
0x2392…23aa Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB2«, t00=0x0016, t01=0x0138}
0x23aa…23b2 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0150}
0x23b2…23c0 Head {h00=0x000a, h01=0x0050, text=»OPL090«, t00=0x0016, t01=0x0158}
0x23c0…23cc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0016, t01=0x0166}
0x23cc…23da Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0016, t01=0x0172}
0x23da…23e8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0180}
0x23e8…23fc Head {h00=0x0010, h01=0x0050, text=»ADDPOL PROC «, t00=0x0016, t01=0x018e}
0x23fc…2406 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0012}
0x2406…2434 Head {h00=0x002a, h01=0x0050, text=»****** ADD ATM TO POLL LIST «, t00=0x0017, t01=0x001c}
0x2434…243e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x004a}
0x243e…2454 Head {h00=0x0012, h01=0x0050, text=» CLEAR INACTIV«, t00=0x0017, t01=0x0054}
0x2454…2462 Head {h00=0x000a, h01=0x0050, text=»ADD005«, t00=0x0017, t01=0x006a}
0x2462…2496 Head {h00=0x0030, h01=0x0050, text=» MOVE BIN2,=X'00B7' 'ADD TO POLL LIST' CODE «, t00=0x0017, t01=0x0078}
0x2496…24d2 Head {h00=0x0038, h01=0x0050, text=» CALL RECASM,DSCMOP,BIN2,ADR,BIN3 ASS. SUBROUTINE «, t00=0x0017, t01=0x00ac}
0x24d2…24f8 Head {h00=0x0022, h01=0x0050, text=» IB BIN3,ADD010,ADD020,ADD030 «, t00=0x0017, t01=0x00e8}
0x24f8…2524 Head {h00=0x0028, h01=0x0050, text=» MOVE RETUR,COB1 RETURNCODE INVALID «, t00=0x0017, t01=0x010e}
0x2524…2536 Head {h00=0x000e, h01=0x0050, text=» B ADD090 «, t00=0x0017, t01=0x013a}
0x2536…253e Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x014c}
0x253e…254c Head {h00=0x000a, h01=0x0050, text=»ADD010«, t00=0x0017, t01=0x0154}
0x254c…2566 Head {h00=0x0016, h01=0x0050, text=» PERF SCRIBE,POLL «, t00=0x0017, t01=0x0162}
0x2566…257e Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB0«, t00=0x0017, t01=0x017c}
0x257e…2590 (24, 0, 400) Head {h00=0x000e, h01=0x0050, text=» B ADD090 «, t00=0x0018, t01=0x0004}
0x2590…2598 Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x0016}
0x2598…25ba Head {h00=0x001e, h01=0x0050, text=»ADD020 MODEM INOPERABLE «, t00=0x0018, t01=0x001e}
0x25ba…25d2 Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB2«, t00=0x0018, t01=0x0040}
0x25d2…25e4 Head {h00=0x000e, h01=0x0050, text=» B ADD090 «, t00=0x0018, t01=0x0058}
0x25e4…25ec Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x006a}
0x25ec…25fa Head {h00=0x000a, h01=0x0050, text=»ADD030«, t00=0x0018, t01=0x0072}
0x25fa…2620 Head {h00=0x0022, h01=0x0050, text=» TBT INACTIV,ADD040 2ND TIME? «, t00=0x0018, t01=0x0080}
0x2620…263a Head {h00=0x0016, h01=0x0050, text=» PERF SCRIBE,INACT«, t00=0x0018, t01=0x00a6}
0x263a…264e Head {h00=0x0010, h01=0x0050, text=» SET INACTIV«, t00=0x0018, t01=0x00c0}
0x264e…265c Head {h00=0x000a, h01=0x0050, text=»ADD040«, t00=0x0018, t01=0x00d4}
0x265c…266e Head {h00=0x000e, h01=0x0050, text=» B ADD005 «, t00=0x0018, t01=0x00e2}
0x266e…2676 Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x00f4}
0x2676…2684 Head {h00=0x000a, h01=0x0050, text=»ADD090«, t00=0x0018, t01=0x00fc}
0x2684…2690 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x010a}
0x2690…269e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0018, t01=0x0116}
0x269e…26ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0124}
0x26ac…26c0 Head {h00=0x0010, h01=0x0050, text=»UNSTAT PROC «, t00=0x0018, t01=0x0132}
0x26c0…26ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0146}
0x26ca…26fe Head {h00=0x0030, h01=0x0050, text=»****** UNSOLICITED STATUS MESSAGE «, t00=0x0018, t01=0x0150}
0x26fe…2708 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0184}
0x2708…2736 Head {h00=0x002a, h01=0x0050, text=» MOVE DID,COB3 FIND POWERFAIL MESSAGE «, t00=0x0018, t01=0x018e}
0x2736…276e Head {h00=0x0034, h01=0x0050, text=» MATCH BUFIN,DID,COB2,FS,COB0,COB2 AND EXPAND IT«, t00=0x0019, t01=0x002c}
0x276e…2784 Head {h00=0x0012, h01=0x0050, text=» BERR UNST010 «, t00=0x0019, t01=0x0064}
0x2784…27ae Head {h00=0x0026, h01=0x0050, text=» INSRT BUFIN,COB0,COB3,WKSTG1,COB0«, t00=0x0019, t01=0x007a}
0x27ae…27be Head {h00=0x000c, h01=0x0050, text=»UNST010 «, t00=0x0019, t01=0x00a4}
0x27be…27d4 Head {h00=0x0012, h01=0x0050, text=» MOVE DID,COB0«, t00=0x0019, t01=0x00b4}
0x27d4…280c Head {h00=0x0034, h01=0x0050, text=» DLETE BUFIN,COB0,COB8 DELETE UPTO STATUS SOURCE«, t00=0x0019, t01=0x00ca}
0x280c…2832 Head {h00=0x0022, h01=0x0050, text=» CLEAR DUMMY CLEAR DUMMY FLAG«, t00=0x0019, t01=0x0102}
0x2832…2876 Head {h00=0x0040, h01=0x0050, text=» PERF UNLOAD,COMB2,DUMMY,=W'2' STATUS SOURCE + DEVICE STATUS«, t00=0x0019, t01=0x0128}
0x2876…2890 Head {h00=0x0016, h01=0x0050, text=» TBT DUMMY,UNST020«, t00=0x0019, t01=0x016c}
0x2890…28ca Head {h00=0x0036, h01=0x0050, text=» XCOPY DID,COB1,COB1,COMB2,COB0 COPY STATUS SOURCE«, t00=0x0019, t01=0x0186}
0x28ca…2900 Head {h00=0x0032, h01=0x0050, text=» SUB DID,=W'48' CHANGE STATUS SOURCE TO INDEX «, t00=0x001a, t01=0x0030}
0x2900…2934 Head {h00=0x0030, h01=0x0050, text=» SUB PNT1,COB2 LENGTH OF DEVICE STATUS DATA «, t00=0x001a, t01=0x0066}
0x2934…2968 Head {h00=0x0030, h01=0x0050, text=» MOVE DEVST,=C' ' CLEAR DEVICE STATUS FIELD «, t00=0x001a, t01=0x009a}
0x2968…29aa Head {h00=0x003e, h01=0x0050, text=» XCOPY DEVST,COB0,PNT1,COMB2,COB1 COPY DEVICE STATUS DATA «, t00=0x001a, t01=0x00ce}
0x29aa…29e2 Head {h00=0x0034, h01=0x0050, text=» PERF SCRIBE,UNSS 'UNSOLICITED STATUS DD+SS ' «, t00=0x001a, t01=0x0110}
0x29e2…2a16 Head {h00=0x0030, h01=0x0050, text=» IB DID,UNST030,UNST040,UNST070,UNST045, C «, t00=0x001a, t01=0x0148}
0x2a16…2a40 Head {h00=0x0026, h01=0x0050, text=» UNST050,UNST055,UNST060,UNST065 «, t00=0x001a, t01=0x017c}
0x2a40…2a6c Head {h00=0x0028, h01=0x0050, text=» B UNST090 INVALID DEVICE,READ AGAIN«, t00=0x001b, t01=0x0016}
0x2a6c…2a74 Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x0042}
0x2a74…2a84 Head {h00=0x000c, h01=0x0050, text=»UNST020 «, t00=0x001b, t01=0x004a}
0x2a84…2ac0 Head {h00=0x0038, h01=0x0050, text=» MOVE VARIOUS,=C'UNSOLL.STATUS FROM UNKNOWN DEVICE '«, t00=0x001b, t01=0x005a}
0x2ac0…2adc Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x001b, t01=0x0096}
0x2adc…2b0a Head {h00=0x002a, h01=0x0050, text=» B UNST090 INVALID DEVICE, READ AGAIN «, t00=0x001b, t01=0x00b2}
0x2b0a…2b12 Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x00e0}
0x2b12…2b22 Head {h00=0x000c, h01=0x0050, text=»UNST030 «, t00=0x001b, t01=0x00e8}
0x2b22…2b44 Head {h00=0x001e, h01=0x0050, text=» POWER FAILURE OCCURRED.«, t00=0x001b, t01=0x00f8}
0x2b44…2b68 Head {h00=0x0020, h01=0x0050, text=» DOWNLINELOAD SCREENS ETC.«, t00=0x001b, t01=0x011a}
0x2b68…2b92 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN1,COB13 SET HEADER LENGTH«, t00=0x001b, t01=0x013e}
0x2b92…2bae Head {h00=0x0018, h01=0x0050, text=» MOVE WKSTG2,HEADER «, t00=0x001b, t01=0x0168}
0x2bae…2bbe Head {h00=0x000c, h01=0x0050, text=»UNST031 «, t00=0x001b, t01=0x0184}
0x2bbe…2bda (28, 0, 400) Head {h00=0x0018, h01=0x0050, text=» MOVE LENGTH,=W'256'«, t00=0x001c, t01=0x0004}
0x2bda…2c10 Head {h00=0x0032, h01=0x0050, text=» READ .NW,DSCMIP,BUFIN,LENGTH READ FOR ALARMS «, t00=0x001c, t01=0x0020}
0x2c10…2c30 Head {h00=0x001c, h01=0x0050, text=» DELAY COB10 WAIT 1 SEC «, t00=0x001c, t01=0x0056}
0x2c30…2c50 Head {h00=0x001c, h01=0x0050, text=» ABORT DSCMIP ABORT READ«, t00=0x001c, t01=0x0076}
0x2c50…2c78 Head {h00=0x0024, h01=0x0050, text=» BOK UNST032 READ NOT COMPLETE? «, t00=0x001c, t01=0x0096}
0x2c78…2c8c Head {h00=0x0010, h01=0x0050, text=» WAIT DSCMIP«, t00=0x001c, t01=0x00be}
0x2c8c…2caa Head {h00=0x001a, h01=0x0050, text=» B UNST031 READ AGAIN «, t00=0x001c, t01=0x00d2}
0x2caa…2cba Head {h00=0x000c, h01=0x0050, text=»UNST032 «, t00=0x001c, t01=0x00f0}
0x2cba…2cea Head {h00=0x002c, h01=0x0050, text=» PERF LOADER DOWNLINELOAD PARAMTERS ETC «, t00=0x001c, t01=0x0100}
0x2cea…2cfe Head {h00=0x0010, h01=0x0050, text=» BOK UNST034«, t00=0x001c, t01=0x0130}
0x2cfe…2d38 Head {h00=0x0036, h01=0x0050, text=» MOVE VARIOUS,=C'ERROR DURING DOWN-LINE LOADING ' «, t00=0x001c, t01=0x0144}
0x2d38…2d54 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x001c, t01=0x017e}
0x2d54…2d64 Head {h00=0x000c, h01=0x0050, text=»UNST033 «, t00=0x001d, t01=0x000a}
0x2d64…2d80 Head {h00=0x0018, h01=0x0050, text=» B UNST030 TRY AGAIN«, t00=0x001d, t01=0x001a}
0x2d80…2d88 Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0036}
0x2d88…2d98 Head {h00=0x000c, h01=0x0050, text=»UNST034 «, t00=0x001d, t01=0x003e}
0x2d98…2dbe Head {h00=0x0022, h01=0x0050, text=» MOVE WKSTR7,=C'3' CONFIG.DATA«, t00=0x001d, t01=0x004e}
0x2dbe…2de6 Head {h00=0x0024, h01=0x0050, text=» PERF OPRCMD OPERATIONAL COMMAND«, t00=0x001d, t01=0x0074}
0x2de6…2dfc Head {h00=0x0012, h01=0x0050, text=» BNOK UNST030 «, t00=0x001d, t01=0x009c}
0x2dfc…2e16 Head {h00=0x0016, h01=0x0050, text=» MOVE WKSTR7,=C'1'«, t00=0x001d, t01=0x00b2}
0x2e16…2e3c Head {h00=0x0022, h01=0x0050, text=» PERF OPRCMD SEND OPEN COMMAND«, t00=0x001d, t01=0x00cc}
0x2e3c…2e4e Head {h00=0x000e, h01=0x0050, text=» B UNST090«, t00=0x001d, t01=0x00f2}
0x2e4e…2e56 Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0104}
0x2e56…2e5e Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x010c}
0x2e5e…2e76 Head {h00=0x0014, h01=0x0050, text=»UNST040 ALARM «, t00=0x001d, t01=0x0114}
0x2e76…2e90 Head {h00=0x0016, h01=0x0050, text=»UNST045 PRINTERS«, t00=0x001d, t01=0x012c}
0x2e90…2eae Head {h00=0x001a, h01=0x0050, text=»UNST050 CARD READER «, t00=0x001d, t01=0x0146}
0x2eae…2ece Head {h00=0x001c, h01=0x0050, text=»UNST055 CONTROL PANEL «, t00=0x001d, t01=0x0164}
0x2ece…2eec Head {h00=0x001a, h01=0x0050, text=»UNST060 CARD WRITER «, t00=0x001d, t01=0x0184}
0x2eec…2f0c Head {h00=0x001c, h01=0x0050, text=»UNST065 VANDAL SHIELD «, t00=0x001e, t01=0x0012}
0x2f0c…2f1e Head {h00=0x000e, h01=0x0050, text=» B UNST090«, t00=0x001e, t01=0x0032}
0x2f1e…2f26 Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x0044}
0x2f26…2f3c Head {h00=0x0012, h01=0x0050, text=»UNST070 KEYS«, t00=0x001e, t01=0x004c}
0x2f3c…2f62 Head {h00=0x0022, h01=0x0050, text=» MOVE WKSTR7,=C'3' CONFIG.DATA«, t00=0x001e, t01=0x0062}
0x2f62…2f8a Head {h00=0x0024, h01=0x0050, text=» PERF OPRCMD OPERATIONAL COMMAND«, t00=0x001e, t01=0x0088}
0x2f8a…2fa0 Head {h00=0x0012, h01=0x0050, text=» BNOK UNST090 «, t00=0x001e, t01=0x00b0}
0x2fa0…2fce Head {h00=0x002a, h01=0x0050, text=» MOVE RETUR,COB0 SOLL.STATUS EXPECTED «, t00=0x001e, t01=0x00c6}
0x2fce…2fda Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001e, t01=0x00f4}
0x2fda…2fe2 Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x0100}
0x2fe2…2ff2 Head {h00=0x000c, h01=0x0050, text=»UNST090 «, t00=0x001e, t01=0x0108}
0x2ff2…300a Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB1«, t00=0x001e, t01=0x0118}
0x300a…3016 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001e, t01=0x0130}
0x3016…3024 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001e, t01=0x013c}
0x3024…3032 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x014a}
0x3032…3046 Head {h00=0x0010, h01=0x0050, text=»SENDFC PROC «, t00=0x001e, t01=0x0158}
0x3046…3050 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x016c}
0x3050…307e Head {h00=0x002a, h01=0x0050, text=»****** SEND FUNCTION COMMAND«, t00=0x001e, t01=0x0176}
0x307e…3088 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0014}
0x3088…30b4 Head {h00=0x0028, h01=0x0050, text=» MOVE PNT1,COB0 POINTER WITHIN FCBLD«, t00=0x001f, t01=0x001e}
0x30b4…30bc Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x004a}
0x30bc…3100 Head {h00=0x0040, h01=0x0050, text=» COPY OPKY,COB0,COB8,FCBLD(FCBLDX),COB0 COPY OPERATION KEYS «, t00=0x001f, t01=0x0052}
0x3100…3116 Head {h00=0x0012, h01=0x0050, text=» ADD PNT1,COB8«, t00=0x001f, t01=0x0096}
0x3116…3158 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x001f, t01=0x00ac}
0x3158…317c Head {h00=0x0020, h01=0x0050, text=»FC1 BUILD FUNCTION COMMAND«, t00=0x001f, t01=0x00ee}
0x317c…31c0 Head {h00=0x0040, h01=0x0050, text=» MOVE FCMESS,=X'4131201B3142341C1C1C20' LOAD STANDARD HEADER«, t00=0x001f, t01=0x0112}
0x31c0…31c8 Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x0156}
0x31c8…31fa Head {h00=0x002e, h01=0x0050, text=» MOVE PNT3,=W'10' SET PNT3 TO FIRST FREE «, t00=0x001f, t01=0x015e}
0x31fa…3214 Head {h00=0x0016, h01=0x0050, text=» BYTE IN FCMESS «, t00=0x001f, t01=0x0190}
0x3214…3256 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0020, t01=0x001a}
0x3256…326c Head {h00=0x0012, h01=0x0050, text=» NEXT STATE «, t00=0x0020, t01=0x005c}
0x326c…32b2 Head {h00=0x0042, h01=0x0050, text=» COPY FCMESS,PNT3,COB3,FCBLD(FCBLDX),PNT1 COPY STATE TO FCMESS«, t00=0x0020, t01=0x0072}
0x32b2…32e2 Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB3 INCREMENT FCMESS POINTER «, t00=0x0020, t01=0x00b8}
0x32e2…3310 Head {h00=0x002a, h01=0x0050, text=» ADD PNT1,COB3 INCREMENT FCBLD POINTER«, t00=0x0020, t01=0x00e8}
0x3310…3352 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0020, t01=0x0116}
0x3352…3368 Head {h00=0x0012, h01=0x0050, text=»FC2 LOAD FS.«, t00=0x0020, t01=0x0158}
0x3368…33a2 Head {h00=0x0036, h01=0x0050, text=» COPY FCMESS,PNT3,COB1,FS,COB0 COPY FS. TO FCMESS «, t00=0x0020, t01=0x016e}
0x33a2…33d2 Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB1 INCREMENT FCMESS POINTER «, t00=0x0021, t01=0x0018}
0x33d2…3414 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0021, t01=0x0048}
0x3414…344a Head {h00=0x0032, h01=0x0050, text=» COPY FCMESS,PNT3,COB16,NOTES,COB0 LOAD NOTES «, t00=0x0021, t01=0x008a}
0x344a…347c Head {h00=0x002e, h01=0x0050, text=» ADD PNT3,=W'16' INCREMENT FCMESS POINTER «, t00=0x0021, t01=0x00c0}
0x347c…34be Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0021, t01=0x00f2}
0x34be…34d4 Head {h00=0x0012, h01=0x0050, text=»FC4 LOAD FS.«, t00=0x0021, t01=0x0134}
0x34d4…350c Head {h00=0x0034, h01=0x0050, text=» COPY FCMESS,PNT3,COB1,FS,COB0 COPY FS TO FCMESS«, t00=0x0021, t01=0x014a}
0x350c…353c Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB1 INCREMENT FCMESS POINTER «, t00=0x0021, t01=0x0182}
0x353c…357e Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0022, t01=0x0022}
0x357e…35a2 Head {h00=0x0020, h01=0x0050, text=» TRANSACTION SERIAL NUMBER«, t00=0x0022, t01=0x0064}
0x35a2…35da Head {h00=0x0034, h01=0x0050, text=» MOVE WKB1,=W'27' POINT AT AFFECTED SERIALNUMBER«, t00=0x0022, t01=0x0088}
0x35da…3614 Head {h00=0x0036, h01=0x0050, text=» XCOPY WKSTR7,COB0,COB1,FCBLD(FCBLDX),WKB1 COPY IT«, t00=0x0022, t01=0x00c0}
0x3614…363e Head {h00=0x0026, h01=0x0050, text=» MOVE WKBCD1,WKSTR7 CONVERT TO BCD«, t00=0x0022, t01=0x00fa}
0x363e…3666 Head {h00=0x0024, h01=0x0050, text=» MOVE WKB1,WKBCD1 CONVERT TO BIN«, t00=0x0022, t01=0x0124}
0x3666…369e Head {h00=0x0034, h01=0x0050, text=» ADD SRLNBR(WKB1),=D'1' INCREMENT SERIAL NUNBER «, t00=0x0022, t01=0x014c}
0x369e…36c2 Head {h00=0x0020, h01=0x0050, text=» EDIT WKSTG4,SRLFMT EDIT IT «, t00=0x0022, t01=0x0184}
0x36c2…36ec Head {h00=0x0026, h01=0x0050, text=» COPY FCMESS,PNT3,COB4,WKSTG4,COB0«, t00=0x0023, t01=0x0018}
0x36ec…371c Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB4 INCREMENT FCMESS POINTER «, t00=0x0023, t01=0x0042}
0x371c…375e Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0023, t01=0x0072}
0x375e…3774 Head {h00=0x0012, h01=0x0050, text=» FUNCTION ID«, t00=0x0023, t01=0x00b4}
0x3774…37b6 Head {h00=0x003e, h01=0x0050, text=» COPY FCMESS,PNT3,COB1,FCBLD(FCBLDX),PNT1 COPY FUNCTION ID«, t00=0x0023, t01=0x00ca}
0x37b6…37e6 Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB1 INCREMENT FCMESS POINTER «, t00=0x0023, t01=0x010c}
0x37e6…3814 Head {h00=0x002a, h01=0x0050, text=» ADD PNT1,COB1 INCREMENT FCBLD POINTER«, t00=0x0023, t01=0x013c}
0x3814…3856 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0023, t01=0x016a}
0x3856…386e Head {h00=0x0014, h01=0x0050, text=» SCREEN NUMBER«, t00=0x0024, t01=0x001c}
0x386e…38ae Head {h00=0x003c, h01=0x0050, text=» COPY FCMESS,PNT3,COB3,FCBLD(FCBLDX),PNT1 COPY SCREEN NO«, t00=0x0024, t01=0x0034}
0x38ae…38de Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB3 INCREMENT FCMESS POINTER «, t00=0x0024, t01=0x0074}
0x38de…390c Head {h00=0x002a, h01=0x0050, text=» ADD PNT1,COB3 INCREMENT FCBLD POINTER«, t00=0x0024, t01=0x00a4}
0x390c…394e Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0024, t01=0x00d2}
0x394e…3994 Head {h00=0x0042, h01=0x0050, text=» XCOPY WKSTG4,COB0,COB4,FCBLD(FCBLDX),PNT1 EXTRACT FID+SCREEN «, t00=0x0024, t01=0x0114}
0x3994…39c2 Head {h00=0x002a, h01=0x0050, text=» ADD PNT1,COB4 INCREMENT FCBLD POINTER«, t00=0x0024, t01=0x015a}
0x39c2…39f2 Head {h00=0x002c, h01=0x0050, text=» CBE WKSTG4,=C'0000',FC4A NO FID+SCREEN «, t00=0x0024, t01=0x0188}
0x39f2…3a1e Head {h00=0x0028, h01=0x0050, text=» COPY FCMESS,PNT3,COB1,GS,COB0 <GS> «, t00=0x0025, t01=0x0028}
0x3a1e…3a4e Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB1 INCREMENT FCMESS POINTER «, t00=0x0025, t01=0x0054}
0x3a4e…3a84 Head {h00=0x0032, h01=0x0050, text=» COPY FCMESS,PNT3,COB4,WKSTG4,COB0 FID+SCREEN «, t00=0x0025, t01=0x0084}
0x3a84…3ab4 Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB4 INCREMENT FCMESS POINTER «, t00=0x0025, t01=0x00ba}
0x3ab4…3ac0 Head {h00=0x0008, h01=0x0050, text=»FC4A«, t00=0x0025, t01=0x00ea}
0x3ac0…3af2 Head {h00=0x002e, h01=0x0050, text=» XCOPY WKSTG4,COB0,COB4,FCBLD(FCBLDX),PNT1«, t00=0x0025, t01=0x00f6}
0x3af2…3b20 Head {h00=0x002a, h01=0x0050, text=» ADD PNT1,COB4 INCREMENT FCBLD POINTER«, t00=0x0025, t01=0x0128}
0x3b20…3b50 Head {h00=0x002c, h01=0x0050, text=» CBE WKSTG4,=C'0000',FC4B NO FID+SCREEN «, t00=0x0025, t01=0x0156}
0x3b50…3b76 Head {h00=0x0022, h01=0x0050, text=» COPY FCMESS,PNT3,COB1,GS,COB0«, t00=0x0025, t01=0x0186}
0x3b76…3b8c Head {h00=0x0012, h01=0x0050, text=» ADD PNT3,COB1«, t00=0x0026, t01=0x001c}
0x3b8c…3bc2 Head {h00=0x0032, h01=0x0050, text=» COPY FCMESS,PNT3,COB4,WKSTG4,COB0 FID+SCREEN «, t00=0x0026, t01=0x0032}
0x3bc2…3bd8 Head {h00=0x0012, h01=0x0050, text=» ADD PNT3,COB4«, t00=0x0026, t01=0x0068}
0x3bd8…3be4 Head {h00=0x0008, h01=0x0050, text=»FC4B«, t00=0x0026, t01=0x007e}
0x3be4…3c26 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0026, t01=0x008a}
0x3c26…3c3c Head {h00=0x0012, h01=0x0050, text=»FC5 LOAD FS.«, t00=0x0026, t01=0x00cc}
0x3c3c…3c76 Head {h00=0x0036, h01=0x0050, text=» COPY FCMESS,PNT3,COB1,FS,COB0 COPY FS. TO FCMESS «, t00=0x0026, t01=0x00e2}
0x3c76…3ca6 Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB1 INCREMENT FCMESS POINTER «, t00=0x0026, t01=0x011c}
0x3ca6…3ce8 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0026, t01=0x014c}
0x3ce8…3d0e Head {h00=0x0022, h01=0x0050, text=» MESSAGE COORDINATION NUMBER«, t00=0x0026, t01=0x018e}
0x3d0e…3d52 Head {h00=0x0040, h01=0x0050, text=» COPY FCMESS,PNT3,COB1,MESS,COB0 COPY MESSAGE CO-ORD NUMBER «, t00=0x0027, t01=0x0024}
0x3d52…3d82 Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB1 INCREMENT FCMESS POINTER «, t00=0x0027, t01=0x0068}
0x3d82…3dc4 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0027, t01=0x0098}
0x3dc4…3de6 Head {h00=0x001e, h01=0x0050, text=» CARD RETURN/RETAIN FLAG«, t00=0x0027, t01=0x00da}
0x3de6…3e2c Head {h00=0x0042, h01=0x0050, text=» COPY FCMESS,PNT3,COB1,FCBLD(FCBLDX),PNT1 COPY CARD'HOLD'FLAG «, t00=0x0027, t01=0x00fc}
0x3e2c…3e5c Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB1 INCREMENT FCMESS POINTER «, t00=0x0027, t01=0x0142}
0x3e5c…3e8a Head {h00=0x002a, h01=0x0050, text=» ADD PNT1,COB1 INCREMENT FCBLD POINTER«, t00=0x0027, t01=0x0172}
0x3e8a…3ecc Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0028, t01=0x0010}
0x3ecc…3ee4 Head {h00=0x0014, h01=0x0050, text=» PRINTER FLAG «, t00=0x0028, t01=0x0052}
0x3ee4…3f28 Head {h00=0x0040, h01=0x0050, text=» COPY FCMESS,PNT3,COB1,FCBLD(FCBLDX),PNT1 COPY PRINTER FLAG «, t00=0x0028, t01=0x006a}
0x3f28…3f5a Head {h00=0x002e, h01=0x0050, text=» COPY WKSTR7,COB0,COB1,FCBLD(FCBLDX),PNT1 «, t00=0x0028, t01=0x00ae}
0x3f5a…3f8a Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB1 INCREMENT FCMESS POINTER «, t00=0x0028, t01=0x00e0}
0x3f8a…3fb8 Head {h00=0x002a, h01=0x0050, text=» ADD PNT1,COB1 INCREMENT FCBLD POINTER«, t00=0x0028, t01=0x0110}
0x3fb8…3ffa Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0028, t01=0x013e}
0x3ffa…401a Head {h00=0x001c, h01=0x0050, text=» PRINTER DATA POINTER «, t00=0x0028, t01=0x0180}
0x401a…404a Head {h00=0x002c, h01=0x0050, text=» CBE WKSTR7,=C'0',FCP90 NO PRINTER FLAG «, t00=0x0029, t01=0x0010}
0x404a…4064 Head {h00=0x0016, h01=0x0050, text=»* RECEIPT PRINTER «, t00=0x0029, t01=0x0040}
0x4064…4082 Head {h00=0x001a, h01=0x0050, text=» CBNE TXFG,=C'1',FCP10«, t00=0x0029, t01=0x005a}
0x4082…40ba Head {h00=0x0034, h01=0x0050, text=»* EDIT HEADER ONLY IF FIRST TRANSACTION ON SLIP «, t00=0x0029, t01=0x0078}
0x40ba…40d4 Head {h00=0x0016, h01=0x0050, text=» MOVE FMBUF,=X'00'«, t00=0x0029, t01=0x00b0}
0x40d4…40f4 Head {h00=0x001c, h01=0x0050, text=» GETTIME KL HENT KLOKKEN«, t00=0x0029, t01=0x00ca}
0x40f4…4110 Head {h00=0x0018, h01=0x0050, text=» EDIT FMBUF,DATEFMT «, t00=0x0029, t01=0x00ea}
0x4110…4128 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN7,COB0 «, t00=0x0029, t01=0x0106}
0x4128…4142 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN6,=W'256'«, t00=0x0029, t01=0x011e}
0x4142…415e Head {h00=0x0018, h01=0x0050, text=» MOVE WKSTR7,=X'00' «, t00=0x0029, t01=0x0138}
0x415e…418e Head {h00=0x002c, h01=0x0050, text=» MATCH FMBUF,BIN7,BIN6,WKSTR7,COB0,COB1 «, t00=0x0029, t01=0x0154}
0x418e…41b8 Head {h00=0x0026, h01=0x0050, text=» XCOPY FCMESS,PNT3,BIN7,FMBUF,COB0«, t00=0x0029, t01=0x0184}
0x41b8…41ce Head {h00=0x0012, h01=0x0050, text=» ADD PNT3,BIN7«, t00=0x002a, t01=0x001e}
0x41ce…4200 Head {h00=0x002e, h01=0x0050, text=» MOVE COUNT,PLEN(COB1,COB2) SET LINELENGTH«, t00=0x002a, t01=0x0034}
0x4200…4240 Head {h00=0x003c, h01=0x0050, text=» XCOPY FCMESS,PNT3,COUNT,PNAT(COB1),COB0 "THANK YOU ..."«, t00=0x002a, t01=0x0066}
0x4240…4270 Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COUNT INCREMENT FCMESS POINTER«, t00=0x002a, t01=0x00a6}
0x4270…427e Head {h00=0x000a, h01=0x0050, text=»FCP10 «, t00=0x002a, t01=0x00d6}
0x427e…42bc Head {h00=0x003a, h01=0x0050, text=» XCOPY WKSTR8,COB0,COB2,FCBLD(FCBLDX),PNT1 FORMAT NBR «, t00=0x002a, t01=0x00e4}
0x42bc…42ea Head {h00=0x002a, h01=0x0050, text=» ADD PNT1,COB2 INCREMENT FCBLD POINTER«, t00=0x002a, t01=0x0122}
0x42ea…4318 Head {h00=0x002a, h01=0x0050, text=» CBE WKSTR8,=C'00',FCP30 USE PTAB/PLEN«, t00=0x002a, t01=0x0150}
0x4318…4334 Head {h00=0x0018, h01=0x0050, text=» MOVE WKBCD1,WKSTR8 «, t00=0x002a, t01=0x017e}
0x4334…434e Head {h00=0x0016, h01=0x0050, text=» MOVE BIN7,WKBCD1 «, t00=0x002b, t01=0x000a}
0x434e…4368 Head {h00=0x0016, h01=0x0050, text=» MOVE FMBUF,=X'00'«, t00=0x002b, t01=0x0024}
0x4368…439e Head {h00=0x0032, h01=0x0050, text=» EDIT FMBUF,FORMATS(BIN7) = FORMATS(SCREENNBR)«, t00=0x002b, t01=0x003e}
0x439e…43b6 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN6,COB0 «, t00=0x002b, t01=0x0074}
0x43b6…43d2 Head {h00=0x0018, h01=0x0050, text=» MOVE WKSTR7,=X'00' «, t00=0x002b, t01=0x008c}
0x43d2…43fa Head {h00=0x0024, h01=0x0050, text=» MOVE BIN7,=W'256' LENGTH FMBUF «, t00=0x002b, t01=0x00a8}
0x43fa…442a Head {h00=0x002c, h01=0x0050, text=» MATCH FMBUF,BIN6,BIN7,WKSTR7,COB0,COB1 «, t00=0x002b, t01=0x00d0}
0x442a…446a Head {h00=0x003c, h01=0x0050, text=» XCOPY FCMESS,PNT3,BIN6,FMBUF,COB0 MOVE ONLY GOOD LENGTH«, t00=0x002b, t01=0x0100}
0x446a…4480 Head {h00=0x0012, h01=0x0050, text=» ADD PNT3,BIN6«, t00=0x002b, t01=0x0140}
0x4480…4490 Head {h00=0x000c, h01=0x0050, text=» B FCP90«, t00=0x002b, t01=0x0156}
0x4490…449e Head {h00=0x000a, h01=0x0050, text=»FCP30 «, t00=0x002b, t01=0x0166}
0x449e…44d4 Head {h00=0x0032, h01=0x0050, text=» MOVE BIN7,PLEN(FCBLDX,COB1) PRINTERDATALENGTH«, t00=0x002b, t01=0x0174}
0x44d4…4504 Head {h00=0x002c, h01=0x0050, text=» CBE BIN7,COB0,FCP90 NOT IF ZERO LENGTH «, t00=0x002c, t01=0x001a}
0x4504…4546 Head {h00=0x003e, h01=0x0050, text=» XCOPY FCMESS,PNT3,BIN7,PTAB(FCBLDX),COB0 MOVE PRINTERDATA«, t00=0x002c, t01=0x004a}
0x4546…455c Head {h00=0x0012, h01=0x0050, text=» ADD PNT3,BIN7«, t00=0x002c, t01=0x008c}
0x455c…456a Head {h00=0x000a, h01=0x0050, text=»FCP90 «, t00=0x002c, t01=0x00a2}
0x456a…45ac Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002c, t01=0x00b0}
0x45ac…45cc Head {h00=0x001c, h01=0x0050, text=» B FC9 T E M P O R A R Y«, t00=0x002c, t01=0x00f2}
0x45cc…45f2 Head {h00=0x0022, h01=0x0050, text=» TEST TRACK 3 DATA FLAG «, t00=0x002c, t01=0x0112}
0x45f2…461c Head {h00=0x0026, h01=0x0050, text=» MOVE BIN1,PNT1 USE DUMMY POINTER «, t00=0x002c, t01=0x0138}
0x461c…465e Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002c, t01=0x0162}
0x465e…46a6 Head {h00=0x0044, h01=0x0050, text=» MATCH FCBLD(FCBLDX),BIN1,COB1,WKSTG1,COB0,COB1 TEST FG NOT SET «, t00=0x002d, t01=0x0014}
0x46a6…46d0 Head {h00=0x0026, h01=0x0050, text=» BZ FC9 FLAG NOT SET. SEND FCMESS «, t00=0x002d, t01=0x005c}
0x46d0…4712 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002d, t01=0x0086}
0x4712…4736 Head {h00=0x0020, h01=0x0050, text=» TEST TRACK 3 DATA LENGTH «, t00=0x002d, t01=0x00c8}
0x4736…4770 Head {h00=0x0036, h01=0x0050, text=» CBE TK3DL,COB0,FC9 TEST LENGTH TK3 DATA RECEIVED «, t00=0x002d, t01=0x00ec}
0x4770…478e Head {h00=0x001a, h01=0x0050, text=» LOAD FS + GRAPHIC 4«, t00=0x002d, t01=0x0126}
0x478e…4796 Head {h00=0x0004, h01=0x0050, t00=0x002d, t01=0x0144}
0x4796…47ca Head {h00=0x0030, h01=0x0050, text=» MOVE WKSTG1,=X'1C34' CODE - FS. + GRAPHIC 4«, t00=0x002d, t01=0x014c}
0x47ca…480e Head {h00=0x0040, h01=0x0050, text=» COPY FCMESS,PNT3,COB2,WKSTG1,COB0 WRITE FS. + '4' TO FCMESS«, t00=0x002d, t01=0x0180}
0x480e…483e Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB2 INCREMENT FCMESS POINTER «, t00=0x002e, t01=0x0034}
0x483e…4880 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002e, t01=0x0064}
0x4880…48a2 Head {h00=0x001e, h01=0x0050, text=» TEST TRACK 3 DATA FLAG «, t00=0x002e, t01=0x00a6}
0x48a2…48d6 Head {h00=0x0030, h01=0x0050, text=» MOVE WKSTG1,=X'02' CODE - TK3 DATA FG =:02 «, t00=0x002e, t01=0x00c8}
0x48d6…4900 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN1,PNT1 USE DUMMY POINTER «, t00=0x002e, t01=0x00fc}
0x4900…4946 Head {h00=0x0042, h01=0x0050, text=» MATCH FCBLD(FCBLDX),BIN1,COB1,WKSTG1,COB0,COB1 TEST TK3D FLAG«, t00=0x002e, t01=0x0126}
0x4946…496a Head {h00=0x0020, h01=0x0050, text=» BNZ FC8 FLAG NOT SET TO :02«, t00=0x002e, t01=0x016c}
0x496a…4992 Head {h00=0x0024, h01=0x0050, text=» SEND TRACK 3 DATA AS RECEIVED«, t00=0x002e, t01=0x0190}
0x4992…49d4 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002f, t01=0x0028}
0x49d4…49f6 Head {h00=0x001e, h01=0x0050, text=» TRACK 3 UPDATE POINTER «, t00=0x002f, t01=0x006a}
0x49f6…4a2a Head {h00=0x0030, h01=0x0050, text=» ADD PNT1,COB2 SET PNT1 TO TRACK 3 U/D INDEX«, t00=0x002f, t01=0x008c}
0x4a2a…4a70 Head {h00=0x0042, h01=0x0050, text=» XCOPY PDX,COB1,COB1,FCBLD(FCBLDX),PNT1 LOAD PDX WITH TRACK 3 «, t00=0x002f, t01=0x00c0}
0x4a70…4a90 Head {h00=0x001c, h01=0x0050, text=» UPDATE POINTER«, t00=0x002f, t01=0x0106}
0x4a90…4ad2 Head {h00=0x003e, h01=0x0050, text=» XCOPY PNT2,COB0,COB2,PDUOFF(PDX),COB0 POOL OFFSET -> PNT2«, t00=0x002f, t01=0x0126}
0x4ad2…4b16 Head {h00=0x0040, h01=0x0050, text=» XCOPY COUNT,COB1,COB1,PDUOFF(PDX),COB2 DATA LENGTH -> COUNT«, t00=0x002f, t01=0x0168}
0x4b16…4b58 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0030, t01=0x001c}
0x4b58…4b78 Head {h00=0x001c, h01=0x0050, text=» TEST EXTENT OF UPDATE«, t00=0x0030, t01=0x005e}
0x4b78…4bac Head {h00=0x0030, h01=0x0050, text=» SUB PNT1,COB1 PNT1 TO TK3 U/D OFFSET INDEX «, t00=0x0030, t01=0x007e}
0x4bac…4bce Head {h00=0x001e, h01=0x0050, text=» MOVE BIN3,COB0 CLEAR BIN3«, t00=0x0030, t01=0x00b2}
0x4bce…4c12 Head {h00=0x0040, h01=0x0050, text=» XCOPY BIN3,COB1,COB1,FCBLD(FCBLDX),PNT1 COPY TK3 U/D OFFSET«, t00=0x0030, t01=0x00d4}
0x4c12…4c46 Head {h00=0x0030, h01=0x0050, text=» ADD BIN3,COUNT ADD U/D LENGTH TO U/D OFFSET«, t00=0x0030, t01=0x0118}
0x4c46…4c80 Head {h00=0x0036, h01=0x0050, text=» CBL BIN3,TK3DL,FC7 TEST U/D NOT< TK3 DATA LENGTH «, t00=0x0030, t01=0x014c}
0x4c80…4cb2 Head {h00=0x002e, h01=0x0050, text=» MOVE VARIOUS,=C'TRACK 3 UPDATE ABORTED ' «, t00=0x0030, t01=0x0186}
0x4cb2…4cce Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0031, t01=0x0028}
0x4cce…4cf6 Head {h00=0x0024, h01=0x0050, text=» B FC8 SEND TK3 DATA AS RECEIVED«, t00=0x0031, t01=0x0044}
0x4cf6…4d38 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0031, t01=0x006c}
0x4d38…4d5a Head {h00=0x001e, h01=0x0050, text=»FC7 UPDATE TRACK 3 DATA «, t00=0x0031, t01=0x00ae}
0x4d5a…4d8a Head {h00=0x002c, h01=0x0050, text=» SUB BIN3,COUNT RESET TRACK 3 U/D OFFSET«, t00=0x0031, t01=0x00d0}
0x4d8a…4dc6 Head {h00=0x0038, h01=0x0050, text=» COPY TK3D,BIN3,COUNT,POOL,PNT2 UPDATE TRACK 3 DATA «, t00=0x0031, t01=0x0100}
0x4dc6…4dce Head {h00=0x0004, h01=0x0050, t00=0x0031, t01=0x013c}
0x4dce…4dee Head {h00=0x001c, h01=0x0050, text=»FC8 SEND TRACK 3 DATA «, t00=0x0031, t01=0x0144}
0x4dee…4e2a Head {h00=0x0038, h01=0x0050, text=» COPY FCMESS,PNT3,TK3DL,TK3D,COB0 LOAD TRACK 3 DATA «, t00=0x0031, t01=0x0164}
0x4e2a…4e5c Head {h00=0x002e, h01=0x0050, text=» ADD PNT3,TK3DL SET PNT3 TO MESSAGE LENGTH«, t00=0x0032, t01=0x0010}
0x4e5c…4e9e Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0032, t01=0x0042}
0x4e9e…4ec2 Head {h00=0x0020, h01=0x0050, text=»FC9 WRITE FUNCTION COMMAND«, t00=0x0032, t01=0x0084}
0x4ec2…4efa Head {h00=0x0034, h01=0x0050, text=» WRITE DSCMOP,FCMESS,PNT3 WRITE MESSAGE TO LINE «, t00=0x0032, t01=0x00a8}
0x4efa…4f28 Head {h00=0x002a, h01=0x0050, text=» XSTAT DSCMOP,BIN3 COPY STATUS TO BIN3«, t00=0x0032, t01=0x00e0}
0x4f28…4f4a Head {h00=0x001e, h01=0x0050, text=» PERF RECHK EXAMINE STATUS«, t00=0x0032, t01=0x010e}
0x4f4a…4f78 Head {h00=0x002a, h01=0x0050, text=» IB BIN2, CHECK AND BRANCH ON INDEX C «, t00=0x0032, t01=0x0130}
0x4f78…4f92 Head {h00=0x0016, h01=0x0050, text=» FC10, READ OK C «, t00=0x0032, t01=0x015e}
0x4f92…4fb6 Head {h00=0x0020, h01=0x0050, text=» FC11, MODEM NOT OPERABLE C«, t00=0x0032, t01=0x0178}
0x4fb6…4fd4 Head {h00=0x001a, h01=0x0050, text=» FC11, LINE CLOSED C «, t00=0x0033, t01=0x000c}
0x4fd4…4ff2 Head {h00=0x001a, h01=0x0050, text=» FC11, ATM INACTIVE C«, t00=0x0033, t01=0x002a}
0x4ff2…501e Head {h00=0x0028, h01=0x0050, text=» FC10, RETRANSMISSIONS PERFORMED C «, t00=0x0033, t01=0x0048}
0x501e…5044 Head {h00=0x0022, h01=0x0050, text=» FC11, INVALID TC FOR WRITE C«, t00=0x0033, t01=0x0074}
0x5044…506a Head {h00=0x0022, h01=0x0050, text=» FC11, POLL HALTED FOR READ C«, t00=0x0033, t01=0x009a}
0x506a…508c Head {h00=0x001e, h01=0x0050, text=» FC11 ATM BUSY FOR WRITE «, t00=0x0033, t01=0x00c0}
0x508c…5094 Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x00e2}
0x5094…50b8 Head {h00=0x0020, h01=0x0050, text=»FC10 FUNCTION COMMAND SENT«, t00=0x0033, t01=0x00ea}
0x50b8…50e6 Head {h00=0x002a, h01=0x0050, text=» SET RESFG SET RESPONSE EXPECTED FLAG «, t00=0x0033, t01=0x010e}
0x50e6…5122 Head {h00=0x0038, h01=0x0050, text=» PERF SCRIBE,FCSENT 'FUNCTION COMMAND SENT (KEYS)' «, t00=0x0033, t01=0x013c}
0x5122…5134 Head {h00=0x000e, h01=0x0050, text=» B SFC010 «, t00=0x0033, t01=0x0178}
0x5134…513c Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x018a}
0x513c…5156 (52, 0, 400) Head {h00=0x0016, h01=0x0050, text=»FC11 WRITE ERROR«, t00=0x0034, t01=0x0004}
0x5156…5188 Head {h00=0x002e, h01=0x0050, text=» MOVE STATUS,BIN3 COPY STATUS TO BCD FIELD«, t00=0x0034, t01=0x001e}
0x5188…51c2 Head {h00=0x0036, h01=0x0050, text=» PERF SCRIBE,DCWE 'DATA COMM WRITE ERROR-STATUS' «, t00=0x0034, t01=0x0050}
0x51c2…51ca Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x008a}
0x51ca…51d8 Head {h00=0x000a, h01=0x0050, text=»SFC010«, t00=0x0034, t01=0x0092}
0x51d8…51f0 Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB0«, t00=0x0034, t01=0x00a0}
0x51f0…51fc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0034, t01=0x00b8}
0x51fc…520a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0034, t01=0x00c4}
0x520a…5218 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x00d2}
0x5218…5222 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00e0}
0x5222…5264 Head {h00=0x003e, h01=0x0050, text=»****** OPL OPEN/CLOSE LINE«, t00=0x0034, t01=0x00ea}
0x5264…526e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x012c}
0x526e…5292 Head {h00=0x0020, h01=0x0050, text=»* FUNCTION:- «, t00=0x0034, t01=0x0136}
0x5292…52e2 Head {h00=0x004c, h01=0x0050, text=»* THIS SUBROUTINE OPENS AND CLOSES THE LINE TO THE AT«, t00=0x0034, t01=0x015a}
0x52e2…52ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x001a}
0x52ec…5318 Head {h00=0x0028, h01=0x0050, text=»* CALLING SEQUENCE:- «, t00=0x0035, t01=0x0024}
0x5318…533e Head {h00=0x0022, h01=0x0050, text=»* PERF OPL «, t00=0x0035, t01=0x0050}
0x533e…5348 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0076}
0x5348…5368 Head {h00=0x001c, h01=0x0050, text=»* ENTRY:-«, t00=0x0035, t01=0x0080}
0x5368…53b8 Head {h00=0x004c, h01=0x0050, text=»* THE FOLLOWING PARAMETERS ARE SET UP BEFORE CALLING «, t00=0x0035, t01=0x00a0}
0x53b8…53e2 Head {h00=0x0026, h01=0x0050, text=»* THE SUBROUTINE:- «, t00=0x0035, t01=0x00f0}
0x53e2…541a Head {h00=0x0034, h01=0x0050, text=»* BIN2 -- '00A2' OPEN LINE «, t00=0x0035, t01=0x011a}
0x541a…5452 Head {h00=0x0034, h01=0x0050, text=»* -- '00A4' CLOSE LINE«, t00=0x0035, t01=0x0152}
0x5452…548c Head {h00=0x0036, h01=0x0050, text=»* ADR -- '0041' ATM ADDRESS «, t00=0x0035, t01=0x018a}
0x548c…5496 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0034}
0x5496…54b6 Head {h00=0x001c, h01=0x0050, text=»* EXIT:- «, t00=0x0036, t01=0x003e}
0x54b6…5500 Head {h00=0x0046, h01=0x0050, text=»* THE ROUTINE WILL SET THE INDEX VALUE IN BIN3 «, t00=0x0036, t01=0x005e}
0x5500…5532 Head {h00=0x002e, h01=0x0050, text=»* THE VALUE IS AS FOLLOWS:-«, t00=0x0036, t01=0x00a8}
0x5532…556e Head {h00=0x0038, h01=0x0050, text=»* 0 ILLEGAL/UNRECOGNISABLE ERROR«, t00=0x0036, t01=0x00da}
0x556e…5594 Head {h00=0x0022, h01=0x0050, text=»* 1 I/O OK«, t00=0x0036, t01=0x0116}
0x5594…55c6 Head {h00=0x002e, h01=0x0050, text=»* 2 MODEM NOT OPERABLE«, t00=0x0036, t01=0x013c}
0x55c6…55f8 Head {h00=0x002e, h01=0x0050, text=»* 3 LINE ALREADY OPEN «, t00=0x0036, t01=0x016e}
0x55f8…5646 Head {h00=0x004a, h01=0x0050, text=»* THE ROUTINE WILL ALSO UPDATE ATM LINE STATUS AND SET «, t00=0x0037, t01=0x0010}
0x5646…5676 Head {h00=0x002c, h01=0x0050, text=»* THE TABLE AS FOLLOWS:- «, t00=0x0037, t01=0x005e}
0x5676…56a4 Head {h00=0x002a, h01=0x0050, text=»* 0 LINE TO ATM OK«, t00=0x0037, t01=0x008e}
0x56a4…56d4 Head {h00=0x002c, h01=0x0050, text=»* 1 MODEM INOPERABLE«, t00=0x0037, t01=0x00bc}
0x56d4…56e6 Head {h00=0x000e, h01=0x0050, text=»OPL PROC «, t00=0x0037, t01=0x00ec}
0x56e6…5724 Head {h00=0x003a, h01=0x0050, text=» CALL RECASM,DSCMOP,BIN2,ADR,BIN3 PERFORM I/O ON LINE «, t00=0x0037, t01=0x00fe}
0x5724…575c Head {h00=0x0034, h01=0x0050, text=» CBNE BIN2,=X'00A2',OP5 TEST FOR CLOSE LINE CODE«, t00=0x0037, t01=0x013c}
0x575c…578c Head {h00=0x002c, h01=0x0050, text=» IB BIN3, INDEX FROM ASS. SUBROUTINE C «, t00=0x0037, t01=0x0174}
0x578c…57a4 Head {h00=0x0014, h01=0x0050, text=» OP2, LINE OK C«, t00=0x0038, t01=0x0014}
0x57a4…57c8 Head {h00=0x0020, h01=0x0050, text=» OP3, MODEM NOT OPERABLE C «, t00=0x0038, t01=0x002c}
0x57c8…57e8 Head {h00=0x001c, h01=0x0050, text=» OP2 LINE ALREADY OPEN «, t00=0x0038, t01=0x0050}
0x57e8…5804 Head {h00=0x0018, h01=0x0050, text=» B OP6 ILLEGAL ERROR«, t00=0x0038, t01=0x0070}
0x5804…5836 Head {h00=0x002e, h01=0x0050, text=»OP2 MOVE BIN1,=W'0' SET CODE FOR LINE OPEN«, t00=0x0038, t01=0x008c}
0x5836…5844 Head {h00=0x000a, h01=0x0050, text=» B OP6«, t00=0x0038, t01=0x00be}
0x5844…587e Head {h00=0x0036, h01=0x0050, text=»OP3 MOVE BIN1,=W'1' SET CODE FOR LINE NOT OPERABLE«, t00=0x0038, t01=0x00cc}
0x587e…588c Head {h00=0x000a, h01=0x0050, text=» B OP6«, t00=0x0038, t01=0x0106}
0x588c…58c0 Head {h00=0x0030, h01=0x0050, text=»OP5 IB BIN3, INDEX FROM ASS. SUBROUTINE C C«, t00=0x0038, t01=0x0114}
0x58c0…58dc Head {h00=0x0018, h01=0x0050, text=» OP7, LINE CLOSED C«, t00=0x0038, t01=0x0148}
0x58dc…58f0 Head {h00=0x0010, h01=0x0050, text=» OP6, N/A C«, t00=0x0038, t01=0x0164}
0x58f0…5912 Head {h00=0x001e, h01=0x0050, text=» OP6 LINE ALREADY CLOSED «, t00=0x0038, t01=0x0178}
0x5912…5922 Head {h00=0x000c, h01=0x0050, text=»OP6 RET «, t00=0x0039, t01=0x000a}
0x5922…592e Head {h00=0x0008, h01=0x0050, text=»OP7 «, t00=0x0039, t01=0x001a}
0x592e…5942 Head {h00=0x0010, h01=0x0050, text=» CLEAR OPEN «, t00=0x0039, t01=0x0026}
0x5942…5950 Head {h00=0x000a, h01=0x0050, text=» B OP3«, t00=0x0039, t01=0x003a}
0x5950…595e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0039, t01=0x0048}
0x595e…596c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x0056}
0x596c…5976 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0064}
0x5976…59c4 Head {h00=0x004a, h01=0x0050, text=»****** RECHK CONVERTS A RETURN CODE INTO«, t00=0x0039, t01=0x006e}
0x59c4…5a00 Head {h00=0x0038, h01=0x0050, text=»* AN INDEX «, t00=0x0039, t01=0x00bc}
0x5a00…5a0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00f8}
0x5a0a…5a14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0102}
0x5a14…5a38 Head {h00=0x0020, h01=0x0050, text=»* FUNCTION:- «, t00=0x0039, t01=0x010c}
0x5a38…5a86 Head {h00=0x004a, h01=0x0050, text=»* THIS ROUTINE CONVERTS A GIVEN RETURN CODE INTO AN«, t00=0x0039, t01=0x0130}
0x5a86…5ab8 Head {h00=0x002e, h01=0x0050, text=»* INDEX VALUE AS FOLLOWS:- «, t00=0x0039, t01=0x017e}
0x5ab8…5ade Head {h00=0x0022, h01=0x0050, text=»* 1. I/O OK«, t00=0x003a, t01=0x0020}
0x5ade…5b10 Head {h00=0x002e, h01=0x0050, text=»* 2. MODEM NOT OPERABLE«, t00=0x003a, t01=0x0046}
0x5b10…5b3c Head {h00=0x0028, h01=0x0050, text=»* 3. LINE CLOSED «, t00=0x003a, t01=0x0078}
0x5b3c…5b68 Head {h00=0x0028, h01=0x0050, text=»* 4. ATM INACTIVE«, t00=0x003a, t01=0x00a4}
0x5b68…5b8c Head {h00=0x0020, h01=0x0050, text=»* 5. RETX«, t00=0x003a, t01=0x00d0}
0x5b8c…5bc0 Head {h00=0x0030, h01=0x0050, text=»* 6. INVALID TC FOR WRITE«, t00=0x003a, t01=0x00f4}
0x5bc0…5bf2 Head {h00=0x002e, h01=0x0050, text=»* POLL LIST OVERFLOW«, t00=0x003a, t01=0x0128}
0x5bf2…5c26 Head {h00=0x0030, h01=0x0050, text=»* 7. POLL HALTED FOR READ«, t00=0x003a, t01=0x015a}
0x5c26…5c58 Head {h00=0x002e, h01=0x0050, text=»* 8. ATM BUSY FOR WRITE«, t00=0x003a, t01=0x018e}
0x5c58…5c8c Head {h00=0x0030, h01=0x0050, text=»* ATM ACTIVE FOR READ «, t00=0x003b, t01=0x0030}
0x5c8c…5c96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0064}
0x5c96…5cb6 Head {h00=0x001c, h01=0x0050, text=»* ENTRY:-«, t00=0x003b, t01=0x006e}
0x5cb6…5d00 Head {h00=0x0046, h01=0x0050, text=»* THIS ROUTINE MUST HAVE A RETURN CODE IN BIN3 «, t00=0x003b, t01=0x008e}
0x5d00…5d0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00d8}
0x5d0a…5d2a Head {h00=0x001c, h01=0x0050, text=»* EXIT:- «, t00=0x003b, t01=0x00e2}
0x5d2a…5d6e Head {h00=0x0040, h01=0x0050, text=»* BIN2 CONTAINS THE INDEX VALUE AS ABOVE «, t00=0x003b, t01=0x0102}
0x5d6e…5da2 Head {h00=0x0030, h01=0x0050, text=»* BIN3 REMAINS UNCHANGED «, t00=0x003b, t01=0x0146}
0x5da2…5dac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x017a}
0x5dac…5db4 Head {h00=0x0004, h01=0x0050, t00=0x003b, t01=0x0184}
0x5db4…5dc8 Head {h00=0x0010, h01=0x0050, text=»RECHK PROC «, t00=0x003b, t01=0x018c}
0x5dc8…5dee Head {h00=0x0022, h01=0x0050, text=» MOVE BIN2,COB1 SET INDEX TO 1«, t00=0x003c, t01=0x0010}
0x5dee…5e10 Head {h00=0x001e, h01=0x0050, text=» CBE BIN3,COB0,R90 I/O OK?«, t00=0x003c, t01=0x0036}
0x5e10…5e3c Head {h00=0x0028, h01=0x0050, text=» ADD BIN2,COB1 INCREMENT INDEX (II) «, t00=0x003c, t01=0x0058}
0x5e3c…5e6a Head {h00=0x002a, h01=0x0050, text=» CBE BIN3,COB1,R90 MODEM NOT OPERABLE «, t00=0x003c, t01=0x0084}
0x5e6a…5e84 Head {h00=0x0016, h01=0x0050, text=» ADD BIN2,COB1 II«, t00=0x003c, t01=0x00b2}
0x5e84…5eae Head {h00=0x0026, h01=0x0050, text=» CBE BIN3,=X'0010',R90 LINE CLOSED«, t00=0x003c, t01=0x00cc}
0x5eae…5ec8 Head {h00=0x0016, h01=0x0050, text=» ADD BIN2,COB1 II«, t00=0x003c, t01=0x00f6}
0x5ec8…5ef4 Head {h00=0x0028, h01=0x0050, text=» CBE BIN3,=X'0020',R90 ATM INACTIVE «, t00=0x003c, t01=0x0110}
0x5ef4…5f0e Head {h00=0x0016, h01=0x0050, text=» ADD BIN2,COB1 II«, t00=0x003c, t01=0x013c}
0x5f0e…5f32 Head {h00=0x0020, h01=0x0050, text=» CBE BIN3,=X'0100',R90 RETX «, t00=0x003c, t01=0x0156}
0x5f32…5f4c Head {h00=0x0016, h01=0x0050, text=» ADD BIN2,COB1 II «, t00=0x003c, t01=0x017a}
0x5f4c…5f7a (61, 0, 400) Head {h00=0x002a, h01=0x0050, text=» CBE BIN3,COB8,R90 POLL LIST OVERFLOW «, t00=0x003d, t01=0x0004}
0x5f7a…5fae Head {h00=0x0030, h01=0x0050, text=» CBE BIN3,=X'0040',R90 ATM NOT IN POLL LIST «, t00=0x003d, t01=0x0032}
0x5fae…5fc8 Head {h00=0x0016, h01=0x0050, text=» ADD BIN2,COB1 II «, t00=0x003d, t01=0x0066}
0x5fc8…5ff6 Head {h00=0x002a, h01=0x0050, text=» CBE BIN3,=X'0080',R90 POLLING HALTED «, t00=0x003d, t01=0x0080}
0x5ff6…6016 Head {h00=0x001c, h01=0x0050, text=» ADD BIN2,COB1 ATM BUSY «, t00=0x003d, t01=0x00ae}
0x6016…6026 Head {h00=0x000c, h01=0x0050, text=»R90 RET «, t00=0x003d, t01=0x00ce}
0x6026…6034 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003d, t01=0x00de}
0x6034…6042 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x00ec}
0x6042…608a Head {h00=0x0044, h01=0x0050, text=»****** SCRIBE WRITES TO THE DISPLAY«, t00=0x003d, t01=0x00fa}
0x608a…6094 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0142}
0x6094…60b8 Head {h00=0x0020, h01=0x0050, text=»* FUNCTION:- «, t00=0x003d, t01=0x014c}
0x60b8…6106 Head {h00=0x004a, h01=0x0050, text=»* THIS SUBROUTINE WRITES TO THE DISPLAY AND REPORTS«, t00=0x003d, t01=0x0170}
0x6106…613a Head {h00=0x0030, h01=0x0050, text=»* ON ANY DEVICE STATUS ERRORS«, t00=0x003e, t01=0x002e}
0x613a…6144 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0062}
0x6144…6164 Head {h00=0x001c, h01=0x0050, text=»* ENTRY:-«, t00=0x003e, t01=0x006c}
0x6164…61b0 Head {h00=0x0048, h01=0x0050, text=»* THE FORMAT NAME IS CARRIED INTO THE SUBROUTINE «, t00=0x003e, t01=0x008c}
0x61b0…61ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00d8}
0x61ba…61e6 Head {h00=0x0028, h01=0x0050, text=»* CALLING SEQUENCE:- «, t00=0x003e, t01=0x00e2}
0x61e6…622a Head {h00=0x0040, h01=0x0050, text=»* PERF SCRIBE,FRMAT,DISPLAY «, t00=0x003e, t01=0x010e}
0x622a…6266 Head {h00=0x0038, h01=0x0050, text=»* SCRIBE PROC FRMAT,DISPLAY«, t00=0x003e, t01=0x0152}
0x6266…6270 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x018e}
0x6270…6290 Head {h00=0x001c, h01=0x0050, text=»* EXIT:- «, t00=0x003f, t01=0x0008}
0x6290…62ca Head {h00=0x0036, h01=0x0050, text=»* 1. WITH I/O OK,NORMAL RETURN.«, t00=0x003f, t01=0x0028}
0x62ca…62f4 Head {h00=0x0026, h01=0x0050, text=»* 2. ELSE STOP«, t00=0x003f, t01=0x0062}
0x62f4…630e Head {h00=0x0016, h01=0x0050, text=»SCRIBE PROC FRMAT «, t00=0x003f, t01=0x008c}
0x630e…6322 Head {h00=0x0010, h01=0x0050, text=» PFRMT FRMAT«, t00=0x003f, t01=0x00a6}
0x6322…632a Head {h00=0x0004, h01=0x0050, t00=0x003f, t01=0x00ba}
0x632a…6342 Head {h00=0x0014, h01=0x0050, text=» EDWRT DY,FRMAT «, t00=0x003f, t01=0x00c2}
0x6342…6362 Head {h00=0x001c, h01=0x0050, text=» BERR S1 TEST FOR ERROR «, t00=0x003f, t01=0x00da}
0x6362…636e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003f, t01=0x00fa}
0x636e…6378 Head {h00=0x0006, h01=0x0050, text=»S1«, t00=0x003f, t01=0x0106}
0x6378…6386 Head {h00=0x000a, h01=0x0050, text=» B S1 «, t00=0x003f, t01=0x0110}
0x6386…6394 Head {h00=0x000a, h01=0x0050, text=» EXIT «, t00=0x003f, t01=0x011e}
0x6394…63a2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003f, t01=0x012c}
0x63a2…63b0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x013a}
0x63b0…63ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0148}
0x63ba…6402 Head {h00=0x0044, h01=0x0050, text=»****** UNLOAD UNLOADS MESSAGE DATA «, t00=0x003f, t01=0x0152}
0x6402…640c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x000a}
0x640c…6430 Head {h00=0x0020, h01=0x0050, text=»* FUNCTION:- «, t00=0x0040, t01=0x0014}
0x6430…6476 Head {h00=0x0042, h01=0x0050, text=»* THIS SUBROUTINE EXAMINES THE MESSAGE AND «, t00=0x0040, t01=0x0038}
0x6476…64c2 Head {h00=0x0048, h01=0x0050, text=»* UNLOADS THE DATA FIELDS INTO SEPARATE WORK SPACES. «, t00=0x0040, t01=0x007e}
0x64c2…6510 Head {h00=0x004a, h01=0x0050, text=»* INITALLY IT WILL CLEAR THE WORK SPACE AND ZEROISE«, t00=0x0040, t01=0x00ca}
0x6510…6536 Head {h00=0x0022, h01=0x0050, text=»* THE POINTER. «, t00=0x0040, t01=0x0118}
0x6536…6584 Head {h00=0x004a, h01=0x0050, text=»* WHEN A FIELD SEPARATOR IS FOUND, IT EXAMINES THE «, t00=0x0040, t01=0x013e}
0x6584…65ce Head {h00=0x0046, h01=0x0050, text=»* LENGTH OF THE DATA FIELD. IF THIS IS NON-ZERO, IT«, t00=0x0040, t01=0x018c}
0x65ce…661a Head {h00=0x0048, h01=0x0050, text=»* COPIES THE DATA INTO THE APPROPRIATE WORK SPACE AND«, t00=0x0041, t01=0x0046}
0x661a…6666 Head {h00=0x0048, h01=0x0050, text=»* DELETES ALL CHARACTERS UPTO AND INCLUDING THE FIELD«, t00=0x0041, t01=0x0092}
0x6666…66b2 Head {h00=0x0048, h01=0x0050, text=»* SEPERATOR. SHOULD THE LENGTH OF THE FIELD SEPARATOR«, t00=0x0041, t01=0x00de}
0x66b2…6700 Head {h00=0x004a, h01=0x0050, text=»* IT DELETES THE FIELD SEPERATOR, AND SETS A FLAG WHICH«, t00=0x0041, t01=0x012a}
0x6700…674a Head {h00=0x0046, h01=0x0050, text=»* WILL BE TESTED WHEN THE INFORMATION IS DISPLAYED.«, t00=0x0041, t01=0x0178}
0x674a…6754 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0032}
0x6754…6774 Head {h00=0x001c, h01=0x0050, text=»* ENTRY:-«, t00=0x0042, t01=0x003c}
0x6774…67c2 Head {h00=0x004a, h01=0x0050, text=»* THE WORKSPACE NAME IS CARRIED INTO THE SUBROUTINE«, t00=0x0042, t01=0x005c}
0x67c2…67ee Head {h00=0x0028, h01=0x0050, text=»* AND A BOOLEAN FLAG.«, t00=0x0042, t01=0x00aa}
0x67ee…67f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00d6}
0x67f8…6824 Head {h00=0x0028, h01=0x0050, text=»* CALLING SEQUENCE:- «, t00=0x0042, t01=0x00e0}
0x6824…6870 Head {h00=0x0048, h01=0x0050, text=»* PERF UNLOAD,<FIELD>,<FLAG>,<LENGTH> «, t00=0x0042, t01=0x010c}
0x6870…68b0 Head {h00=0x003c, h01=0x0050, text=»* UNLOAD PROC FIELD,FLAG,LENGTH «, t00=0x0042, t01=0x0158}
0x68b0…68ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0008}
0x68ba…68da Head {h00=0x001c, h01=0x0050, text=»* EXIT:- «, t00=0x0043, t01=0x0012}
0x68da…692a Head {h00=0x004c, h01=0x0050, text=»* THE ROUTINE WILL RETURN TO THE MAIN PROGRAM VIA RET«, t00=0x0043, t01=0x0032}
0x692a…6934 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0082}
0x6934…6956 Head {h00=0x001e, h01=0x0050, text=»UNLOAD PROC FIELD,FLAG,LEN«, t00=0x0043, t01=0x008c}
0x6956…696a Head {h00=0x0010, h01=0x0050, text=» PSTRG FIELD«, t00=0x0043, t01=0x00ae}
0x696a…697e Head {h00=0x0010, h01=0x0050, text=» PBOOL FLAG «, t00=0x0043, t01=0x00c2}
0x697e…6990 Head {h00=0x000e, h01=0x0050, text=» PLIT LEN «, t00=0x0043, t01=0x00d6}
0x6990…6998 Head {h00=0x0004, h01=0x0050, t00=0x0043, t01=0x00e8}
0x6998…69a0 Head {h00=0x0004, h01=0x0050, t00=0x0043, t01=0x00f0}
0x69a0…69cc Head {h00=0x0028, h01=0x0050, text=» MOVE PNT1,COB0 SET POINTER TO ZERO «, t00=0x0043, t01=0x00f8}
0x69cc…69f2 Head {h00=0x0022, h01=0x0050, text=» MOVE FIELD,=C' ' CLEAR FIELD «, t00=0x0043, t01=0x0124}
0x69f2…6a2e Head {h00=0x0038, h01=0x0050, text=» MATCH BUFIN,PNT1,LENGTH,FS,COB0,COB1 SEARCH FOR FS «, t00=0x0043, t01=0x014a}
0x6a2e…6a62 Head {h00=0x0030, h01=0x0050, text=» CBE PNT1,COB0,UL1 CHECK INFORMATION LENGTH «, t00=0x0043, t01=0x0186}
0x6a62…6a7c Head {h00=0x0016, h01=0x0050, text=» CBNG PNT1,LEN,UL0«, t00=0x0044, t01=0x002a}
0x6a7c…6aae Head {h00=0x002e, h01=0x0050, text=» MOVE PNT1,LEN DELIMIT TO EXPLICIT LENGTH «, t00=0x0044, t01=0x0044}
0x6aae…6aba Head {h00=0x0008, h01=0x0050, text=»UL0 «, t00=0x0044, t01=0x0076}
0x6aba…6b00 Head {h00=0x0042, h01=0x0050, text=» XCOPY FIELD,COB0,PNT1,BUFIN,COB0 COPY INFORMATION INTO FIELD «, t00=0x0044, t01=0x0082}
0x6b00…6b2a Head {h00=0x0026, h01=0x0050, text=»UL1 ADD PNT1,COB1 ADD 1 TO POINTER«, t00=0x0044, t01=0x00c8}
0x6b2a…6b64 Head {h00=0x0036, h01=0x0050, text=» DLETE BUFIN,COB0,PNT1 DELETE UPTO FIELD SEPARATOR«, t00=0x0044, t01=0x00f2}
0x6b64…6b98 Head {h00=0x0030, h01=0x0050, text=» CBNE PNT1,COB1,UL2 TEST FOR DATA LENGTH =0 «, t00=0x0044, t01=0x012c}
0x6b98…6bbe Head {h00=0x0022, h01=0x0050, text=» SET FLAG SET ZERO LENGTH FLAG«, t00=0x0044, t01=0x0160}
0x6bbe…6bce Head {h00=0x000c, h01=0x0050, text=»UL2 RET «, t00=0x0044, t01=0x0186}
0x6bce…6bdc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0045, t01=0x0008}
0x6bdc…6bea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x0016}
0x6bea…6bf4 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0045, t01=0x0024}
0x6bf4…6c0a Head {h00=0x0012, h01=0x0050, text=»** DLLATM«, t00=0x0045, t01=0x002e}
0x6c0a…6c20 Head {h00=0x0012, h01=0x0050, text=»** ------«, t00=0x0045, t01=0x0044}
0x6c20…6c2a Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0045, t01=0x005a}
0x6c2a…6c76 Head {h00=0x0048, h01=0x0050, text=»** THIS ROUTINE INSERTS A PROTOCOL/MESSAGE HEADER AT THE START «, t00=0x0045, t01=0x0064}
0x6c76…6cc2 Head {h00=0x0048, h01=0x0050, text=»** OF THE DC BUFFER WRITES THE BUFFER TO THE ATM AND READS THE «, t00=0x0045, t01=0x00b0}
0x6cc2…6ce2 Head {h00=0x001c, h01=0x0050, text=»** ATM'S RESPONSE. «, t00=0x0045, t01=0x00fc}
0x6ce2…6d2c Head {h00=0x0046, h01=0x0050, text=»** IF ANY DC ERROR OCCURS OR IF THE ATM DOES NOT RESPOND WITH«, t00=0x0045, t01=0x011c}
0x6d2c…6d74 Head {h00=0x0044, h01=0x0050, text=»** A READY SOLICITED STATUS, THE ROUTINE EXITS WITH CR =2. «, t00=0x0045, t01=0x0166}
0x6d74…6d7e Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0046, t01=0x001e}
0x6d7e…6d88 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0046, t01=0x0028}
0x6d88…6d9c Head {h00=0x0010, h01=0x0050, text=»DLLATM PROC «, t00=0x0046, t01=0x0032}
0x6d9c…6dd6 Head {h00=0x0036, h01=0x0050, text=» INSRT BUFIN,COB0,COB13,WKSTG2,COB0 INSERT HEADER «, t00=0x0046, t01=0x0046}
0x6dd6…6e06 Head {h00=0x002c, h01=0x0050, text=» ADD LENGTH,COB13 UPDATE MESSAGE LENGTH «, t00=0x0046, t01=0x0080}
0x6e06…6e3a Head {h00=0x0030, h01=0x0050, text=» SUB LENGTH,COB1 IGNORE TRAILING FIELD SEPR.«, t00=0x0046, t01=0x00b0}
0x6e3a…6e70 Head {h00=0x0032, h01=0x0050, text=» WRITE DSCMOP,BUFIN,LENGTH SEND MESSAGE TO ATM«, t00=0x0046, t01=0x00e4}
0x6e70…6e9e Head {h00=0x002a, h01=0x0050, text=» XSTAT DSCMOP,BIN3 GET EXTENDED STATUS«, t00=0x0046, t01=0x011a}
0x6e9e…6ec2 Head {h00=0x0020, h01=0x0050, text=» PERF RECHK CONVERT TO INDEX«, t00=0x0046, t01=0x0148}
0x6ec2…6eea Head {h00=0x0024, h01=0x0050, text=» CBE BIN2,COB1,DLL100 WRITE OK? «, t00=0x0046, t01=0x016c}
0x6eea…6f1a (71, 0, 400) Head {h00=0x002c, h01=0x0050, text=» CBE BIN2,COB5,DLL100 RETRIES PERFORMED?«, t00=0x0047, t01=0x0004}
0x6f1a…6f48 Head {h00=0x002a, h01=0x0050, text=» MOVE STATUS,BIN3 CONVERT XSTAT TO BCD«, t00=0x0047, t01=0x0034}
0x6f48…6f76 Head {h00=0x002a, h01=0x0050, text=» PERF SCRIBE,DCWE O/P DC WRITE ERROR «, t00=0x0047, t01=0x0062}
0x6f76…6f84 Head {h00=0x000a, h01=0x0050, text=»DLL050«, t00=0x0047, t01=0x0090}
0x6f84…6fb2 Head {h00=0x002a, h01=0x0050, text=» CMP COB0,COB1 SET CONDITION REG TO 2 «, t00=0x0047, t01=0x009e}
0x6fb2…6fbe Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0047, t01=0x00cc}
0x6fbe…6fcc Head {h00=0x000a, h01=0x0050, text=»DLL100«, t00=0x0047, t01=0x00d8}
0x6fcc…6fe8 Head {h00=0x0018, h01=0x0050, text=» MOVE LENGTH,=W'256'«, t00=0x0047, t01=0x00e6}
0x6fe8…701c Head {h00=0x0030, h01=0x0050, text=» READ DSCMIP,BUFIN,LENGTH READ FOR RESPONSE «, t00=0x0047, t01=0x0102}
0x701c…704a Head {h00=0x002a, h01=0x0050, text=» XSTAT DSCMIP,BIN3 GET EXTENDED STATUS«, t00=0x0047, t01=0x0136}
0x704a…706e Head {h00=0x0020, h01=0x0050, text=» PERF RECHK CONVERT TO INDEX«, t00=0x0047, t01=0x0164}
0x706e…7094 Head {h00=0x0022, h01=0x0050, text=» CBE BIN2,COB1,DLL150 READ OK?«, t00=0x0047, t01=0x0188}
0x7094…70c2 Head {h00=0x002a, h01=0x0050, text=» MOVE STATUS,BIN2 CONVERT XSTAT TO BCD«, t00=0x0048, t01=0x001e}
0x70c2…70ee Head {h00=0x0028, h01=0x0050, text=» PERF SCRIBE,DATAER 'DC READ ERROR'«, t00=0x0048, t01=0x004c}
0x70ee…7100 Head {h00=0x000e, h01=0x0050, text=» B DLL050 «, t00=0x0048, t01=0x0078}
0x7100…710e Head {h00=0x000a, h01=0x0050, text=»DLL150«, t00=0x0048, t01=0x008a}
0x710e…714e Head {h00=0x003c, h01=0x0050, text=» MOVE WKSTG1,=X'32321C3030301C1C39' SET UP READY PATTERN«, t00=0x0048, t01=0x0098}
0x714e…7170 Head {h00=0x001e, h01=0x0050, text=» MOVE BIN2,COB4 INIT MATCH«, t00=0x0048, t01=0x00d8}
0x7170…71a0 Head {h00=0x002c, h01=0x0050, text=» MATCH BUFIN,BIN2,COB9,WKSTG1,COB0,COB9 «, t00=0x0048, t01=0x00fa}
0x71a0…71c4 Head {h00=0x0020, h01=0x0050, text=» SEARCH FOR READY PATTERN «, t00=0x0048, t01=0x012a}
0x71c4…71e8 Head {h00=0x0020, h01=0x0050, text=» BNERR DLL200 READY RECEIVED«, t00=0x0048, t01=0x014e}
0x71e8…7218 Head {h00=0x002c, h01=0x0050, text=» MOVE WKSTG1,=X'3132' KEYLOCKS OR ALARMS«, t00=0x0048, t01=0x0172}
0x7218…7230 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN2,COB7 «, t00=0x0049, t01=0x0012}
0x7230…7260 Head {h00=0x002c, h01=0x0050, text=» MATCH BUFIN,BIN2,COB2,WKSTG1,COB0,COB2 «, t00=0x0049, t01=0x002a}
0x7260…728c Head {h00=0x0028, h01=0x0050, text=» BNERR DLL100 DISREGARD THOSE THINGS«, t00=0x0049, t01=0x005a}
0x728c…72c0 Head {h00=0x0030, h01=0x0050, text=» MOVE VARIOUS,=C'INVALID MESSAGE RECEIVED ' «, t00=0x0049, t01=0x0086}
0x72c0…72dc Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0049, t01=0x00ba}
0x72dc…72ee Head {h00=0x000e, h01=0x0050, text=» B DLL050 «, t00=0x0049, t01=0x00d6}
0x72ee…72fc Head {h00=0x000a, h01=0x0050, text=»DLL200«, t00=0x0049, t01=0x00e8}
0x72fc…732a Head {h00=0x002a, h01=0x0050, text=» CMP COB0,COB0 SET CONDITION REG TO 0 «, t00=0x0049, t01=0x00f6}
0x732a…7336 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0049, t01=0x0124}
0x7336…7344 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0049, t01=0x0130}
0x7344…7352 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x013e}
0x7352…7364 Head {h00=0x000e, h01=0x0050, text=»KBINP PROC«, t00=0x0049, t01=0x014c}
0x7364…7386 Head {h00=0x001e, h01=0x0050, text=» DSC KB,X'02' SKIP BUFFER «, t00=0x0049, t01=0x015e}
0x7386…73a0 Head {h00=0x0016, h01=0x0050, text=» MOVE LENGTH,COB9 «, t00=0x0049, t01=0x0180}
0x73a0…73d2 Head {h00=0x002e, h01=0x0050, text=» KI KB,BUFIN,KTAB1,LENGTH,INDEX READ DATA «, t00=0x004a, t01=0x000a}
0x73d2…73de Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004a, t01=0x003c}
0x73de…73ec Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004a, t01=0x0048}
0x73ec…73f4 Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x0056}
0x73f4…73fc Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x005e}
0x73fc…7404 Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x0066}
0x7404…7416 Head {h00=0x000e, h01=0x0050, text=»KINW PROC «, t00=0x004a, t01=0x006e}
0x7416…742c Head {h00=0x0012, h01=0x0050, text=» DSC KB,X'02' «, t00=0x004a, t01=0x0080}
0x742c…7444 Head {h00=0x0014, h01=0x0050, text=» MOVE KILN,COB1 «, t00=0x004a, t01=0x0096}
0x7444…746c Head {h00=0x0024, h01=0x0050, text=» KI .NW,KB,KIBUF,KTAB1,KILN,KIIX«, t00=0x004a, t01=0x00ae}
0x746c…7478 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004a, t01=0x00d6}
0x7478…7486 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004a, t01=0x00e2}
0x7486…748e Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x00f0}
0x748e…7496 Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x00f8}
0x7496…749e Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x0100}
0x749e…74b0 Head {h00=0x000e, h01=0x0050, text=»DCNW PROC «, t00=0x004a, t01=0x0108}
0x74b0…74d6 Head {h00=0x0022, h01=0x0050, text=» MOVE BUFIN,=C' ' CLEAR BUFIN «, t00=0x004a, t01=0x011a}
0x74d6…7504 Head {h00=0x002a, h01=0x0050, text=» MOVE LENGTH,=W'256' SET LENGTH TO 256«, t00=0x004a, t01=0x0140}
0x7504…7544 Head {h00=0x003c, h01=0x0050, text=» READ .NW,DSCMIP,BUFIN,LENGTH READ LINE MESSAGE FROM ATM«, t00=0x004a, t01=0x016e}
0x7544…7550 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004b, t01=0x001e}
0x7550…755e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004b, t01=0x002a}
0x755e…756c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x0038}
0x756c…7580 Head {h00=0x0010, h01=0x0050, text=»OPRCMD PROC «, t00=0x004b, t01=0x0046}
0x7580…758a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x005a}
0x758a…75d6 Head {h00=0x0048, h01=0x0050, text=»* THIS ROUTINE SENDS AN OPERATIONAL COMMAND AND WAITS FOR THE ANSWER«, t00=0x004b, t01=0x0064}
0x75d6…75fe Head {h00=0x0024, h01=0x0050, text=»* IT NEEDS A PARAMTER IN WKSTR7 «, t00=0x004b, t01=0x00b0}
0x75fe…7610 Head {h00=0x000e, h01=0x0050, text=»* 1 - OPEN«, t00=0x004b, t01=0x00d8}
0x7610…7624 Head {h00=0x0010, h01=0x0050, text=»* 2 - CLOSE «, t00=0x004b, t01=0x00ea}
0x7624…763e Head {h00=0x0016, h01=0x0050, text=»* 3 - CONFIG.DATA «, t00=0x004b, t01=0x00fe}
0x763e…7648 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0118}
0x7648…7662 Head {h00=0x0016, h01=0x0050, text=» PERF SCRIBE,FMCMD«, t00=0x004b, t01=0x0122}
0x7662…767c Head {h00=0x0016, h01=0x0050, text=» EDIT BUFIN,OPCMD «, t00=0x004b, t01=0x013c}
0x767c…7696 Head {h00=0x0016, h01=0x0050, text=» MOVE LENGTH,COB11«, t00=0x004b, t01=0x0156}
0x7696…76cc Head {h00=0x0032, h01=0x0050, text=» WRITE DSCMOP,BUFIN,LENGTH SEND MESSAGE TO ATM«, t00=0x004b, t01=0x0170}
0x76cc…76fa Head {h00=0x002a, h01=0x0050, text=» XSTAT DSCMOP,BIN3 GET EXTENDED STATUS«, t00=0x004c, t01=0x0016}
0x76fa…771e Head {h00=0x0020, h01=0x0050, text=» PERF RECHK CONVERT TO INDEX«, t00=0x004c, t01=0x0044}
0x771e…7740 Head {h00=0x001e, h01=0x0050, text=» CBE BIN2,COB1,OPRC010 OK?«, t00=0x004c, t01=0x0068}
0x7740…7768 Head {h00=0x0024, h01=0x0050, text=» CBE BIN2,COB5,OPRC010 RETRIES? «, t00=0x004c, t01=0x008a}
0x7768…7796 Head {h00=0x002a, h01=0x0050, text=» MOVE STATUS,BIN3 CONVERT XSTAT TO BCD«, t00=0x004c, t01=0x00b2}
0x7796…77c4 Head {h00=0x002a, h01=0x0050, text=» PERF SCRIBE,DCWE O/P DC WRITE ERROR «, t00=0x004c, t01=0x00e0}
0x77c4…77da Head {h00=0x0012, h01=0x0050, text=» CMP COB0,COB1«, t00=0x004c, t01=0x010e}
0x77da…77e6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004c, t01=0x0124}
0x77e6…77f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0130}
0x77f0…7800 Head {h00=0x000c, h01=0x0050, text=»OPRC010 «, t00=0x004c, t01=0x013a}
0x7800…781c Head {h00=0x0018, h01=0x0050, text=» MOVE LENGTH,=W'256'«, t00=0x004c, t01=0x014a}
0x781c…7836 Head {h00=0x0016, h01=0x0050, text=» MOVE BUFIN,=C' ' «, t00=0x004c, t01=0x0166}
0x7836…786a Head {h00=0x0030, h01=0x0050, text=» READ DSCMIP,BUFIN,LENGTH READ FOR RESPONSE «, t00=0x004c, t01=0x0180}
0x786a…7898 Head {h00=0x002a, h01=0x0050, text=» XSTAT DSCMIP,BIN3 GET EXTENDED STATUS«, t00=0x004d, t01=0x0024}
0x7898…78bc Head {h00=0x0020, h01=0x0050, text=» PERF RECHK CONVERT TO INDEX«, t00=0x004d, t01=0x0052}
0x78bc…78de Head {h00=0x001e, h01=0x0050, text=» CBE BIN2,COB1,OPRC020 OK?«, t00=0x004d, t01=0x0076}
0x78de…790c Head {h00=0x002a, h01=0x0050, text=» MOVE STATUS,BIN2 CONVERT XSTAT TO BCD«, t00=0x004d, t01=0x0098}
0x790c…7938 Head {h00=0x0028, h01=0x0050, text=» PERF SCRIBE,DATAER 'DC READ ERROR'«, t00=0x004d, t01=0x00c6}
0x7938…7948 Head {h00=0x000c, h01=0x0050, text=»OPRC015 «, t00=0x004d, t01=0x00f2}
0x7948…7966 Head {h00=0x001a, h01=0x0050, text=» CMP COB0,COB1 NOT OK «, t00=0x004d, t01=0x0102}
0x7966…7972 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004d, t01=0x0120}
0x7972…797c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x012c}
0x797c…798c Head {h00=0x000c, h01=0x0050, text=»OPRC020 «, t00=0x004d, t01=0x0136}
0x798c…7996 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0146}
0x7996…79c4 Head {h00=0x002a, h01=0x0050, text=» MOVE WKSTR8,=X'1D44' GROUP SEP. + "D"«, t00=0x004d, t01=0x0150}
0x79c4…79de Head {h00=0x0016, h01=0x0050, text=» MOVE BIN3,LENGTH «, t00=0x004d, t01=0x017e}
0x79de…79f4 Head {h00=0x0012, h01=0x0050, text=» SUB BIN3,COB1«, t00=0x004e, t01=0x0008}
0x79f4…7a0c Head {h00=0x0014, h01=0x0050, text=» MOVE BIN4,COB0 «, t00=0x004e, t01=0x001e}
0x7a0c…7a3c Head {h00=0x002c, h01=0x0050, text=» MATCH BUFIN,BIN4,BIN3,WKSTR8,COB0,COB2 «, t00=0x004e, t01=0x0036}
0x7a3c…7a6a Head {h00=0x002a, h01=0x0050, text=» BERR OPRC050 NOT FOUND, NORMAL RETURN«, t00=0x004e, t01=0x0066}
0x7a6a…7a96 Head {h00=0x0028, h01=0x0050, text=» ADD BIN4,COB2 POINT TO 1. CASS.STAT«, t00=0x004e, t01=0x0094}
0x7a96…7aba Head {h00=0x0020, h01=0x0050, text=» MOVE BIN5,COB0 LOOP CONTROL«, t00=0x004e, t01=0x00c0}
0x7aba…7aca Head {h00=0x000c, h01=0x0050, text=»OPRC040 «, t00=0x004e, t01=0x00e4}
0x7aca…7ae0 Head {h00=0x0012, h01=0x0050, text=» ADD BIN5,COB1«, t00=0x004e, t01=0x00f4}
0x7ae0…7afe Head {h00=0x001a, h01=0x0050, text=» CBG BIN5,COB4,OPRC050«, t00=0x004e, t01=0x010a}
0x7afe…7b3e Head {h00=0x003c, h01=0x0050, text=» XCOPY WKSTR8,COB0,COB2,BUFIN,BIN4 MOVE DENOM TO CASTAT «, t00=0x004e, t01=0x0128}
0x7b3e…7b78 Head {h00=0x0036, h01=0x0050, text=» COPY WKSTR7,COB0,COB1,WKSTR8,COB1 IF NO CASSETTE «, t00=0x004e, t01=0x0168}
0x7b78…7bae Head {h00=0x0032, h01=0x0050, text=» CBNE WKSTR7,=C'0',OPRC042 PRESENT, THEN FORCE«, t00=0x004f, t01=0x0012}
0x7bae…7bde Head {h00=0x002c, h01=0x0050, text=» MOVE WKSTR8,=X'3E30' LOW-NOTE-CONDITION«, t00=0x004f, t01=0x0048}
0x7bde…7bee Head {h00=0x000c, h01=0x0050, text=»OPRC042 «, t00=0x004f, t01=0x0078}
0x7bee…7c22 Head {h00=0x0030, h01=0x0050, text=» CALL COPY4,CASTAT(COB1,BIN5),COB3,COB1, C «, t00=0x004f, t01=0x0088}
0x7c22…7c38 Head {h00=0x0012, h01=0x0050, text=» WKSTR8,COB3 «, t00=0x004f, t01=0x00bc}
0x7c38…7c50 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN3,COB0 «, t00=0x004f, t01=0x00d2}
0x7c50…7c7e Head {h00=0x002a, h01=0x0050, text=» CALL COPY4,BIN3,COB3,COB1,WKSTR8,COB1«, t00=0x004f, t01=0x00ea}
0x7c7e…7cae Head {h00=0x002c, h01=0x0050, text=» MOVE CASTAT(COB2,BIN5),COB0 RESET FIRST«, t00=0x004f, t01=0x0118}
0x7cae…7cd2 Head {h00=0x0020, h01=0x0050, text=» CBNE BIN3,=X'000E',OPRC045 «, t00=0x004f, t01=0x0148}
0x7cd2…7d0a Head {h00=0x0034, h01=0x0050, text=» MOVE CASTAT(COB2,BIN5),COB1 INDICATE LOW NOTES «, t00=0x004f, t01=0x016c}
0x7d0a…7d1a Head {h00=0x000c, h01=0x0050, text=»OPRC045 «, t00=0x0050, t01=0x0014}
0x7d1a…7d3c Head {h00=0x001e, h01=0x0050, text=» ADD BIN4,COB2 NEXT FEEDER«, t00=0x0050, t01=0x0024}
0x7d3c…7d4e Head {h00=0x000e, h01=0x0050, text=» B OPRC040«, t00=0x0050, t01=0x0046}
0x7d4e…7d5e Head {h00=0x000c, h01=0x0050, text=»OPRC050 «, t00=0x0050, t01=0x0058}
0x7d5e…7d74 Head {h00=0x0012, h01=0x0050, text=» CMP COB0,COB0«, t00=0x0050, t01=0x0068}
0x7d74…7d80 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0050, t01=0x007e}
0x7d80…7d8e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0050, t01=0x008a}
0x7d8e…7d9c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x0098}
0x7d9c…7db0 Head {h00=0x0010, h01=0x0050, text=»NOTMIX PROC «, t00=0x0050, t01=0x00a6}
0x7db0…7dca Head {h00=0x0016, h01=0x0050, text=»* COMPUTE NOTEMIX «, t00=0x0050, t01=0x00ba}
0x7dca…7de2 Head {h00=0x0014, h01=0x0050, text=» MOVE WKB2A,COB9«, t00=0x0050, t01=0x00d4}
0x7de2…7dfc Head {h00=0x0016, h01=0x0050, text=» MOVE WKD12A,PBCD «, t00=0x0050, t01=0x00ec}
0x7dfc…7e0a Head {h00=0x000a, h01=0x0050, text=»NOT100«, t00=0x0050, t01=0x0106}
0x7e0a…7e2c Head {h00=0x001e, h01=0x0050, text=» SUB WKB2A,COB1 STEP INDEX«, t00=0x0050, t01=0x0114}
0x7e2c…7e56 Head {h00=0x0026, h01=0x0050, text=» CBL WKB2A,COB1,NOT130 WRONG INPUT«, t00=0x0050, t01=0x0136}
0x7e56…7e7c Head {h00=0x0022, h01=0x0050, text=» PERF DENCK DENOMINATION CHECK«, t00=0x0050, t01=0x0160}
0x7e7c…7e9c Head {h00=0x001c, h01=0x0050, text=» B NOT100 NOT AVAILABLE «, t00=0x0050, t01=0x0186}
0x7e9c…7ed0 Head {h00=0x0030, h01=0x0050, text=» CBG DENOM(WKB2A),WKD12A,NOT100 NEXT HIGHER «, t00=0x0051, t01=0x0016}
0x7ed0…7eea Head {h00=0x0016, h01=0x0050, text=» MOVE WKD3A,=D'0' «, t00=0x0051, t01=0x004a}
0x7eea…7ef8 Head {h00=0x000a, h01=0x0050, text=»NOT110«, t00=0x0051, t01=0x0064}
0x7ef8…7f2a Head {h00=0x002e, h01=0x0050, text=» CBL WKD12A,DENOM(WKB2A),NOT120 FINISHED? «, t00=0x0051, t01=0x0072}
0x7f2a…7f52 Head {h00=0x0024, h01=0x0050, text=» SUB WKD12A,DENOM(WKB2A) 1 NOTE «, t00=0x0051, t01=0x00a4}
0x7f52…7f80 Head {h00=0x002a, h01=0x0050, text=» SUB BEHOLDN(WKB2A,COB1),DENOM(WKB2A) «, t00=0x0051, t01=0x00cc}
0x7f80…7fb8 Head {h00=0x0034, h01=0x0050, text=» ADD BEHOLDN(WKB2A,COB2),DENOM(WKB2A) MONEY PAID«, t00=0x0051, t01=0x00fa}
0x7fb8…7fd0 Head {h00=0x0014, h01=0x0050, text=» ADD WKD3A,=D'1'«, t00=0x0051, t01=0x0132}
0x7fd0…7fe2 Head {h00=0x000e, h01=0x0050, text=» B NOT110 «, t00=0x0051, t01=0x014a}
0x7fe2…7ff0 Head {h00=0x000a, h01=0x0050, text=»NOT120«, t00=0x0051, t01=0x015c}
0x7ff0…8016 Head {h00=0x0022, h01=0x0050, text=» MOVE WKB2B,WKB2A CREATE INDEX«, t00=0x0051, t01=0x016a}
0x8016…802e Head {h00=0x0014, h01=0x0050, text=» SUB WKB2B,COB1 «, t00=0x0051, t01=0x0190}
0x802e…8046 Head {h00=0x0014, h01=0x0050, text=» ADD WKB2B,WKB2B«, t00=0x0052, t01=0x0018}
0x8046…8070 Head {h00=0x0026, h01=0x0050, text=» MOVE WKS4A,WKD3A CONVERT TO ASCII«, t00=0x0052, t01=0x0030}
0x8070…809a Head {h00=0x0026, h01=0x0050, text=» COPY NOTES,WKB2B,COB2,WKS4A,COB2 «, t00=0x0052, t01=0x005a}
0x809a…80c4 Head {h00=0x0026, h01=0x0050, text=» CBE WKD12A,=D'0',NOT900 FINISHED?«, t00=0x0052, t01=0x0084}
0x80c4…80d6 Head {h00=0x000e, h01=0x0050, text=» B NOT100 «, t00=0x0052, t01=0x00ae}
0x80d6…80e4 Head {h00=0x000a, h01=0x0050, text=»NOT130«, t00=0x0052, t01=0x00c0}
0x80e4…80fa Head {h00=0x0012, h01=0x0050, text=» CMP COB0,COB1«, t00=0x0052, t01=0x00ce}
0x80fa…8106 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0052, t01=0x00e4}
0x8106…8114 Head {h00=0x000a, h01=0x0050, text=»NOT900«, t00=0x0052, t01=0x00f0}
0x8114…812a Head {h00=0x0012, h01=0x0050, text=» CMP COB0,COB0«, t00=0x0052, t01=0x00fe}
0x812a…8136 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0052, t01=0x0114}
0x8136…8144 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0052, t01=0x0120}
0x8144…8152 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x012e}
0x8152…8164 Head {h00=0x000e, h01=0x0050, text=»DENCK PROC«, t00=0x0052, t01=0x013c}
0x8164…8198 Head {h00=0x0030, h01=0x0050, text=»* CHECK EXISTANCE AND STATUS OF DENOMINATION«, t00=0x0052, t01=0x014e}
0x8198…81c0 Head {h00=0x0024, h01=0x0050, text=»* WHICH INDEX IS GIVEN IN WKB2A «, t00=0x0052, t01=0x0182}
0x81c0…81d8 Head {h00=0x0014, h01=0x0050, text=» MOVE WKB2B,COB0«, t00=0x0053, t01=0x001a}
0x81d8…81e6 Head {h00=0x000a, h01=0x0050, text=»DENCK2«, t00=0x0053, t01=0x0032}
0x81e6…81fe Head {h00=0x0014, h01=0x0050, text=» ADD WKB2B,COB1 «, t00=0x0053, t01=0x0040}
0x81fe…821c Head {h00=0x001a, h01=0x0050, text=» CBG WKB2B,COB4,DENCK4«, t00=0x0053, t01=0x0058}
0x821c…824a Head {h00=0x002a, h01=0x0050, text=» CBNE CASTAT(COB1,WKB2B),WKB2A,DENCK2 «, t00=0x0053, t01=0x0076}
0x824a…8280 Head {h00=0x0032, h01=0x0050, text=» CBE CASTAT(COB2,WKB2B),COB1,DENCK2 LOW NOTES?«, t00=0x0053, t01=0x00a4}
0x8280…828e Head {h00=0x000a, h01=0x0050, text=» RET 2«, t00=0x0053, t01=0x00da}
0x828e…829c Head {h00=0x000a, h01=0x0050, text=»DENCK4«, t00=0x0053, t01=0x00e8}
0x829c…82a8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0053, t01=0x00f6}
0x82a8…82b6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0053, t01=0x0102}
0x82b6…82be Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x0110}
0x82be…82cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0053, t01=0x0118}
0x82cc…82e0 Head {h00=0x0010, h01=0x0050, text=»LOMULT PROC «, t00=0x0053, t01=0x0126}
0x82e0…82ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x013a}
0x82ea…8332 Head {h00=0x0044, h01=0x0050, text=»* THE PROCEDURE CHECKS THAT THE AMOUNT REQUIESTED IS A MULTIPLE «, t00=0x0053, t01=0x0144}
0x8332…8362 Head {h00=0x002c, h01=0x0050, text=»* OF THE LOWEST ACCESSIBLE DENOMINATION «, t00=0x0053, t01=0x018c}
0x8362…836c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x002c}
0x836c…8386 Head {h00=0x0016, h01=0x0050, text=» MOVE WKD12A,PBCD «, t00=0x0054, t01=0x0036}
0x8386…83ae Head {h00=0x0024, h01=0x0050, text=» PERF FNDLOW GET INDEX TO LOWEST«, t00=0x0054, t01=0x0050}
0x83ae…83d2 Head {h00=0x0020, h01=0x0050, text=» B LOMUL9 NOTHING ACCESSIBLE«, t00=0x0054, t01=0x0078}
0x83d2…8408 Head {h00=0x0032, h01=0x0050, text=» MOVE WKD12B,DENOM(WKB2B) LOWEST DENOMINATION «, t00=0x0054, t01=0x009c}
0x8408…8416 Head {h00=0x000a, h01=0x0050, text=»LOMUL2«, t00=0x0054, t01=0x00d2}
0x8416…8430 Head {h00=0x0016, h01=0x0050, text=» DIV WKD12A,WKD12B«, t00=0x0054, t01=0x00e0}
0x8430…844a Head {h00=0x0016, h01=0x0050, text=» MUL WKD12A,WKD12B«, t00=0x0054, t01=0x00fa}
0x844a…847a Head {h00=0x002c, h01=0x0050, text=» CBNE WKD12A,PBCD,LOMUL9 ANY REMAINDER? «, t00=0x0054, t01=0x0114}
0x847a…84a0 Head {h00=0x0022, h01=0x0050, text=» CMP COB0,COB0 NO THERE WASNT «, t00=0x0054, t01=0x0144}
0x84a0…84ac Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0054, t01=0x016a}
0x84ac…84ba Head {h00=0x000a, h01=0x0050, text=»LOMUL9«, t00=0x0054, t01=0x0176}
0x84ba…84ea Head {h00=0x002c, h01=0x0050, text=» CMP COB0,COB1 REMAINDER OR UNAVAILABLE «, t00=0x0054, t01=0x0184}
0x84ea…84f6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0055, t01=0x0024}
0x84f6…8504 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0055, t01=0x0030}
0x8504…850c Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x003e}
0x850c…8514 Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x0046}
0x8514…8528 Head {h00=0x0010, h01=0x0050, text=»FNDLOW PROC «, t00=0x0055, t01=0x004e}
0x8528…855c Head {h00=0x0030, h01=0x0050, text=»* THE ROUTINE FINDS THE LOWEST DENOMINATION «, t00=0x0055, t01=0x0062}
0x855c…8574 Head {h00=0x0014, h01=0x0050, text=» MOVE WKB2A,COB0«, t00=0x0055, t01=0x0096}
0x8574…858c Head {h00=0x0014, h01=0x0050, text=» MOVE WKB2B,COB8«, t00=0x0055, t01=0x00ae}
0x858c…859a Head {h00=0x000a, h01=0x0050, text=»FNDL10«, t00=0x0055, t01=0x00c6}
0x859a…85b2 Head {h00=0x0014, h01=0x0050, text=» ADD WKB2A,COB1 «, t00=0x0055, t01=0x00d4}
0x85b2…85e0 Head {h00=0x002a, h01=0x0050, text=» CBG WKB2A,COB4,FNDL20 DENOM EXHAUSTED«, t00=0x0055, t01=0x00ec}
0x85e0…8618 Head {h00=0x0034, h01=0x0050, text=» CBE CASTAT(COB1,WKB2A),COB0,FNDL10 NO CASSETTE «, t00=0x0055, t01=0x011a}
0x8618…864e Head {h00=0x0032, h01=0x0050, text=» CBE CASTAT(COB2,WKB2A),COB1,FNDL10 LOW NOTES «, t00=0x0055, t01=0x0152}
0x864e…8686 Head {h00=0x0034, h01=0x0050, text=» CBNL CASTAT(COB1,WKB2A),WKB2B,FNDL10 NOT LOWEST«, t00=0x0055, t01=0x0188}
0x8686…86ba Head {h00=0x0030, h01=0x0050, text=» MOVE WKB2B,CASTAT(COB1,WKB2A) LOWEST SO FAR«, t00=0x0056, t01=0x0030}
0x86ba…86cc Head {h00=0x000e, h01=0x0050, text=» B FNDL10 «, t00=0x0056, t01=0x0064}
0x86cc…86da Head {h00=0x000a, h01=0x0050, text=»FNDL20«, t00=0x0056, t01=0x0076}
0x86da…8710 Head {h00=0x0032, h01=0x0050, text=» CBNE WKB2B,COB8,FNDL30 AT LEAST ONE AVAILABLE«, t00=0x0056, t01=0x0084}
0x8710…8730 Head {h00=0x001c, h01=0x0050, text=» RET NOTHING AVAILABLE «, t00=0x0056, t01=0x00ba}
0x8730…873e Head {h00=0x000a, h01=0x0050, text=»FNDL30«, t00=0x0056, t01=0x00da}
0x873e…874c Head {h00=0x000a, h01=0x0050, text=» RET 2«, t00=0x0056, t01=0x00e8}
0x874c…875a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0056, t01=0x00f6}
0x875a…8768 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x0104}
0x8768…877a Head {h00=0x000e, h01=0x0050, text=»POLL FRMT «, t00=0x0056, t01=0x0112}
0x877a…878e Head {h00=0x0010, h01=0x0050, text=» FCOPY ='22'«, t00=0x0056, t01=0x0124}
0x878e…87a8 Head {h00=0x0016, h01=0x0050, text=» FCOPY ='POLLING '«, t00=0x0056, t01=0x0138}
0x87a8…87c4 Head {h00=0x0018, h01=0x0050, text=» FCOPY ='MICROBANK' «, t00=0x0056, t01=0x0152}
0x87c4…87d2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0056, t01=0x016e}
0x87d2…87da Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x017c}
0x87da…87ec Head {h00=0x000e, h01=0x0050, text=»INACT FRMT«, t00=0x0056, t01=0x0184}
0x87ec…8800 Head {h00=0x0010, h01=0x0050, text=» FCOPY ='22'«, t00=0x0057, t01=0x0008}
0x8800…881c Head {h00=0x0018, h01=0x0050, text=» FCOPY ='MICROBANK' «, t00=0x0057, t01=0x001c}
0x881c…8832 Head {h00=0x0012, h01=0x0050, text=» FCOPY =' NOT'«, t00=0x0057, t01=0x0038}
0x8832…8858 Head {h00=0x0022, h01=0x0050, text=» FCOPY =' RESPONDING TO POLL' «, t00=0x0057, t01=0x004e}
0x8858…8866 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0057, t01=0x0074}
0x8866…886e Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x0082}
0x886e…8882 Head {h00=0x0010, h01=0x0050, text=»DATAER FRMT «, t00=0x0057, t01=0x008a}
0x8882…88b6 Head {h00=0x0030, h01=0x0050, text=» FTEXT '22DATA COMM READ ERROR : '«, t00=0x0057, t01=0x009e}
0x88b6…88d2 Head {h00=0x0018, h01=0x0050, text=» FMEL '9999',STATUS «, t00=0x0057, t01=0x00d2}
0x88d2…88e0 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0057, t01=0x00ee}
0x88e0…88e8 Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x00fc}
0x88e8…88f8 Head {h00=0x000c, h01=0x0050, text=»INF FRMT«, t00=0x0057, t01=0x0104}
0x88f8…890e Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'22' «, t00=0x0057, t01=0x0114}
0x890e…8922 Head {h00=0x0010, h01=0x0050, text=» FCOPY INFO «, t00=0x0057, t01=0x012a}
0x8922…8930 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0057, t01=0x013e}
0x8930…8944 Head {h00=0x0010, h01=0x0050, text=»DATEFMT FRMT«, t00=0x0057, t01=0x014c}
0x8944…8962 Head {h00=0x001a, h01=0x0050, text=» FMEL '99V99V99',DATE «, t00=0x0057, t01=0x0160}
0x8962…8976 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0057, t01=0x017e}
0x8976…8988 (88, 0, 400) Head {h00=0x000e, h01=0x0050, text=» FCOPY KL «, t00=0x0058, t01=0x0004}
0x8988…899e Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',3«, t00=0x0058, t01=0x0016}
0x899e…89ac Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0058, t01=0x002c}
0x89ac…89b4 Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x003a}
0x89b4…89c8 Head {h00=0x0010, h01=0x0050, text=»CUSTRQ FRMT «, t00=0x0058, t01=0x0042}
0x89c8…89ec Head {h00=0x0020, h01=0x0050, text=» FTEXT '00CUSTOMER REQUEST' «, t00=0x0058, t01=0x0056}
0x89ec…89f8 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0058, t01=0x007a}
0x89f8…8a12 Head {h00=0x0016, h01=0x0050, text=» FTEXT 'OP KEYS: '«, t00=0x0058, t01=0x0086}
0x8a12…8a26 Head {h00=0x0010, h01=0x0050, text=» FBT F4,CUS1«, t00=0x0058, t01=0x00a0}
0x8a26…8a3a Head {h00=0x0010, h01=0x0050, text=» FCOPY OPKY «, t00=0x0058, t01=0x00b4}
0x8a3a…8a4a Head {h00=0x000c, h01=0x0050, text=» FB CUS2«, t00=0x0058, t01=0x00c8}
0x8a4a…8a68 Head {h00=0x001a, h01=0x0050, text=»CUS1 FTEXT ' NONE ' «, t00=0x0058, t01=0x00d8}
0x8a68…8a80 Head {h00=0x0014, h01=0x0050, text=»CUS2 FILLR ' ',2«, t00=0x0058, t01=0x00f6}
0x8a80…8a9c Head {h00=0x0018, h01=0x0050, text=» FTEXT '1ST TRANS: '«, t00=0x0058, t01=0x010e}
0x8a9c…8ab0 Head {h00=0x0010, h01=0x0050, text=» FCOPY TXFG «, t00=0x0058, t01=0x012a}
0x8ab0…8ac4 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0058, t01=0x013e}
0x8ac4…8ae6 Head {h00=0x001e, h01=0x0050, text=» FTEXT 'MESS.CO-ORD NO: ' «, t00=0x0058, t01=0x0152}
0x8ae6…8afa Head {h00=0x0010, h01=0x0050, text=» FCOPY MESS «, t00=0x0058, t01=0x0174}
0x8afa…8b0e Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0058, t01=0x0188}
0x8b0e…8b22 Head {h00=0x0010, h01=0x0050, text=» FBT F5,CUS3«, t00=0x0059, t01=0x000c}
0x8b22…8b42 Head {h00=0x001c, h01=0x0050, text=» FTEXT 'DOLLAR AMOUNT: '«, t00=0x0059, t01=0x0020}
0x8b42…8b62 Head {h00=0x001c, h01=0x0050, text=» FMEL 'ZZZZZZZ9V99',PBCD«, t00=0x0059, t01=0x0040}
0x8b62…8b72 Head {h00=0x000c, h01=0x0050, text=»CUS3 FNL«, t00=0x0059, t01=0x0060}
0x8b72…8b86 Head {h00=0x0010, h01=0x0050, text=» FBT F6,CUS4«, t00=0x0059, t01=0x0070}
0x8b86…8ba4 Head {h00=0x001a, h01=0x0050, text=» FTEXT 'GP BUFFER A: '«, t00=0x0059, t01=0x0084}
0x8ba4…8bb8 Head {h00=0x0010, h01=0x0050, text=» FCOPY GPBA «, t00=0x0059, t01=0x00a2}
0x8bb8…8bc4 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0059, t01=0x00b6}
0x8bc4…8bdc Head {h00=0x0014, h01=0x0050, text=»CUS4 FBT F7,CUS5«, t00=0x0059, t01=0x00c2}
0x8bdc…8bfa Head {h00=0x001a, h01=0x0050, text=» FTEXT 'GP BUFFER B: '«, t00=0x0059, t01=0x00da}
0x8bfa…8c0e Head {h00=0x0010, h01=0x0050, text=» FCOPY GPBB «, t00=0x0059, t01=0x00f8}
0x8c0e…8c1a Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0059, t01=0x010c}
0x8c1a…8c32 Head {h00=0x0014, h01=0x0050, text=»CUS5 FBT F8,CUS6«, t00=0x0059, t01=0x0118}
0x8c32…8c4c Head {h00=0x0016, h01=0x0050, text=» FTEXT 'AMOUNT: ' «, t00=0x0059, t01=0x0130}
0x8c4c…8c60 Head {h00=0x0010, h01=0x0050, text=» FCOPY GPBC «, t00=0x0059, t01=0x014a}
0x8c60…8c6c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0059, t01=0x015e}
0x8c6c…8c84 Head {h00=0x0014, h01=0x0050, text=»CUS6 FBT F9,CUS7«, t00=0x0059, t01=0x016a}
0x8c84…8ca4 Head {h00=0x001c, h01=0x0050, text=» FTEXT 'TRACK 1 DATA: ' «, t00=0x0059, t01=0x0182}
0x8ca4…8cb8 Head {h00=0x0010, h01=0x0050, text=» FCOPY TK1D1«, t00=0x005a, t01=0x0012}
0x8cb8…8cc4 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x005a, t01=0x0026}
0x8cc4…8cda Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',14 «, t00=0x005a, t01=0x0032}
0x8cda…8cee Head {h00=0x0010, h01=0x0050, text=» FCOPY TK1D2«, t00=0x005a, t01=0x0048}
0x8cee…8cfa Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x005a, t01=0x005c}
0x8cfa…8d12 Head {h00=0x0014, h01=0x0050, text=»CUS7 FBT F2,CUS8«, t00=0x005a, t01=0x0068}
0x8d12…8d32 Head {h00=0x001c, h01=0x0050, text=» FTEXT 'TRACK 2 DATA: ' «, t00=0x005a, t01=0x0080}
0x8d32…8d46 Head {h00=0x0010, h01=0x0050, text=» FCOPY TK2D «, t00=0x005a, t01=0x00a0}
0x8d46…8d52 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x005a, t01=0x00b4}
0x8d52…8d6a Head {h00=0x0014, h01=0x0050, text=»CUS8 FBT F3,CUS9«, t00=0x005a, t01=0x00c0}
0x8d6a…8d8a Head {h00=0x001c, h01=0x0050, text=» FTEXT 'TRACK 3 DATA: ' «, t00=0x005a, t01=0x00d8}
0x8d8a…8d9e Head {h00=0x0010, h01=0x0050, text=» FCOPY TK3D1«, t00=0x005a, t01=0x00f8}
0x8d9e…8daa Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x005a, t01=0x010c}
0x8daa…8dc0 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',14 «, t00=0x005a, t01=0x0118}
0x8dc0…8dd4 Head {h00=0x0010, h01=0x0050, text=» FCOPY TK3D2«, t00=0x005a, t01=0x012e}
0x8dd4…8de6 Head {h00=0x000e, h01=0x0050, text=»CUS9 FMEND«, t00=0x005a, t01=0x0142}
0x8de6…8dee Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x0154}
0x8dee…8e02 Head {h00=0x0010, h01=0x0050, text=»AMTERR FRMT «, t00=0x005a, t01=0x015c}
0x8e02…8e16 Head {h00=0x0010, h01=0x0050, text=» FTEXT '22' «, t00=0x005a, t01=0x0170}
0x8e16…8e4c Head {h00=0x0032, h01=0x0050, text=» FCOPY ='AMOUNT ERROR. TRANSACTION CANCELLED.'«, t00=0x005a, t01=0x0184}
0x8e4c…8e5a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005b, t01=0x002a}
0x8e5a…8e62 Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x0038}
0x8e62…8e74 Head {h00=0x000e, h01=0x0050, text=»UNSS FRMT «, t00=0x005b, t01=0x0040}
0x8e74…8ea8 Head {h00=0x0030, h01=0x0050, text=» FTEXT '22UNSOLICITED STATUS : '«, t00=0x005b, t01=0x0052}
0x8ea8…8ec2 Head {h00=0x0016, h01=0x0050, text=» FCOPY DEVAR2(DID)«, t00=0x005b, t01=0x0086}
0x8ec2…8ed6 Head {h00=0x0010, h01=0x0050, text=» FCOPY DEVST«, t00=0x005b, t01=0x00a0}
0x8ed6…8ee4 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005b, t01=0x00b4}
0x8ee4…8eec Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x00c2}
0x8eec…8f00 Head {h00=0x0010, h01=0x0050, text=»FCSENT FRMT «, t00=0x005b, t01=0x00ca}
0x8f00…8f2a Head {h00=0x0026, h01=0x0050, text=» FTEXT '22FUNCTION COMMAND SENT ('«, t00=0x005b, t01=0x00de}
0x8f2a…8f3e Head {h00=0x0010, h01=0x0050, text=» FCOPY OPKY «, t00=0x005b, t01=0x0108}
0x8f3e…8f50 Head {h00=0x000e, h01=0x0050, text=» FTEXT ')'«, t00=0x005b, t01=0x011c}
0x8f50…8f5e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005b, t01=0x012e}
0x8f5e…8f66 Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x013c}
0x8f66…8f78 Head {h00=0x000e, h01=0x0050, text=»DCWE FRMT «, t00=0x005b, t01=0x0144}
0x8f78…8fae Head {h00=0x0032, h01=0x0050, text=» FTEXT '22DATA COMM WRITE ERROR : ' «, t00=0x005b, t01=0x0156}
0x8fae…8fca Head {h00=0x0018, h01=0x0050, text=» FMEL '9999',STATUS «, t00=0x005b, t01=0x018c}
0x8fca…8fd8 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005c, t01=0x0018}
0x8fd8…8fe0 Head {h00=0x0004, h01=0x0050, t00=0x005c, t01=0x0026}
0x8fe0…8ff4 Head {h00=0x0010, h01=0x0050, text=»SRLFMT FRMT «, t00=0x005c, t01=0x002e}
0x8ff4…9016 Head {h00=0x001e, h01=0x0050, text=» FMEL '9999',SRLNBR(WKB1) «, t00=0x005c, t01=0x0042}
0x9016…9024 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005c, t01=0x0064}
0x9024…902c Head {h00=0x0004, h01=0x0050, t00=0x005c, t01=0x0072}
0x902c…903e Head {h00=0x000e, h01=0x0050, text=»FCMD FRMT «, t00=0x005c, t01=0x007a}
0x903e…9052 Head {h00=0x0010, h01=0x0050, text=» FCOPY ='22'«, t00=0x005c, t01=0x008c}
0x9052…907c Head {h00=0x0026, h01=0x0050, text=» FTEXT 'INVALID FUNCTION COMMAND' «, t00=0x005c, t01=0x00a0}
0x907c…908a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005c, t01=0x00ca}
0x908a…9092 Head {h00=0x0004, h01=0x0050, t00=0x005c, t01=0x00d8}
0x9092…90a6 Head {h00=0x0010, h01=0x0050, text=»VARIUS FRMT «, t00=0x005c, t01=0x00e0}
0x90a6…90ba Head {h00=0x0010, h01=0x0050, text=» FCOPY ='22'«, t00=0x005c, t01=0x00f4}
0x90ba…90d0 Head {h00=0x0012, h01=0x0050, text=» FCOPY VARIOUS«, t00=0x005c, t01=0x0108}
0x90d0…90de Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005c, t01=0x011e}
0x90de…90e6 Head {h00=0x0004, h01=0x0050, t00=0x005c, t01=0x012c}
0x90e6…90f8 Head {h00=0x000e, h01=0x0050, text=»OPCMD FRMT«, t00=0x005c, t01=0x0134}
0x90f8…9118 Head {h00=0x001c, h01=0x0050, text=» FCOPY =X'4131201B3142' «, t00=0x005c, t01=0x0146}
0x9118…9134 Head {h00=0x0018, h01=0x0050, text=» FCOPY =X'311C1C1C' «, t00=0x005c, t01=0x0166}
0x9134…914a Head {h00=0x0012, h01=0x0050, text=» FCOPY WKSTR7 «, t00=0x005c, t01=0x0182}
0x914a…9158 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005d, t01=0x0008}
0x9158…9160 Head {h00=0x0004, h01=0x0050, t00=0x005d, t01=0x0016}
0x9160…9172 Head {h00=0x000e, h01=0x0050, text=»FMCMD FRMT«, t00=0x005d, t01=0x001e}
0x9172…9186 Head {h00=0x0010, h01=0x0050, text=» FCOPY ='22'«, t00=0x005d, t01=0x0030}
0x9186…91aa Head {h00=0x0020, h01=0x0050, text=» FTEXT 'FUNCTIONAL COMMAND '«, t00=0x005d, t01=0x0044}
0x91aa…91c0 Head {h00=0x0012, h01=0x0050, text=» FCOPY WKSTR7 «, t00=0x005d, t01=0x0068}
0x91c0…91d8 Head {h00=0x0014, h01=0x0050, text=» FTEXT ' SENT ' «, t00=0x005d, t01=0x007e}
0x91d8…91e6 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005d, t01=0x0096}
0x91e6…91ee Head {h00=0x0004, h01=0x0050, t00=0x005d, t01=0x00a4}
0x91ee…9232 Head {h00=0x0040, h01=0x0050, text=»FORMATS FTABLE FMT1,FMT2,FMT3,FMT4,FMT5,FMT6,FMT7,FMT8,FMT9 «, t00=0x005d, t01=0x00ac}
0x9232…923a Head {h00=0x0004, h01=0x0050, t00=0x005d, t01=0x00f0}
0x923a…924c Head {h00=0x000e, h01=0x0050, text=»FMT1 FRMT «, t00=0x005d, t01=0x00f8}
0x924c…9262 Head {h00=0x0012, h01=0x0050, text=» FTEXT 'WDR ' «, t00=0x005d, t01=0x010a}
0x9262…9278 Head {h00=0x0012, h01=0x0050, text=» FCOPY WKSTG4 «, t00=0x005d, t01=0x0120}
0x9278…9296 Head {h00=0x001a, h01=0x0050, text=» FMEL '********9',PBCD«, t00=0x005d, t01=0x0136}
0x9296…92ac Head {h00=0x0012, h01=0x0050, text=» FTEXT ',00 ' «, t00=0x005d, t01=0x0154}
0x92ac…92c2 Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x005d, t01=0x016a}
0x92c2…92d0 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005d, t01=0x0180}
0x92d0…92d8 Head {h00=0x0004, h01=0x0050, t00=0x005d, t01=0x018e}
0x92d8…92ea Head {h00=0x000e, h01=0x0050, text=»FMT2 FRMT «, t00=0x005e, t01=0x0008}
0x92ea…9300 Head {h00=0x0012, h01=0x0050, text=» FTEXT 'DEP ' «, t00=0x005e, t01=0x001a}
0x9300…9316 Head {h00=0x0012, h01=0x0050, text=» FCOPY WKSTG4 «, t00=0x005e, t01=0x0030}
0x9316…9338 Head {h00=0x001e, h01=0x0050, text=» FMEL '********9,99-',PBCD«, t00=0x005e, t01=0x0046}
0x9338…934e Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x005e, t01=0x0068}
0x934e…935c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005e, t01=0x007e}
0x935c…9364 Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x008c}
0x9364…9376 Head {h00=0x000e, h01=0x0050, text=»FMT3 FRMT «, t00=0x005e, t01=0x0094}
0x9376…938c Head {h00=0x0012, h01=0x0050, text=» FTEXT 'ENQ ' «, t00=0x005e, t01=0x00a6}
0x938c…93a2 Head {h00=0x0012, h01=0x0050, text=» FCOPY WKSTG4 «, t00=0x005e, t01=0x00bc}
0x93a2…93b8 Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x005e, t01=0x00d2}
0x93b8…93c6 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005e, t01=0x00e8}
0x93c6…93ce Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x00f6}
0x93ce…93e0 Head {h00=0x000e, h01=0x0050, text=»FMT4 FRMT «, t00=0x005e, t01=0x00fe}
0x93e0…93f6 Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x005e, t01=0x0110}
0x93f6…9404 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005e, t01=0x0126}
0x9404…940c Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x0134}
0x940c…941e Head {h00=0x000e, h01=0x0050, text=»FMT5 FRMT «, t00=0x005e, t01=0x013c}
0x941e…9434 Head {h00=0x0012, h01=0x0050, text=» FILLR '*',25 «, t00=0x005e, t01=0x014e}
0x9434…944a Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x005e, t01=0x0164}
0x944a…9458 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005e, t01=0x017a}
0x9458…9460 Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x0188}
0x9460…9472 Head {h00=0x000e, h01=0x0050, text=»FMT6 FRMT «, t00=0x005e, t01=0x0190}
0x9472…9488 Head {h00=0x0012, h01=0x0050, text=» FILLR '*',25 «, t00=0x005f, t01=0x0012}
0x9488…949e Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x005f, t01=0x0028}
0x949e…94ac Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005f, t01=0x003e}
0x94ac…94b4 Head {h00=0x0004, h01=0x0050, t00=0x005f, t01=0x004c}
0x94b4…94c6 Head {h00=0x000e, h01=0x0050, text=»FMT7 FRMT «, t00=0x005f, t01=0x0054}
0x94c6…94dc Head {h00=0x0012, h01=0x0050, text=» FILLR X'0C',1«, t00=0x005f, t01=0x0066}
0x94dc…94ea Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005f, t01=0x007c}
0x94ea…94f2 Head {h00=0x0004, h01=0x0050, t00=0x005f, t01=0x008a}
0x94f2…9504 Head {h00=0x000e, h01=0x0050, text=»FMT8 FRMT «, t00=0x005f, t01=0x0092}
0x9504…951a Head {h00=0x0012, h01=0x0050, text=» FILLR '*',25 «, t00=0x005f, t01=0x00a4}
0x951a…9530 Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x005f, t01=0x00ba}
0x9530…9554 Head {h00=0x0020, h01=0x0050, text=» FTEXT 'BEHOLDNING/UTLEVERT'«, t00=0x005f, t01=0x00d0}
0x9554…956a Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',2«, t00=0x005f, t01=0x00f4}
0x956a…957e Head {h00=0x0010, h01=0x0050, text=» FILLR '1',1«, t00=0x005f, t01=0x010a}
0x957e…95ac Head {h00=0x002a, h01=0x0050, text=» FMEL '*********9',BEHOLDN(COB1,COB1) «, t00=0x005f, t01=0x011e}
0x95ac…95c0 Head {h00=0x0010, h01=0x0050, text=» FILLR '/',1«, t00=0x005f, t01=0x014c}
0x95c0…95ee Head {h00=0x002a, h01=0x0050, text=» FMEL '*********9',BEHOLDN(COB1,COB2) «, t00=0x005f, t01=0x0160}
0x95ee…9604 Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',2«, t00=0x005f, t01=0x018e}
0x9604…9618 Head {h00=0x0010, h01=0x0050, text=» FILLR '2',1«, t00=0x0060, t01=0x0014}
0x9618…9646 Head {h00=0x002a, h01=0x0050, text=» FMEL '*********9',BEHOLDN(COB2,COB1) «, t00=0x0060, t01=0x0028}
0x9646…965a Head {h00=0x0010, h01=0x0050, text=» FILLR '/',1«, t00=0x0060, t01=0x0056}
0x965a…9688 Head {h00=0x002a, h01=0x0050, text=» FMEL '*********9',BEHOLDN(COB2,COB2) «, t00=0x0060, t01=0x006a}
0x9688…969e Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',2«, t00=0x0060, t01=0x0098}
0x969e…96b4 Head {h00=0x0012, h01=0x0050, text=» FILLR '*',25 «, t00=0x0060, t01=0x00ae}
0x96b4…96ca Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x0060, t01=0x00c4}
0x96ca…96d8 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0060, t01=0x00da}
0x96d8…96e0 Head {h00=0x0004, h01=0x0050, t00=0x0060, t01=0x00e8}
0x96e0…96f2 Head {h00=0x000e, h01=0x0050, text=»FMT9 FRMT «, t00=0x0060, t01=0x00f0}
0x96f2…9708 Head {h00=0x0012, h01=0x0050, text=» FILLR '*',25 «, t00=0x0060, t01=0x0102}
0x9708…971e Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x0060, t01=0x0118}
0x971e…9746 Head {h00=0x0024, h01=0x0050, text=» FTEXT 'SJEKKHEFTET KAN HENTES' «, t00=0x0060, t01=0x012e}
0x9746…975c Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',2«, t00=0x0060, t01=0x0156}
0x975c…9786 Head {h00=0x0026, h01=0x0050, text=» FTEXT 'VED HENVENDELSE I KASSE 1'«, t00=0x0060, t01=0x016c}
0x9786…979c Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',2«, t00=0x0061, t01=0x0008}
0x979c…97aa Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0061, t01=0x001e}
0x97aa…97b2 Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x002c}
0x97b2…97be Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0061, t01=0x0034}
0x97be…97c2 Head {h00=0x4004, h01=0x0000}
0x97c2…97c6 00 61 00 40 ┆ a @┆
0x97c6…97ce (98, 1, 8) 20 04 00 00 00 62 00 04 ┆ b ┆
0x97ce…981e (99, 0, 400) 00 02 01 56 00 14 00 50 2a 5c 46 4f 52 20 54 48 45 20 42 55 46 46 45 52 00 03 00 08 00 06 00 50 2a 20 00 03 00 20 00 22 00 50 2a 5c 46 55 4e 43 54 49 4f 4e 53 20 41 4e 44 20 45 4e 54 52 59 20 50 4f 49 4e 54 53 3a 20 00 03 00 2a 00 32 00 50 ┆ V P* FOR THE BUFFER P* " P* FUNCTIONS AND ENTRY POINTS: * 2 P┆
0x981e…986e 2a 5c 2d 43 4c 45 41 52 20 43 4f 55 4e 54 45 52 53 20 20 20 20 45 4e 54 52 59 3a 20 20 44 43 53 52 53 54 20 41 4e 44 20 44 43 53 52 4c 4c 00 03 00 50 00 32 00 50 2a 5c 2d 55 50 44 41 54 45 20 43 4f 55 4e 54 45 52 53 20 20 20 45 4e 54 52 59 ┆* -CLEAR COUNTERS ENTRY: DCSRST AND DCSRLL P 2 P* -UPDATE COUNTERS ENTRY┆
0x986e…98be 3a 20 20 44 43 53 55 50 52 20 41 4e 44 20 44 43 53 55 50 44 00 03 00 86 00 28 00 50 2a 5c 2d 52 45 41 44 20 43 4f 55 4e 54 45 52 53 20 20 20 20 20 45 4e 54 52 59 3a 20 20 44 43 53 52 45 44 20 00 03 00 bc 00 06 00 50 2a 20 00 03 00 e8 00 06 ┆: DCSUPR AND DCSUPD ( P* -READ COUNTERS ENTRY: DCSRED P* ┆
0x98be…990e 00 50 2a 20 00 03 00 f2 00 38 00 50 2a 5c 41 43 54 49 4f 4e 53 20 54 4f 20 49 4e 43 4c 55 44 45 20 53 54 41 54 49 53 54 49 43 53 20 49 4e 20 41 20 44 52 49 56 45 52 2f 50 41 43 4b 41 47 45 20 00 03 00 fc 00 38 00 50 2a 5c 31 2e 20 44 45 46 ┆ P* 8 P* ACTIONS TO INCLUDE STATISTICS IN A DRIVER/PACKAGE 8 P* 1. DEF┆
0x990e…995e 49 4e 45 20 45 56 45 4e 54 53 20 49 4e 20 54 48 45 20 44 52 49 56 45 52 20 54 4f 20 43 41 4c 4c 20 52 45 53 50 20 45 4e 54 52 59 20 00 03 01 38 00 38 00 50 2a 5c 20 20 20 54 48 45 20 43 4f 55 4e 54 45 52 53 20 50 4f 53 53 49 42 4c 45 20 41 ┆INE EVENTS IN THE DRIVER TO CALL RESP ENTRY 8 8 P* THE COUNTERS POSSIBLE A┆
0x995e…99ae (100, 0, 400) 52 45 20 44 45 46 49 4e 45 44 20 42 59 20 54 48 45 20 45 51 55 3a 53 20 00 03 01 74 00 2a 00 50 2a 5c 20 20 20 43 53 53 52 42 4c 20 2d 20 43 53 43 58 43 33 20 41 53 20 44 45 53 52 49 42 45 44 20 42 45 4c 4f 57 00 04 00 20 00 3c 00 50 2a 5c ┆RE DEFINED BY THE EQU:S t * P* CSSRBL - CSCXC3 AS DESRIBED BELOW < P* ┆
0x99ae…99fe 32 2e 20 44 45 46 49 4e 45 20 43 4f 55 4e 54 45 52 20 41 52 45 41 20 49 4e 20 54 48 45 20 44 57 54 20 41 4e 44 20 49 54 53 20 4c 49 4e 4b 28 4f 46 46 53 45 54 29 00 04 00 4e 00 3a 00 50 2a 5c 20 20 20 54 48 45 20 4c 41 59 4f 55 54 20 44 45 ┆2. DEFINE COUNTER AREA IN THE DWT AND ITS LINK(OFFSET) N : P* THE LAYOUT DE┆
0x99fe…9a4e 53 43 52 49 42 45 44 20 42 45 4c 4f 57 20 4d 55 53 54 20 42 45 20 41 50 50 4c 49 45 44 20 41 53 20 52 45 51 00 04 00 8e 00 12 00 50 2a 5c 20 20 20 42 59 20 44 43 53 54 41 54 00 04 00 cc 00 0a 00 50 5c 45 4a 45 43 54 00 04 00 e2 00 18 00 50 ┆SCRIBED BELOW MUST BE APPLIED AS REQ P* BY DCSTAT P EJECT P┆
0x9a4e…9a9e 2a 2e 5c 54 41 42 4c 45 20 53 54 52 55 43 54 55 52 45 3a 20 00 04 00 f0 00 28 00 50 2a 2e 5c 54 48 45 20 44 57 54 20 48 41 53 20 54 48 45 20 46 4f 4c 4c 4f 57 49 4e 47 20 4c 41 59 4f 55 54 20 00 04 01 0c 00 06 00 50 2a 2e 00 04 01 38 00 1a ┆*. TABLE STRUCTURE: ( P*. THE DWT HAS THE FOLLOWING LAYOUT P*. 8 ┆
0x9a9e…9aee 00 50 2a 5c 5c 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 20 00 04 01 42 00 1a 00 50 2a 5c 5c 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2e 20 00 04 01 60 00 1a 00 50 2a 5c 5c 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ P* .................. B P* . . ` P* / ┆