|
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: 48934 (0xbf26)
Notes: pts_type(SC)
Names: »TABSIM.SC«
└─⟦cd4bbebb4⟧ Bits:30009680 Philips computer tape "600221"
└─⟦this⟧ »BEBATM/TABSIM.SC«
IDENT TABSIM 830810 NJ
**********************************************************
* *
* THIS PROCEDURE CONTAINS MOST OF THE SUBROUTES REQUIRED *
* FOR TESTING THE PTS 6601 *
* *
**********************************************************
DDUM DDIV
PDIV
ENTRY SENDFC SEND FUNCTION COMMAND
ENTRY CUSREQ TREAT CUSTOMER REQUEST
ENTRY SOLLST SOLLICITED STATUS
ENTRY UNSTAT UNSOLLICITED STATUS
ENTRY OPENLN OPEN LINE TO ATM
ENTRY READOK MSG READ FROM ATM
ENTRY ADDPOL ADD ATM TO POLLLIST
ENTRY KBINP
ENTRY KINW
ENTRY DCNW
ENTRY DLLATM DOWNLINELOAD THE ATM
ENTRY RECHK CHECK RETURNCODE
ENTRY SCRIBE DISPLAY TEXTS ON VDU
ENTRY OPRCMD BUILD OPERATIONAL COMMAND
EXPROC LOADER
EXT RECASM
EXT COPY4
EXT MASK
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 NEW MONEY
KLOKKEN EQU X'00' SET TIME
NYTBDT EQU X'00' NEW BATCH
STENG EQU X'00' CLOSE ATM
KTAB1 KTAB ENTERK,CANCEL,DLLD,PENGE,KLOKKEN,NYTBDT,STENG
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
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 PNT1,=W'28' POINT AT BYTE 29
XCOPY WKSTR7,COB0,COB1,FCBLD(FCBLDX),PNT1 ROUTINE INDEX
MOVE WKBCD3,WKSTR7
MOVE PNT1,WKBCD3
PERFI PNT1,RUT1, C
RUT2, C
RUT3, C
RUT4, C
RUT5, C
RUT6, C
RUT7, C
RUT8, C
RUT9
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'A',SOLL030 COMMAND REJECT
SOLL020 READY
MOVE VARIOUS,=C'READY '
B SOLL035
SOLL030 COMMAND REJECT
MOVE VARIOUS,=C'COMMAND REJECT '
SOLL035
PERF SCRIBE,VARIUS
B SOLL090
SOLL040 DEVICE FAULT
CLEAR DUMMY CLEAR DUMMY FLAG
PERF UNLOAD,COMB2,DUMMY,=W'2' COPY DID + DEVICE STATUS
MOVE DID,COB0
XCOPY DID,COB1,COB1,COMB2,COB0 COPY DID
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 BIN3,COB0
CLEAR DUMMY
MATCH DEVST,BIN3,PNT1,GS,COB0,COB1 ANY <GS>?
BNOK SOLL050 NO, NOT THIS TIME
SET DUMMY <GS> FOUND
SOLL050
PERF SCRIBE,ERROR 'DEVICE--STATUS'
* IN 'DID' WE NOW HAVE THE DEVICEIDENTIFIER AND IN
* 'DEVST' DEVICESTATUS
SUB DID,=X'0030' CONVERT 30..4D TO 00..1D
PERFI DID,DUMPRC, DUMMY C
SS, PRINTERE C
SS, SECUROMATIC C
DUMPRC, C
DUMPRC, C
DUMPRC, C
DUMPRC, C
DUMPRC, C
DUMPRC, C
DUMPRC, C
DUMPRC, C
SS, CONFIGURATION C
SS, CARDWRITER C
SS, CARD READER C
SS, DISPENSER C
SS, DELIVERY DOOR C
SS, DEPOSITORY C
SS, HARDWARE CONFIGURATION C
SS, CHECKPOINT C
SS, CASSETTE C
SS, ALARM C
SS, SUPPLY SWITCH C
SS, CONTROL PANEL C
SS, VANDAL SHIELD C
DUMPRC
PERF GIS GROUP IDENT STATUS
PERF GIS
PERF GIS (MIGHT BE EMPTY)
CBE DID,COB2,SOLL090 TEST FOR PRINTER FAULT
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
SS PROC
* PNT1 CONTAINS LENGTH OF DEVST
MOVE BYTE,COB1
CBL PNT1,COB2,SS0299 FINISHED?
SS0200
MOVE BIN3,COB0
CALL COPY4,BIN3,COB2,COB1,DEVST,COB1 1ST NIBBLE
CALL COPY4,BIN3,COB3,COB1,DEVST,COB3 2ND NIBBLE
MOVE BYTE,COB0 BYTENBR IN STATUSMSG (+1)
PERF EXPAND
SS0210 BUILD UP A 5 CHR KEY AND PRINT
TEXT(S)
PERF FNDTXT
DLETE DEVST,COB0,COB2 DELETE TREATED STATUSBYTES
SUB PNT1,COB2 DONT FORGET THE LENGTH
BP SS0200 ANY MORE LEFT?
SS0299 RET
PEND
GIS PROC
RET
PEND
EJECT
EXPAND PROC
* EXPAND 1 STATUSBYTE INTO 8 WORDS WITH
* THE VALUE '7' .. '0'
* STATUS IS IN BIN3
MOVE BIN4,COB1
MOVE BIN1,COB7
MOVE BIN2,=W'128'
EXP000
CALL MASK,BIN3,BIN2 IS THE BIT SET?
BZ EXP010 NO, TRY NEXT
MOVE ORD(BIN4),BIN1 MOVE A VALUE 7..1 INTO WORD
B EXP020
EXP010
MOVE ORD(BIN4),COB0 RESET WORD
EXP020
ADD BIN4,COB1
DIV BIN2,COB2 COMPUTE NEXT MASK
SUB BIN1,COB1 COMPUTE NEXT VALUE
CBNL BIN1,COB0,EXP000 MORE?
PERF RESET
* RESET VARIOUS WORDS DEPENDING ON DID
RET
PEND
EJECT
FNDTXT PROC
MOVE WKSTR6,=C'X' SEARCH VALUE
XCOPY WKSTR6,COB0,COB1,COMB2,COB0 DID
MOVE BIN4,COB1 BYTENR (1..5)
MOVE BIN3,COB1
FND000
ADD BIN4,COB1 DISPL. WITHIN KEY
CBE ORD(BIN3),COB0,FND100
MOVE WKSTR7,=X'30'
CALL COPY4,WKSTR7,COB1,COB1,ORD(BIN3),COB3
XCOPY WKSTR6,BIN4,COB1,WKSTR7,COB0
MOVE BIN7,COB1
MOVE WKSTR6,=C' '
FND010
MOVE BIN6,COB0
MATCH WKSTR6,BIN6,COB5,STATTXT(BIN7),COB0,COB5
BOK FND020
ADD BIN7,COB1
CBNG BIN7,=W'128',FND010
NOT FOUND
PERF SCRIBE,STATNF
B FND030
FND020 STATUSKEY FOUND
PERF SCRIBE,STATFND
FND030
FND100 TRY NEXT
ADD BIN3,COB1
CBL BIN3,COB8,FND000
RET
PEND
RESET PROC
IB DID,RES01,RES02,RES03,RES04, C
RES05,RES06,RES07,RES08, C
RES09,RES10,RES11,RES12, C
RES13,RES14,RES15,RES16, C
RES17,RES18,RES19,RES20, C
RES21,RES22,RES23,RES24
RES01
RES04
RES05
RES06
RES07
RES08
RES09
RES10
RES11
RES13
RES17
RES18
RES19
RES20
RES21
RES22
RES23
RET
RES02 PRINTERS
CBNE BYTE,COB1,RESXX
MOVE ORD(COB7),COB0 'RECEIPT PRINTER HAS FALUTED'
MOVE ORD(COB8),COB0 'AUX.PRINTER HAS FAULTED'
B RESXX
RES03 SECUROMATIC
CBNE BYTE,COB1,RESXX
CBE ORD(COB5),COB0,RESXX
CBE ORD(COB6),COB0,RESXX
MOVE ORD(COB5),COB0 'DOOR LOCKED' AND
MOVE ORD(COB6),COB0 'CYCLE COMPLETE' COMBINED
INDICATE SUCCESSFUL TRANS
B RESXX
RES12 CONFIGURATION
CBG BYTE,COB1,RESXX
MOVE ORD(COB1),COB0
MOVE ORD(COB2),COB0
MOVE ORD(COB3),COB0
MOVE ORD(COB4),COB0
MOVE ORD(COB5),COB0
MOVE ORD(COB6),COB0
MOVE ORD(COB7),COB0
MOVE ORD(COB8),COB0
B RESXX
RES14 CARD READER
CBNE BYTE,COB1,RES1410
MOVE ORD(COB1),COB0 'CARD RETURN FAILURE'
B RESXX
RES1410
CBNE BYTE,COB2,RES1420
MOVE ORD(COB1),COB0 'READ OPERATION COMPLETE'
MOVE ORD(COB5),COB0 'CARD IN RETAIN POSITION'
B RESXX
RES1420
B RESXX
RES15 DISPENSER
B RESXX
RES16 DELIVERY DOOR
CBNE BYTE,COB1,RESXX
MOVE ORD(COB6),COB0 'DOOR OPEN'
B RESXX
RES24 VANDAL SHIELD
CBNE BYTE,COB1,RES2410
MOVE ORD(COB1),COB0 'OPERATION COMPLETE'
MOVE ORD(COB2),COB0 'GOOD COMPLETION'
B RESXX
RES2410
B RESXX
RESXX
RET
PEND
EJECT
RUT1 PROC
* ROUND AND CHECK WDR AMOUNT
* COMPUTE NOTEMIX
CBL PBCD,LOLIMIT,RUT1A
CBE PBCD,=D'0',RUT1A
DIV PBCD,LOLIMIT
MUL PBCD,LOLIMIT
CBG PBCD,HILIMIT,RUT1A
PERF LOMULT
BNOK RUT1A
PERF NOTMIX
RET
RUT1A
MOVE OPKY,=C'X '
RET
PEND
RUT2 PROC
RET
PEND
RUT3 PROC
RET
PEND
RUT4 PROC
RET
PEND
RUT5 PROC
RET
PEND
RUT6 PROC
RET
PEND
RUT7 PROC
RET
PEND
RUT8 PROC
RET
PEND
RUT9 PROC
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
MOVE DID,=W'21'
B UNST080
UNST045 PRINTERS
MOVE DID,=W'2'
B UNST080
UNST050 CARD READER
MOVE DID,=W'25'
B UNST080
UNST055 CONTROL PANEL
MOVE DID,=W'23'
B UNST080
UNST060 CARD WRITER
MOVE DID,=W'13'
B UNST080
UNST065 VANDAL SHIELD
MOVE DID,=W'24'
B UNST080
UNST070 KEYS
MOVE WKSTR7,=C'3' CONFIG.DATA
PERF OPRCMD OPERATIONAL COMMAND
BNOK UNST090
MOVE RETUR,COB0 SOLL.STATUS EXPECTED
RET
UNST080
PERF SS SAME AS IN SOLL.STATUS
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',FCP40 NO PRINTER FLAG
* RECEIPT PRINTER
CBNE TXFG,=C'1',FCP10
* EDIT HEADER ONLY IF FIRST TRANSACTION ON SLIP
MOVE FMBUF,=X'00'
EDIT FMBUF,DATEFMT
MOVE BIN7,COB0
MOVE BIN6,=W'256'
MOVE WKSTR7,=X'00'
MATCH FMBUF,BIN7,BIN6,WKSTR7,COB0,COB1
XCOPY FCMESS,PNT3,BIN7,FMBUF,COB0
ADD PNT3,BIN7
MOVE COUNT,PLEN(COB1,COB2) SET LINELENGTH
XCOPY FCMESS,PNT3,COUNT,PNAT(COB1),COB0 "THANK YOU ..."
ADD PNT3,COUNT INCREMENT FCMESS POINTER
FCP10
XCOPY WKSTR8,COB0,COB2,FCBLD(FCBLDX),PNT1 FORMAT NBR
ADD PNT1,COB2 INCREMENT FCBLD POINTER
CBE WKSTR8,=C'00',FCP30 USE PTAB/PLEN
MOVE WKBCD1,WKSTR8
MOVE BIN7,WKBCD1
MOVE FMBUF,=X'00'
EDIT FMBUF,FORMATS(BIN7) = FORMATS(SCREENNBR)
MOVE BIN6,COB0
MOVE WKSTR7,=X'00'
MOVE BIN7,=W'256' LENGTH FMBUF
MATCH FMBUF,BIN6,BIN7,WKSTR7,COB0,COB1
XCOPY FCMESS,PNT3,BIN6,FMBUF,COB0 MOVE ONLY GOOD LENGTH
ADD PNT3,BIN6
B FCP40
FCP30
MOVE BIN7,PLEN(FCBLDX,COB1) PRINTERDATALENGTH
CBE BIN7,COB0,FCP40 NOT IF ZERO LENGTH
XCOPY FCMESS,PNT3,BIN7,PTAB(FCBLDX),COB0 MOVE PRINTERDATA
ADD PNT3,BIN7
FCP40
**********************************************************
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
DUMPRC PROC
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
B OPRC015
*
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)
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
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
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
FCOPY WKSTG4
FMEND
FCMD FRMT
FCOPY ='22'
FTEXT 'INVALID FUNCTION COMMAND'
FMEND
VARIUS FRMT
FCOPY ='22'
FCOPY VARIOUS
FMEND
ERROR FRMT
FCOPY ='22'
FTEXT 'STATUS INFO FROM '
FCOPY DEVAR1(DID)
FILLR ':',1
FMEND
STATNF FRMT
FCOPY ='22'
FTEXT 'STATUSKEY '
FCOPY WKSTR6
FTEXT ' UNKNOWN'
FMEND
STATFND FRMT
FCOPY ='22'
FTEXT 'KEY AND TEXT: '
FCOPY STATTXT(BIN7)
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 SERIALNUMBER
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
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 'DENOM BEHOLDNING/UTLEVERT'
FILLR X'0A',2
FMEL '9999',DENOM(COB1)
FILLR ' ',1
FMEL '*********9',BEHOLDN(COB1,COB1)
FILLR ' ',1
FMEL '*********9',BEHOLDN(COB1,COB2)
FILLR X'0A',1
FMEL '9999',DENOM(COB2)
FILLR ' ',1
FMEL '*********9',BEHOLDN(COB2,COB1)
FILLR ' ',1
FMEL '*********9',BEHOLDN(COB2,COB2)
FILLR X'0A',1
FMEL '9999',DENOM(COB3)
FILLR ' ',1
FMEL '*********9',BEHOLDN(COB3,COB1)
FILLR ' ',1
FMEL '*********9',BEHOLDN(COB3,COB2)
FILLR X'0A',1
FMEL '9999',DENOM(COB4)
FILLR ' ',1
FMEL '*********9',BEHOLDN(COB4,COB1)
FILLR ' ',1
FMEL '*********9',BEHOLDN(COB4,COB2)
FILLR X'0A',1
FMEL '9999',DENOM(COB5)
FILLR ' ',1
FMEL '*********9',BEHOLDN(COB5,COB1)
FILLR ' ',1
FMEL '*********9',BEHOLDN(COB5,COB2)
FILLR X'0A',1
FMEL '9999',DENOM(COB6)
FILLR ' ',1
FMEL '*********9',BEHOLDN(COB6,COB1)
FILLR ' ',1
FMEL '*********9',BEHOLDN(COB6,COB2)
FILLR X'0A',1
FMEL '9999',DENOM(COB7)
FILLR ' ',1
FMEL '*********9',BEHOLDN(COB7,COB1)
FILLR ' ',1
FMEL '*********9',BEHOLDN(COB7,COB2)
FILLR X'0A',1
FMEL '9999',DENOM(COB8)
FILLR ' ',1
FMEL '*********9',BEHOLDN(COB8,COB1)
FILLR ' ',1
FMEL '*********9',BEHOLDN(COB8,COB2)
FILLR X'0A',1
FILLR '*',25
FILLR X'0A',1
FMEND
FMT9 FRMT
FILLR '*',25
FILLR X'0A',1
FTEXT 'SJEKKHEFTET KAN AVHENTES'
FILLR X'0A',1
FTEXT 'I KASSE 1 KL. 12.00'
FILLR X'0A',1
FMEND
END
0x0000…0020 (0, 0, 400) Head {h00=0x001c, h01=0x0050, text=» IDENT TABSIM 830810 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…0218 Head {h00=0x0028, h01=0x0050, text=» ENTRY SENDFC SEND FUNCTION COMMAND «, t00=0x0001, t01=0x0060}
0x0218…0244 Head {h00=0x0028, h01=0x0050, text=» ENTRY CUSREQ TREAT CUSTOMER REQUEST«, t00=0x0001, t01=0x008c}
0x0244…026c Head {h00=0x0024, h01=0x0050, text=» ENTRY SOLLST SOLLICITED STATUS «, t00=0x0001, t01=0x00b8}
0x026c…0296 Head {h00=0x0026, h01=0x0050, text=» ENTRY UNSTAT UNSOLLICITED STATUS «, t00=0x0001, t01=0x00e0}
0x0296…02bc Head {h00=0x0022, h01=0x0050, text=» ENTRY OPENLN OPEN LINE TO ATM«, t00=0x0001, t01=0x010a}
0x02bc…02e4 Head {h00=0x0024, h01=0x0050, text=» ENTRY READOK MSG READ FROM ATM «, t00=0x0001, t01=0x0130}
0x02e4…030e Head {h00=0x0026, h01=0x0050, text=» ENTRY ADDPOL ADD ATM TO POLLLIST «, t00=0x0001, t01=0x0158}
0x030e…0322 Head {h00=0x0010, h01=0x0050, text=» ENTRY KBINP«, t00=0x0001, t01=0x0182}
0x0322…0336 Head {h00=0x0010, h01=0x0050, text=» ENTRY KINW «, t00=0x0002, t01=0x0008}
0x0336…034a Head {h00=0x0010, h01=0x0050, text=» ENTRY DCNW «, t00=0x0002, t01=0x001c}
0x034a…0374 Head {h00=0x0026, h01=0x0050, text=» ENTRY DLLATM DOWNLINELOAD THE ATM«, t00=0x0002, t01=0x0030}
0x0374…039a Head {h00=0x0022, h01=0x0050, text=» ENTRY RECHK CHECK RETURNCODE «, t00=0x0002, t01=0x005a}
0x039a…03c4 Head {h00=0x0026, h01=0x0050, text=» ENTRY SCRIBE DISPLAY TEXTS ON VDU«, t00=0x0002, t01=0x0080}
0x03c4…03f4 Head {h00=0x002c, h01=0x0050, text=» ENTRY OPRCMD BUILD OPERATIONAL COMMAND «, t00=0x0002, t01=0x00aa}
0x03f4…03fc Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00da}
0x03fc…0412 Head {h00=0x0012, h01=0x0050, text=» EXPROC LOADER«, t00=0x0002, t01=0x00e2}
0x0412…041a Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00f8}
0x041a…042e Head {h00=0x0010, h01=0x0050, text=» EXT RECASM «, t00=0x0002, t01=0x0100}
0x042e…0440 Head {h00=0x000e, h01=0x0050, text=» EXT COPY4«, t00=0x0002, t01=0x0114}
0x0440…0452 Head {h00=0x000e, h01=0x0050, text=» EXT MASK «, t00=0x0002, t01=0x0126}
0x0452…045a Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0138}
0x045a…0462 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0140}
0x0462…048a Head {h00=0x0024, h01=0x0050, text=»ENTERK EQU X'0D' ENTER KEY CODE «, t00=0x0002, t01=0x0148}
0x048a…04b2 Head {h00=0x0024, h01=0x0050, text=»CANCEL EQU X'0A' CANCEL KEY CODE«, t00=0x0002, t01=0x0170}
0x04b2…04dc Head {h00=0x0026, h01=0x0050, text=»DLLD EQU X'18' FORCE DOWNLINELOAD «, t00=0x0003, t01=0x0008}
0x04dc…0502 Head {h00=0x0022, h01=0x0050, text=»PENGE EQU X'00' LOAD NEW MONEY«, t00=0x0003, t01=0x0032}
0x0502…0524 Head {h00=0x001e, h01=0x0050, text=»KLOKKEN EQU X'00' SET TIME«, t00=0x0003, t01=0x0058}
0x0524…0546 Head {h00=0x001e, h01=0x0050, text=»NYTBDT EQU X'00' NEW BATCH«, t00=0x0003, t01=0x007a}
0x0546…0568 Head {h00=0x001e, h01=0x0050, text=»STENG EQU X'00' CLOSE ATM «, t00=0x0003, t01=0x009c}
0x0568…0570 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x00be}
0x0570…05b0 Head {h00=0x003c, h01=0x0050, text=»KTAB1 KTAB ENTERK,CANCEL,DLLD,PENGE,KLOKKEN,NYTBDT,STENG«, t00=0x0003, t01=0x00c6}
0x05b0…05be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0106}
0x05be…05d2 Head {h00=0x0010, h01=0x0050, text=»READOK PROC «, t00=0x0003, t01=0x0114}
0x05d2…05dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0128}
0x05dc…05fc Head {h00=0x001c, h01=0x0050, text=»****** READ OK«, t00=0x0003, t01=0x0132}
0x05fc…0606 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0152}
0x0606…063a Head {h00=0x0030, h01=0x0050, text=» CBE LENGTH,COB0,READ10 READ AGAIN IF LEN=0 «, t00=0x0003, t01=0x015c}
0x063a…065a Head {h00=0x001c, h01=0x0050, text=» CBNG LENGTH,COB4,READ20«, t00=0x0003, t01=0x0190}
0x065a…0692 Head {h00=0x0034, h01=0x0050, text=» DLETE BUFIN,COB0,COB4 DELETE CONTROL CHARACTERS«, t00=0x0004, t01=0x0020}
0x0692…06be Head {h00=0x0028, h01=0x0050, text=» SUB LENGTH,COB4 REDUCE LENGTH BY 4 «, t00=0x0004, t01=0x0058}
0x06be…06fe Head {h00=0x003c, h01=0x0050, text=» XCOPY BUFIN,LENGTH,COB2,FS,COB0 ADD 2 FIELD SEPERATORS «, t00=0x0004, t01=0x0084}
0x06fe…072c Head {h00=0x002a, h01=0x0050, text=» ADD LENGTH,COB2 INCREASE LENGTH BY 2 «, t00=0x0004, t01=0x00c4}
0x072c…076e Head {h00=0x003e, h01=0x0050, text=» XCOPY BIN1,COB0,COB2,BUFIN,COB0 COPY MESSAGE IDENTIFIERS «, t00=0x0004, t01=0x00f2}
0x076e…079a Head {h00=0x0028, h01=0x0050, text=» CBE BIN1,=C'22',READ30 SOLL.STATUS «, t00=0x0004, t01=0x0134}
0x079a…07c8 Head {h00=0x002a, h01=0x0050, text=» CBE BIN1,=C'12',READ40 UNSOLL.STATUS «, t00=0x0004, t01=0x0160}
0x07c8…07f8 Head {h00=0x002c, h01=0x0050, text=» CBE BIN1,=C'11',READ50 CUSTOMER REQUEST«, t00=0x0004, t01=0x018e}
0x07f8…082c Head {h00=0x0030, h01=0x0050, text=» MOVE VARIOUS,=C'INVALID MESSAGE RECEIVED ' «, t00=0x0005, t01=0x002e}
0x082c…0848 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0005, t01=0x0062}
0x0848…0866 Head {h00=0x001a, h01=0x0050, text=»READ02 FIND NEXT FS «, t00=0x0005, t01=0x007e}
0x0866…087e Head {h00=0x0014, h01=0x0050, text=» MOVE PNT1,COB0 «, t00=0x0005, t01=0x009c}
0x087e…08ba Head {h00=0x0038, h01=0x0050, text=» MATCH BUFIN,PNT1,LENGTH,FS,COB0,COB1 SEARCH FOR FS «, t00=0x0005, t01=0x00b4}
0x08ba…08d6 Head {h00=0x0018, h01=0x0050, text=» BNZ READ04 NO MATCH«, t00=0x0005, t01=0x00f0}
0x08d6…0912 Head {h00=0x0038, h01=0x0050, text=» XCOPY BUFIN,PNT1,COB1,CHAR2,COB0 EXCHANGE FS FOR . «, t00=0x0005, t01=0x010c}
0x0912…0930 Head {h00=0x001a, h01=0x0050, text=» B READ02 FIND NEXT FS«, t00=0x0005, t01=0x0148}
0x0930…094a Head {h00=0x0016, h01=0x0050, text=»READ04 NO MATCH «, t00=0x0005, t01=0x0166}
0x094a…0972 Head {h00=0x0024, h01=0x0050, text=» MOVE BIN3,=W'80' SET BIN3 TO 80«, t00=0x0005, t01=0x0180}
0x0972…098e Head {h00=0x0018, h01=0x0050, text=»READ06 TEST LENGTH«, t00=0x0006, t01=0x0018}
0x098e…09c0 Head {h00=0x002e, h01=0x0050, text=» CBL LENGTH,BIN3,READ08 TEST FOR LENGTH<80«, t00=0x0006, t01=0x0034}
0x09c0…09fe Head {h00=0x003a, h01=0x0050, text=» XCOPY INFO,COB0,BIN3,BUFIN,COB0 COPY BUFIN INTO INFO «, t00=0x0006, t01=0x0066}
0x09fe…0a24 Head {h00=0x0022, h01=0x0050, text=» PERF SCRIBE,INF DISPLAY DATA«, t00=0x0006, t01=0x00a4}
0x0a24…0a5a Head {h00=0x0032, h01=0x0050, text=» DLETE BUFIN,COB0,BIN3 DELETE DATA FROM BUFIN «, t00=0x0006, t01=0x00ca}
0x0a5a…0a86 Head {h00=0x0028, h01=0x0050, text=» SUB LENGTH,BIN3 REDUCE LENGTH BY 80«, t00=0x0006, t01=0x0100}
0x0a86…0aaa Head {h00=0x0020, h01=0x0050, text=» B READ06 TEST LENGTH AGAIN «, t00=0x0006, t01=0x012c}
0x0aaa…0ac4 Head {h00=0x0016, h01=0x0050, text=»READ08 LENGTH<80«, t00=0x0006, t01=0x0150}
0x0ac4…0ae8 Head {h00=0x0020, h01=0x0050, text=» MOVE INFO,=C' ' CLEAR INFO «, t00=0x0006, t01=0x016a}
0x0ae8…0b2c Head {h00=0x0040, h01=0x0050, text=» XCOPY INFO,COB0,LENGTH,BUFIN,COB0 REMAINING DATA INTO INFO «, t00=0x0006, t01=0x018e}
0x0b2c…0b54 Head {h00=0x0024, h01=0x0050, text=» PERF SCRIBE,INF DISPLAY DATA «, t00=0x0007, t01=0x0042}
0x0b54…0b5c Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x006a}
0x0b5c…0b78 Head {h00=0x0018, h01=0x0050, text=»READ10 DO NEW READ«, t00=0x0007, t01=0x0072}
0x0b78…0b90 Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB0«, t00=0x0007, t01=0x008e}
0x0b90…0ba2 Head {h00=0x000e, h01=0x0050, text=» B READ90 «, t00=0x0007, t01=0x00a6}
0x0ba2…0baa Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x00b8}
0x0baa…0bc6 Head {h00=0x0018, h01=0x0050, text=»READ20 LENGTH < 5 «, t00=0x0007, t01=0x00c0}
0x0bc6…0bea Head {h00=0x0020, h01=0x0050, text=» MOVE INFO,=C' ' CLEAR INFO «, t00=0x0007, t01=0x00dc}
0x0bea…0c2e Head {h00=0x0040, h01=0x0050, text=» XCOPY INFO,COB0,LENGTH,BUFIN,COB0 REMAINING DATA INTO INFO «, t00=0x0007, t01=0x0100}
0x0c2e…0c56 Head {h00=0x0024, h01=0x0050, text=» PERF SCRIBE,INF DISPLAY DATA «, t00=0x0007, t01=0x0144}
0x0c56…0c6e Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB0«, t00=0x0007, t01=0x016c}
0x0c6e…0c80 Head {h00=0x000e, h01=0x0050, text=» B READ90 «, t00=0x0007, t01=0x0184}
0x0c80…0c88 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0008}
0x0c88…0ca4 Head {h00=0x0018, h01=0x0050, text=»READ30 SOLL.STATUS«, t00=0x0008, t01=0x0010}
0x0ca4…0cbc Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB1«, t00=0x0008, t01=0x002c}
0x0cbc…0cce Head {h00=0x000e, h01=0x0050, text=» B READ90 «, t00=0x0008, t01=0x0044}
0x0cce…0cd6 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0056}
0x0cd6…0cf4 Head {h00=0x001a, h01=0x0050, text=»READ40 UNSOLL.STATUS«, t00=0x0008, t01=0x005e}
0x0cf4…0d0c Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB2«, t00=0x0008, t01=0x007c}
0x0d0c…0d1e Head {h00=0x000e, h01=0x0050, text=» B READ90 «, t00=0x0008, t01=0x0094}
0x0d1e…0d26 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x00a6}
0x0d26…0d48 Head {h00=0x001e, h01=0x0050, text=»READ50 CUSTOMER REQUEST «, t00=0x0008, t01=0x00ae}
0x0d48…0d60 Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB3«, t00=0x0008, t01=0x00d0}
0x0d60…0d68 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x00e8}
0x0d68…0d84 Head {h00=0x0018, h01=0x0050, text=»READ90 EXIT POINT «, t00=0x0008, t01=0x00f0}
0x0d84…0d90 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0008, t01=0x010c}
0x0d90…0d9e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0008, t01=0x0118}
0x0d9e…0dac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0126}
0x0dac…0dc0 Head {h00=0x0010, h01=0x0050, text=»CUSREQ PROC «, t00=0x0008, t01=0x0134}
0x0dc0…0dca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0148}
0x0dca…0df4 Head {h00=0x0026, h01=0x0050, text=»****** CUSTOMER REQUEST «, t00=0x0008, t01=0x0152}
0x0df4…0dfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x017c}
0x0dfe…0e12 Head {h00=0x0010, h01=0x0050, text=» CLEAR ERROR«, t00=0x0008, t01=0x0186}
0x0e12…0e4e Head {h00=0x0038, h01=0x0050, text=» DLETE BUFIN,COB0,COB9 REMOVE UNWANTED MESSAGE DATA «, t00=0x0009, t01=0x000a}
0x0e4e…0e7e Head {h00=0x002c, h01=0x0050, text=» SUB LENGTH,COB9 SUBTRACT 9 FROM LENGTH «, t00=0x0009, t01=0x0046}
0x0e7e…0ea2 Head {h00=0x0020, h01=0x0050, text=» CLEAR F1 CLEAR FLAGS F1-F9 «, t00=0x0009, t01=0x0076}
0x0ea2…0eb4 Head {h00=0x000e, h01=0x0050, text=» CLEAR F2 «, t00=0x0009, t01=0x009a}
0x0eb4…0ec6 Head {h00=0x000e, h01=0x0050, text=» CLEAR F3«, t00=0x0009, t01=0x00ac}
0x0ec6…0ed8 Head {h00=0x000e, h01=0x0050, text=» CLEAR F4 «, t00=0x0009, t01=0x00be}
0x0ed8…0eea Head {h00=0x000e, h01=0x0050, text=» CLEAR F5 «, t00=0x0009, t01=0x00d0}
0x0eea…0efc Head {h00=0x000e, h01=0x0050, text=» CLEAR F6 «, t00=0x0009, t01=0x00e2}
0x0efc…0f0e Head {h00=0x000e, h01=0x0050, text=» CLEAR F7 «, t00=0x0009, t01=0x00f4}
0x0f0e…0f20 Head {h00=0x000e, h01=0x0050, text=» CLEAR F8 «, t00=0x0009, t01=0x0106}
0x0f20…0f32 Head {h00=0x000e, h01=0x0050, text=» CLEAR F9 «, t00=0x0009, t01=0x0118}
0x0f32…0f6c Head {h00=0x0036, h01=0x0050, text=» PERF UNLOAD,COMB,F1,=W'2' TXFG AND MESS COMBINED «, t00=0x0009, t01=0x012a}
0x0f6c…0f9e Head {h00=0x002e, h01=0x0050, text=» XCOPY TXFG,COB0,COB1,COMB,COB0 COPY TXFG «, t00=0x0009, t01=0x0164}
0x0f9e…0fd0 Head {h00=0x002e, h01=0x0050, text=» XCOPY MESS,COB0,COB1,COMB,COB1 COPY MESS «, t00=0x000a, t01=0x0008}
0x0fd0…1000 Head {h00=0x002c, h01=0x0050, text=» PERF UNLOAD,TK2D,F2,=W'40' TRACK 2 DATA«, t00=0x000a, t01=0x003a}
0x1000…1032 Head {h00=0x002e, h01=0x0050, text=» PERF UNLOAD,TK3D,F3,=W'106' TRACK 3 DATA «, t00=0x000a, t01=0x006a}
0x1032…1064 Head {h00=0x002e, h01=0x0050, text=» MOVE TK3DL,PNT1 STORE TRACK 3 DATA LENGTH«, t00=0x000a, t01=0x009c}
0x1064…1096 Head {h00=0x002e, h01=0x0050, text=» PERF UNLOAD,OPKY,F4,=W'8' OPERATION KEYS «, t00=0x000a, t01=0x00ce}
0x1096…10ca Head {h00=0x0030, h01=0x0050, text=» PERF UNLOAD,PPPP,F5,=W'16' POUNDS AND PENCE«, t00=0x000a, t01=0x0100}
0x10ca…1106 Head {h00=0x0038, h01=0x0050, text=» PERF UNLOAD,GPBA,F6,=W'32' GENERAL PURPOSE BUFFER A«, t00=0x000a, t01=0x0134}
0x1106…111e Head {h00=0x0014, h01=0x0050, text=» MOVE GPBA,=C' '«, t00=0x000a, t01=0x0170}
0x111e…115a Head {h00=0x0038, h01=0x0050, text=» PERF UNLOAD,GPBB,F7,=W'32' GENERAL PURPOSE BUFFER B«, t00=0x000a, t01=0x0188}
0x115a…1196 Head {h00=0x0038, h01=0x0050, text=» PERF UNLOAD,GPBC,F8,=W'32' GENERAL PURPOSE BUFFER C«, t00=0x000b, t01=0x0034}
0x1196…11c6 Head {h00=0x002c, h01=0x0050, text=» PERF UNLOAD,TK1D,F9,=W'80' TRACK 1 DATA«, t00=0x000b, t01=0x0070}
0x11c6…11fa Head {h00=0x0030, h01=0x0050, text=» MOVE PBCD,PPPP MOVE 'MONEY' INTO BCD FIELD «, t00=0x000b, t01=0x00a0}
0x11fa…1202 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00d4}
0x1202…122c Head {h00=0x0026, h01=0x0050, text=» MOVE PNT1,=W'28' POINT AT BYTE 29«, t00=0x000b, t01=0x00dc}
0x122c…126c Head {h00=0x003c, h01=0x0050, text=» XCOPY WKSTR7,COB0,COB1,FCBLD(FCBLDX),PNT1 ROUTINE INDEX«, t00=0x000b, t01=0x0106}
0x126c…1288 Head {h00=0x0018, h01=0x0050, text=» MOVE WKBCD3,WKSTR7 «, t00=0x000b, t01=0x0146}
0x1288…12a2 Head {h00=0x0016, h01=0x0050, text=» MOVE PNT1,WKBCD3 «, t00=0x000b, t01=0x0162}
0x12a2…12be Head {h00=0x0018, h01=0x0050, text=» PERFI PNT1,RUT1, C«, t00=0x000b, t01=0x017c}
0x12be…12d0 Head {h00=0x000e, h01=0x0050, text=» RUT2, C«, t00=0x000c, t01=0x0008}
0x12d0…12e2 Head {h00=0x000e, h01=0x0050, text=» RUT3, C«, t00=0x000c, t01=0x001a}
0x12e2…12f4 Head {h00=0x000e, h01=0x0050, text=» RUT4, C«, t00=0x000c, t01=0x002c}
0x12f4…1306 Head {h00=0x000e, h01=0x0050, text=» RUT5, C«, t00=0x000c, t01=0x003e}
0x1306…1318 Head {h00=0x000e, h01=0x0050, text=» RUT6, C«, t00=0x000c, t01=0x0050}
0x1318…132a Head {h00=0x000e, h01=0x0050, text=» RUT7, C«, t00=0x000c, t01=0x0062}
0x132a…133c Head {h00=0x000e, h01=0x0050, text=» RUT8, C«, t00=0x000c, t01=0x0074}
0x133c…134a Head {h00=0x000a, h01=0x0050, text=» RUT9«, t00=0x000c, t01=0x0086}
0x134a…1386 Head {h00=0x0038, h01=0x0050, text=» MOVE BIN2,LENGTHS(COB2) BIN2 EQUALS LENGTH OF TK1D1«, t00=0x000c, t01=0x0094}
0x1386…13c6 Head {h00=0x003c, h01=0x0050, text=» XCOPY TK1D1,COB0,BIN2,TK1D,COB0 COPY FIRST HALF OF TK1D«, t00=0x000c, t01=0x00d0}
0x13c6…1402 Head {h00=0x0038, h01=0x0050, text=» MOVE BIN3,LENGTHS(COB3) BIN3 EQUALS LENGTH OF TK1D2«, t00=0x000c, t01=0x0110}
0x1402…1444 Head {h00=0x003e, h01=0x0050, text=» XCOPY TK1D2,COB0,BIN3,TK1D,BIN2 COPY SECOND HALF OF TK1D «, t00=0x000c, t01=0x014c}
0x1444…1484 Head {h00=0x003c, h01=0x0050, text=» XCOPY TK3D1,COB0,BIN2,TK3D,COB0 COPY FIRST HALF OF TK3D«, t00=0x000c, t01=0x018e}
0x1484…14c0 Head {h00=0x0038, h01=0x0050, text=» MOVE BIN3,LENGTHS(COB7) BIN3 EQUALS LENGTH OF TK3D2«, t00=0x000d, t01=0x003e}
0x14c0…1502 Head {h00=0x003e, h01=0x0050, text=» XCOPY TK3D2,COB0,BIN3,TK3D,BIN2 COPY SECOND HALF OF TK3D «, t00=0x000d, t01=0x007a}
0x1502…1544 Head {h00=0x003e, h01=0x0050, text=» COPY WKSTG1,COB0,COB1,MESS,COB0 STORE TRUE VALUE OF MESS «, t00=0x000d, t01=0x00bc}
0x1544…157e Head {h00=0x0036, h01=0x0050, text=» PERF SCRIBE,CUSTRQ DISPLAY CUSTOMER REQUEST DATA«, t00=0x000d, t01=0x00fe}
0x157e…15ba Head {h00=0x0038, h01=0x0050, text=» COPY MESS,COB0,COB1,WKSTG1,COB0 RESET VALUE OF MESS«, t00=0x000d, t01=0x0138}
0x15ba…15c2 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0174}
0x15c2…15fa Head {h00=0x0034, h01=0x0050, text=» MOVE FCBLDX,COB1 SET FCBLD INDEX TO FIRST ITEM «, t00=0x000d, t01=0x017c}
0x15fa…1602 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0024}
0x1602…1628 Head {h00=0x0022, h01=0x0050, text=»CUSR10 MATCH OPERATION KEYS «, t00=0x000e, t01=0x002c}
0x1628…165a Head {h00=0x002e, h01=0x0050, text=» MOVE PNT1,COB0 SET PNT1 TO START OF DATA «, t00=0x000e, t01=0x0052}
0x165a…16a0 Head {h00=0x0042, h01=0x0050, text=» MATCH FCBLD(FCBLDX),PNT1,COB8,OPKY,COB0,COB8 COMPARE STRINGS «, t00=0x000e, t01=0x0084}
0x16a0…16b2 Head {h00=0x000e, h01=0x0050, text=» BZ CUSR90«, t00=0x000e, t01=0x00ca}
0x16b2…16ea Head {h00=0x0034, h01=0x0050, text=» CBE FCBLDX,=W'30',CUSR20 TEST FOR END OF TABLE «, t00=0x000e, t01=0x00dc}
0x16ea…1712 Head {h00=0x0024, h01=0x0050, text=» ADD FCBLDX,COB1 INCREMENT INDEX«, t00=0x000e, t01=0x0114}
0x1712…173c Head {h00=0x0026, h01=0x0050, text=» B CUSR10 SEARCH FCBLD TABLE AGAIN«, t00=0x000e, t01=0x013c}
0x173c…1744 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0166}
0x1744…1764 Head {h00=0x001c, h01=0x0050, text=»CUSR20 NO MATCH FOUND «, t00=0x000e, t01=0x016e}
0x1764…177e Head {h00=0x0016, h01=0x0050, text=» PERF SCRIBE,FCMD «, t00=0x000e, t01=0x018e}
0x177e…17a8 Head {h00=0x0026, h01=0x0050, text=» MOVE FCBLDX,COB1 DEFAULT COMMAND «, t00=0x000f, t01=0x0018}
0x17a8…17b0 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0042}
0x17b0…17be Head {h00=0x000a, h01=0x0050, text=»CUSR90«, t00=0x000f, t01=0x004a}
0x17be…17d8 Head {h00=0x0016, h01=0x0050, text=» TBF ERROR,CUSR95 «, t00=0x000f, t01=0x0058}
0x17d8…17f4 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,AMTERR «, t00=0x000f, t01=0x0072}
0x17f4…1802 Head {h00=0x000a, h01=0x0050, text=»CUSR95«, t00=0x000f, t01=0x008e}
0x1802…181a Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB0«, t00=0x000f, t01=0x009c}
0x181a…1826 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000f, t01=0x00b4}
0x1826…1834 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000f, t01=0x00c0}
0x1834…1842 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x00ce}
0x1842…1856 Head {h00=0x0010, h01=0x0050, text=»SOLLST PROC «, t00=0x000f, t01=0x00dc}
0x1856…1860 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f0}
0x1860…1892 Head {h00=0x002e, h01=0x0050, text=»****** SOLICITED STATUS MESSAGE «, t00=0x000f, t01=0x00fa}
0x1892…189c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x012c}
0x189c…18d2 Head {h00=0x0032, h01=0x0050, text=» TBT RESFG,SOLL010 TEST RESPONSE EXPECTED FLAG«, t00=0x000f, t01=0x0136}
0x18d2…1908 Head {h00=0x0032, h01=0x0050, text=» MOVE VARIOUS,=C'UNEXPECTED MESSAGE RECEIVED '«, t00=0x000f, t01=0x016c}
0x1908…1924 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0010, t01=0x0012}
0x1924…192c Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x002e}
0x192c…1956 Head {h00=0x0026, h01=0x0050, text=»SOLL010 UNLOAD STATUS DESCRIPTOR«, t00=0x0010, t01=0x0036}
0x1956…1988 Head {h00=0x002e, h01=0x0050, text=» CLEAR RESFG CLEAR RESPONSE EXPECTED FLAG «, t00=0x0010, t01=0x0060}
0x1988…19c4 Head {h00=0x0038, h01=0x0050, text=» DLETE BUFIN,COB0,COB7 DELETE UPTO STATUS DESCRIPTOR«, t00=0x0010, t01=0x0092}
0x19c4…19ea Head {h00=0x0022, h01=0x0050, text=» CLEAR DUMMY CLEAR DUMMY FLAG «, t00=0x0010, t01=0x00ce}
0x19ea…1a24 Head {h00=0x0036, h01=0x0050, text=» PERF UNLOAD,STAT,DUMMY,=W'1' COPY DATA INTO STAT «, t00=0x0010, t01=0x00f4}
0x1a24…1a5c Head {h00=0x0034, h01=0x0050, text=» CBE STAT,=C'8',SOLL040 DEVICE FAULT,CONFIG.DATA«, t00=0x0010, t01=0x012e}
0x1a5c…1a8a Head {h00=0x002a, h01=0x0050, text=» CBE STAT,=C'A',SOLL030 COMMAND REJECT«, t00=0x0010, t01=0x0166}
0x1a8a…1a92 (17, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x0004}
0x1a92…1aaa Head {h00=0x0014, h01=0x0050, text=»SOLL020 READY «, t00=0x0011, t01=0x000c}
0x1aaa…1aca Head {h00=0x001c, h01=0x0050, text=» MOVE VARIOUS,=C'READY '«, t00=0x0011, t01=0x0024}
0x1aca…1adc Head {h00=0x000e, h01=0x0050, text=» B SOLL035«, t00=0x0011, t01=0x0044}
0x1adc…1ae4 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x0056}
0x1ae4…1b04 Head {h00=0x001c, h01=0x0050, text=»SOLL030 COMMAND REJECT«, t00=0x0011, t01=0x005e}
0x1b04…1b2e Head {h00=0x0026, h01=0x0050, text=» MOVE VARIOUS,=C'COMMAND REJECT ' «, t00=0x0011, t01=0x007e}
0x1b2e…1b3e Head {h00=0x000c, h01=0x0050, text=»SOLL035 «, t00=0x0011, t01=0x00a8}
0x1b3e…1b5a Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0011, t01=0x00b8}
0x1b5a…1b6c Head {h00=0x000e, h01=0x0050, text=» B SOLL090«, t00=0x0011, t01=0x00d4}
0x1b6c…1b74 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x00e6}
0x1b74…1b92 Head {h00=0x001a, h01=0x0050, text=»SOLL040 DEVICE FAULT«, t00=0x0011, t01=0x00ee}
0x1b92…1bb8 Head {h00=0x0022, h01=0x0050, text=» CLEAR DUMMY CLEAR DUMMY FLAG «, t00=0x0011, t01=0x010c}
0x1bb8…1bf8 Head {h00=0x003c, h01=0x0050, text=» PERF UNLOAD,COMB2,DUMMY,=W'2' COPY DID + DEVICE STATUS«, t00=0x0011, t01=0x0132}
0x1bf8…1c0e Head {h00=0x0012, h01=0x0050, text=» MOVE DID,COB0«, t00=0x0011, t01=0x0172}
0x1c0e…1c3e Head {h00=0x002c, h01=0x0050, text=» XCOPY DID,COB1,COB1,COMB2,COB0 COPY DID«, t00=0x0011, t01=0x0188}
0x1c3e…1c6c Head {h00=0x002a, h01=0x0050, text=» SUB PNT1,COB2 SET PNT1 TO DATA LENGTH«, t00=0x0012, t01=0x0028}
0x1c6c…1ca0 Head {h00=0x0030, h01=0x0050, text=» MOVE DEVST,=C' ' CLEAR DEVICE STATUS FIELD «, t00=0x0012, t01=0x0056}
0x1ca0…1ce2 Head {h00=0x003e, h01=0x0050, text=» XCOPY DEVST,COB0,PNT1,COMB2,COB1 COPY DEVICE STATUS DATA «, t00=0x0012, t01=0x008a}
0x1ce2…1cfa Head {h00=0x0014, h01=0x0050, text=» MOVE BIN3,COB0 «, t00=0x0012, t01=0x00cc}
0x1cfa…1d0e Head {h00=0x0010, h01=0x0050, text=» CLEAR DUMMY«, t00=0x0012, t01=0x00e4}
0x1d0e…1d44 Head {h00=0x0032, h01=0x0050, text=» MATCH DEVST,BIN3,PNT1,GS,COB0,COB1 ANY <GS>? «, t00=0x0012, t01=0x00f8}
0x1d44…1d6c Head {h00=0x0024, h01=0x0050, text=» BNOK SOLL050 NO, NOT THIS TIME «, t00=0x0012, t01=0x012e}
0x1d6c…1d8a Head {h00=0x001a, h01=0x0050, text=» SET DUMMY <GS> FOUND «, t00=0x0012, t01=0x0156}
0x1d8a…1d9a Head {h00=0x000c, h01=0x0050, text=»SOLL050 «, t00=0x0012, t01=0x0174}
0x1d9a…1dc6 Head {h00=0x0028, h01=0x0050, text=» PERF SCRIBE,ERROR 'DEVICE--STATUS'«, t00=0x0012, t01=0x0184}
0x1dc6…1e00 Head {h00=0x0036, h01=0x0050, text=»* IN 'DID' WE NOW HAVE THE DEVICEIDENTIFIER AND IN«, t00=0x0013, t01=0x0020}
0x1e00…1e1e Head {h00=0x001a, h01=0x0050, text=»* 'DEVST' DEVICESTATUS«, t00=0x0013, t01=0x005a}
0x1e1e…1e50 Head {h00=0x002e, h01=0x0050, text=» SUB DID,=X'0030' CONVERT 30..4D TO 00..1D«, t00=0x0013, t01=0x0078}
0x1e50…1e72 Head {h00=0x001e, h01=0x0050, text=» PERFI DID,DUMPRC, DUMMY C«, t00=0x0013, t01=0x00aa}
0x1e72…1e8a Head {h00=0x0014, h01=0x0050, text=» SS, PRINTERE C«, t00=0x0013, t01=0x00cc}
0x1e8a…1ea6 Head {h00=0x0018, h01=0x0050, text=» SS, SECUROMATIC C «, t00=0x0013, t01=0x00e4}
0x1ea6…1eba Head {h00=0x0010, h01=0x0050, text=» DUMPRC, C«, t00=0x0013, t01=0x0100}
0x1eba…1ece Head {h00=0x0010, h01=0x0050, text=» DUMPRC, C«, t00=0x0013, t01=0x0114}
0x1ece…1ee2 Head {h00=0x0010, h01=0x0050, text=» DUMPRC, C«, t00=0x0013, t01=0x0128}
0x1ee2…1ef6 Head {h00=0x0010, h01=0x0050, text=» DUMPRC, C«, t00=0x0013, t01=0x013c}
0x1ef6…1f0a Head {h00=0x0010, h01=0x0050, text=» DUMPRC, C«, t00=0x0013, t01=0x0150}
0x1f0a…1f1e Head {h00=0x0010, h01=0x0050, text=» DUMPRC, C«, t00=0x0013, t01=0x0164}
0x1f1e…1f32 Head {h00=0x0010, h01=0x0050, text=» DUMPRC, C«, t00=0x0013, t01=0x0178}
0x1f32…1f46 Head {h00=0x0010, h01=0x0050, text=» DUMPRC, C«, t00=0x0013, t01=0x018c}
0x1f46…1f64 Head {h00=0x001a, h01=0x0050, text=» SS, CONFIGURATION C «, t00=0x0014, t01=0x0010}
0x1f64…1f7e Head {h00=0x0016, h01=0x0050, text=» SS, CARDWRITER C«, t00=0x0014, t01=0x002e}
0x1f7e…1f9a Head {h00=0x0018, h01=0x0050, text=» SS, CARD READER C «, t00=0x0014, t01=0x0048}
0x1f9a…1fb4 Head {h00=0x0016, h01=0x0050, text=» SS, DISPENSER C «, t00=0x0014, t01=0x0064}
0x1fb4…1fd2 Head {h00=0x001a, h01=0x0050, text=» SS, DELIVERY DOOR C «, t00=0x0014, t01=0x007e}
0x1fd2…1fec Head {h00=0x0016, h01=0x0050, text=» SS, DEPOSITORY C«, t00=0x0014, t01=0x009c}
0x1fec…2012 Head {h00=0x0022, h01=0x0050, text=» SS, HARDWARE CONFIGURATION C«, t00=0x0014, t01=0x00b6}
0x2012…202c Head {h00=0x0016, h01=0x0050, text=» SS, CHECKPOINT C«, t00=0x0014, t01=0x00dc}
0x202c…2044 Head {h00=0x0014, h01=0x0050, text=» SS, CASSETTE C«, t00=0x0014, t01=0x00f6}
0x2044…205a Head {h00=0x0012, h01=0x0050, text=» SS, ALARM C «, t00=0x0014, t01=0x010e}
0x205a…2078 Head {h00=0x001a, h01=0x0050, text=» SS, SUPPLY SWITCH C «, t00=0x0014, t01=0x0124}
0x2078…2096 Head {h00=0x001a, h01=0x0050, text=» SS, CONTROL PANEL C «, t00=0x0014, t01=0x0142}
0x2096…20b4 Head {h00=0x001a, h01=0x0050, text=» SS, VANDAL SHIELD C «, t00=0x0014, t01=0x0160}
0x20b4…20c4 Head {h00=0x000c, h01=0x0050, text=» DUMPRC«, t00=0x0014, t01=0x017e}
0x20c4…20e8 Head {h00=0x0020, h01=0x0050, text=» PERF GIS GROUP IDENT STATUS«, t00=0x0014, t01=0x018e}
0x20e8…20fa Head {h00=0x000e, h01=0x0050, text=» PERF GIS «, t00=0x0015, t01=0x0022}
0x20fa…211c Head {h00=0x001e, h01=0x0050, text=» PERF GIS (MIGHT BE EMPTY)«, t00=0x0015, t01=0x0034}
0x211c…2150 Head {h00=0x0030, h01=0x0050, text=» CBE DID,COB2,SOLL090 TEST FOR PRINTER FAULT«, t00=0x0015, t01=0x0056}
0x2150…217a Head {h00=0x0026, h01=0x0050, text=» MOVE FCBLDX,COB1 SET FCBLDX INDEX«, t00=0x0015, t01=0x008a}
0x217a…218a Head {h00=0x000c, h01=0x0050, text=»SOLL080 «, t00=0x0015, t01=0x00b4}
0x218a…21b0 Head {h00=0x0022, h01=0x0050, text=» MOVE RETUR,COB1 READ LINE MSG«, t00=0x0015, t01=0x00c4}
0x21b0…21c2 Head {h00=0x000e, h01=0x0050, text=» B SOLL095«, t00=0x0015, t01=0x00ea}
0x21c2…21d2 Head {h00=0x000c, h01=0x0050, text=»SOLL090 «, t00=0x0015, t01=0x00fc}
0x21d2…21f6 Head {h00=0x0020, h01=0x0050, text=» MOVE RETUR,COB0 RETRY READ «, t00=0x0015, t01=0x010c}
0x21f6…2206 Head {h00=0x000c, h01=0x0050, text=»SOLL095 «, t00=0x0015, t01=0x0130}
0x2206…2212 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0015, t01=0x0140}
0x2212…2220 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0015, t01=0x014c}
0x2220…222e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x015a}
0x222e…223e Head {h00=0x000c, h01=0x0050, text=»SS PROC «, t00=0x0015, t01=0x0168}
0x223e…2266 Head {h00=0x0024, h01=0x0050, text=»* PNT1 CONTAINS LENGTH OF DEVST «, t00=0x0015, t01=0x0178}
0x2266…227e Head {h00=0x0014, h01=0x0050, text=» MOVE BYTE,COB1 «, t00=0x0016, t01=0x0010}
0x227e…22a6 Head {h00=0x0024, h01=0x0050, text=» CBL PNT1,COB2,SS0299 FINISHED? «, t00=0x0016, t01=0x0028}
0x22a6…22b4 Head {h00=0x000a, h01=0x0050, text=»SS0200«, t00=0x0016, t01=0x0050}
0x22b4…22cc Head {h00=0x0014, h01=0x0050, text=» MOVE BIN3,COB0 «, t00=0x0016, t01=0x005e}
0x22cc…2304 Head {h00=0x0034, h01=0x0050, text=» CALL COPY4,BIN3,COB2,COB1,DEVST,COB1 1ST NIBBLE«, t00=0x0016, t01=0x0076}
0x2304…233c Head {h00=0x0034, h01=0x0050, text=» CALL COPY4,BIN3,COB3,COB1,DEVST,COB3 2ND NIBBLE«, t00=0x0016, t01=0x00ae}
0x233c…236e Head {h00=0x002e, h01=0x0050, text=» MOVE BYTE,COB0 BYTENBR IN STATUSMSG (+1) «, t00=0x0016, t01=0x00e6}
0x236e…2382 Head {h00=0x0010, h01=0x0050, text=» PERF EXPAND«, t00=0x0016, t01=0x0118}
0x2382…23b2 Head {h00=0x002c, h01=0x0050, text=»SS0210 BUILD UP A 5 CHR KEY AND PRINT «, t00=0x0016, t01=0x012c}
0x23b2…23c4 Head {h00=0x000e, h01=0x0050, text=» TEXT(S)«, t00=0x0016, t01=0x015c}
0x23c4…23d8 Head {h00=0x0010, h01=0x0050, text=» PERF FNDTXT«, t00=0x0016, t01=0x016e}
0x23d8…2412 Head {h00=0x0036, h01=0x0050, text=» DLETE DEVST,COB0,COB2 DELETE TREATED STATUSBYTES «, t00=0x0016, t01=0x0182}
0x2412…2440 Head {h00=0x002a, h01=0x0050, text=» SUB PNT1,COB2 DONT FORGET THE LENGTH «, t00=0x0017, t01=0x002c}
0x2440…2462 Head {h00=0x001e, h01=0x0050, text=» BP SS0200 ANY MORE LEFT? «, t00=0x0017, t01=0x005a}
0x2462…2474 Head {h00=0x000e, h01=0x0050, text=»SS0299 RET«, t00=0x0017, t01=0x007c}
0x2474…2482 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0017, t01=0x008e}
0x2482…248a Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x009c}
0x248a…2492 Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x00a4}
0x2492…24a2 Head {h00=0x000c, h01=0x0050, text=»GIS PROC«, t00=0x0017, t01=0x00ac}
0x24a2…24ae Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0017, t01=0x00bc}
0x24ae…24bc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0017, t01=0x00c8}
0x24bc…24ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x00d6}
0x24ca…24de Head {h00=0x0010, h01=0x0050, text=»EXPAND PROC «, t00=0x0017, t01=0x00e4}
0x24de…250e Head {h00=0x002c, h01=0x0050, text=»* EXPAND 1 STATUSBYTE INTO 8 WORDS WITH «, t00=0x0017, t01=0x00f8}
0x250e…252c Head {h00=0x001a, h01=0x0050, text=»* THE VALUE '7' .. '0'«, t00=0x0017, t01=0x0128}
0x252c…2548 Head {h00=0x0018, h01=0x0050, text=»* STATUS IS IN BIN3 «, t00=0x0017, t01=0x0146}
0x2548…2560 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN4,COB1 «, t00=0x0017, t01=0x0162}
0x2560…2578 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN1,COB7 «, t00=0x0017, t01=0x017a}
0x2578…2592 (24, 0, 398) Head {h00=0x0016, h01=0x0050, text=» MOVE BIN2,=W'128'«, t00=0x0018, t01=0x0004}
0x2592…25a0 Head {h00=0x000a, h01=0x0050, text=»EXP000«, t00=0x0018, t01=0x001e}
0x25a0…25cc Head {h00=0x0028, h01=0x0050, text=» CALL MASK,BIN3,BIN2 IS THE BIT SET?«, t00=0x0018, t01=0x002c}
0x25cc…25ec Head {h00=0x001c, h01=0x0050, text=» BZ EXP010 NO, TRY NEXT «, t00=0x0018, t01=0x0058}
0x25ec…2624 Head {h00=0x0034, h01=0x0050, text=» MOVE ORD(BIN4),BIN1 MOVE A VALUE 7..1 INTO WORD«, t00=0x0018, t01=0x0078}
0x2624…2636 Head {h00=0x000e, h01=0x0050, text=» B EXP020 «, t00=0x0018, t01=0x00b0}
0x2636…2644 Head {h00=0x000a, h01=0x0050, text=»EXP010«, t00=0x0018, t01=0x00c2}
0x2644…266c Head {h00=0x0024, h01=0x0050, text=» MOVE ORD(BIN4),COB0 RESET WORD «, t00=0x0018, t01=0x00d0}
0x266c…267a Head {h00=0x000a, h01=0x0050, text=»EXP020«, t00=0x0018, t01=0x00f8}
0x267a…2690 Head {h00=0x0012, h01=0x0050, text=» ADD BIN4,COB1«, t00=0x0018, t01=0x0106}
0x2690…26b8 Head {h00=0x0024, h01=0x0050, text=» DIV BIN2,COB2 COMPUTE NEXT MASK«, t00=0x0018, t01=0x011c}
0x26b8…26e2 Head {h00=0x0026, h01=0x0050, text=» SUB BIN1,COB1 COMPUTE NEXT VALUE «, t00=0x0018, t01=0x0144}
0x26e2…2706 Head {h00=0x0020, h01=0x0050, text=» CBNL BIN1,COB0,EXP000 MORE?«, t00=0x0018, t01=0x016e}
0x2706…271a (25, 0, 400) Head {h00=0x0010, h01=0x0050, text=» PERF RESET «, t00=0x0019, t01=0x0004}
0x271a…2748 Head {h00=0x002a, h01=0x0050, text=»* RESET VARIOUS WORDS DEPENDING ON DID«, t00=0x0019, t01=0x0018}
0x2748…2754 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0019, t01=0x0046}
0x2754…2762 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0019, t01=0x0052}
0x2762…2770 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0060}
0x2770…2784 Head {h00=0x0010, h01=0x0050, text=»FNDTXT PROC «, t00=0x0019, t01=0x006e}
0x2784…27ac Head {h00=0x0024, h01=0x0050, text=» MOVE WKSTR6,=C'X' SEARCH VALUE «, t00=0x0019, t01=0x0082}
0x27ac…27da Head {h00=0x002a, h01=0x0050, text=» XCOPY WKSTR6,COB0,COB1,COMB2,COB0 DID«, t00=0x0019, t01=0x00aa}
0x27da…2800 Head {h00=0x0022, h01=0x0050, text=» MOVE BIN4,COB1 BYTENR (1..5) «, t00=0x0019, t01=0x00d8}
0x2800…2818 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN3,COB1 «, t00=0x0019, t01=0x00fe}
0x2818…2826 Head {h00=0x000a, h01=0x0050, text=»FND000«, t00=0x0019, t01=0x0116}
0x2826…284e Head {h00=0x0024, h01=0x0050, text=» ADD BIN4,COB1 DISPL. WITHIN KEY«, t00=0x0019, t01=0x0124}
0x284e…2870 Head {h00=0x001e, h01=0x0050, text=» CBE ORD(BIN3),COB0,FND100«, t00=0x0019, t01=0x014c}
0x2870…288c Head {h00=0x0018, h01=0x0050, text=» MOVE WKSTR7,=X'30' «, t00=0x0019, t01=0x016e}
0x288c…28c0 Head {h00=0x0030, h01=0x0050, text=» CALL COPY4,WKSTR7,COB1,COB1,ORD(BIN3),COB3 «, t00=0x0019, t01=0x018a}
0x28c0…28ec Head {h00=0x0028, h01=0x0050, text=» XCOPY WKSTR6,BIN4,COB1,WKSTR7,COB0 «, t00=0x001a, t01=0x002e}
0x28ec…2904 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN7,COB1 «, t00=0x001a, t01=0x005a}
0x2904…291e Head {h00=0x0016, h01=0x0050, text=» MOVE WKSTR6,=C' '«, t00=0x001a, t01=0x0072}
0x291e…292c Head {h00=0x000a, h01=0x0050, text=»FND010«, t00=0x001a, t01=0x008c}
0x292c…2944 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN6,COB0 «, t00=0x001a, t01=0x009a}
0x2944…297c Head {h00=0x0034, h01=0x0050, text=» MATCH WKSTR6,BIN6,COB5,STATTXT(BIN7),COB0,COB5 «, t00=0x001a, t01=0x00b2}
0x297c…2990 Head {h00=0x0010, h01=0x0050, text=» BOK FND020 «, t00=0x001a, t01=0x00ea}
0x2990…29a6 Head {h00=0x0012, h01=0x0050, text=» ADD BIN7,COB1«, t00=0x001a, t01=0x00fe}
0x29a6…29c8 Head {h00=0x001e, h01=0x0050, text=» CBNG BIN7,=W'128',FND010 «, t00=0x001a, t01=0x0114}
0x29c8…29dc Head {h00=0x0010, h01=0x0050, text=» NOT FOUND«, t00=0x001a, t01=0x0136}
0x29dc…29f8 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,STATNF «, t00=0x001a, t01=0x014a}
0x29f8…2a0a Head {h00=0x000e, h01=0x0050, text=» B FND030 «, t00=0x001a, t01=0x0166}
0x2a0a…2a2a Head {h00=0x001c, h01=0x0050, text=»FND020 STATUSKEY FOUND«, t00=0x001a, t01=0x0178}
0x2a2a…2a46 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,STATFND«, t00=0x001b, t01=0x0008}
0x2a46…2a54 Head {h00=0x000a, h01=0x0050, text=»FND030«, t00=0x001b, t01=0x0024}
0x2a54…2a6e Head {h00=0x0016, h01=0x0050, text=»FND100 TRY NEXT «, t00=0x001b, t01=0x0032}
0x2a6e…2a84 Head {h00=0x0012, h01=0x0050, text=» ADD BIN3,COB1«, t00=0x001b, t01=0x004c}
0x2a84…2aa2 Head {h00=0x001a, h01=0x0050, text=» CBL BIN3,COB8,FND000 «, t00=0x001b, t01=0x0062}
0x2aa2…2aae Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001b, t01=0x0080}
0x2aae…2abc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001b, t01=0x008c}
0x2abc…2ace Head {h00=0x000e, h01=0x0050, text=»RESET PROC«, t00=0x001b, t01=0x009a}
0x2ace…2afa Head {h00=0x0028, h01=0x0050, text=» IB DID,RES01,RES02,RES03,RES04, C «, t00=0x001b, t01=0x00ac}
0x2afa…2b20 Head {h00=0x0022, h01=0x0050, text=» RES05,RES06,RES07,RES08, C «, t00=0x001b, t01=0x00d8}
0x2b20…2b46 Head {h00=0x0022, h01=0x0050, text=» RES09,RES10,RES11,RES12, C «, t00=0x001b, t01=0x00fe}
0x2b46…2b6c Head {h00=0x0022, h01=0x0050, text=» RES13,RES14,RES15,RES16, C «, t00=0x001b, t01=0x0124}
0x2b6c…2b92 Head {h00=0x0022, h01=0x0050, text=» RES17,RES18,RES19,RES20, C «, t00=0x001b, t01=0x014a}
0x2b92…2bb4 Head {h00=0x001e, h01=0x0050, text=» RES21,RES22,RES23,RES24 «, t00=0x001b, t01=0x0170}
0x2bb4…2bc2 (28, 0, 400) Head {h00=0x000a, h01=0x0050, text=»RES01 «, t00=0x001c, t01=0x0004}
0x2bc2…2bd0 Head {h00=0x000a, h01=0x0050, text=»RES04 «, t00=0x001c, t01=0x0012}
0x2bd0…2bde Head {h00=0x000a, h01=0x0050, text=»RES05 «, t00=0x001c, t01=0x0020}
0x2bde…2bec Head {h00=0x000a, h01=0x0050, text=»RES06 «, t00=0x001c, t01=0x002e}
0x2bec…2bfa Head {h00=0x000a, h01=0x0050, text=»RES07 «, t00=0x001c, t01=0x003c}
0x2bfa…2c08 Head {h00=0x000a, h01=0x0050, text=»RES08 «, t00=0x001c, t01=0x004a}
0x2c08…2c16 Head {h00=0x000a, h01=0x0050, text=»RES09 «, t00=0x001c, t01=0x0058}
0x2c16…2c24 Head {h00=0x000a, h01=0x0050, text=»RES10 «, t00=0x001c, t01=0x0066}
0x2c24…2c32 Head {h00=0x000a, h01=0x0050, text=»RES11 «, t00=0x001c, t01=0x0074}
0x2c32…2c40 Head {h00=0x000a, h01=0x0050, text=»RES13 «, t00=0x001c, t01=0x0082}
0x2c40…2c4e Head {h00=0x000a, h01=0x0050, text=»RES17 «, t00=0x001c, t01=0x0090}
0x2c4e…2c5c Head {h00=0x000a, h01=0x0050, text=»RES18 «, t00=0x001c, t01=0x009e}
0x2c5c…2c6a Head {h00=0x000a, h01=0x0050, text=»RES19 «, t00=0x001c, t01=0x00ac}
0x2c6a…2c78 Head {h00=0x000a, h01=0x0050, text=»RES20 «, t00=0x001c, t01=0x00ba}
0x2c78…2c86 Head {h00=0x000a, h01=0x0050, text=»RES21 «, t00=0x001c, t01=0x00c8}
0x2c86…2c94 Head {h00=0x000a, h01=0x0050, text=»RES22 «, t00=0x001c, t01=0x00d6}
0x2c94…2ca2 Head {h00=0x000a, h01=0x0050, text=»RES23 «, t00=0x001c, t01=0x00e4}
0x2ca2…2caa Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x00f2}
0x2caa…2cb6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001c, t01=0x00fa}
0x2cb6…2cbe Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x0106}
0x2cbe…2cd6 Head {h00=0x0014, h01=0x0050, text=»RES02 PRINTERS«, t00=0x001c, t01=0x010e}
0x2cd6…2cf4 Head {h00=0x001a, h01=0x0050, text=» CBNE BYTE,COB1,RESXX «, t00=0x001c, t01=0x0126}
0x2cf4…2d2e Head {h00=0x0036, h01=0x0050, text=» MOVE ORD(COB7),COB0 'RECEIPT PRINTER HAS FALUTED'«, t00=0x001c, t01=0x0144}
0x2d2e…2d64 Head {h00=0x0032, h01=0x0050, text=» MOVE ORD(COB8),COB0 'AUX.PRINTER HAS FAULTED'«, t00=0x001c, t01=0x017e}
0x2d64…2d74 Head {h00=0x000c, h01=0x0050, text=» B RESXX«, t00=0x001d, t01=0x0024}
0x2d74…2d7c Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0034}
0x2d7c…2d98 Head {h00=0x0018, h01=0x0050, text=»RES03 SECUROMATIC «, t00=0x001d, t01=0x003c}
0x2d98…2db6 Head {h00=0x001a, h01=0x0050, text=» CBNE BYTE,COB1,RESXX «, t00=0x001d, t01=0x0058}
0x2db6…2dd8 Head {h00=0x001e, h01=0x0050, text=» CBE ORD(COB5),COB0,RESXX «, t00=0x001d, t01=0x0076}
0x2dd8…2dfa Head {h00=0x001e, h01=0x0050, text=» CBE ORD(COB6),COB0,RESXX «, t00=0x001d, t01=0x0098}
0x2dfa…2e28 Head {h00=0x002a, h01=0x0050, text=» MOVE ORD(COB5),COB0 'DOOR LOCKED' AND«, t00=0x001d, t01=0x00ba}
0x2e28…2e5e Head {h00=0x0032, h01=0x0050, text=» MOVE ORD(COB6),COB0 'CYCLE COMPLETE' COMBINED«, t00=0x001d, t01=0x00e8}
0x2e5e…2e82 Head {h00=0x0020, h01=0x0050, text=» INDICATE SUCCESSFUL TRANS«, t00=0x001d, t01=0x011e}
0x2e82…2e92 Head {h00=0x000c, h01=0x0050, text=» B RESXX«, t00=0x001d, t01=0x0142}
0x2e92…2e9a Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0152}
0x2e9a…2eb8 Head {h00=0x001a, h01=0x0050, text=»RES12 CONFIGURATION «, t00=0x001d, t01=0x015a}
0x2eb8…2ed4 Head {h00=0x0018, h01=0x0050, text=» CBG BYTE,COB1,RESXX«, t00=0x001d, t01=0x0178}
0x2ed4…2ef0 (30, 0, 400) Head {h00=0x0018, h01=0x0050, text=» MOVE ORD(COB1),COB0«, t00=0x001e, t01=0x0004}
0x2ef0…2f0c Head {h00=0x0018, h01=0x0050, text=» MOVE ORD(COB2),COB0«, t00=0x001e, t01=0x0020}
0x2f0c…2f28 Head {h00=0x0018, h01=0x0050, text=» MOVE ORD(COB3),COB0«, t00=0x001e, t01=0x003c}
0x2f28…2f44 Head {h00=0x0018, h01=0x0050, text=» MOVE ORD(COB4),COB0«, t00=0x001e, t01=0x0058}
0x2f44…2f60 Head {h00=0x0018, h01=0x0050, text=» MOVE ORD(COB5),COB0«, t00=0x001e, t01=0x0074}
0x2f60…2f7c Head {h00=0x0018, h01=0x0050, text=» MOVE ORD(COB6),COB0«, t00=0x001e, t01=0x0090}
0x2f7c…2f98 Head {h00=0x0018, h01=0x0050, text=» MOVE ORD(COB7),COB0«, t00=0x001e, t01=0x00ac}
0x2f98…2fb4 Head {h00=0x0018, h01=0x0050, text=» MOVE ORD(COB8),COB0«, t00=0x001e, t01=0x00c8}
0x2fb4…2fc4 Head {h00=0x000c, h01=0x0050, text=» B RESXX«, t00=0x001e, t01=0x00e4}
0x2fc4…2fcc Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x00f4}
0x2fcc…2fe8 Head {h00=0x0018, h01=0x0050, text=»RES14 CARD READER «, t00=0x001e, t01=0x00fc}
0x2fe8…3008 Head {h00=0x001c, h01=0x0050, text=» CBNE BYTE,COB1,RES1410 «, t00=0x001e, t01=0x0118}
0x3008…303a Head {h00=0x002e, h01=0x0050, text=» MOVE ORD(COB1),COB0 'CARD RETURN FAILURE'«, t00=0x001e, t01=0x0138}
0x303a…304a Head {h00=0x000c, h01=0x0050, text=» B RESXX«, t00=0x001e, t01=0x016a}
0x304a…305a Head {h00=0x000c, h01=0x0050, text=»RES1410 «, t00=0x001e, t01=0x017a}
0x305a…307a Head {h00=0x001c, h01=0x0050, text=» CBNE BYTE,COB2,RES1420 «, t00=0x001e, t01=0x018a}
0x307a…30b0 Head {h00=0x0032, h01=0x0050, text=» MOVE ORD(COB1),COB0 'READ OPERATION COMPLETE'«, t00=0x001f, t01=0x001a}
0x30b0…30e6 Head {h00=0x0032, h01=0x0050, text=» MOVE ORD(COB5),COB0 'CARD IN RETAIN POSITION'«, t00=0x001f, t01=0x0050}
0x30e6…30f6 Head {h00=0x000c, h01=0x0050, text=» B RESXX«, t00=0x001f, t01=0x0086}
0x30f6…3106 Head {h00=0x000c, h01=0x0050, text=»RES1420 «, t00=0x001f, t01=0x0096}
0x3106…3116 Head {h00=0x000c, h01=0x0050, text=» B RESXX«, t00=0x001f, t01=0x00a6}
0x3116…311e Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x00b6}
0x311e…3138 Head {h00=0x0016, h01=0x0050, text=»RES15 DISPENSER «, t00=0x001f, t01=0x00be}
0x3138…3148 Head {h00=0x000c, h01=0x0050, text=» B RESXX«, t00=0x001f, t01=0x00d8}
0x3148…3150 Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x00e8}
0x3150…316e Head {h00=0x001a, h01=0x0050, text=»RES16 DELIVERY DOOR «, t00=0x001f, t01=0x00f0}
0x316e…318c Head {h00=0x001a, h01=0x0050, text=» CBNE BYTE,COB1,RESXX «, t00=0x001f, t01=0x010e}
0x318c…31b4 Head {h00=0x0024, h01=0x0050, text=» MOVE ORD(COB6),COB0 'DOOR OPEN'«, t00=0x001f, t01=0x012c}
0x31b4…31c4 Head {h00=0x000c, h01=0x0050, text=» B RESXX«, t00=0x001f, t01=0x0154}
0x31c4…31cc Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x0164}
0x31cc…31ea Head {h00=0x001a, h01=0x0050, text=»RES24 VANDAL SHIELD «, t00=0x001f, t01=0x016c}
0x31ea…320a Head {h00=0x001c, h01=0x0050, text=» CBNE BYTE,COB1,RES2410 «, t00=0x001f, t01=0x018a}
0x320a…323c Head {h00=0x002e, h01=0x0050, text=» MOVE ORD(COB1),COB0 'OPERATION COMPLETE' «, t00=0x0020, t01=0x001a}
0x323c…326a Head {h00=0x002a, h01=0x0050, text=» MOVE ORD(COB2),COB0 'GOOD COMPLETION'«, t00=0x0020, t01=0x004c}
0x326a…327a Head {h00=0x000c, h01=0x0050, text=» B RESXX«, t00=0x0020, t01=0x007a}
0x327a…328a Head {h00=0x000c, h01=0x0050, text=»RES2410 «, t00=0x0020, t01=0x008a}
0x328a…329a Head {h00=0x000c, h01=0x0050, text=» B RESXX«, t00=0x0020, t01=0x009a}
0x329a…32a2 Head {h00=0x0004, h01=0x0050, t00=0x0020, t01=0x00aa}
0x32a2…32b0 Head {h00=0x000a, h01=0x0050, text=»RESXX «, t00=0x0020, t01=0x00b2}
0x32b0…32bc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0020, t01=0x00c0}
0x32bc…32ca Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0020, t01=0x00cc}
0x32ca…32d8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x00da}
0x32d8…32ea Head {h00=0x000e, h01=0x0050, text=»RUT1 PROC «, t00=0x0020, t01=0x00e8}
0x32ea…330e Head {h00=0x0020, h01=0x0050, text=»* ROUND AND CHECK WDR AMOUNT«, t00=0x0020, t01=0x00fa}
0x330e…3328 Head {h00=0x0016, h01=0x0050, text=»* COMPUTE NOTEMIX «, t00=0x0020, t01=0x011e}
0x3328…3348 Head {h00=0x001c, h01=0x0050, text=» CBL PBCD,LOLIMIT,RUT1A «, t00=0x0020, t01=0x0138}
0x3348…3366 Head {h00=0x001a, h01=0x0050, text=» CBE PBCD,=D'0',RUT1A «, t00=0x0020, t01=0x0158}
0x3366…3380 Head {h00=0x0016, h01=0x0050, text=» DIV PBCD,LOLIMIT «, t00=0x0020, t01=0x0176}
0x3380…339a Head {h00=0x0016, h01=0x0050, text=» MUL PBCD,LOLIMIT «, t00=0x0020, t01=0x0190}
0x339a…33ba Head {h00=0x001c, h01=0x0050, text=» CBG PBCD,HILIMIT,RUT1A «, t00=0x0021, t01=0x001a}
0x33ba…33ce Head {h00=0x0010, h01=0x0050, text=» PERF LOMULT«, t00=0x0021, t01=0x003a}
0x33ce…33e2 Head {h00=0x0010, h01=0x0050, text=» BNOK RUT1A «, t00=0x0021, t01=0x004e}
0x33e2…33f6 Head {h00=0x0010, h01=0x0050, text=» PERF NOTMIX«, t00=0x0021, t01=0x0062}
0x33f6…3402 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0021, t01=0x0076}
0x3402…3410 Head {h00=0x000a, h01=0x0050, text=»RUT1A «, t00=0x0021, t01=0x0082}
0x3410…342a Head {h00=0x0016, h01=0x0050, text=» MOVE OPKY,=C'X ' «, t00=0x0021, t01=0x0090}
0x342a…3436 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0021, t01=0x00aa}
0x3436…3444 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0021, t01=0x00b6}
0x3444…344c Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x00c4}
0x344c…345e Head {h00=0x000e, h01=0x0050, text=»RUT2 PROC «, t00=0x0021, t01=0x00cc}
0x345e…346a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0021, t01=0x00de}
0x346a…3478 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0021, t01=0x00ea}
0x3478…3480 Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x00f8}
0x3480…3492 Head {h00=0x000e, h01=0x0050, text=»RUT3 PROC «, t00=0x0021, t01=0x0100}
0x3492…349e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0021, t01=0x0112}
0x349e…34ac Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0021, t01=0x011e}
0x34ac…34b4 Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x012c}
0x34b4…34c6 Head {h00=0x000e, h01=0x0050, text=»RUT4 PROC «, t00=0x0021, t01=0x0134}
0x34c6…34d2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0021, t01=0x0146}
0x34d2…34e0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0021, t01=0x0152}
0x34e0…34e8 Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x0160}
0x34e8…34fa Head {h00=0x000e, h01=0x0050, text=»RUT5 PROC «, t00=0x0021, t01=0x0168}
0x34fa…3506 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0021, t01=0x017a}
0x3506…3514 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0021, t01=0x0186}
0x3514…351c (34, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x0004}
0x351c…352e Head {h00=0x000e, h01=0x0050, text=»RUT6 PROC «, t00=0x0022, t01=0x000c}
0x352e…353a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0022, t01=0x001e}
0x353a…3548 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0022, t01=0x002a}
0x3548…3550 Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x0038}
0x3550…3562 Head {h00=0x000e, h01=0x0050, text=»RUT7 PROC «, t00=0x0022, t01=0x0040}
0x3562…356e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0022, t01=0x0052}
0x356e…357c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0022, t01=0x005e}
0x357c…3584 Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x006c}
0x3584…3596 Head {h00=0x000e, h01=0x0050, text=»RUT8 PROC «, t00=0x0022, t01=0x0074}
0x3596…35a2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0022, t01=0x0086}
0x35a2…35b0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0022, t01=0x0092}
0x35b0…35b8 Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x00a0}
0x35b8…35ca Head {h00=0x000e, h01=0x0050, text=»RUT9 PROC «, t00=0x0022, t01=0x00a8}
0x35ca…35d6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0022, t01=0x00ba}
0x35d6…35e4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0022, t01=0x00c6}
0x35e4…35f2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x00d4}
0x35f2…3606 Head {h00=0x0010, h01=0x0050, text=»OPENLN PROC «, t00=0x0022, t01=0x00e2}
0x3606…3630 Head {h00=0x0026, h01=0x0050, text=»****** OPEN LINE TO ATM «, t00=0x0022, t01=0x00f6}
0x3630…365e Head {h00=0x002a, h01=0x0050, text=» MOVE BIN2,=X'00A2' CODE FOR OPEN LINE«, t00=0x0022, t01=0x0120}
0x365e…3670 Head {h00=0x000e, h01=0x0050, text=» PERF OPL «, t00=0x0022, t01=0x014e}
0x3670…3696 Head {h00=0x0022, h01=0x0050, text=» IB BIN3,OPL010,OPL020,OPL030 «, t00=0x0022, t01=0x0160}
0x3696…36a8 Head {h00=0x000e, h01=0x0050, text=» B OPL030 «, t00=0x0022, t01=0x0186}
0x36a8…36c4 Head {h00=0x0018, h01=0x0050, text=»OPL010 LINE OPENED«, t00=0x0023, t01=0x0008}
0x36c4…36d8 Head {h00=0x0010, h01=0x0050, text=» CLEAR MESFG«, t00=0x0023, t01=0x0024}
0x36d8…36fe Head {h00=0x0022, h01=0x0050, text=» MOVE VARIOUS,=C'LINE OPENED '«, t00=0x0023, t01=0x0038}
0x36fe…371a Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0023, t01=0x005e}
0x371a…3736 Head {h00=0x0018, h01=0x0050, text=» MOVE RETUR,COB0 OK «, t00=0x0023, t01=0x007a}
0x3736…3748 Head {h00=0x000e, h01=0x0050, text=» B OPL090 «, t00=0x0023, t01=0x0096}
0x3748…376a Head {h00=0x001e, h01=0x0050, text=»OPL020 MODEM INOPERABLE «, t00=0x0023, t01=0x00a8}
0x376a…3796 Head {h00=0x0028, h01=0x0050, text=» TBT MESFG,OPL025 ALREADY DISPLAYED?«, t00=0x0023, t01=0x00ca}
0x3796…37c2 Head {h00=0x0028, h01=0x0050, text=» MOVE VARIOUS,=C'LINE NOT OPERABLE '«, t00=0x0023, t01=0x00f6}
0x37c2…37de Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0023, t01=0x0122}
0x37de…380e Head {h00=0x002c, h01=0x0050, text=» SET MESFG SET 'MESSAGE DISPLAYED' FLAG «, t00=0x0023, t01=0x013e}
0x380e…381c Head {h00=0x000a, h01=0x0050, text=»OPL025«, t00=0x0023, t01=0x016e}
0x381c…3834 Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB1«, t00=0x0023, t01=0x017c}
0x3834…3846 (36, 0, 398) Head {h00=0x000e, h01=0x0050, text=» B OPL090 «, t00=0x0024, t01=0x0004}
0x3846…3868 Head {h00=0x001e, h01=0x0050, text=»OPL030 LINE ALREADY OPEN«, t00=0x0024, t01=0x0016}
0x3868…3894 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN2,=X'00A4' CLOSE LINE CODE «, t00=0x0024, t01=0x0038}
0x3894…38b0 Head {h00=0x0018, h01=0x0050, text=» PERF OPL CLOSE LINE«, t00=0x0024, t01=0x0064}
0x38b0…38ca Head {h00=0x0016, h01=0x0050, text=» DELAY TIME DELAY «, t00=0x0024, t01=0x0080}
0x38ca…38e2 Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB2«, t00=0x0024, t01=0x009a}
0x38e2…38f0 Head {h00=0x000a, h01=0x0050, text=»OPL090«, t00=0x0024, t01=0x00b2}
0x38f0…38fc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0024, t01=0x00c0}
0x38fc…390a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0024, t01=0x00cc}
0x390a…3918 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x00da}
0x3918…392c Head {h00=0x0010, h01=0x0050, text=»ADDPOL PROC «, t00=0x0024, t01=0x00e8}
0x392c…3936 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00fc}
0x3936…3964 Head {h00=0x002a, h01=0x0050, text=»****** ADD ATM TO POLL LIST «, t00=0x0024, t01=0x0106}
0x3964…396e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0134}
0x396e…3984 Head {h00=0x0012, h01=0x0050, text=» CLEAR INACTIV«, t00=0x0024, t01=0x013e}
0x3984…3992 Head {h00=0x000a, h01=0x0050, text=»ADD005«, t00=0x0024, t01=0x0154}
0x3992…39c6 Head {h00=0x0030, h01=0x0050, text=» MOVE BIN2,=X'00B7' 'ADD TO POLL LIST' CODE «, t00=0x0024, t01=0x0162}
0x39c6…3a02 Head {h00=0x0038, h01=0x0050, text=» CALL RECASM,DSCMOP,BIN2,ADR,BIN3 ASS. SUBROUTINE «, t00=0x0025, t01=0x0008}
0x3a02…3a28 Head {h00=0x0022, h01=0x0050, text=» IB BIN3,ADD010,ADD020,ADD030 «, t00=0x0025, t01=0x0044}
0x3a28…3a54 Head {h00=0x0028, h01=0x0050, text=» MOVE RETUR,COB1 RETURNCODE INVALID «, t00=0x0025, t01=0x006a}
0x3a54…3a66 Head {h00=0x000e, h01=0x0050, text=» B ADD090 «, t00=0x0025, t01=0x0096}
0x3a66…3a6e Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x00a8}
0x3a6e…3a7c Head {h00=0x000a, h01=0x0050, text=»ADD010«, t00=0x0025, t01=0x00b0}
0x3a7c…3a96 Head {h00=0x0016, h01=0x0050, text=» PERF SCRIBE,POLL «, t00=0x0025, t01=0x00be}
0x3a96…3aae Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB0«, t00=0x0025, t01=0x00d8}
0x3aae…3ac0 Head {h00=0x000e, h01=0x0050, text=» B ADD090 «, t00=0x0025, t01=0x00f0}
0x3ac0…3ac8 Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x0102}
0x3ac8…3aea Head {h00=0x001e, h01=0x0050, text=»ADD020 MODEM INOPERABLE «, t00=0x0025, t01=0x010a}
0x3aea…3b02 Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB2«, t00=0x0025, t01=0x012c}
0x3b02…3b14 Head {h00=0x000e, h01=0x0050, text=» B ADD090 «, t00=0x0025, t01=0x0144}
0x3b14…3b1c Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x0156}
0x3b1c…3b2a Head {h00=0x000a, h01=0x0050, text=»ADD030«, t00=0x0025, t01=0x015e}
0x3b2a…3b50 Head {h00=0x0022, h01=0x0050, text=» TBT INACTIV,ADD040 2ND TIME? «, t00=0x0025, t01=0x016c}
0x3b50…3b6a (38, 0, 398) Head {h00=0x0016, h01=0x0050, text=» PERF SCRIBE,INACT«, t00=0x0026, t01=0x0004}
0x3b6a…3b7e Head {h00=0x0010, h01=0x0050, text=» SET INACTIV«, t00=0x0026, t01=0x001e}
0x3b7e…3b8c Head {h00=0x000a, h01=0x0050, text=»ADD040«, t00=0x0026, t01=0x0032}
0x3b8c…3b9e Head {h00=0x000e, h01=0x0050, text=» B ADD005 «, t00=0x0026, t01=0x0040}
0x3b9e…3ba6 Head {h00=0x0004, h01=0x0050, t00=0x0026, t01=0x0052}
0x3ba6…3bb4 Head {h00=0x000a, h01=0x0050, text=»ADD090«, t00=0x0026, t01=0x005a}
0x3bb4…3bc0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0026, t01=0x0068}
0x3bc0…3bce Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0026, t01=0x0074}
0x3bce…3bdc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0082}
0x3bdc…3bf0 Head {h00=0x0010, h01=0x0050, text=»UNSTAT PROC «, t00=0x0026, t01=0x0090}
0x3bf0…3bfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00a4}
0x3bfa…3c2e Head {h00=0x0030, h01=0x0050, text=»****** UNSOLICITED STATUS MESSAGE «, t00=0x0026, t01=0x00ae}
0x3c2e…3c38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00e2}
0x3c38…3c66 Head {h00=0x002a, h01=0x0050, text=» MOVE DID,COB3 FIND POWERFAIL MESSAGE «, t00=0x0026, t01=0x00ec}
0x3c66…3c9e Head {h00=0x0034, h01=0x0050, text=» MATCH BUFIN,DID,COB2,FS,COB0,COB2 AND EXPAND IT«, t00=0x0026, t01=0x011a}
0x3c9e…3cb4 Head {h00=0x0012, h01=0x0050, text=» BERR UNST010 «, t00=0x0026, t01=0x0152}
0x3cb4…3cde Head {h00=0x0026, h01=0x0050, text=» INSRT BUFIN,COB0,COB3,WKSTG1,COB0«, t00=0x0026, t01=0x0168}
0x3cde…3cee (39, 0, 400) Head {h00=0x000c, h01=0x0050, text=»UNST010 «, t00=0x0027, t01=0x0004}
0x3cee…3d04 Head {h00=0x0012, h01=0x0050, text=» MOVE DID,COB0«, t00=0x0027, t01=0x0014}
0x3d04…3d3c Head {h00=0x0034, h01=0x0050, text=» DLETE BUFIN,COB0,COB8 DELETE UPTO STATUS SOURCE«, t00=0x0027, t01=0x002a}
0x3d3c…3d62 Head {h00=0x0022, h01=0x0050, text=» CLEAR DUMMY CLEAR DUMMY FLAG«, t00=0x0027, t01=0x0062}
0x3d62…3da6 Head {h00=0x0040, h01=0x0050, text=» PERF UNLOAD,COMB2,DUMMY,=W'2' STATUS SOURCE + DEVICE STATUS«, t00=0x0027, t01=0x0088}
0x3da6…3dc0 Head {h00=0x0016, h01=0x0050, text=» TBT DUMMY,UNST020«, t00=0x0027, t01=0x00cc}
0x3dc0…3dfa Head {h00=0x0036, h01=0x0050, text=» XCOPY DID,COB1,COB1,COMB2,COB0 COPY STATUS SOURCE«, t00=0x0027, t01=0x00e6}
0x3dfa…3e30 Head {h00=0x0032, h01=0x0050, text=» SUB DID,=W'48' CHANGE STATUS SOURCE TO INDEX «, t00=0x0027, t01=0x0120}
0x3e30…3e64 Head {h00=0x0030, h01=0x0050, text=» SUB PNT1,COB2 LENGTH OF DEVICE STATUS DATA «, t00=0x0027, t01=0x0156}
0x3e64…3e98 Head {h00=0x0030, h01=0x0050, text=» MOVE DEVST,=C' ' CLEAR DEVICE STATUS FIELD «, t00=0x0027, t01=0x018a}
0x3e98…3eda Head {h00=0x003e, h01=0x0050, text=» XCOPY DEVST,COB0,PNT1,COMB2,COB1 COPY DEVICE STATUS DATA «, t00=0x0028, t01=0x002e}
0x3eda…3f12 Head {h00=0x0034, h01=0x0050, text=» PERF SCRIBE,UNSS 'UNSOLICITED STATUS DD+SS ' «, t00=0x0028, t01=0x0070}
0x3f12…3f46 Head {h00=0x0030, h01=0x0050, text=» IB DID,UNST030,UNST040,UNST070,UNST045, C «, t00=0x0028, t01=0x00a8}
0x3f46…3f70 Head {h00=0x0026, h01=0x0050, text=» UNST050,UNST055,UNST060,UNST065 «, t00=0x0028, t01=0x00dc}
0x3f70…3f9c Head {h00=0x0028, h01=0x0050, text=» B UNST090 INVALID DEVICE,READ AGAIN«, t00=0x0028, t01=0x0106}
0x3f9c…3fa4 Head {h00=0x0004, h01=0x0050, t00=0x0028, t01=0x0132}
0x3fa4…3fb4 Head {h00=0x000c, h01=0x0050, text=»UNST020 «, t00=0x0028, t01=0x013a}
0x3fb4…3ff0 Head {h00=0x0038, h01=0x0050, text=» MOVE VARIOUS,=C'UNSOLL.STATUS FROM UNKNOWN DEVICE '«, t00=0x0028, t01=0x014a}
0x3ff0…400c Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0028, t01=0x0186}
0x400c…403a Head {h00=0x002a, h01=0x0050, text=» B UNST090 INVALID DEVICE, READ AGAIN «, t00=0x0029, t01=0x0012}
0x403a…4042 Head {h00=0x0004, h01=0x0050, t00=0x0029, t01=0x0040}
0x4042…4052 Head {h00=0x000c, h01=0x0050, text=»UNST030 «, t00=0x0029, t01=0x0048}
0x4052…4074 Head {h00=0x001e, h01=0x0050, text=» POWER FAILURE OCCURRED.«, t00=0x0029, t01=0x0058}
0x4074…4098 Head {h00=0x0020, h01=0x0050, text=» DOWNLINELOAD SCREENS ETC.«, t00=0x0029, t01=0x007a}
0x4098…40c2 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN1,COB13 SET HEADER LENGTH«, t00=0x0029, t01=0x009e}
0x40c2…40de Head {h00=0x0018, h01=0x0050, text=» MOVE WKSTG2,HEADER «, t00=0x0029, t01=0x00c8}
0x40de…40ee Head {h00=0x000c, h01=0x0050, text=»UNST031 «, t00=0x0029, t01=0x00e4}
0x40ee…410a Head {h00=0x0018, h01=0x0050, text=» MOVE LENGTH,=W'256'«, t00=0x0029, t01=0x00f4}
0x410a…4140 Head {h00=0x0032, h01=0x0050, text=» READ .NW,DSCMIP,BUFIN,LENGTH READ FOR ALARMS «, t00=0x0029, t01=0x0110}
0x4140…4160 Head {h00=0x001c, h01=0x0050, text=» DELAY COB10 WAIT 1 SEC «, t00=0x0029, t01=0x0146}
0x4160…4180 Head {h00=0x001c, h01=0x0050, text=» ABORT DSCMIP ABORT READ«, t00=0x0029, t01=0x0166}
0x4180…41a8 Head {h00=0x0024, h01=0x0050, text=» BOK UNST032 READ NOT COMPLETE? «, t00=0x0029, t01=0x0186}
0x41a8…41bc Head {h00=0x0010, h01=0x0050, text=» WAIT DSCMIP«, t00=0x002a, t01=0x001e}
0x41bc…41da Head {h00=0x001a, h01=0x0050, text=» B UNST031 READ AGAIN «, t00=0x002a, t01=0x0032}
0x41da…41ea Head {h00=0x000c, h01=0x0050, text=»UNST032 «, t00=0x002a, t01=0x0050}
0x41ea…421a Head {h00=0x002c, h01=0x0050, text=» PERF LOADER DOWNLINELOAD PARAMTERS ETC «, t00=0x002a, t01=0x0060}
0x421a…422e Head {h00=0x0010, h01=0x0050, text=» BOK UNST034«, t00=0x002a, t01=0x0090}
0x422e…4268 Head {h00=0x0036, h01=0x0050, text=» MOVE VARIOUS,=C'ERROR DURING DOWN-LINE LOADING ' «, t00=0x002a, t01=0x00a4}
0x4268…4284 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x002a, t01=0x00de}
0x4284…4294 Head {h00=0x000c, h01=0x0050, text=»UNST033 «, t00=0x002a, t01=0x00fa}
0x4294…42b0 Head {h00=0x0018, h01=0x0050, text=» B UNST030 TRY AGAIN«, t00=0x002a, t01=0x010a}
0x42b0…42b8 Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x0126}
0x42b8…42c8 Head {h00=0x000c, h01=0x0050, text=»UNST034 «, t00=0x002a, t01=0x012e}
0x42c8…42ee Head {h00=0x0022, h01=0x0050, text=» MOVE WKSTR7,=C'3' CONFIG.DATA«, t00=0x002a, t01=0x013e}
0x42ee…4316 Head {h00=0x0024, h01=0x0050, text=» PERF OPRCMD OPERATIONAL COMMAND«, t00=0x002a, t01=0x0164}
0x4316…432c Head {h00=0x0012, h01=0x0050, text=» BNOK UNST030 «, t00=0x002a, t01=0x018c}
0x432c…4346 Head {h00=0x0016, h01=0x0050, text=» MOVE WKSTR7,=C'1'«, t00=0x002b, t01=0x0012}
0x4346…436c Head {h00=0x0022, h01=0x0050, text=» PERF OPRCMD SEND OPEN COMMAND«, t00=0x002b, t01=0x002c}
0x436c…437e Head {h00=0x000e, h01=0x0050, text=» B UNST090«, t00=0x002b, t01=0x0052}
0x437e…4386 Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x0064}
0x4386…438e Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x006c}
0x438e…43a6 Head {h00=0x0014, h01=0x0050, text=»UNST040 ALARM «, t00=0x002b, t01=0x0074}
0x43a6…43be Head {h00=0x0014, h01=0x0050, text=» MOVE DID,=W'21'«, t00=0x002b, t01=0x008c}
0x43be…43d0 Head {h00=0x000e, h01=0x0050, text=» B UNST080«, t00=0x002b, t01=0x00a4}
0x43d0…43ea Head {h00=0x0016, h01=0x0050, text=»UNST045 PRINTERS«, t00=0x002b, t01=0x00b6}
0x43ea…4402 Head {h00=0x0014, h01=0x0050, text=» MOVE DID,=W'2' «, t00=0x002b, t01=0x00d0}
0x4402…4414 Head {h00=0x000e, h01=0x0050, text=» B UNST080«, t00=0x002b, t01=0x00e8}
0x4414…4432 Head {h00=0x001a, h01=0x0050, text=»UNST050 CARD READER «, t00=0x002b, t01=0x00fa}
0x4432…444a Head {h00=0x0014, h01=0x0050, text=» MOVE DID,=W'25'«, t00=0x002b, t01=0x0118}
0x444a…445c Head {h00=0x000e, h01=0x0050, text=» B UNST080«, t00=0x002b, t01=0x0130}
0x445c…447c Head {h00=0x001c, h01=0x0050, text=»UNST055 CONTROL PANEL «, t00=0x002b, t01=0x0142}
0x447c…4494 Head {h00=0x0014, h01=0x0050, text=» MOVE DID,=W'23'«, t00=0x002b, t01=0x0162}
0x4494…44a6 Head {h00=0x000e, h01=0x0050, text=» B UNST080«, t00=0x002b, t01=0x017a}
0x44a6…44c4 Head {h00=0x001a, h01=0x0050, text=»UNST060 CARD WRITER «, t00=0x002b, t01=0x018c}
0x44c4…44dc Head {h00=0x0014, h01=0x0050, text=» MOVE DID,=W'13'«, t00=0x002c, t01=0x001a}
0x44dc…44ee Head {h00=0x000e, h01=0x0050, text=» B UNST080«, t00=0x002c, t01=0x0032}
0x44ee…450e Head {h00=0x001c, h01=0x0050, text=»UNST065 VANDAL SHIELD «, t00=0x002c, t01=0x0044}
0x450e…4526 Head {h00=0x0014, h01=0x0050, text=» MOVE DID,=W'24'«, t00=0x002c, t01=0x0064}
0x4526…4538 Head {h00=0x000e, h01=0x0050, text=» B UNST080«, t00=0x002c, t01=0x007c}
0x4538…4540 Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x008e}
0x4540…4556 Head {h00=0x0012, h01=0x0050, text=»UNST070 KEYS«, t00=0x002c, t01=0x0096}
0x4556…457c Head {h00=0x0022, h01=0x0050, text=» MOVE WKSTR7,=C'3' CONFIG.DATA«, t00=0x002c, t01=0x00ac}
0x457c…45a4 Head {h00=0x0024, h01=0x0050, text=» PERF OPRCMD OPERATIONAL COMMAND«, t00=0x002c, t01=0x00d2}
0x45a4…45ba Head {h00=0x0012, h01=0x0050, text=» BNOK UNST090 «, t00=0x002c, t01=0x00fa}
0x45ba…45e8 Head {h00=0x002a, h01=0x0050, text=» MOVE RETUR,COB0 SOLL.STATUS EXPECTED «, t00=0x002c, t01=0x0110}
0x45e8…45f4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002c, t01=0x013e}
0x45f4…4604 Head {h00=0x000c, h01=0x0050, text=»UNST080 «, t00=0x002c, t01=0x014a}
0x4604…462c Head {h00=0x0024, h01=0x0050, text=» PERF SS SAME AS IN SOLL.STATUS «, t00=0x002c, t01=0x015a}
0x462c…4634 Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x0182}
0x4634…4644 Head {h00=0x000c, h01=0x0050, text=»UNST090 «, t00=0x002c, t01=0x018a}
0x4644…465c Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB1«, t00=0x002d, t01=0x000a}
0x465c…4668 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002d, t01=0x0022}
0x4668…4676 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002d, t01=0x002e}
0x4676…4684 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x003c}
0x4684…4698 Head {h00=0x0010, h01=0x0050, text=»SENDFC PROC «, t00=0x002d, t01=0x004a}
0x4698…46a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x005e}
0x46a2…46d0 Head {h00=0x002a, h01=0x0050, text=»****** SEND FUNCTION COMMAND«, t00=0x002d, t01=0x0068}
0x46d0…46da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0096}
0x46da…4706 Head {h00=0x0028, h01=0x0050, text=» MOVE PNT1,COB0 POINTER WITHIN FCBLD«, t00=0x002d, t01=0x00a0}
0x4706…470e Head {h00=0x0004, h01=0x0050, t00=0x002d, t01=0x00cc}
0x470e…4752 Head {h00=0x0040, h01=0x0050, text=» COPY OPKY,COB0,COB8,FCBLD(FCBLDX),COB0 COPY OPERATION KEYS «, t00=0x002d, t01=0x00d4}
0x4752…4768 Head {h00=0x0012, h01=0x0050, text=» ADD PNT1,COB8«, t00=0x002d, t01=0x0118}
0x4768…47aa Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002d, t01=0x012e}
0x47aa…47ce Head {h00=0x0020, h01=0x0050, text=»FC1 BUILD FUNCTION COMMAND«, t00=0x002d, t01=0x0170}
0x47ce…4812 (46, 0, 400) Head {h00=0x0040, h01=0x0050, text=» MOVE FCMESS,=X'4131201B3142341C1C1C20' LOAD STANDARD HEADER«, t00=0x002e, t01=0x0004}
0x4812…481a Head {h00=0x0004, h01=0x0050, t00=0x002e, t01=0x0048}
0x481a…484c Head {h00=0x002e, h01=0x0050, text=» MOVE PNT3,=W'10' SET PNT3 TO FIRST FREE «, t00=0x002e, t01=0x0050}
0x484c…4866 Head {h00=0x0016, h01=0x0050, text=» BYTE IN FCMESS «, t00=0x002e, t01=0x0082}
0x4866…48a8 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002e, t01=0x009c}
0x48a8…48be Head {h00=0x0012, h01=0x0050, text=» NEXT STATE «, t00=0x002e, t01=0x00de}
0x48be…4904 Head {h00=0x0042, h01=0x0050, text=» COPY FCMESS,PNT3,COB3,FCBLD(FCBLDX),PNT1 COPY STATE TO FCMESS«, t00=0x002e, t01=0x00f4}
0x4904…4934 Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB3 INCREMENT FCMESS POINTER «, t00=0x002e, t01=0x013a}
0x4934…4962 Head {h00=0x002a, h01=0x0050, text=» ADD PNT1,COB3 INCREMENT FCBLD POINTER«, t00=0x002e, t01=0x016a}
0x4962…49a4 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002f, t01=0x0008}
0x49a4…49ba Head {h00=0x0012, h01=0x0050, text=»FC2 LOAD FS.«, t00=0x002f, t01=0x004a}
0x49ba…49f4 Head {h00=0x0036, h01=0x0050, text=» COPY FCMESS,PNT3,COB1,FS,COB0 COPY FS. TO FCMESS «, t00=0x002f, t01=0x0060}
0x49f4…4a24 Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB1 INCREMENT FCMESS POINTER «, t00=0x002f, t01=0x009a}
0x4a24…4a66 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002f, t01=0x00ca}
0x4a66…4a9c Head {h00=0x0032, h01=0x0050, text=» COPY FCMESS,PNT3,COB16,NOTES,COB0 LOAD NOTES «, t00=0x002f, t01=0x010c}
0x4a9c…4ace Head {h00=0x002e, h01=0x0050, text=» ADD PNT3,=W'16' INCREMENT FCMESS POINTER «, t00=0x002f, t01=0x0142}
0x4ace…4b10 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002f, t01=0x0174}
0x4b10…4b26 Head {h00=0x0012, h01=0x0050, text=»FC4 LOAD FS.«, t00=0x0030, t01=0x0026}
0x4b26…4b5e Head {h00=0x0034, h01=0x0050, text=» COPY FCMESS,PNT3,COB1,FS,COB0 COPY FS TO FCMESS«, t00=0x0030, t01=0x003c}
0x4b5e…4b8e Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB1 INCREMENT FCMESS POINTER «, t00=0x0030, t01=0x0074}
0x4b8e…4bd0 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0030, t01=0x00a4}
0x4bd0…4bf4 Head {h00=0x0020, h01=0x0050, text=» TRANSACTION SERIAL NUMBER«, t00=0x0030, t01=0x00e6}
0x4bf4…4c2c Head {h00=0x0034, h01=0x0050, text=» MOVE WKB1,=W'27' POINT AT AFFECTED SERIALNUMBER«, t00=0x0030, t01=0x010a}
0x4c2c…4c66 Head {h00=0x0036, h01=0x0050, text=» XCOPY WKSTR7,COB0,COB1,FCBLD(FCBLDX),WKB1 COPY IT«, t00=0x0030, t01=0x0142}
0x4c66…4c90 Head {h00=0x0026, h01=0x0050, text=» MOVE WKBCD1,WKSTR7 CONVERT TO BCD«, t00=0x0030, t01=0x017c}
0x4c90…4cb8 Head {h00=0x0024, h01=0x0050, text=» MOVE WKB1,WKBCD1 CONVERT TO BIN«, t00=0x0031, t01=0x0016}
0x4cb8…4cf0 Head {h00=0x0034, h01=0x0050, text=» ADD SRLNBR(WKB1),=D'1' INCREMENT SERIAL NUNBER «, t00=0x0031, t01=0x003e}
0x4cf0…4d14 Head {h00=0x0020, h01=0x0050, text=» EDIT WKSTG4,SRLFMT EDIT IT «, t00=0x0031, t01=0x0076}
0x4d14…4d3e Head {h00=0x0026, h01=0x0050, text=» COPY FCMESS,PNT3,COB4,WKSTG4,COB0«, t00=0x0031, t01=0x009a}
0x4d3e…4d6e Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB4 INCREMENT FCMESS POINTER «, t00=0x0031, t01=0x00c4}
0x4d6e…4db0 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0031, t01=0x00f4}
0x4db0…4dc6 Head {h00=0x0012, h01=0x0050, text=» FUNCTION ID«, t00=0x0031, t01=0x0136}
0x4dc6…4e08 Head {h00=0x003e, h01=0x0050, text=» COPY FCMESS,PNT3,COB1,FCBLD(FCBLDX),PNT1 COPY FUNCTION ID«, t00=0x0031, t01=0x014c}
0x4e08…4e38 Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB1 INCREMENT FCMESS POINTER «, t00=0x0031, t01=0x018e}
0x4e38…4e66 Head {h00=0x002a, h01=0x0050, text=» ADD PNT1,COB1 INCREMENT FCBLD POINTER«, t00=0x0032, t01=0x002e}
0x4e66…4ea8 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0032, t01=0x005c}
0x4ea8…4ec0 Head {h00=0x0014, h01=0x0050, text=» SCREEN NUMBER«, t00=0x0032, t01=0x009e}
0x4ec0…4f00 Head {h00=0x003c, h01=0x0050, text=» COPY FCMESS,PNT3,COB3,FCBLD(FCBLDX),PNT1 COPY SCREEN NO«, t00=0x0032, t01=0x00b6}
0x4f00…4f30 Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB3 INCREMENT FCMESS POINTER «, t00=0x0032, t01=0x00f6}
0x4f30…4f5e Head {h00=0x002a, h01=0x0050, text=» ADD PNT1,COB3 INCREMENT FCBLD POINTER«, t00=0x0032, t01=0x0126}
0x4f5e…4fa0 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0032, t01=0x0154}
0x4fa0…4fe6 Head {h00=0x0042, h01=0x0050, text=» XCOPY WKSTG4,COB0,COB4,FCBLD(FCBLDX),PNT1 EXTRACT FID+SCREEN «, t00=0x0033, t01=0x0008}
0x4fe6…5014 Head {h00=0x002a, h01=0x0050, text=» ADD PNT1,COB4 INCREMENT FCBLD POINTER«, t00=0x0033, t01=0x004e}
0x5014…5044 Head {h00=0x002c, h01=0x0050, text=» CBE WKSTG4,=C'0000',FC4A NO FID+SCREEN «, t00=0x0033, t01=0x007c}
0x5044…5070 Head {h00=0x0028, h01=0x0050, text=» COPY FCMESS,PNT3,COB1,GS,COB0 <GS> «, t00=0x0033, t01=0x00ac}
0x5070…50a0 Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB1 INCREMENT FCMESS POINTER «, t00=0x0033, t01=0x00d8}
0x50a0…50d6 Head {h00=0x0032, h01=0x0050, text=» COPY FCMESS,PNT3,COB4,WKSTG4,COB0 FID+SCREEN «, t00=0x0033, t01=0x0108}
0x50d6…5106 Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB4 INCREMENT FCMESS POINTER «, t00=0x0033, t01=0x013e}
0x5106…5112 Head {h00=0x0008, h01=0x0050, text=»FC4A«, t00=0x0033, t01=0x016e}
0x5112…5144 Head {h00=0x002e, h01=0x0050, text=» XCOPY WKSTG4,COB0,COB4,FCBLD(FCBLDX),PNT1«, t00=0x0033, t01=0x017a}
0x5144…5172 Head {h00=0x002a, h01=0x0050, text=» ADD PNT1,COB4 INCREMENT FCBLD POINTER«, t00=0x0034, t01=0x001c}
0x5172…51a2 Head {h00=0x002c, h01=0x0050, text=» CBE WKSTG4,=C'0000',FC4B NO FID+SCREEN «, t00=0x0034, t01=0x004a}
0x51a2…51c8 Head {h00=0x0022, h01=0x0050, text=» COPY FCMESS,PNT3,COB1,GS,COB0«, t00=0x0034, t01=0x007a}
0x51c8…51de Head {h00=0x0012, h01=0x0050, text=» ADD PNT3,COB1«, t00=0x0034, t01=0x00a0}
0x51de…5214 Head {h00=0x0032, h01=0x0050, text=» COPY FCMESS,PNT3,COB4,WKSTG4,COB0 FID+SCREEN «, t00=0x0034, t01=0x00b6}
0x5214…522a Head {h00=0x0012, h01=0x0050, text=» ADD PNT3,COB4«, t00=0x0034, t01=0x00ec}
0x522a…5236 Head {h00=0x0008, h01=0x0050, text=»FC4B«, t00=0x0034, t01=0x0102}
0x5236…5278 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0034, t01=0x010e}
0x5278…528e Head {h00=0x0012, h01=0x0050, text=»FC5 LOAD FS.«, t00=0x0034, t01=0x0150}
0x528e…52c8 Head {h00=0x0036, h01=0x0050, text=» COPY FCMESS,PNT3,COB1,FS,COB0 COPY FS. TO FCMESS «, t00=0x0034, t01=0x0166}
0x52c8…52f8 Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB1 INCREMENT FCMESS POINTER «, t00=0x0035, t01=0x0010}
0x52f8…533a Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0035, t01=0x0040}
0x533a…5360 Head {h00=0x0022, h01=0x0050, text=» MESSAGE COORDINATION NUMBER«, t00=0x0035, t01=0x0082}
0x5360…53a4 Head {h00=0x0040, h01=0x0050, text=» COPY FCMESS,PNT3,COB1,MESS,COB0 COPY MESSAGE CO-ORD NUMBER «, t00=0x0035, t01=0x00a8}
0x53a4…53d4 Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB1 INCREMENT FCMESS POINTER «, t00=0x0035, t01=0x00ec}
0x53d4…5416 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0035, t01=0x011c}
0x5416…5438 Head {h00=0x001e, h01=0x0050, text=» CARD RETURN/RETAIN FLAG«, t00=0x0035, t01=0x015e}
0x5438…547e Head {h00=0x0042, h01=0x0050, text=» COPY FCMESS,PNT3,COB1,FCBLD(FCBLDX),PNT1 COPY CARD'HOLD'FLAG «, t00=0x0035, t01=0x0180}
0x547e…54ae Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB1 INCREMENT FCMESS POINTER «, t00=0x0036, t01=0x0036}
0x54ae…54dc Head {h00=0x002a, h01=0x0050, text=» ADD PNT1,COB1 INCREMENT FCBLD POINTER«, t00=0x0036, t01=0x0066}
0x54dc…551e Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0036, t01=0x0094}
0x551e…5536 Head {h00=0x0014, h01=0x0050, text=» PRINTER FLAG «, t00=0x0036, t01=0x00d6}
0x5536…557a Head {h00=0x0040, h01=0x0050, text=» COPY FCMESS,PNT3,COB1,FCBLD(FCBLDX),PNT1 COPY PRINTER FLAG «, t00=0x0036, t01=0x00ee}
0x557a…55ac Head {h00=0x002e, h01=0x0050, text=» COPY WKSTR7,COB0,COB1,FCBLD(FCBLDX),PNT1 «, t00=0x0036, t01=0x0132}
0x55ac…55dc Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB1 INCREMENT FCMESS POINTER «, t00=0x0036, t01=0x0164}
0x55dc…560a (55, 0, 400) Head {h00=0x002a, h01=0x0050, text=» ADD PNT1,COB1 INCREMENT FCBLD POINTER«, t00=0x0037, t01=0x0004}
0x560a…564c Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0037, t01=0x0032}
0x564c…566c Head {h00=0x001c, h01=0x0050, text=» PRINTER DATA POINTER «, t00=0x0037, t01=0x0074}
0x566c…569c Head {h00=0x002c, h01=0x0050, text=» CBE WKSTR7,=C'0',FCP40 NO PRINTER FLAG «, t00=0x0037, t01=0x0094}
0x569c…56b6 Head {h00=0x0016, h01=0x0050, text=»* RECEIPT PRINTER «, t00=0x0037, t01=0x00c4}
0x56b6…56d4 Head {h00=0x001a, h01=0x0050, text=» CBNE TXFG,=C'1',FCP10«, t00=0x0037, t01=0x00de}
0x56d4…570c Head {h00=0x0034, h01=0x0050, text=»* EDIT HEADER ONLY IF FIRST TRANSACTION ON SLIP «, t00=0x0037, t01=0x00fc}
0x570c…5726 Head {h00=0x0016, h01=0x0050, text=» MOVE FMBUF,=X'00'«, t00=0x0037, t01=0x0134}
0x5726…5742 Head {h00=0x0018, h01=0x0050, text=» EDIT FMBUF,DATEFMT «, t00=0x0037, t01=0x014e}
0x5742…575a Head {h00=0x0014, h01=0x0050, text=» MOVE BIN7,COB0 «, t00=0x0037, t01=0x016a}
0x575a…5774 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN6,=W'256'«, t00=0x0037, t01=0x0182}
0x5774…5790 Head {h00=0x0018, h01=0x0050, text=» MOVE WKSTR7,=X'00' «, t00=0x0038, t01=0x000c}
0x5790…57c0 Head {h00=0x002c, h01=0x0050, text=» MATCH FMBUF,BIN7,BIN6,WKSTR7,COB0,COB1 «, t00=0x0038, t01=0x0028}
0x57c0…57ea Head {h00=0x0026, h01=0x0050, text=» XCOPY FCMESS,PNT3,BIN7,FMBUF,COB0«, t00=0x0038, t01=0x0058}
0x57ea…5800 Head {h00=0x0012, h01=0x0050, text=» ADD PNT3,BIN7«, t00=0x0038, t01=0x0082}
0x5800…5832 Head {h00=0x002e, h01=0x0050, text=» MOVE COUNT,PLEN(COB1,COB2) SET LINELENGTH«, t00=0x0038, t01=0x0098}
0x5832…5872 Head {h00=0x003c, h01=0x0050, text=» XCOPY FCMESS,PNT3,COUNT,PNAT(COB1),COB0 "THANK YOU ..."«, t00=0x0038, t01=0x00ca}
0x5872…58a2 Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COUNT INCREMENT FCMESS POINTER«, t00=0x0038, t01=0x010a}
0x58a2…58b0 Head {h00=0x000a, h01=0x0050, text=»FCP10 «, t00=0x0038, t01=0x013a}
0x58b0…58ee Head {h00=0x003a, h01=0x0050, text=» XCOPY WKSTR8,COB0,COB2,FCBLD(FCBLDX),PNT1 FORMAT NBR «, t00=0x0038, t01=0x0148}
0x58ee…591c Head {h00=0x002a, h01=0x0050, text=» ADD PNT1,COB2 INCREMENT FCBLD POINTER«, t00=0x0038, t01=0x0186}
0x591c…594a Head {h00=0x002a, h01=0x0050, text=» CBE WKSTR8,=C'00',FCP30 USE PTAB/PLEN«, t00=0x0039, t01=0x0024}
0x594a…5966 Head {h00=0x0018, h01=0x0050, text=» MOVE WKBCD1,WKSTR8 «, t00=0x0039, t01=0x0052}
0x5966…5980 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN7,WKBCD1 «, t00=0x0039, t01=0x006e}
0x5980…599a Head {h00=0x0016, h01=0x0050, text=» MOVE FMBUF,=X'00'«, t00=0x0039, t01=0x0088}
0x599a…59d0 Head {h00=0x0032, h01=0x0050, text=» EDIT FMBUF,FORMATS(BIN7) = FORMATS(SCREENNBR)«, t00=0x0039, t01=0x00a2}
0x59d0…59e8 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN6,COB0 «, t00=0x0039, t01=0x00d8}
0x59e8…5a04 Head {h00=0x0018, h01=0x0050, text=» MOVE WKSTR7,=X'00' «, t00=0x0039, t01=0x00f0}
0x5a04…5a2c Head {h00=0x0024, h01=0x0050, text=» MOVE BIN7,=W'256' LENGTH FMBUF «, t00=0x0039, t01=0x010c}
0x5a2c…5a5c Head {h00=0x002c, h01=0x0050, text=» MATCH FMBUF,BIN6,BIN7,WKSTR7,COB0,COB1 «, t00=0x0039, t01=0x0134}
0x5a5c…5a9c Head {h00=0x003c, h01=0x0050, text=» XCOPY FCMESS,PNT3,BIN6,FMBUF,COB0 MOVE ONLY GOOD LENGTH«, t00=0x0039, t01=0x0164}
0x5a9c…5ab2 Head {h00=0x0012, h01=0x0050, text=» ADD PNT3,BIN6«, t00=0x003a, t01=0x0014}
0x5ab2…5ac2 Head {h00=0x000c, h01=0x0050, text=» B FCP40«, t00=0x003a, t01=0x002a}
0x5ac2…5ad0 Head {h00=0x000a, h01=0x0050, text=»FCP30 «, t00=0x003a, t01=0x003a}
0x5ad0…5b06 Head {h00=0x0032, h01=0x0050, text=» MOVE BIN7,PLEN(FCBLDX,COB1) PRINTERDATALENGTH«, t00=0x003a, t01=0x0048}
0x5b06…5b36 Head {h00=0x002c, h01=0x0050, text=» CBE BIN7,COB0,FCP40 NOT IF ZERO LENGTH «, t00=0x003a, t01=0x007e}
0x5b36…5b78 Head {h00=0x003e, h01=0x0050, text=» XCOPY FCMESS,PNT3,BIN7,PTAB(FCBLDX),COB0 MOVE PRINTERDATA«, t00=0x003a, t01=0x00ae}
0x5b78…5b8e Head {h00=0x0012, h01=0x0050, text=» ADD PNT3,BIN7«, t00=0x003a, t01=0x00f0}
0x5b8e…5b9c Head {h00=0x000a, h01=0x0050, text=»FCP40 «, t00=0x003a, t01=0x0106}
0x5b9c…5bde Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003a, t01=0x0114}
0x5bde…5c04 Head {h00=0x0022, h01=0x0050, text=» TEST TRACK 3 DATA FLAG «, t00=0x003a, t01=0x0156}
0x5c04…5c2e Head {h00=0x0026, h01=0x0050, text=» MOVE BIN1,PNT1 USE DUMMY POINTER «, t00=0x003a, t01=0x017c}
0x5c2e…5c70 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003b, t01=0x0016}
0x5c70…5cb8 Head {h00=0x0044, h01=0x0050, text=» MATCH FCBLD(FCBLDX),BIN1,COB1,WKSTG1,COB0,COB1 TEST FG NOT SET «, t00=0x003b, t01=0x0058}
0x5cb8…5ce2 Head {h00=0x0026, h01=0x0050, text=» BZ FC9 FLAG NOT SET. SEND FCMESS «, t00=0x003b, t01=0x00a0}
0x5ce2…5d24 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003b, t01=0x00ca}
0x5d24…5d48 Head {h00=0x0020, h01=0x0050, text=» TEST TRACK 3 DATA LENGTH «, t00=0x003b, t01=0x010c}
0x5d48…5d82 Head {h00=0x0036, h01=0x0050, text=» CBE TK3DL,COB0,FC9 TEST LENGTH TK3 DATA RECEIVED «, t00=0x003b, t01=0x0130}
0x5d82…5da0 Head {h00=0x001a, h01=0x0050, text=» LOAD FS + GRAPHIC 4«, t00=0x003b, t01=0x016a}
0x5da0…5da8 Head {h00=0x0004, h01=0x0050, t00=0x003b, t01=0x0188}
0x5da8…5ddc Head {h00=0x0030, h01=0x0050, text=» MOVE WKSTG1,=X'1C34' CODE - FS. + GRAPHIC 4«, t00=0x003b, t01=0x0190}
0x5ddc…5e20 Head {h00=0x0040, h01=0x0050, text=» COPY FCMESS,PNT3,COB2,WKSTG1,COB0 WRITE FS. + '4' TO FCMESS«, t00=0x003c, t01=0x0034}
0x5e20…5e50 Head {h00=0x002c, h01=0x0050, text=» ADD PNT3,COB2 INCREMENT FCMESS POINTER «, t00=0x003c, t01=0x0078}
0x5e50…5e92 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003c, t01=0x00a8}
0x5e92…5eb4 Head {h00=0x001e, h01=0x0050, text=» TEST TRACK 3 DATA FLAG «, t00=0x003c, t01=0x00ea}
0x5eb4…5ee8 Head {h00=0x0030, h01=0x0050, text=» MOVE WKSTG1,=X'02' CODE - TK3 DATA FG =:02 «, t00=0x003c, t01=0x010c}
0x5ee8…5f12 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN1,PNT1 USE DUMMY POINTER «, t00=0x003c, t01=0x0140}
0x5f12…5f58 Head {h00=0x0042, h01=0x0050, text=» MATCH FCBLD(FCBLDX),BIN1,COB1,WKSTG1,COB0,COB1 TEST TK3D FLAG«, t00=0x003c, t01=0x016a}
0x5f58…5f7c Head {h00=0x0020, h01=0x0050, text=» BNZ FC8 FLAG NOT SET TO :02«, t00=0x003d, t01=0x0020}
0x5f7c…5fa4 Head {h00=0x0024, h01=0x0050, text=» SEND TRACK 3 DATA AS RECEIVED«, t00=0x003d, t01=0x0044}
0x5fa4…5fe6 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003d, t01=0x006c}
0x5fe6…6008 Head {h00=0x001e, h01=0x0050, text=» TRACK 3 UPDATE POINTER «, t00=0x003d, t01=0x00ae}
0x6008…603c Head {h00=0x0030, h01=0x0050, text=» ADD PNT1,COB2 SET PNT1 TO TRACK 3 U/D INDEX«, t00=0x003d, t01=0x00d0}
0x603c…6082 Head {h00=0x0042, h01=0x0050, text=» XCOPY PDX,COB1,COB1,FCBLD(FCBLDX),PNT1 LOAD PDX WITH TRACK 3 «, t00=0x003d, t01=0x0104}
0x6082…60a2 Head {h00=0x001c, h01=0x0050, text=» UPDATE POINTER«, t00=0x003d, t01=0x014a}
0x60a2…60e4 Head {h00=0x003e, h01=0x0050, text=» XCOPY PNT2,COB0,COB2,PDUOFF(PDX),COB0 POOL OFFSET -> PNT2«, t00=0x003d, t01=0x016a}
0x60e4…6128 Head {h00=0x0040, h01=0x0050, text=» XCOPY COUNT,COB1,COB1,PDUOFF(PDX),COB2 DATA LENGTH -> COUNT«, t00=0x003e, t01=0x001c}
0x6128…616a Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003e, t01=0x0060}
0x616a…618a Head {h00=0x001c, h01=0x0050, text=» TEST EXTENT OF UPDATE«, t00=0x003e, t01=0x00a2}
0x618a…61be Head {h00=0x0030, h01=0x0050, text=» SUB PNT1,COB1 PNT1 TO TK3 U/D OFFSET INDEX «, t00=0x003e, t01=0x00c2}
0x61be…61e0 Head {h00=0x001e, h01=0x0050, text=» MOVE BIN3,COB0 CLEAR BIN3«, t00=0x003e, t01=0x00f6}
0x61e0…6224 Head {h00=0x0040, h01=0x0050, text=» XCOPY BIN3,COB1,COB1,FCBLD(FCBLDX),PNT1 COPY TK3 U/D OFFSET«, t00=0x003e, t01=0x0118}
0x6224…6258 Head {h00=0x0030, h01=0x0050, text=» ADD BIN3,COUNT ADD U/D LENGTH TO U/D OFFSET«, t00=0x003e, t01=0x015c}
0x6258…6292 Head {h00=0x0036, h01=0x0050, text=» CBL BIN3,TK3DL,FC7 TEST U/D NOT< TK3 DATA LENGTH «, t00=0x003e, t01=0x0190}
0x6292…62c4 Head {h00=0x002e, h01=0x0050, text=» MOVE VARIOUS,=C'TRACK 3 UPDATE ABORTED ' «, t00=0x003f, t01=0x003a}
0x62c4…62e0 Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x003f, t01=0x006c}
0x62e0…6308 Head {h00=0x0024, h01=0x0050, text=» B FC8 SEND TK3 DATA AS RECEIVED«, t00=0x003f, t01=0x0088}
0x6308…634a Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003f, t01=0x00b0}
0x634a…636c Head {h00=0x001e, h01=0x0050, text=»FC7 UPDATE TRACK 3 DATA «, t00=0x003f, t01=0x00f2}
0x636c…639c Head {h00=0x002c, h01=0x0050, text=» SUB BIN3,COUNT RESET TRACK 3 U/D OFFSET«, t00=0x003f, t01=0x0114}
0x639c…63d8 Head {h00=0x0038, h01=0x0050, text=» COPY TK3D,BIN3,COUNT,POOL,PNT2 UPDATE TRACK 3 DATA «, t00=0x003f, t01=0x0144}
0x63d8…63e0 Head {h00=0x0004, h01=0x0050, t00=0x003f, t01=0x0180}
0x63e0…6400 Head {h00=0x001c, h01=0x0050, text=»FC8 SEND TRACK 3 DATA «, t00=0x003f, t01=0x0188}
0x6400…643c Head {h00=0x0038, h01=0x0050, text=» COPY FCMESS,PNT3,TK3DL,TK3D,COB0 LOAD TRACK 3 DATA «, t00=0x0040, t01=0x0018}
0x643c…646e Head {h00=0x002e, h01=0x0050, text=» ADD PNT3,TK3DL SET PNT3 TO MESSAGE LENGTH«, t00=0x0040, t01=0x0054}
0x646e…64b0 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0040, t01=0x0086}
0x64b0…64d4 Head {h00=0x0020, h01=0x0050, text=»FC9 WRITE FUNCTION COMMAND«, t00=0x0040, t01=0x00c8}
0x64d4…650c Head {h00=0x0034, h01=0x0050, text=» WRITE DSCMOP,FCMESS,PNT3 WRITE MESSAGE TO LINE «, t00=0x0040, t01=0x00ec}
0x650c…653a Head {h00=0x002a, h01=0x0050, text=» XSTAT DSCMOP,BIN3 COPY STATUS TO BIN3«, t00=0x0040, t01=0x0124}
0x653a…655c Head {h00=0x001e, h01=0x0050, text=» PERF RECHK EXAMINE STATUS«, t00=0x0040, t01=0x0152}
0x655c…658a Head {h00=0x002a, h01=0x0050, text=» IB BIN2, CHECK AND BRANCH ON INDEX C «, t00=0x0040, t01=0x0174}
0x658a…65a4 Head {h00=0x0016, h01=0x0050, text=» FC10, READ OK C «, t00=0x0041, t01=0x0012}
0x65a4…65c8 Head {h00=0x0020, h01=0x0050, text=» FC11, MODEM NOT OPERABLE C«, t00=0x0041, t01=0x002c}
0x65c8…65e6 Head {h00=0x001a, h01=0x0050, text=» FC11, LINE CLOSED C «, t00=0x0041, t01=0x0050}
0x65e6…6604 Head {h00=0x001a, h01=0x0050, text=» FC11, ATM INACTIVE C«, t00=0x0041, t01=0x006e}
0x6604…6630 Head {h00=0x0028, h01=0x0050, text=» FC10, RETRANSMISSIONS PERFORMED C «, t00=0x0041, t01=0x008c}
0x6630…6656 Head {h00=0x0022, h01=0x0050, text=» FC11, INVALID TC FOR WRITE C«, t00=0x0041, t01=0x00b8}
0x6656…667c Head {h00=0x0022, h01=0x0050, text=» FC11, POLL HALTED FOR READ C«, t00=0x0041, t01=0x00de}
0x667c…669e Head {h00=0x001e, h01=0x0050, text=» FC11 ATM BUSY FOR WRITE «, t00=0x0041, t01=0x0104}
0x669e…66a6 Head {h00=0x0004, h01=0x0050, t00=0x0041, t01=0x0126}
0x66a6…66ca Head {h00=0x0020, h01=0x0050, text=»FC10 FUNCTION COMMAND SENT«, t00=0x0041, t01=0x012e}
0x66ca…66f8 Head {h00=0x002a, h01=0x0050, text=» SET RESFG SET RESPONSE EXPECTED FLAG «, t00=0x0041, t01=0x0152}
0x66f8…6734 Head {h00=0x0038, h01=0x0050, text=» PERF SCRIBE,FCSENT 'FUNCTION COMMAND SENT (KEYS)' «, t00=0x0041, t01=0x0180}
0x6734…6746 Head {h00=0x000e, h01=0x0050, text=» B SFC010 «, t00=0x0042, t01=0x002c}
0x6746…674e Head {h00=0x0004, h01=0x0050, t00=0x0042, t01=0x003e}
0x674e…6768 Head {h00=0x0016, h01=0x0050, text=»FC11 WRITE ERROR«, t00=0x0042, t01=0x0046}
0x6768…679a Head {h00=0x002e, h01=0x0050, text=» MOVE STATUS,BIN3 COPY STATUS TO BCD FIELD«, t00=0x0042, t01=0x0060}
0x679a…67d4 Head {h00=0x0036, h01=0x0050, text=» PERF SCRIBE,DCWE 'DATA COMM WRITE ERROR-STATUS' «, t00=0x0042, t01=0x0092}
0x67d4…67dc Head {h00=0x0004, h01=0x0050, t00=0x0042, t01=0x00cc}
0x67dc…67ea Head {h00=0x000a, h01=0x0050, text=»SFC010«, t00=0x0042, t01=0x00d4}
0x67ea…6802 Head {h00=0x0014, h01=0x0050, text=» MOVE RETUR,COB0«, t00=0x0042, t01=0x00e2}
0x6802…680e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0042, t01=0x00fa}
0x680e…681c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0042, t01=0x0106}
0x681c…682a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x0114}
0x682a…6834 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0122}
0x6834…6876 Head {h00=0x003e, h01=0x0050, text=»****** OPL OPEN/CLOSE LINE«, t00=0x0042, t01=0x012c}
0x6876…6880 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x016e}
0x6880…68a4 Head {h00=0x0020, h01=0x0050, text=»* FUNCTION:- «, t00=0x0042, t01=0x0178}
0x68a4…68f4 Head {h00=0x004c, h01=0x0050, text=»* THIS SUBROUTINE OPENS AND CLOSES THE LINE TO THE AT«, t00=0x0043, t01=0x000c}
0x68f4…68fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x005c}
0x68fe…692a Head {h00=0x0028, h01=0x0050, text=»* CALLING SEQUENCE:- «, t00=0x0043, t01=0x0066}
0x692a…6950 Head {h00=0x0022, h01=0x0050, text=»* PERF OPL «, t00=0x0043, t01=0x0092}
0x6950…695a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00b8}
0x695a…697a Head {h00=0x001c, h01=0x0050, text=»* ENTRY:-«, t00=0x0043, t01=0x00c2}
0x697a…69ca Head {h00=0x004c, h01=0x0050, text=»* THE FOLLOWING PARAMETERS ARE SET UP BEFORE CALLING «, t00=0x0043, t01=0x00e2}
0x69ca…69f4 Head {h00=0x0026, h01=0x0050, text=»* THE SUBROUTINE:- «, t00=0x0043, t01=0x0132}
0x69f4…6a2c Head {h00=0x0034, h01=0x0050, text=»* BIN2 -- '00A2' OPEN LINE «, t00=0x0043, t01=0x015c}
0x6a2c…6a64 (68, 0, 400) Head {h00=0x0034, h01=0x0050, text=»* -- '00A4' CLOSE LINE«, t00=0x0044, t01=0x0004}
0x6a64…6a9e Head {h00=0x0036, h01=0x0050, text=»* ADR -- '0041' ATM ADDRESS «, t00=0x0044, t01=0x003c}
0x6a9e…6aa8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0076}
0x6aa8…6ac8 Head {h00=0x001c, h01=0x0050, text=»* EXIT:- «, t00=0x0044, t01=0x0080}
0x6ac8…6b12 Head {h00=0x0046, h01=0x0050, text=»* THE ROUTINE WILL SET THE INDEX VALUE IN BIN3 «, t00=0x0044, t01=0x00a0}
0x6b12…6b44 Head {h00=0x002e, h01=0x0050, text=»* THE VALUE IS AS FOLLOWS:-«, t00=0x0044, t01=0x00ea}
0x6b44…6b80 Head {h00=0x0038, h01=0x0050, text=»* 0 ILLEGAL/UNRECOGNISABLE ERROR«, t00=0x0044, t01=0x011c}
0x6b80…6ba6 Head {h00=0x0022, h01=0x0050, text=»* 1 I/O OK«, t00=0x0044, t01=0x0158}
0x6ba6…6bd8 Head {h00=0x002e, h01=0x0050, text=»* 2 MODEM NOT OPERABLE«, t00=0x0044, t01=0x017e}
0x6bd8…6c0a Head {h00=0x002e, h01=0x0050, text=»* 3 LINE ALREADY OPEN «, t00=0x0045, t01=0x0020}
0x6c0a…6c58 Head {h00=0x004a, h01=0x0050, text=»* THE ROUTINE WILL ALSO UPDATE ATM LINE STATUS AND SET «, t00=0x0045, t01=0x0052}
0x6c58…6c88 Head {h00=0x002c, h01=0x0050, text=»* THE TABLE AS FOLLOWS:- «, t00=0x0045, t01=0x00a0}
0x6c88…6cb6 Head {h00=0x002a, h01=0x0050, text=»* 0 LINE TO ATM OK«, t00=0x0045, t01=0x00d0}
0x6cb6…6ce6 Head {h00=0x002c, h01=0x0050, text=»* 1 MODEM INOPERABLE«, t00=0x0045, t01=0x00fe}
0x6ce6…6cf8 Head {h00=0x000e, h01=0x0050, text=»OPL PROC «, t00=0x0045, t01=0x012e}
0x6cf8…6d36 Head {h00=0x003a, h01=0x0050, text=» CALL RECASM,DSCMOP,BIN2,ADR,BIN3 PERFORM I/O ON LINE «, t00=0x0045, t01=0x0140}
0x6d36…6d6e Head {h00=0x0034, h01=0x0050, text=» CBNE BIN2,=X'00A2',OP5 TEST FOR CLOSE LINE CODE«, t00=0x0045, t01=0x017e}
0x6d6e…6d9e Head {h00=0x002c, h01=0x0050, text=» IB BIN3, INDEX FROM ASS. SUBROUTINE C «, t00=0x0046, t01=0x0026}
0x6d9e…6db6 Head {h00=0x0014, h01=0x0050, text=» OP2, LINE OK C«, t00=0x0046, t01=0x0056}
0x6db6…6dda Head {h00=0x0020, h01=0x0050, text=» OP3, MODEM NOT OPERABLE C «, t00=0x0046, t01=0x006e}
0x6dda…6dfa Head {h00=0x001c, h01=0x0050, text=» OP2 LINE ALREADY OPEN «, t00=0x0046, t01=0x0092}
0x6dfa…6e16 Head {h00=0x0018, h01=0x0050, text=» B OP6 ILLEGAL ERROR«, t00=0x0046, t01=0x00b2}
0x6e16…6e48 Head {h00=0x002e, h01=0x0050, text=»OP2 MOVE BIN1,=W'0' SET CODE FOR LINE OPEN«, t00=0x0046, t01=0x00ce}
0x6e48…6e56 Head {h00=0x000a, h01=0x0050, text=» B OP6«, t00=0x0046, t01=0x0100}
0x6e56…6e90 Head {h00=0x0036, h01=0x0050, text=»OP3 MOVE BIN1,=W'1' SET CODE FOR LINE NOT OPERABLE«, t00=0x0046, t01=0x010e}
0x6e90…6e9e Head {h00=0x000a, h01=0x0050, text=» B OP6«, t00=0x0046, t01=0x0148}
0x6e9e…6ed2 Head {h00=0x0030, h01=0x0050, text=»OP5 IB BIN3, INDEX FROM ASS. SUBROUTINE C C«, t00=0x0046, t01=0x0156}
0x6ed2…6eee Head {h00=0x0018, h01=0x0050, text=» OP7, LINE CLOSED C«, t00=0x0046, t01=0x018a}
0x6eee…6f02 Head {h00=0x0010, h01=0x0050, text=» OP6, N/A C«, t00=0x0047, t01=0x0016}
0x6f02…6f24 Head {h00=0x001e, h01=0x0050, text=» OP6 LINE ALREADY CLOSED «, t00=0x0047, t01=0x002a}
0x6f24…6f34 Head {h00=0x000c, h01=0x0050, text=»OP6 RET «, t00=0x0047, t01=0x004c}
0x6f34…6f40 Head {h00=0x0008, h01=0x0050, text=»OP7 «, t00=0x0047, t01=0x005c}
0x6f40…6f54 Head {h00=0x0010, h01=0x0050, text=» CLEAR OPEN «, t00=0x0047, t01=0x0068}
0x6f54…6f62 Head {h00=0x000a, h01=0x0050, text=» B OP3«, t00=0x0047, t01=0x007c}
0x6f62…6f70 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0047, t01=0x008a}
0x6f70…6f7e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x0098}
0x6f7e…6f88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00a6}
0x6f88…6fd6 Head {h00=0x004a, h01=0x0050, text=»****** RECHK CONVERTS A RETURN CODE INTO«, t00=0x0047, t01=0x00b0}
0x6fd6…7012 Head {h00=0x0038, h01=0x0050, text=»* AN INDEX «, t00=0x0047, t01=0x00fe}
0x7012…701c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x013a}
0x701c…7026 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0144}
0x7026…704a Head {h00=0x0020, h01=0x0050, text=»* FUNCTION:- «, t00=0x0047, t01=0x014e}
0x704a…7098 Head {h00=0x004a, h01=0x0050, text=»* THIS ROUTINE CONVERTS A GIVEN RETURN CODE INTO AN«, t00=0x0047, t01=0x0172}
0x7098…70ca Head {h00=0x002e, h01=0x0050, text=»* INDEX VALUE AS FOLLOWS:- «, t00=0x0048, t01=0x0030}
0x70ca…70f0 Head {h00=0x0022, h01=0x0050, text=»* 1. I/O OK«, t00=0x0048, t01=0x0062}
0x70f0…7122 Head {h00=0x002e, h01=0x0050, text=»* 2. MODEM NOT OPERABLE«, t00=0x0048, t01=0x0088}
0x7122…714e Head {h00=0x0028, h01=0x0050, text=»* 3. LINE CLOSED «, t00=0x0048, t01=0x00ba}
0x714e…717a Head {h00=0x0028, h01=0x0050, text=»* 4. ATM INACTIVE«, t00=0x0048, t01=0x00e6}
0x717a…719e Head {h00=0x0020, h01=0x0050, text=»* 5. RETX«, t00=0x0048, t01=0x0112}
0x719e…71d2 Head {h00=0x0030, h01=0x0050, text=»* 6. INVALID TC FOR WRITE«, t00=0x0048, t01=0x0136}
0x71d2…7204 Head {h00=0x002e, h01=0x0050, text=»* POLL LIST OVERFLOW«, t00=0x0048, t01=0x016a}
0x7204…7238 Head {h00=0x0030, h01=0x0050, text=»* 7. POLL HALTED FOR READ«, t00=0x0049, t01=0x000c}
0x7238…726a Head {h00=0x002e, h01=0x0050, text=»* 8. ATM BUSY FOR WRITE«, t00=0x0049, t01=0x0040}
0x726a…729e Head {h00=0x0030, h01=0x0050, text=»* ATM ACTIVE FOR READ «, t00=0x0049, t01=0x0072}
0x729e…72a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00a6}
0x72a8…72c8 Head {h00=0x001c, h01=0x0050, text=»* ENTRY:-«, t00=0x0049, t01=0x00b0}
0x72c8…7312 Head {h00=0x0046, h01=0x0050, text=»* THIS ROUTINE MUST HAVE A RETURN CODE IN BIN3 «, t00=0x0049, t01=0x00d0}
0x7312…731c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x011a}
0x731c…733c Head {h00=0x001c, h01=0x0050, text=»* EXIT:- «, t00=0x0049, t01=0x0124}
0x733c…7380 Head {h00=0x0040, h01=0x0050, text=»* BIN2 CONTAINS THE INDEX VALUE AS ABOVE «, t00=0x0049, t01=0x0144}
0x7380…73b4 Head {h00=0x0030, h01=0x0050, text=»* BIN3 REMAINS UNCHANGED «, t00=0x0049, t01=0x0188}
0x73b4…73be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x002c}
0x73be…73c6 Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x0036}
0x73c6…73da Head {h00=0x0010, h01=0x0050, text=»RECHK PROC «, t00=0x004a, t01=0x003e}
0x73da…7400 Head {h00=0x0022, h01=0x0050, text=» MOVE BIN2,COB1 SET INDEX TO 1«, t00=0x004a, t01=0x0052}
0x7400…7422 Head {h00=0x001e, h01=0x0050, text=» CBE BIN3,COB0,R90 I/O OK?«, t00=0x004a, t01=0x0078}
0x7422…744e Head {h00=0x0028, h01=0x0050, text=» ADD BIN2,COB1 INCREMENT INDEX (II) «, t00=0x004a, t01=0x009a}
0x744e…747c Head {h00=0x002a, h01=0x0050, text=» CBE BIN3,COB1,R90 MODEM NOT OPERABLE «, t00=0x004a, t01=0x00c6}
0x747c…7496 Head {h00=0x0016, h01=0x0050, text=» ADD BIN2,COB1 II«, t00=0x004a, t01=0x00f4}
0x7496…74c0 Head {h00=0x0026, h01=0x0050, text=» CBE BIN3,=X'0010',R90 LINE CLOSED«, t00=0x004a, t01=0x010e}
0x74c0…74da Head {h00=0x0016, h01=0x0050, text=» ADD BIN2,COB1 II«, t00=0x004a, t01=0x0138}
0x74da…7506 Head {h00=0x0028, h01=0x0050, text=» CBE BIN3,=X'0020',R90 ATM INACTIVE «, t00=0x004a, t01=0x0152}
0x7506…7520 Head {h00=0x0016, h01=0x0050, text=» ADD BIN2,COB1 II«, t00=0x004a, t01=0x017e}
0x7520…7544 Head {h00=0x0020, h01=0x0050, text=» CBE BIN3,=X'0100',R90 RETX «, t00=0x004b, t01=0x0008}
0x7544…755e Head {h00=0x0016, h01=0x0050, text=» ADD BIN2,COB1 II «, t00=0x004b, t01=0x002c}
0x755e…758c Head {h00=0x002a, h01=0x0050, text=» CBE BIN3,COB8,R90 POLL LIST OVERFLOW «, t00=0x004b, t01=0x0046}
0x758c…75c0 Head {h00=0x0030, h01=0x0050, text=» CBE BIN3,=X'0040',R90 ATM NOT IN POLL LIST «, t00=0x004b, t01=0x0074}
0x75c0…75da Head {h00=0x0016, h01=0x0050, text=» ADD BIN2,COB1 II «, t00=0x004b, t01=0x00a8}
0x75da…7608 Head {h00=0x002a, h01=0x0050, text=» CBE BIN3,=X'0080',R90 POLLING HALTED «, t00=0x004b, t01=0x00c2}
0x7608…7628 Head {h00=0x001c, h01=0x0050, text=» ADD BIN2,COB1 ATM BUSY «, t00=0x004b, t01=0x00f0}
0x7628…7638 Head {h00=0x000c, h01=0x0050, text=»R90 RET «, t00=0x004b, t01=0x0110}
0x7638…7646 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004b, t01=0x0120}
0x7646…7654 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x012e}
0x7654…769c Head {h00=0x0044, h01=0x0050, text=»****** SCRIBE WRITES TO THE DISPLAY«, t00=0x004b, t01=0x013c}
0x769c…76a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0184}
0x76a6…76ca Head {h00=0x0020, h01=0x0050, text=»* FUNCTION:- «, t00=0x004b, t01=0x018e}
0x76ca…7718 Head {h00=0x004a, h01=0x0050, text=»* THIS SUBROUTINE WRITES TO THE DISPLAY AND REPORTS«, t00=0x004c, t01=0x0022}
0x7718…774c Head {h00=0x0030, h01=0x0050, text=»* ON ANY DEVICE STATUS ERRORS«, t00=0x004c, t01=0x0070}
0x774c…7756 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00a4}
0x7756…7776 Head {h00=0x001c, h01=0x0050, text=»* ENTRY:-«, t00=0x004c, t01=0x00ae}
0x7776…77c2 Head {h00=0x0048, h01=0x0050, text=»* THE FORMAT NAME IS CARRIED INTO THE SUBROUTINE «, t00=0x004c, t01=0x00ce}
0x77c2…77cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x011a}
0x77cc…77f8 Head {h00=0x0028, h01=0x0050, text=»* CALLING SEQUENCE:- «, t00=0x004c, t01=0x0124}
0x77f8…783c Head {h00=0x0040, h01=0x0050, text=»* PERF SCRIBE,FRMAT,DISPLAY «, t00=0x004c, t01=0x0150}
0x783c…7878 (77, 0, 400) Head {h00=0x0038, h01=0x0050, text=»* SCRIBE PROC FRMAT,DISPLAY«, t00=0x004d, t01=0x0004}
0x7878…7882 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0040}
0x7882…78a2 Head {h00=0x001c, h01=0x0050, text=»* EXIT:- «, t00=0x004d, t01=0x004a}
0x78a2…78dc Head {h00=0x0036, h01=0x0050, text=»* 1. WITH I/O OK,NORMAL RETURN.«, t00=0x004d, t01=0x006a}
0x78dc…7906 Head {h00=0x0026, h01=0x0050, text=»* 2. ELSE STOP«, t00=0x004d, t01=0x00a4}
0x7906…7920 Head {h00=0x0016, h01=0x0050, text=»SCRIBE PROC FRMAT «, t00=0x004d, t01=0x00ce}
0x7920…7934 Head {h00=0x0010, h01=0x0050, text=» PFRMT FRMAT«, t00=0x004d, t01=0x00e8}
0x7934…793c Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x00fc}
0x793c…7954 Head {h00=0x0014, h01=0x0050, text=» EDWRT DY,FRMAT «, t00=0x004d, t01=0x0104}
0x7954…7974 Head {h00=0x001c, h01=0x0050, text=» BERR S1 TEST FOR ERROR «, t00=0x004d, t01=0x011c}
0x7974…7980 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004d, t01=0x013c}
0x7980…798a Head {h00=0x0006, h01=0x0050, text=»S1«, t00=0x004d, t01=0x0148}
0x798a…7998 Head {h00=0x000a, h01=0x0050, text=» B S1 «, t00=0x004d, t01=0x0152}
0x7998…79a6 Head {h00=0x000a, h01=0x0050, text=» EXIT «, t00=0x004d, t01=0x0160}
0x79a6…79b4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004d, t01=0x016e}
0x79b4…79c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004d, t01=0x017c}
0x79c2…79cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x018a}
0x79cc…7a14 (78, 0, 400) Head {h00=0x0044, h01=0x0050, text=»****** UNLOAD UNLOADS MESSAGE DATA «, t00=0x004e, t01=0x0004}
0x7a14…7a1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x004c}
0x7a1e…7a42 Head {h00=0x0020, h01=0x0050, text=»* FUNCTION:- «, t00=0x004e, t01=0x0056}
0x7a42…7a88 Head {h00=0x0042, h01=0x0050, text=»* THIS SUBROUTINE EXAMINES THE MESSAGE AND «, t00=0x004e, t01=0x007a}
0x7a88…7ad4 Head {h00=0x0048, h01=0x0050, text=»* UNLOADS THE DATA FIELDS INTO SEPARATE WORK SPACES. «, t00=0x004e, t01=0x00c0}
0x7ad4…7b22 Head {h00=0x004a, h01=0x0050, text=»* INITALLY IT WILL CLEAR THE WORK SPACE AND ZEROISE«, t00=0x004e, t01=0x010c}
0x7b22…7b48 Head {h00=0x0022, h01=0x0050, text=»* THE POINTER. «, t00=0x004e, t01=0x015a}
0x7b48…7b96 Head {h00=0x004a, h01=0x0050, text=»* WHEN A FIELD SEPARATOR IS FOUND, IT EXAMINES THE «, t00=0x004e, t01=0x0180}
0x7b96…7be0 Head {h00=0x0046, h01=0x0050, text=»* LENGTH OF THE DATA FIELD. IF THIS IS NON-ZERO, IT«, t00=0x004f, t01=0x003e}
0x7be0…7c2c Head {h00=0x0048, h01=0x0050, text=»* COPIES THE DATA INTO THE APPROPRIATE WORK SPACE AND«, t00=0x004f, t01=0x0088}
0x7c2c…7c78 Head {h00=0x0048, h01=0x0050, text=»* DELETES ALL CHARACTERS UPTO AND INCLUDING THE FIELD«, t00=0x004f, t01=0x00d4}
0x7c78…7cc4 Head {h00=0x0048, h01=0x0050, text=»* SEPERATOR. SHOULD THE LENGTH OF THE FIELD SEPARATOR«, t00=0x004f, t01=0x0120}
0x7cc4…7d12 Head {h00=0x004a, h01=0x0050, text=»* IT DELETES THE FIELD SEPERATOR, AND SETS A FLAG WHICH«, t00=0x004f, t01=0x016c}
0x7d12…7d5c Head {h00=0x0046, h01=0x0050, text=»* WILL BE TESTED WHEN THE INFORMATION IS DISPLAYED.«, t00=0x0050, t01=0x002a}
0x7d5c…7d66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0074}
0x7d66…7d86 Head {h00=0x001c, h01=0x0050, text=»* ENTRY:-«, t00=0x0050, t01=0x007e}
0x7d86…7dd4 Head {h00=0x004a, h01=0x0050, text=»* THE WORKSPACE NAME IS CARRIED INTO THE SUBROUTINE«, t00=0x0050, t01=0x009e}
0x7dd4…7e00 Head {h00=0x0028, h01=0x0050, text=»* AND A BOOLEAN FLAG.«, t00=0x0050, t01=0x00ec}
0x7e00…7e0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0118}
0x7e0a…7e36 Head {h00=0x0028, h01=0x0050, text=»* CALLING SEQUENCE:- «, t00=0x0050, t01=0x0122}
0x7e36…7e82 Head {h00=0x0048, h01=0x0050, text=»* PERF UNLOAD,<FIELD>,<FLAG>,<LENGTH> «, t00=0x0050, t01=0x014e}
0x7e82…7ec2 Head {h00=0x003c, h01=0x0050, text=»* UNLOAD PROC FIELD,FLAG,LENGTH «, t00=0x0051, t01=0x000a}
0x7ec2…7ecc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x004a}
0x7ecc…7eec Head {h00=0x001c, h01=0x0050, text=»* EXIT:- «, t00=0x0051, t01=0x0054}
0x7eec…7f3c Head {h00=0x004c, h01=0x0050, text=»* THE ROUTINE WILL RETURN TO THE MAIN PROGRAM VIA RET«, t00=0x0051, t01=0x0074}
0x7f3c…7f46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00c4}
0x7f46…7f68 Head {h00=0x001e, h01=0x0050, text=»UNLOAD PROC FIELD,FLAG,LEN«, t00=0x0051, t01=0x00ce}
0x7f68…7f7c Head {h00=0x0010, h01=0x0050, text=» PSTRG FIELD«, t00=0x0051, t01=0x00f0}
0x7f7c…7f90 Head {h00=0x0010, h01=0x0050, text=» PBOOL FLAG «, t00=0x0051, t01=0x0104}
0x7f90…7fa2 Head {h00=0x000e, h01=0x0050, text=» PLIT LEN «, t00=0x0051, t01=0x0118}
0x7fa2…7faa Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x012a}
0x7faa…7fb2 Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x0132}
0x7fb2…7fde Head {h00=0x0028, h01=0x0050, text=» MOVE PNT1,COB0 SET POINTER TO ZERO «, t00=0x0051, t01=0x013a}
0x7fde…8004 Head {h00=0x0022, h01=0x0050, text=» MOVE FIELD,=C' ' CLEAR FIELD «, t00=0x0051, t01=0x0166}
0x8004…8040 Head {h00=0x0038, h01=0x0050, text=» MATCH BUFIN,PNT1,LENGTH,FS,COB0,COB1 SEARCH FOR FS «, t00=0x0051, t01=0x018c}
0x8040…8074 Head {h00=0x0030, h01=0x0050, text=» CBE PNT1,COB0,UL1 CHECK INFORMATION LENGTH «, t00=0x0052, t01=0x0038}
0x8074…808e Head {h00=0x0016, h01=0x0050, text=» CBNG PNT1,LEN,UL0«, t00=0x0052, t01=0x006c}
0x808e…80c0 Head {h00=0x002e, h01=0x0050, text=» MOVE PNT1,LEN DELIMIT TO EXPLICIT LENGTH «, t00=0x0052, t01=0x0086}
0x80c0…80cc Head {h00=0x0008, h01=0x0050, text=»UL0 «, t00=0x0052, t01=0x00b8}
0x80cc…8112 Head {h00=0x0042, h01=0x0050, text=» XCOPY FIELD,COB0,PNT1,BUFIN,COB0 COPY INFORMATION INTO FIELD «, t00=0x0052, t01=0x00c4}
0x8112…813c Head {h00=0x0026, h01=0x0050, text=»UL1 ADD PNT1,COB1 ADD 1 TO POINTER«, t00=0x0052, t01=0x010a}
0x813c…8176 Head {h00=0x0036, h01=0x0050, text=» DLETE BUFIN,COB0,PNT1 DELETE UPTO FIELD SEPARATOR«, t00=0x0052, t01=0x0134}
0x8176…81aa Head {h00=0x0030, h01=0x0050, text=» CBNE PNT1,COB1,UL2 TEST FOR DATA LENGTH =0 «, t00=0x0052, t01=0x016e}
0x81aa…81d0 Head {h00=0x0022, h01=0x0050, text=» SET FLAG SET ZERO LENGTH FLAG«, t00=0x0053, t01=0x0012}
0x81d0…81e0 Head {h00=0x000c, h01=0x0050, text=»UL2 RET «, t00=0x0053, t01=0x0038}
0x81e0…81ee Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0053, t01=0x0048}
0x81ee…81fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0053, t01=0x0056}
0x81fc…8206 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0053, t01=0x0064}
0x8206…821c Head {h00=0x0012, h01=0x0050, text=»** DLLATM«, t00=0x0053, t01=0x006e}
0x821c…8232 Head {h00=0x0012, h01=0x0050, text=»** ------«, t00=0x0053, t01=0x0084}
0x8232…823c Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0053, t01=0x009a}
0x823c…8288 Head {h00=0x0048, h01=0x0050, text=»** THIS ROUTINE INSERTS A PROTOCOL/MESSAGE HEADER AT THE START «, t00=0x0053, t01=0x00a4}
0x8288…82d4 Head {h00=0x0048, h01=0x0050, text=»** OF THE DC BUFFER WRITES THE BUFFER TO THE ATM AND READS THE «, t00=0x0053, t01=0x00f0}
0x82d4…82f4 Head {h00=0x001c, h01=0x0050, text=»** ATM'S RESPONSE. «, t00=0x0053, t01=0x013c}
0x82f4…833e Head {h00=0x0046, h01=0x0050, text=»** IF ANY DC ERROR OCCURS OR IF THE ATM DOES NOT RESPOND WITH«, t00=0x0053, t01=0x015c}
0x833e…8386 Head {h00=0x0044, h01=0x0050, text=»** A READY SOLICITED STATUS, THE ROUTINE EXITS WITH CR =2. «, t00=0x0054, t01=0x0016}
0x8386…8390 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0054, t01=0x005e}
0x8390…839a Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0054, t01=0x0068}
0x839a…83ae Head {h00=0x0010, h01=0x0050, text=»DLLATM PROC «, t00=0x0054, t01=0x0072}
0x83ae…83e8 Head {h00=0x0036, h01=0x0050, text=» INSRT BUFIN,COB0,COB13,WKSTG2,COB0 INSERT HEADER «, t00=0x0054, t01=0x0086}
0x83e8…8418 Head {h00=0x002c, h01=0x0050, text=» ADD LENGTH,COB13 UPDATE MESSAGE LENGTH «, t00=0x0054, t01=0x00c0}
0x8418…844c Head {h00=0x0030, h01=0x0050, text=» SUB LENGTH,COB1 IGNORE TRAILING FIELD SEPR.«, t00=0x0054, t01=0x00f0}
0x844c…8482 Head {h00=0x0032, h01=0x0050, text=» WRITE DSCMOP,BUFIN,LENGTH SEND MESSAGE TO ATM«, t00=0x0054, t01=0x0124}
0x8482…84b0 Head {h00=0x002a, h01=0x0050, text=» XSTAT DSCMOP,BIN3 GET EXTENDED STATUS«, t00=0x0054, t01=0x015a}
0x84b0…84d4 Head {h00=0x0020, h01=0x0050, text=» PERF RECHK CONVERT TO INDEX«, t00=0x0054, t01=0x0188}
0x84d4…84fc Head {h00=0x0024, h01=0x0050, text=» CBE BIN2,COB1,DLL100 WRITE OK? «, t00=0x0055, t01=0x001c}
0x84fc…852c Head {h00=0x002c, h01=0x0050, text=» CBE BIN2,COB5,DLL100 RETRIES PERFORMED?«, t00=0x0055, t01=0x0044}
0x852c…855a Head {h00=0x002a, h01=0x0050, text=» MOVE STATUS,BIN3 CONVERT XSTAT TO BCD«, t00=0x0055, t01=0x0074}
0x855a…8588 Head {h00=0x002a, h01=0x0050, text=» PERF SCRIBE,DCWE O/P DC WRITE ERROR «, t00=0x0055, t01=0x00a2}
0x8588…8596 Head {h00=0x000a, h01=0x0050, text=»DLL050«, t00=0x0055, t01=0x00d0}
0x8596…85c4 Head {h00=0x002a, h01=0x0050, text=» CMP COB0,COB1 SET CONDITION REG TO 2 «, t00=0x0055, t01=0x00de}
0x85c4…85d0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0055, t01=0x010c}
0x85d0…85de Head {h00=0x000a, h01=0x0050, text=»DLL100«, t00=0x0055, t01=0x0118}
0x85de…85fa Head {h00=0x0018, h01=0x0050, text=» MOVE LENGTH,=W'256'«, t00=0x0055, t01=0x0126}
0x85fa…862e Head {h00=0x0030, h01=0x0050, text=» READ DSCMIP,BUFIN,LENGTH READ FOR RESPONSE «, t00=0x0055, t01=0x0142}
0x862e…865c Head {h00=0x002a, h01=0x0050, text=» XSTAT DSCMIP,BIN3 GET EXTENDED STATUS«, t00=0x0055, t01=0x0176}
0x865c…8680 Head {h00=0x0020, h01=0x0050, text=» PERF RECHK CONVERT TO INDEX«, t00=0x0056, t01=0x0014}
0x8680…86a6 Head {h00=0x0022, h01=0x0050, text=» CBE BIN2,COB1,DLL150 READ OK?«, t00=0x0056, t01=0x0038}
0x86a6…86d4 Head {h00=0x002a, h01=0x0050, text=» MOVE STATUS,BIN2 CONVERT XSTAT TO BCD«, t00=0x0056, t01=0x005e}
0x86d4…8700 Head {h00=0x0028, h01=0x0050, text=» PERF SCRIBE,DATAER 'DC READ ERROR'«, t00=0x0056, t01=0x008c}
0x8700…8712 Head {h00=0x000e, h01=0x0050, text=» B DLL050 «, t00=0x0056, t01=0x00b8}
0x8712…8720 Head {h00=0x000a, h01=0x0050, text=»DLL150«, t00=0x0056, t01=0x00ca}
0x8720…8760 Head {h00=0x003c, h01=0x0050, text=» MOVE WKSTG1,=X'32321C3030301C1C39' SET UP READY PATTERN«, t00=0x0056, t01=0x00d8}
0x8760…8782 Head {h00=0x001e, h01=0x0050, text=» MOVE BIN2,COB4 INIT MATCH«, t00=0x0056, t01=0x0118}
0x8782…87b2 Head {h00=0x002c, h01=0x0050, text=» MATCH BUFIN,BIN2,COB9,WKSTG1,COB0,COB9 «, t00=0x0056, t01=0x013a}
0x87b2…87d6 Head {h00=0x0020, h01=0x0050, text=» SEARCH FOR READY PATTERN «, t00=0x0056, t01=0x016a}
0x87d6…87fa Head {h00=0x0020, h01=0x0050, text=» BNERR DLL200 READY RECEIVED«, t00=0x0056, t01=0x018e}
0x87fa…882a Head {h00=0x002c, h01=0x0050, text=» MOVE WKSTG1,=X'3132' KEYLOCKS OR ALARMS«, t00=0x0057, t01=0x0022}
0x882a…8842 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN2,COB7 «, t00=0x0057, t01=0x0052}
0x8842…8872 Head {h00=0x002c, h01=0x0050, text=» MATCH BUFIN,BIN2,COB2,WKSTG1,COB0,COB2 «, t00=0x0057, t01=0x006a}
0x8872…889e Head {h00=0x0028, h01=0x0050, text=» BNERR DLL100 DISREGARD THOSE THINGS«, t00=0x0057, t01=0x009a}
0x889e…88d2 Head {h00=0x0030, h01=0x0050, text=» MOVE VARIOUS,=C'INVALID MESSAGE RECEIVED ' «, t00=0x0057, t01=0x00c6}
0x88d2…88ee Head {h00=0x0018, h01=0x0050, text=» PERF SCRIBE,VARIUS «, t00=0x0057, t01=0x00fa}
0x88ee…8900 Head {h00=0x000e, h01=0x0050, text=» B DLL050 «, t00=0x0057, t01=0x0116}
0x8900…890e Head {h00=0x000a, h01=0x0050, text=»DLL200«, t00=0x0057, t01=0x0128}
0x890e…893c Head {h00=0x002a, h01=0x0050, text=» CMP COB0,COB0 SET CONDITION REG TO 0 «, t00=0x0057, t01=0x0136}
0x893c…8948 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0057, t01=0x0164}
0x8948…8956 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0057, t01=0x0170}
0x8956…8964 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x017e}
0x8964…8976 Head {h00=0x000e, h01=0x0050, text=»KBINP PROC«, t00=0x0057, t01=0x018c}
0x8976…8998 Head {h00=0x001e, h01=0x0050, text=» DSC KB,X'02' SKIP BUFFER «, t00=0x0058, t01=0x000e}
0x8998…89b2 Head {h00=0x0016, h01=0x0050, text=» MOVE LENGTH,COB9 «, t00=0x0058, t01=0x0030}
0x89b2…89e4 Head {h00=0x002e, h01=0x0050, text=» KI KB,BUFIN,KTAB1,LENGTH,INDEX READ DATA «, t00=0x0058, t01=0x004a}
0x89e4…89f0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0058, t01=0x007c}
0x89f0…89fe Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0058, t01=0x0088}
0x89fe…8a06 Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x0096}
0x8a06…8a0e Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x009e}
0x8a0e…8a20 Head {h00=0x000e, h01=0x0050, text=»KINW PROC «, t00=0x0058, t01=0x00a6}
0x8a20…8a36 Head {h00=0x0012, h01=0x0050, text=» DSC KB,X'02' «, t00=0x0058, t01=0x00b8}
0x8a36…8a4e Head {h00=0x0014, h01=0x0050, text=» MOVE KILN,COB1 «, t00=0x0058, t01=0x00ce}
0x8a4e…8a76 Head {h00=0x0024, h01=0x0050, text=» KI .NW,KB,KIBUF,KTAB1,KILN,KIIX«, t00=0x0058, t01=0x00e6}
0x8a76…8a82 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0058, t01=0x010e}
0x8a82…8a90 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0058, t01=0x011a}
0x8a90…8a98 Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x0128}
0x8a98…8aa0 Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x0130}
0x8aa0…8ab2 Head {h00=0x000e, h01=0x0050, text=»DCNW PROC «, t00=0x0058, t01=0x0138}
0x8ab2…8ad8 Head {h00=0x0022, h01=0x0050, text=» MOVE BUFIN,=C' ' CLEAR BUFIN «, t00=0x0058, t01=0x014a}
0x8ad8…8b06 Head {h00=0x002a, h01=0x0050, text=» MOVE LENGTH,=W'256' SET LENGTH TO 256«, t00=0x0058, t01=0x0170}
0x8b06…8b46 Head {h00=0x003c, h01=0x0050, text=» READ .NW,DSCMIP,BUFIN,LENGTH READ LINE MESSAGE FROM ATM«, t00=0x0059, t01=0x000e}
0x8b46…8b52 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0059, t01=0x004e}
0x8b52…8b60 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0059, t01=0x005a}
0x8b60…8b68 Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x0068}
0x8b68…8b70 Head {h00=0x0004, h01=0x0050, t00=0x0059, t01=0x0070}
0x8b70…8b84 Head {h00=0x0010, h01=0x0050, text=»DUMPRC PROC «, t00=0x0059, t01=0x0078}
0x8b84…8b90 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0059, t01=0x008c}
0x8b90…8b9e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0059, t01=0x0098}
0x8b9e…8bac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0059, t01=0x00a6}
0x8bac…8bc0 Head {h00=0x0010, h01=0x0050, text=»OPRCMD PROC «, t00=0x0059, t01=0x00b4}
0x8bc0…8c0c Head {h00=0x0048, h01=0x0050, text=»* THIS ROUTINE SENDS AN OPERATIONAL COMMAND AND WAITS FOR THE ANSWER«, t00=0x0059, t01=0x00c8}
0x8c0c…8c34 Head {h00=0x0024, h01=0x0050, text=»* IT NEEDS A PARAMTER IN WKSTR7 «, t00=0x0059, t01=0x0114}
0x8c34…8c46 Head {h00=0x000e, h01=0x0050, text=»* 1 - OPEN«, t00=0x0059, t01=0x013c}
0x8c46…8c5a Head {h00=0x0010, h01=0x0050, text=»* 2 - CLOSE «, t00=0x0059, t01=0x014e}
0x8c5a…8c74 Head {h00=0x0016, h01=0x0050, text=»* 3 - CONFIG.DATA «, t00=0x0059, t01=0x0162}
0x8c74…8c8e Head {h00=0x0016, h01=0x0050, text=» PERF SCRIBE,FMCMD«, t00=0x0059, t01=0x017c}
0x8c8e…8ca8 Head {h00=0x0016, h01=0x0050, text=» EDIT BUFIN,OPCMD «, t00=0x005a, t01=0x0008}
0x8ca8…8cc2 Head {h00=0x0016, h01=0x0050, text=» MOVE LENGTH,COB11«, t00=0x005a, t01=0x0022}
0x8cc2…8cf8 Head {h00=0x0032, h01=0x0050, text=» WRITE DSCMOP,BUFIN,LENGTH SEND MESSAGE TO ATM«, t00=0x005a, t01=0x003c}
0x8cf8…8d26 Head {h00=0x002a, h01=0x0050, text=» XSTAT DSCMOP,BIN3 GET EXTENDED STATUS«, t00=0x005a, t01=0x0072}
0x8d26…8d4a Head {h00=0x0020, h01=0x0050, text=» PERF RECHK CONVERT TO INDEX«, t00=0x005a, t01=0x00a0}
0x8d4a…8d6c Head {h00=0x001e, h01=0x0050, text=» CBE BIN2,COB1,OPRC010 OK?«, t00=0x005a, t01=0x00c4}
0x8d6c…8d94 Head {h00=0x0024, h01=0x0050, text=» CBE BIN2,COB5,OPRC010 RETRIES? «, t00=0x005a, t01=0x00e6}
0x8d94…8dc2 Head {h00=0x002a, h01=0x0050, text=» MOVE STATUS,BIN3 CONVERT XSTAT TO BCD«, t00=0x005a, t01=0x010e}
0x8dc2…8df0 Head {h00=0x002a, h01=0x0050, text=» PERF SCRIBE,DCWE O/P DC WRITE ERROR «, t00=0x005a, t01=0x013c}
0x8df0…8e02 Head {h00=0x000e, h01=0x0050, text=» B OPRC015«, t00=0x005a, t01=0x016a}
0x8e02…8e0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x017c}
0x8e0c…8e1c Head {h00=0x000c, h01=0x0050, text=»OPRC010 «, t00=0x005a, t01=0x0186}
0x8e1c…8e38 Head {h00=0x0018, h01=0x0050, text=» MOVE LENGTH,=W'256'«, t00=0x005b, t01=0x0008}
0x8e38…8e52 Head {h00=0x0016, h01=0x0050, text=» MOVE BUFIN,=C' ' «, t00=0x005b, t01=0x0024}
0x8e52…8e86 Head {h00=0x0030, h01=0x0050, text=» READ DSCMIP,BUFIN,LENGTH READ FOR RESPONSE «, t00=0x005b, t01=0x003e}
0x8e86…8eb4 Head {h00=0x002a, h01=0x0050, text=» XSTAT DSCMIP,BIN3 GET EXTENDED STATUS«, t00=0x005b, t01=0x0072}
0x8eb4…8ed8 Head {h00=0x0020, h01=0x0050, text=» PERF RECHK CONVERT TO INDEX«, t00=0x005b, t01=0x00a0}
0x8ed8…8efa Head {h00=0x001e, h01=0x0050, text=» CBE BIN2,COB1,OPRC020 OK?«, t00=0x005b, t01=0x00c4}
0x8efa…8f28 Head {h00=0x002a, h01=0x0050, text=» MOVE STATUS,BIN2 CONVERT XSTAT TO BCD«, t00=0x005b, t01=0x00e6}
0x8f28…8f54 Head {h00=0x0028, h01=0x0050, text=» PERF SCRIBE,DATAER 'DC READ ERROR'«, t00=0x005b, t01=0x0114}
0x8f54…8f64 Head {h00=0x000c, h01=0x0050, text=»OPRC015 «, t00=0x005b, t01=0x0140}
0x8f64…8f82 Head {h00=0x001a, h01=0x0050, text=» CMP COB0,COB1 NOT OK «, t00=0x005b, t01=0x0150}
0x8f82…8f8e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x005b, t01=0x016e}
0x8f8e…8f98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x017a}
0x8f98…8fa8 Head {h00=0x000c, h01=0x0050, text=»OPRC020 «, t00=0x005b, t01=0x0184}
0x8fa8…8fd6 (92, 0, 400) Head {h00=0x002a, h01=0x0050, text=» MOVE WKSTR8,=X'1D44' GROUP SEP. + "D"«, t00=0x005c, t01=0x0004}
0x8fd6…8ff0 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN3,LENGTH «, t00=0x005c, t01=0x0032}
0x8ff0…9006 Head {h00=0x0012, h01=0x0050, text=» SUB BIN3,COB1«, t00=0x005c, t01=0x004c}
0x9006…901e Head {h00=0x0014, h01=0x0050, text=» MOVE BIN4,COB0 «, t00=0x005c, t01=0x0062}
0x901e…904e Head {h00=0x002c, h01=0x0050, text=» MATCH BUFIN,BIN4,BIN3,WKSTR8,COB0,COB2 «, t00=0x005c, t01=0x007a}
0x904e…907c Head {h00=0x002a, h01=0x0050, text=» BERR OPRC050 NOT FOUND, NORMAL RETURN«, t00=0x005c, t01=0x00aa}
0x907c…90a8 Head {h00=0x0028, h01=0x0050, text=» ADD BIN4,COB2 POINT TO 1. CASS.STAT«, t00=0x005c, t01=0x00d8}
0x90a8…90cc Head {h00=0x0020, h01=0x0050, text=» MOVE BIN5,COB0 LOOP CONTROL«, t00=0x005c, t01=0x0104}
0x90cc…90dc Head {h00=0x000c, h01=0x0050, text=»OPRC040 «, t00=0x005c, t01=0x0128}
0x90dc…90f2 Head {h00=0x0012, h01=0x0050, text=» ADD BIN5,COB1«, t00=0x005c, t01=0x0138}
0x90f2…9110 Head {h00=0x001a, h01=0x0050, text=» CBG BIN5,COB4,OPRC050«, t00=0x005c, t01=0x014e}
0x9110…9150 Head {h00=0x003c, h01=0x0050, text=» XCOPY WKSTR8,COB0,COB2,BUFIN,BIN4 MOVE DENOM TO CASTAT «, t00=0x005c, t01=0x016c}
0x9150…918a Head {h00=0x0036, h01=0x0050, text=» COPY WKSTR7,COB0,COB1,WKSTR8,COB1 IF NO CASSETTE «, t00=0x005d, t01=0x001c}
0x918a…91c0 Head {h00=0x0032, h01=0x0050, text=» CBNE WKSTR7,=C'0',OPRC042 PRESENT, THEN FORCE«, t00=0x005d, t01=0x0056}
0x91c0…91f0 Head {h00=0x002c, h01=0x0050, text=» MOVE WKSTR8,=X'3E30' LOW-NOTE-CONDITION«, t00=0x005d, t01=0x008c}
0x91f0…9200 Head {h00=0x000c, h01=0x0050, text=»OPRC042 «, t00=0x005d, t01=0x00bc}
0x9200…9234 Head {h00=0x0030, h01=0x0050, text=» CALL COPY4,CASTAT(COB1,BIN5),COB3,COB1, C «, t00=0x005d, t01=0x00cc}
0x9234…924a Head {h00=0x0012, h01=0x0050, text=» WKSTR8,COB3 «, t00=0x005d, t01=0x0100}
0x924a…9262 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN3,COB0 «, t00=0x005d, t01=0x0116}
0x9262…9290 Head {h00=0x002a, h01=0x0050, text=» CALL COPY4,BIN3,COB3,COB1,WKSTR8,COB1«, t00=0x005d, t01=0x012e}
0x9290…92c0 Head {h00=0x002c, h01=0x0050, text=» MOVE CASTAT(COB2,BIN5),COB0 RESET FIRST«, t00=0x005d, t01=0x015c}
0x92c0…92e4 Head {h00=0x0020, h01=0x0050, text=» CBNE BIN3,=X'000E',OPRC045 «, t00=0x005d, t01=0x018c}
0x92e4…931c Head {h00=0x0034, h01=0x0050, text=» MOVE CASTAT(COB2,BIN5),COB1 INDICATE LOW NOTES «, t00=0x005e, t01=0x0020}
0x931c…932c Head {h00=0x000c, h01=0x0050, text=»OPRC045 «, t00=0x005e, t01=0x0058}
0x932c…934e Head {h00=0x001e, h01=0x0050, text=» ADD BIN4,COB2 NEXT FEEDER«, t00=0x005e, t01=0x0068}
0x934e…9360 Head {h00=0x000e, h01=0x0050, text=» B OPRC040«, t00=0x005e, t01=0x008a}
0x9360…9370 Head {h00=0x000c, h01=0x0050, text=»OPRC050 «, t00=0x005e, t01=0x009c}
0x9370…9386 Head {h00=0x0012, h01=0x0050, text=» CMP COB0,COB0«, t00=0x005e, t01=0x00ac}
0x9386…9392 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x005e, t01=0x00c2}
0x9392…93a0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x005e, t01=0x00ce}
0x93a0…93ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005e, t01=0x00dc}
0x93ae…93c2 Head {h00=0x0010, h01=0x0050, text=»NOTMIX PROC «, t00=0x005e, t01=0x00ea}
0x93c2…93dc Head {h00=0x0016, h01=0x0050, text=»* COMPUTE NOTEMIX «, t00=0x005e, t01=0x00fe}
0x93dc…93f4 Head {h00=0x0014, h01=0x0050, text=» MOVE WKB2A,COB9«, t00=0x005e, t01=0x0118}
0x93f4…940e Head {h00=0x0016, h01=0x0050, text=» MOVE WKD12A,PBCD «, t00=0x005e, t01=0x0130}
0x940e…941c Head {h00=0x000a, h01=0x0050, text=»NOT100«, t00=0x005e, t01=0x014a}
0x941c…943e Head {h00=0x001e, h01=0x0050, text=» SUB WKB2A,COB1 STEP INDEX«, t00=0x005e, t01=0x0158}
0x943e…9468 Head {h00=0x0026, h01=0x0050, text=» CBL WKB2A,COB1,NOT130 WRONG INPUT«, t00=0x005e, t01=0x017a}
0x9468…948e Head {h00=0x0022, h01=0x0050, text=» PERF DENCK DENOMINATION CHECK«, t00=0x005f, t01=0x0014}
0x948e…94ae Head {h00=0x001c, h01=0x0050, text=» B NOT100 NOT AVAILABLE «, t00=0x005f, t01=0x003a}
0x94ae…94e2 Head {h00=0x0030, h01=0x0050, text=» CBG DENOM(WKB2A),WKD12A,NOT100 NEXT HIGHER «, t00=0x005f, t01=0x005a}
0x94e2…94fc Head {h00=0x0016, h01=0x0050, text=» MOVE WKD3A,=D'0' «, t00=0x005f, t01=0x008e}
0x94fc…950a Head {h00=0x000a, h01=0x0050, text=»NOT110«, t00=0x005f, t01=0x00a8}
0x950a…953c Head {h00=0x002e, h01=0x0050, text=» CBL WKD12A,DENOM(WKB2A),NOT120 FINISHED? «, t00=0x005f, t01=0x00b6}
0x953c…9564 Head {h00=0x0024, h01=0x0050, text=» SUB WKD12A,DENOM(WKB2A) 1 NOTE «, t00=0x005f, t01=0x00e8}
0x9564…9592 Head {h00=0x002a, h01=0x0050, text=» SUB BEHOLDN(WKB2A,COB1),DENOM(WKB2A) «, t00=0x005f, t01=0x0110}
0x9592…95c0 Head {h00=0x002a, h01=0x0050, text=» ADD BEHOLDN(WKB2A,COB2),DENOM(WKB2A) «, t00=0x005f, t01=0x013e}
0x95c0…95d8 Head {h00=0x0014, h01=0x0050, text=» ADD WKD3A,=D'1'«, t00=0x005f, t01=0x016c}
0x95d8…95ea Head {h00=0x000e, h01=0x0050, text=» B NOT110 «, t00=0x005f, t01=0x0184}
0x95ea…95f8 Head {h00=0x000a, h01=0x0050, text=»NOT120«, t00=0x0060, t01=0x0008}
0x95f8…961e Head {h00=0x0022, h01=0x0050, text=» MOVE WKB2B,WKB2A CREATE INDEX«, t00=0x0060, t01=0x0016}
0x961e…9636 Head {h00=0x0014, h01=0x0050, text=» SUB WKB2B,COB1 «, t00=0x0060, t01=0x003c}
0x9636…964e Head {h00=0x0014, h01=0x0050, text=» ADD WKB2B,WKB2B«, t00=0x0060, t01=0x0054}
0x964e…9678 Head {h00=0x0026, h01=0x0050, text=» MOVE WKS4A,WKD3A CONVERT TO ASCII«, t00=0x0060, t01=0x006c}
0x9678…96a2 Head {h00=0x0026, h01=0x0050, text=» COPY NOTES,WKB2B,COB2,WKS4A,COB2 «, t00=0x0060, t01=0x0096}
0x96a2…96cc Head {h00=0x0026, h01=0x0050, text=» CBE WKD12A,=D'0',NOT900 FINISHED?«, t00=0x0060, t01=0x00c0}
0x96cc…96de Head {h00=0x000e, h01=0x0050, text=» B NOT100 «, t00=0x0060, t01=0x00ea}
0x96de…96ec Head {h00=0x000a, h01=0x0050, text=»NOT130«, t00=0x0060, t01=0x00fc}
0x96ec…9702 Head {h00=0x0012, h01=0x0050, text=» CMP COB0,COB1«, t00=0x0060, t01=0x010a}
0x9702…970e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0060, t01=0x0120}
0x970e…971c Head {h00=0x000a, h01=0x0050, text=»NOT900«, t00=0x0060, t01=0x012c}
0x971c…9732 Head {h00=0x0012, h01=0x0050, text=» CMP COB0,COB0«, t00=0x0060, t01=0x013a}
0x9732…973e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0060, t01=0x0150}
0x973e…974c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0060, t01=0x015c}
0x974c…9754 Head {h00=0x0004, h01=0x0050, t00=0x0060, t01=0x016a}
0x9754…975c Head {h00=0x0004, h01=0x0050, t00=0x0060, t01=0x0172}
0x975c…9764 Head {h00=0x0004, h01=0x0050, t00=0x0060, t01=0x017a}
0x9764…9776 Head {h00=0x000e, h01=0x0050, text=»DENCK PROC«, t00=0x0060, t01=0x0182}
0x9776…97aa (97, 0, 400) Head {h00=0x0030, h01=0x0050, text=»* CHECK EXISTANCE AND STATUS OF DENOMINATION«, t00=0x0061, t01=0x0004}
0x97aa…97d2 Head {h00=0x0024, h01=0x0050, text=»* WHICH INDEX IS GIVEN IN WKB2A «, t00=0x0061, t01=0x0038}
0x97d2…97ea Head {h00=0x0014, h01=0x0050, text=» MOVE WKB2B,COB0«, t00=0x0061, t01=0x0060}
0x97ea…97f8 Head {h00=0x000a, h01=0x0050, text=»DENCK2«, t00=0x0061, t01=0x0078}
0x97f8…9810 Head {h00=0x0014, h01=0x0050, text=» ADD WKB2B,COB1 «, t00=0x0061, t01=0x0086}
0x9810…982e Head {h00=0x001a, h01=0x0050, text=» CBG WKB2B,COB4,DENCK4«, t00=0x0061, t01=0x009e}
0x982e…985c Head {h00=0x002a, h01=0x0050, text=» CBNE CASTAT(COB1,WKB2B),WKB2A,DENCK2 «, t00=0x0061, t01=0x00bc}
0x985c…9892 Head {h00=0x0032, h01=0x0050, text=» CBE CASTAT(COB2,WKB2B),COB1,DENCK2 LOW NOTES?«, t00=0x0061, t01=0x00ea}
0x9892…98a0 Head {h00=0x000a, h01=0x0050, text=» RET 2«, t00=0x0061, t01=0x0120}
0x98a0…98ae Head {h00=0x000a, h01=0x0050, text=»DENCK4«, t00=0x0061, t01=0x012e}
0x98ae…98ba Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0061, t01=0x013c}
0x98ba…98c8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0061, t01=0x0148}
0x98c8…98d0 Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x0156}
0x98d0…98d8 Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x015e}
0x98d8…98e0 Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x0166}
0x98e0…98e8 Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x016e}
0x98e8…98fc Head {h00=0x0010, h01=0x0050, text=»LOMULT PROC «, t00=0x0061, t01=0x0176}
0x98fc…9906 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x018a}
0x9906…994e (98, 0, 400) Head {h00=0x0044, h01=0x0050, text=»* THE PROCEDURE CHECKS THAT THE AMOUNT REQUIESTED IS A MULTIPLE «, t00=0x0062, t01=0x0004}
0x994e…997e Head {h00=0x002c, h01=0x0050, text=»* OF THE LOWEST ACCESSIBLE DENOMINATION «, t00=0x0062, t01=0x004c}
0x997e…9988 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x007c}
0x9988…99a2 Head {h00=0x0016, h01=0x0050, text=» MOVE WKD12A,PBCD «, t00=0x0062, t01=0x0086}
0x99a2…99ca Head {h00=0x0024, h01=0x0050, text=» PERF FNDLOW GET INDEX TO LOWEST«, t00=0x0062, t01=0x00a0}
0x99ca…99ee Head {h00=0x0020, h01=0x0050, text=» B LOMUL9 NOTHING ACCESSIBLE«, t00=0x0062, t01=0x00c8}
0x99ee…9a24 Head {h00=0x0032, h01=0x0050, text=» MOVE WKD12B,DENOM(WKB2B) LOWEST DENOMINATION «, t00=0x0062, t01=0x00ec}
0x9a24…9a32 Head {h00=0x000a, h01=0x0050, text=»LOMUL2«, t00=0x0062, t01=0x0122}
0x9a32…9a4c Head {h00=0x0016, h01=0x0050, text=» DIV WKD12A,WKD12B«, t00=0x0062, t01=0x0130}
0x9a4c…9a66 Head {h00=0x0016, h01=0x0050, text=» MUL WKD12A,WKD12B«, t00=0x0062, t01=0x014a}
0x9a66…9a96 Head {h00=0x002c, h01=0x0050, text=» CBNE WKD12A,PBCD,LOMUL9 ANY REMAINDER? «, t00=0x0062, t01=0x0164}
0x9a96…9abc (99, 0, 400) Head {h00=0x0022, h01=0x0050, text=» CMP COB0,COB0 NO THERE WASNT «, t00=0x0063, t01=0x0004}
0x9abc…9ac8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0063, t01=0x002a}
0x9ac8…9ad6 Head {h00=0x000a, h01=0x0050, text=»LOMUL9«, t00=0x0063, t01=0x0036}
0x9ad6…9b06 Head {h00=0x002c, h01=0x0050, text=» CMP COB0,COB1 REMAINDER OR UNAVAILABLE «, t00=0x0063, t01=0x0044}
0x9b06…9b12 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0063, t01=0x0074}
0x9b12…9b20 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0063, t01=0x0080}
0x9b20…9b28 Head {h00=0x0004, h01=0x0050, t00=0x0063, t01=0x008e}
0x9b28…9b30 Head {h00=0x0004, h01=0x0050, t00=0x0063, t01=0x0096}
0x9b30…9b44 Head {h00=0x0010, h01=0x0050, text=»FNDLOW PROC «, t00=0x0063, t01=0x009e}
0x9b44…9b78 Head {h00=0x0030, h01=0x0050, text=»* THE ROUTINE FINDS THE LOWEST DENOMINATION «, t00=0x0063, t01=0x00b2}
0x9b78…9b90 Head {h00=0x0014, h01=0x0050, text=» MOVE WKB2A,COB0«, t00=0x0063, t01=0x00e6}
0x9b90…9ba8 Head {h00=0x0014, h01=0x0050, text=» MOVE WKB2B,COB8«, t00=0x0063, t01=0x00fe}
0x9ba8…9bb6 Head {h00=0x000a, h01=0x0050, text=»FNDL10«, t00=0x0063, t01=0x0116}
0x9bb6…9bce Head {h00=0x0014, h01=0x0050, text=» ADD WKB2A,COB1 «, t00=0x0063, t01=0x0124}
0x9bce…9bfc Head {h00=0x002a, h01=0x0050, text=» CBG WKB2A,COB4,FNDL20 DENOM EXHAUSTED«, t00=0x0063, t01=0x013c}
0x9bfc…9c34 Head {h00=0x0034, h01=0x0050, text=» CBE CASTAT(COB1,WKB2A),COB0,FNDL10 NO CASSETTE «, t00=0x0063, t01=0x016a}
0x9c34…9c6a Head {h00=0x0032, h01=0x0050, text=» CBE CASTAT(COB2,WKB2A),COB1,FNDL10 LOW NOTES «, t00=0x0064, t01=0x0012}
0x9c6a…9ca2 Head {h00=0x0034, h01=0x0050, text=» CBNL CASTAT(COB1,WKB2A),WKB2B,FNDL10 NOT LOWEST«, t00=0x0064, t01=0x0048}
0x9ca2…9cd6 Head {h00=0x0030, h01=0x0050, text=» MOVE WKB2B,CASTAT(COB1,WKB2A) LOWEST SO FAR«, t00=0x0064, t01=0x0080}
0x9cd6…9ce8 Head {h00=0x000e, h01=0x0050, text=» B FNDL10 «, t00=0x0064, t01=0x00b4}
0x9ce8…9cf6 Head {h00=0x000a, h01=0x0050, text=»FNDL20«, t00=0x0064, t01=0x00c6}
0x9cf6…9d2c Head {h00=0x0032, h01=0x0050, text=» CBNE WKB2B,COB8,FNDL30 AT LEAST ONE AVAILABLE«, t00=0x0064, t01=0x00d4}
0x9d2c…9d4c Head {h00=0x001c, h01=0x0050, text=» RET NOTHING AVAILABLE «, t00=0x0064, t01=0x010a}
0x9d4c…9d5a Head {h00=0x000a, h01=0x0050, text=»FNDL30«, t00=0x0064, t01=0x012a}
0x9d5a…9d68 Head {h00=0x000a, h01=0x0050, text=» RET 2«, t00=0x0064, t01=0x0138}
0x9d68…9d76 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0064, t01=0x0146}
0x9d76…9d84 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0064, t01=0x0154}
0x9d84…9d96 Head {h00=0x000e, h01=0x0050, text=»POLL FRMT «, t00=0x0064, t01=0x0162}
0x9d96…9daa Head {h00=0x0010, h01=0x0050, text=» FCOPY ='22'«, t00=0x0064, t01=0x0174}
0x9daa…9dc4 Head {h00=0x0016, h01=0x0050, text=» FCOPY ='POLLING '«, t00=0x0064, t01=0x0188}
0x9dc4…9de0 Head {h00=0x0018, h01=0x0050, text=» FCOPY ='MICROBANK' «, t00=0x0065, t01=0x0012}
0x9de0…9dee Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0065, t01=0x002e}
0x9dee…9df6 Head {h00=0x0004, h01=0x0050, t00=0x0065, t01=0x003c}
0x9df6…9e08 Head {h00=0x000e, h01=0x0050, text=»INACT FRMT«, t00=0x0065, t01=0x0044}
0x9e08…9e1c Head {h00=0x0010, h01=0x0050, text=» FCOPY ='22'«, t00=0x0065, t01=0x0056}
0x9e1c…9e38 Head {h00=0x0018, h01=0x0050, text=» FCOPY ='MICROBANK' «, t00=0x0065, t01=0x006a}
0x9e38…9e4e Head {h00=0x0012, h01=0x0050, text=» FCOPY =' NOT'«, t00=0x0065, t01=0x0086}
0x9e4e…9e74 Head {h00=0x0022, h01=0x0050, text=» FCOPY =' RESPONDING TO POLL' «, t00=0x0065, t01=0x009c}
0x9e74…9e82 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0065, t01=0x00c2}
0x9e82…9e8a Head {h00=0x0004, h01=0x0050, t00=0x0065, t01=0x00d0}
0x9e8a…9e9e Head {h00=0x0010, h01=0x0050, text=»DATAER FRMT «, t00=0x0065, t01=0x00d8}
0x9e9e…9ed2 Head {h00=0x0030, h01=0x0050, text=» FTEXT '22DATA COMM READ ERROR : '«, t00=0x0065, t01=0x00ec}
0x9ed2…9eee Head {h00=0x0018, h01=0x0050, text=» FMEL '9999',STATUS «, t00=0x0065, t01=0x0120}
0x9eee…9efc Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0065, t01=0x013c}
0x9efc…9f04 Head {h00=0x0004, h01=0x0050, t00=0x0065, t01=0x014a}
0x9f04…9f14 Head {h00=0x000c, h01=0x0050, text=»INF FRMT«, t00=0x0065, t01=0x0152}
0x9f14…9f2a Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'22' «, t00=0x0065, t01=0x0162}
0x9f2a…9f3e Head {h00=0x0010, h01=0x0050, text=» FCOPY INFO «, t00=0x0065, t01=0x0178}
0x9f3e…9f4c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0065, t01=0x018c}
0x9f4c…9f54 Head {h00=0x0004, h01=0x0050, t00=0x0066, t01=0x000a}
0x9f54…9f68 Head {h00=0x0010, h01=0x0050, text=»DATEFMT FRMT«, t00=0x0066, t01=0x0012}
0x9f68…9f86 Head {h00=0x001a, h01=0x0050, text=» FMEL '99V99V99',DATE «, t00=0x0066, t01=0x0026}
0x9f86…9f9a Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0066, t01=0x0044}
0x9f9a…9fac Head {h00=0x000e, h01=0x0050, text=» FCOPY KL «, t00=0x0066, t01=0x0058}
0x9fac…9fc2 Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',3«, t00=0x0066, t01=0x006a}
0x9fc2…9fd0 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0066, t01=0x0080}
0x9fd0…9fd8 Head {h00=0x0004, h01=0x0050, t00=0x0066, t01=0x008e}
0x9fd8…9fec Head {h00=0x0010, h01=0x0050, text=»CUSTRQ FRMT «, t00=0x0066, t01=0x0096}
0x9fec…a010 Head {h00=0x0020, h01=0x0050, text=» FTEXT '00CUSTOMER REQUEST' «, t00=0x0066, t01=0x00aa}
0xa010…a01c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0066, t01=0x00ce}
0xa01c…a036 Head {h00=0x0016, h01=0x0050, text=» FTEXT 'OP KEYS: '«, t00=0x0066, t01=0x00da}
0xa036…a04a Head {h00=0x0010, h01=0x0050, text=» FBT F4,CUS1«, t00=0x0066, t01=0x00f4}
0xa04a…a05e Head {h00=0x0010, h01=0x0050, text=» FCOPY OPKY «, t00=0x0066, t01=0x0108}
0xa05e…a06e Head {h00=0x000c, h01=0x0050, text=» FB CUS2«, t00=0x0066, t01=0x011c}
0xa06e…a08c Head {h00=0x001a, h01=0x0050, text=»CUS1 FTEXT ' NONE ' «, t00=0x0066, t01=0x012c}
0xa08c…a0a4 Head {h00=0x0014, h01=0x0050, text=»CUS2 FILLR ' ',2«, t00=0x0066, t01=0x014a}
0xa0a4…a0c0 Head {h00=0x0018, h01=0x0050, text=» FTEXT '1ST TRANS: '«, t00=0x0066, t01=0x0162}
0xa0c0…a0d4 Head {h00=0x0010, h01=0x0050, text=» FCOPY TXFG «, t00=0x0066, t01=0x017e}
0xa0d4…a0e8 (103, 0, 400) Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0067, t01=0x0004}
0xa0e8…a10a Head {h00=0x001e, h01=0x0050, text=» FTEXT 'MESS.CO-ORD NO: ' «, t00=0x0067, t01=0x0018}
0xa10a…a11e Head {h00=0x0010, h01=0x0050, text=» FCOPY MESS «, t00=0x0067, t01=0x003a}
0xa11e…a132 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0067, t01=0x004e}
0xa132…a146 Head {h00=0x0010, h01=0x0050, text=» FBT F5,CUS3«, t00=0x0067, t01=0x0062}
0xa146…a166 Head {h00=0x001c, h01=0x0050, text=» FTEXT 'DOLLAR AMOUNT: '«, t00=0x0067, t01=0x0076}
0xa166…a186 Head {h00=0x001c, h01=0x0050, text=» FMEL 'ZZZZZZZ9V99',PBCD«, t00=0x0067, t01=0x0096}
0xa186…a196 Head {h00=0x000c, h01=0x0050, text=»CUS3 FNL«, t00=0x0067, t01=0x00b6}
0xa196…a1aa Head {h00=0x0010, h01=0x0050, text=» FBT F6,CUS4«, t00=0x0067, t01=0x00c6}
0xa1aa…a1c8 Head {h00=0x001a, h01=0x0050, text=» FTEXT 'GP BUFFER A: '«, t00=0x0067, t01=0x00da}
0xa1c8…a1dc Head {h00=0x0010, h01=0x0050, text=» FCOPY GPBA «, t00=0x0067, t01=0x00f8}
0xa1dc…a1e8 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0067, t01=0x010c}
0xa1e8…a200 Head {h00=0x0014, h01=0x0050, text=»CUS4 FBT F7,CUS5«, t00=0x0067, t01=0x0118}
0xa200…a21e Head {h00=0x001a, h01=0x0050, text=» FTEXT 'GP BUFFER B: '«, t00=0x0067, t01=0x0130}
0xa21e…a232 Head {h00=0x0010, h01=0x0050, text=» FCOPY GPBB «, t00=0x0067, t01=0x014e}
0xa232…a23e Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0067, t01=0x0162}
0xa23e…a256 Head {h00=0x0014, h01=0x0050, text=»CUS5 FBT F8,CUS6«, t00=0x0067, t01=0x016e}
0xa256…a270 Head {h00=0x0016, h01=0x0050, text=» FTEXT 'AMOUNT: ' «, t00=0x0067, t01=0x0186}
0xa270…a284 Head {h00=0x0010, h01=0x0050, text=» FCOPY GPBC «, t00=0x0068, t01=0x0010}
0xa284…a290 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0068, t01=0x0024}
0xa290…a2a8 Head {h00=0x0014, h01=0x0050, text=»CUS6 FBT F9,CUS7«, t00=0x0068, t01=0x0030}
0xa2a8…a2c8 Head {h00=0x001c, h01=0x0050, text=» FTEXT 'TRACK 1 DATA: ' «, t00=0x0068, t01=0x0048}
0xa2c8…a2dc Head {h00=0x0010, h01=0x0050, text=» FCOPY TK1D1«, t00=0x0068, t01=0x0068}
0xa2dc…a2e8 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0068, t01=0x007c}
0xa2e8…a2fe Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',14 «, t00=0x0068, t01=0x0088}
0xa2fe…a312 Head {h00=0x0010, h01=0x0050, text=» FCOPY TK1D2«, t00=0x0068, t01=0x009e}
0xa312…a31e Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0068, t01=0x00b2}
0xa31e…a336 Head {h00=0x0014, h01=0x0050, text=»CUS7 FBT F2,CUS8«, t00=0x0068, t01=0x00be}
0xa336…a356 Head {h00=0x001c, h01=0x0050, text=» FTEXT 'TRACK 2 DATA: ' «, t00=0x0068, t01=0x00d6}
0xa356…a36a Head {h00=0x0010, h01=0x0050, text=» FCOPY TK2D «, t00=0x0068, t01=0x00f6}
0xa36a…a376 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0068, t01=0x010a}
0xa376…a38e Head {h00=0x0014, h01=0x0050, text=»CUS8 FBT F3,CUS9«, t00=0x0068, t01=0x0116}
0xa38e…a3ae Head {h00=0x001c, h01=0x0050, text=» FTEXT 'TRACK 3 DATA: ' «, t00=0x0068, t01=0x012e}
0xa3ae…a3c2 Head {h00=0x0010, h01=0x0050, text=» FCOPY TK3D1«, t00=0x0068, t01=0x014e}
0xa3c2…a3ce Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0068, t01=0x0162}
0xa3ce…a3e4 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',14 «, t00=0x0068, t01=0x016e}
0xa3e4…a3f8 Head {h00=0x0010, h01=0x0050, text=» FCOPY TK3D2«, t00=0x0068, t01=0x0184}
0xa3f8…a40a Head {h00=0x000e, h01=0x0050, text=»CUS9 FMEND«, t00=0x0069, t01=0x0008}
0xa40a…a412 Head {h00=0x0004, h01=0x0050, t00=0x0069, t01=0x001a}
0xa412…a426 Head {h00=0x0010, h01=0x0050, text=»AMTERR FRMT «, t00=0x0069, t01=0x0022}
0xa426…a43a Head {h00=0x0010, h01=0x0050, text=» FTEXT '22' «, t00=0x0069, t01=0x0036}
0xa43a…a470 Head {h00=0x0032, h01=0x0050, text=» FCOPY ='AMOUNT ERROR. TRANSACTION CANCELLED.'«, t00=0x0069, t01=0x004a}
0xa470…a47e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0069, t01=0x0080}
0xa47e…a486 Head {h00=0x0004, h01=0x0050, t00=0x0069, t01=0x008e}
0xa486…a498 Head {h00=0x000e, h01=0x0050, text=»UNSS FRMT «, t00=0x0069, t01=0x0096}
0xa498…a4cc Head {h00=0x0030, h01=0x0050, text=» FTEXT '22UNSOLICITED STATUS : '«, t00=0x0069, t01=0x00a8}
0xa4cc…a4e6 Head {h00=0x0016, h01=0x0050, text=» FCOPY DEVAR2(DID)«, t00=0x0069, t01=0x00dc}
0xa4e6…a4fa Head {h00=0x0010, h01=0x0050, text=» FCOPY DEVST«, t00=0x0069, t01=0x00f6}
0xa4fa…a508 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0069, t01=0x010a}
0xa508…a510 Head {h00=0x0004, h01=0x0050, t00=0x0069, t01=0x0118}
0xa510…a524 Head {h00=0x0010, h01=0x0050, text=»FCSENT FRMT «, t00=0x0069, t01=0x0120}
0xa524…a54e Head {h00=0x0026, h01=0x0050, text=» FTEXT '22FUNCTION COMMAND SENT ('«, t00=0x0069, t01=0x0134}
0xa54e…a562 Head {h00=0x0010, h01=0x0050, text=» FCOPY OPKY «, t00=0x0069, t01=0x015e}
0xa562…a574 Head {h00=0x000e, h01=0x0050, text=» FTEXT ')'«, t00=0x0069, t01=0x0172}
0xa574…a582 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0069, t01=0x0184}
0xa582…a58a (106, 0, 398) Head {h00=0x0004, h01=0x0050, t00=0x006a, t01=0x0004}
0xa58a…a59c Head {h00=0x000e, h01=0x0050, text=»DCWE FRMT «, t00=0x006a, t01=0x000c}
0xa59c…a5d2 Head {h00=0x0032, h01=0x0050, text=» FTEXT '22DATA COMM WRITE ERROR : ' «, t00=0x006a, t01=0x001e}
0xa5d2…a5ee Head {h00=0x0018, h01=0x0050, text=» FMEL '9999',STATUS «, t00=0x006a, t01=0x0054}
0xa5ee…a5fc Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x006a, t01=0x0070}
0xa5fc…a604 Head {h00=0x0004, h01=0x0050, t00=0x006a, t01=0x007e}
0xa604…a618 Head {h00=0x0010, h01=0x0050, text=»SRLFMT FRMT «, t00=0x006a, t01=0x0086}
0xa618…a62e Head {h00=0x0012, h01=0x0050, text=» FCOPY WKSTG4 «, t00=0x006a, t01=0x009a}
0xa62e…a63c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x006a, t01=0x00b0}
0xa63c…a644 Head {h00=0x0004, h01=0x0050, t00=0x006a, t01=0x00be}
0xa644…a656 Head {h00=0x000e, h01=0x0050, text=»FCMD FRMT «, t00=0x006a, t01=0x00c6}
0xa656…a66a Head {h00=0x0010, h01=0x0050, text=» FCOPY ='22'«, t00=0x006a, t01=0x00d8}
0xa66a…a694 Head {h00=0x0026, h01=0x0050, text=» FTEXT 'INVALID FUNCTION COMMAND' «, t00=0x006a, t01=0x00ec}
0xa694…a6a2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x006a, t01=0x0116}
0xa6a2…a6aa Head {h00=0x0004, h01=0x0050, t00=0x006a, t01=0x0124}
0xa6aa…a6be Head {h00=0x0010, h01=0x0050, text=»VARIUS FRMT «, t00=0x006a, t01=0x012c}
0xa6be…a6d2 Head {h00=0x0010, h01=0x0050, text=» FCOPY ='22'«, t00=0x006a, t01=0x0140}
0xa6d2…a6e8 Head {h00=0x0012, h01=0x0050, text=» FCOPY VARIOUS«, t00=0x006a, t01=0x0154}
0xa6e8…a6f6 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x006a, t01=0x016a}
0xa6f6…a6fe Head {h00=0x0004, h01=0x0050, t00=0x006a, t01=0x0178}
0xa6fe…a710 Head {h00=0x000e, h01=0x0050, text=»ERROR FRMT«, t00=0x006a, t01=0x0180}
0xa710…a724 (107, 0, 400) Head {h00=0x0010, h01=0x0050, text=» FCOPY ='22'«, t00=0x006b, t01=0x0004}
0xa724…a746 Head {h00=0x001e, h01=0x0050, text=» FTEXT 'STATUS INFO FROM '«, t00=0x006b, t01=0x0018}
0xa746…a760 Head {h00=0x0016, h01=0x0050, text=» FCOPY DEVAR1(DID)«, t00=0x006b, t01=0x003a}
0xa760…a774 Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x006b, t01=0x0054}
0xa774…a782 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x006b, t01=0x0068}
0xa782…a78a Head {h00=0x0004, h01=0x0050, t00=0x006b, t01=0x0076}
0xa78a…a79e Head {h00=0x0010, h01=0x0050, text=»STATNF FRMT «, t00=0x006b, t01=0x007e}
0xa79e…a7b2 Head {h00=0x0010, h01=0x0050, text=» FCOPY ='22'«, t00=0x006b, t01=0x0092}
0xa7b2…a7ce Head {h00=0x0018, h01=0x0050, text=» FTEXT 'STATUSKEY ' «, t00=0x006b, t01=0x00a6}
0xa7ce…a7e4 Head {h00=0x0012, h01=0x0050, text=» FCOPY WKSTR6 «, t00=0x006b, t01=0x00c2}
0xa7e4…a7fe Head {h00=0x0016, h01=0x0050, text=» FTEXT ' UNKNOWN' «, t00=0x006b, t01=0x00d8}
0xa7fe…a80c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x006b, t01=0x00f2}
0xa80c…a814 Head {h00=0x0004, h01=0x0050, t00=0x006b, t01=0x0100}
0xa814…a828 Head {h00=0x0010, h01=0x0050, text=»STATFND FRMT«, t00=0x006b, t01=0x0108}
0xa828…a83c Head {h00=0x0010, h01=0x0050, text=» FCOPY ='22'«, t00=0x006b, t01=0x011c}
0xa83c…a85c Head {h00=0x001c, h01=0x0050, text=» FTEXT 'KEY AND TEXT: ' «, t00=0x006b, t01=0x0130}
0xa85c…a878 Head {h00=0x0018, h01=0x0050, text=» FCOPY STATTXT(BIN7)«, t00=0x006b, t01=0x0150}
0xa878…a886 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x006b, t01=0x016c}
0xa886…a88e Head {h00=0x0004, h01=0x0050, t00=0x006b, t01=0x017a}
0xa88e…a8a0 Head {h00=0x000e, h01=0x0050, text=»OPCMD FRMT«, t00=0x006b, t01=0x0182}
0xa8a0…a8c0 (108, 0, 400) Head {h00=0x001c, h01=0x0050, text=» FCOPY =X'4131201B3142' «, t00=0x006c, t01=0x0004}
0xa8c0…a8dc Head {h00=0x0018, h01=0x0050, text=» FCOPY =X'311C1C1C' «, t00=0x006c, t01=0x0024}
0xa8dc…a8f2 Head {h00=0x0012, h01=0x0050, text=» FCOPY WKSTR7 «, t00=0x006c, t01=0x0040}
0xa8f2…a900 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x006c, t01=0x0056}
0xa900…a908 Head {h00=0x0004, h01=0x0050, t00=0x006c, t01=0x0064}
0xa908…a91a Head {h00=0x000e, h01=0x0050, text=»FMCMD FRMT«, t00=0x006c, t01=0x006c}
0xa91a…a92e Head {h00=0x0010, h01=0x0050, text=» FCOPY ='22'«, t00=0x006c, t01=0x007e}
0xa92e…a952 Head {h00=0x0020, h01=0x0050, text=» FTEXT 'FUNCTIONAL COMMAND '«, t00=0x006c, t01=0x0092}
0xa952…a968 Head {h00=0x0012, h01=0x0050, text=» FCOPY WKSTR7 «, t00=0x006c, t01=0x00b6}
0xa968…a980 Head {h00=0x0014, h01=0x0050, text=» FTEXT ' SENT ' «, t00=0x006c, t01=0x00cc}
0xa980…a98e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x006c, t01=0x00e4}
0xa98e…a996 Head {h00=0x0004, h01=0x0050, t00=0x006c, t01=0x00f2}
0xa996…a9da Head {h00=0x0040, h01=0x0050, text=»FORMATS FTABLE FMT1,FMT2,FMT3,FMT4,FMT5,FMT6,FMT7,FMT8,FMT9 «, t00=0x006c, t01=0x00fa}
0xa9da…a9e2 Head {h00=0x0004, h01=0x0050, t00=0x006c, t01=0x013e}
0xa9e2…a9f4 Head {h00=0x000e, h01=0x0050, text=»FMT1 FRMT «, t00=0x006c, t01=0x0146}
0xa9f4…aa0a Head {h00=0x0012, h01=0x0050, text=» FTEXT 'WDR ' «, t00=0x006c, t01=0x0158}
0xaa0a…aa2c Head {h00=0x001e, h01=0x0050, text=» FCOPY WKSTG4 SERIALNUMBER«, t00=0x006c, t01=0x016e}
0xaa2c…aa4a Head {h00=0x001a, h01=0x0050, text=» FMEL '********9',PBCD«, t00=0x006c, t01=0x0190}
0xaa4a…aa60 Head {h00=0x0012, h01=0x0050, text=» FTEXT ',00 ' «, t00=0x006d, t01=0x001e}
0xaa60…aa76 Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x006d, t01=0x0034}
0xaa76…aa84 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x006d, t01=0x004a}
0xaa84…aa8c Head {h00=0x0004, h01=0x0050, t00=0x006d, t01=0x0058}
0xaa8c…aa9e Head {h00=0x000e, h01=0x0050, text=»FMT2 FRMT «, t00=0x006d, t01=0x0060}
0xaa9e…aab4 Head {h00=0x0012, h01=0x0050, text=» FTEXT 'DEP ' «, t00=0x006d, t01=0x0072}
0xaab4…aaca Head {h00=0x0012, h01=0x0050, text=» FCOPY WKSTG4 «, t00=0x006d, t01=0x0088}
0xaaca…aaec Head {h00=0x001e, h01=0x0050, text=» FMEL '********9,99-',PBCD«, t00=0x006d, t01=0x009e}
0xaaec…ab02 Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x006d, t01=0x00c0}
0xab02…ab10 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x006d, t01=0x00d6}
0xab10…ab18 Head {h00=0x0004, h01=0x0050, t00=0x006d, t01=0x00e4}
0xab18…ab2a Head {h00=0x000e, h01=0x0050, text=»FMT3 FRMT «, t00=0x006d, t01=0x00ec}
0xab2a…ab40 Head {h00=0x0012, h01=0x0050, text=» FTEXT 'ENQ ' «, t00=0x006d, t01=0x00fe}
0xab40…ab56 Head {h00=0x0012, h01=0x0050, text=» FCOPY WKSTG4 «, t00=0x006d, t01=0x0114}
0xab56…ab6c Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x006d, t01=0x012a}
0xab6c…ab7a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x006d, t01=0x0140}
0xab7a…ab82 Head {h00=0x0004, h01=0x0050, t00=0x006d, t01=0x014e}
0xab82…ab94 Head {h00=0x000e, h01=0x0050, text=»FMT4 FRMT «, t00=0x006d, t01=0x0156}
0xab94…aba2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x006d, t01=0x0168}
0xaba2…abaa Head {h00=0x0004, h01=0x0050, t00=0x006d, t01=0x0176}
0xabaa…abbc Head {h00=0x000e, h01=0x0050, text=»FMT5 FRMT «, t00=0x006d, t01=0x017e}
0xabbc…abd2 Head {h00=0x0012, h01=0x0050, text=» FILLR '*',25 «, t00=0x006d, t01=0x0190}
0xabd2…abe8 Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x006e, t01=0x0016}
0xabe8…abf6 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x006e, t01=0x002c}
0xabf6…abfe Head {h00=0x0004, h01=0x0050, t00=0x006e, t01=0x003a}
0xabfe…ac10 Head {h00=0x000e, h01=0x0050, text=»FMT6 FRMT «, t00=0x006e, t01=0x0042}
0xac10…ac26 Head {h00=0x0012, h01=0x0050, text=» FILLR '*',25 «, t00=0x006e, t01=0x0054}
0xac26…ac3c Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x006e, t01=0x006a}
0xac3c…ac4a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x006e, t01=0x0080}
0xac4a…ac52 Head {h00=0x0004, h01=0x0050, t00=0x006e, t01=0x008e}
0xac52…ac64 Head {h00=0x000e, h01=0x0050, text=»FMT7 FRMT «, t00=0x006e, t01=0x0096}
0xac64…ac7a Head {h00=0x0012, h01=0x0050, text=» FILLR X'0C',1«, t00=0x006e, t01=0x00a8}
0xac7a…ac88 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x006e, t01=0x00be}
0xac88…ac90 Head {h00=0x0004, h01=0x0050, t00=0x006e, t01=0x00cc}
0xac90…aca2 Head {h00=0x000e, h01=0x0050, text=»FMT8 FRMT «, t00=0x006e, t01=0x00d4}
0xaca2…acb8 Head {h00=0x0012, h01=0x0050, text=» FILLR '*',25 «, t00=0x006e, t01=0x00e6}
0xacb8…acce Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x006e, t01=0x00fc}
0xacce…acf8 Head {h00=0x0026, h01=0x0050, text=» FTEXT 'DENOM BEHOLDNING/UTLEVERT'«, t00=0x006e, t01=0x0112}
0xacf8…ad0e Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',2«, t00=0x006e, t01=0x013c}
0xad0e…ad2e Head {h00=0x001c, h01=0x0050, text=» FMEL '9999',DENOM(COB1)«, t00=0x006e, t01=0x0152}
0xad2e…ad42 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x006e, t01=0x0172}
0xad42…ad70 Head {h00=0x002a, h01=0x0050, text=» FMEL '*********9',BEHOLDN(COB1,COB1) «, t00=0x006e, t01=0x0186}
0xad70…ad84 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x006f, t01=0x0024}
0xad84…adb2 Head {h00=0x002a, h01=0x0050, text=» FMEL '*********9',BEHOLDN(COB1,COB2) «, t00=0x006f, t01=0x0038}
0xadb2…adc8 Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x006f, t01=0x0066}
0xadc8…ade8 Head {h00=0x001c, h01=0x0050, text=» FMEL '9999',DENOM(COB2)«, t00=0x006f, t01=0x007c}
0xade8…adfc Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x006f, t01=0x009c}
0xadfc…ae2a Head {h00=0x002a, h01=0x0050, text=» FMEL '*********9',BEHOLDN(COB2,COB1) «, t00=0x006f, t01=0x00b0}
0xae2a…ae3e Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x006f, t01=0x00de}
0xae3e…ae6c Head {h00=0x002a, h01=0x0050, text=» FMEL '*********9',BEHOLDN(COB2,COB2) «, t00=0x006f, t01=0x00f2}
0xae6c…ae82 Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x006f, t01=0x0120}
0xae82…aea2 Head {h00=0x001c, h01=0x0050, text=» FMEL '9999',DENOM(COB3)«, t00=0x006f, t01=0x0136}
0xaea2…aeb6 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x006f, t01=0x0156}
0xaeb6…aee4 Head {h00=0x002a, h01=0x0050, text=» FMEL '*********9',BEHOLDN(COB3,COB1) «, t00=0x006f, t01=0x016a}
0xaee4…aef8 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0070, t01=0x0008}
0xaef8…af26 Head {h00=0x002a, h01=0x0050, text=» FMEL '*********9',BEHOLDN(COB3,COB2) «, t00=0x0070, t01=0x001c}
0xaf26…af3c Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x0070, t01=0x004a}
0xaf3c…af5c Head {h00=0x001c, h01=0x0050, text=» FMEL '9999',DENOM(COB4)«, t00=0x0070, t01=0x0060}
0xaf5c…af70 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0070, t01=0x0080}
0xaf70…af9e Head {h00=0x002a, h01=0x0050, text=» FMEL '*********9',BEHOLDN(COB4,COB1) «, t00=0x0070, t01=0x0094}
0xaf9e…afb2 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0070, t01=0x00c2}
0xafb2…afe0 Head {h00=0x002a, h01=0x0050, text=» FMEL '*********9',BEHOLDN(COB4,COB2) «, t00=0x0070, t01=0x00d6}
0xafe0…aff6 Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x0070, t01=0x0104}
0xaff6…b016 Head {h00=0x001c, h01=0x0050, text=» FMEL '9999',DENOM(COB5)«, t00=0x0070, t01=0x011a}
0xb016…b02a Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0070, t01=0x013a}
0xb02a…b058 Head {h00=0x002a, h01=0x0050, text=» FMEL '*********9',BEHOLDN(COB5,COB1) «, t00=0x0070, t01=0x014e}
0xb058…b06c Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0070, t01=0x017c}
0xb06c…b09a Head {h00=0x002a, h01=0x0050, text=» FMEL '*********9',BEHOLDN(COB5,COB2) «, t00=0x0070, t01=0x0190}
0xb09a…b0b0 Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x0071, t01=0x002e}
0xb0b0…b0d0 Head {h00=0x001c, h01=0x0050, text=» FMEL '9999',DENOM(COB6)«, t00=0x0071, t01=0x0044}
0xb0d0…b0e4 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0071, t01=0x0064}
0xb0e4…b112 Head {h00=0x002a, h01=0x0050, text=» FMEL '*********9',BEHOLDN(COB6,COB1) «, t00=0x0071, t01=0x0078}
0xb112…b126 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0071, t01=0x00a6}
0xb126…b154 Head {h00=0x002a, h01=0x0050, text=» FMEL '*********9',BEHOLDN(COB6,COB2) «, t00=0x0071, t01=0x00ba}
0xb154…b16a Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x0071, t01=0x00e8}
0xb16a…b18a Head {h00=0x001c, h01=0x0050, text=» FMEL '9999',DENOM(COB7)«, t00=0x0071, t01=0x00fe}
0xb18a…b19e Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0071, t01=0x011e}
0xb19e…b1cc Head {h00=0x002a, h01=0x0050, text=» FMEL '*********9',BEHOLDN(COB7,COB1) «, t00=0x0071, t01=0x0132}
0xb1cc…b1e0 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0071, t01=0x0160}
0xb1e0…b20e Head {h00=0x002a, h01=0x0050, text=» FMEL '*********9',BEHOLDN(COB7,COB2) «, t00=0x0071, t01=0x0174}
0xb20e…b224 Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x0072, t01=0x0012}
0xb224…b244 Head {h00=0x001c, h01=0x0050, text=» FMEL '9999',DENOM(COB8)«, t00=0x0072, t01=0x0028}
0xb244…b258 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0072, t01=0x0048}
0xb258…b286 Head {h00=0x002a, h01=0x0050, text=» FMEL '*********9',BEHOLDN(COB8,COB1) «, t00=0x0072, t01=0x005c}
0xb286…b29a Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0072, t01=0x008a}
0xb29a…b2c8 Head {h00=0x002a, h01=0x0050, text=» FMEL '*********9',BEHOLDN(COB8,COB2) «, t00=0x0072, t01=0x009e}
0xb2c8…b2de Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x0072, t01=0x00cc}
0xb2de…b2f4 Head {h00=0x0012, h01=0x0050, text=» FILLR '*',25 «, t00=0x0072, t01=0x00e2}
0xb2f4…b30a Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x0072, t01=0x00f8}
0xb30a…b318 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0072, t01=0x010e}
0xb318…b320 Head {h00=0x0004, h01=0x0050, t00=0x0072, t01=0x011c}
0xb320…b328 Head {h00=0x0004, h01=0x0050, t00=0x0072, t01=0x0124}
0xb328…b33a Head {h00=0x000e, h01=0x0050, text=»FMT9 FRMT «, t00=0x0072, t01=0x012c}
0xb33a…b350 Head {h00=0x0012, h01=0x0050, text=» FILLR '*',25 «, t00=0x0072, t01=0x013e}
0xb350…b366 Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x0072, t01=0x0154}
0xb366…b390 Head {h00=0x0026, h01=0x0050, text=» FTEXT 'SJEKKHEFTET KAN AVHENTES' «, t00=0x0072, t01=0x016a}
0xb390…b3a6 (115, 2, 122) Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x0073, t01=0x0004}
0xb3a6…b3ca Head {h00=0x0020, h01=0x0050, text=» FTEXT 'I KASSE 1 KL. 12.00'«, t00=0x0073, t01=0x001a}
0xb3ca…b3e0 Head {h00=0x0012, h01=0x0050, text=» FILLR X'0A',1«, t00=0x0073, t01=0x003e}
0xb3e0…b3ee Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0073, t01=0x0054}
0xb3ee…b3f6 Head {h00=0x0004, h01=0x0050, t00=0x0073, t01=0x0062}
0xb3f6…b402 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0073, t01=0x006a}
0xb402…b406 Head {h00=0x4004, h01=0x0000}
0xb406…b40a 00 73 00 76 ┆ s v┆
0xb40a…b42e (116, 2, 36) 00 04 00 50 00 74 00 04 00 04 00 50 00 74 00 0c 00 08 00 50 20 45 4e 44 00 74 00 14 40 04 00 00 00 74 00 20 ┆ P t P t P END t @ t ┆
0xb42e…b436 (117, 1, 8) 20 04 00 00 00 75 00 04 ┆ u ┆
0xb436…b486 (118, 0, 400) 31 5c 47 45 54 20 44 53 43 42 20 54 4f 54 41 4c 20 4c 45 4e 47 54 48 20 00 d5 01 84 00 1a 00 50 5c 52 46 28 5a 29 5c 41 4c 4c 42 37 30 5c 4e 4f 20 44 53 43 42 20 00 d6 00 20 00 2a 00 50 5c 45 4c 5c 41 31 31 2c 44 41 54 54 41 42 2c 41 31 32 ┆1 GET DSCB TOTAL LENGTH P RF(Z) ALLB70 NO DSCB * P EL A11,DATTAB,A12┆
0xb486…b4d6 5c 47 45 54 20 44 49 53 50 4c 2e 20 54 4f 20 44 41 54 27 53 00 d6 00 3e 00 1e 00 50 5c 41 44 52 5c 41 31 2c 41 31 31 5c 53 54 41 52 54 20 4f 46 20 44 41 54 27 53 00 d6 00 6c 00 22 00 50 5c 4c 44 52 5c 41 31 31 2c 41 31 5c 53 41 56 45 20 53 ┆ GET DISPL. TO DAT'S > P ADR A1,A11 START OF DAT'S l " P LDR A11,A1 SAVE S┆
0xb4d6…b526 54 41 52 54 20 41 44 44 52 45 53 53 00 d6 00 8e 00 08 00 50 5c 58 49 46 00 d6 00 b4 00 0e 00 50 5c 53 55 52 5c 41 33 2c 41 31 00 d6 00 c0 00 0e 00 50 5c 4e 47 52 5c 41 33 2c 41 33 00 d6 00 d2 00 20 00 50 5c 53 55 4b 5c 41 33 2c 44 53 43 42 ┆TART ADDRESS P XIF P SUR A3,A1 P NGR A3,A3 P SUK A3,DSCB┆
0xb526…b576 4c 5c 45 4e 44 20 43 4f 4e 44 49 54 49 4f 4e 20 00 d6 00 e4 00 3c 00 50 5c 53 54 5c 41 33 2c 53 41 56 45 30 34 2b 53 54 4b 45 4e 44 5c 53 41 56 45 20 41 44 44 52 45 53 53 20 54 4f 20 45 4e 44 20 4f 46 20 44 53 43 42 2d 52 45 43 4f 52 44 53 ┆L END CONDITION < P ST A3,SAVE04+STKEND SAVE ADDRESS TO END OF DSCB-RECORDS┆
0xb576…b5c6 00 d6 01 08 00 3a 00 50 41 4c 4c 42 31 30 5c 53 55 4b 5c 41 31 2c 44 53 43 42 4c 5c 41 31 3d 46 49 52 53 54 20 57 4f 52 44 20 49 4e 20 46 49 52 53 54 20 44 53 43 42 2d 52 45 43 4f 52 44 00 d6 01 48 00 1e 00 50 5c 43 57 5c 41 31 2c 53 41 56 ┆ : PALLB10 SUK A1,DSCBL A1=FIRST WORD IN FIRST DSCB-RECORD H P CW A1,SAV┆
0xb5c6…b616 (119, 0, 400) 45 30 34 2b 53 54 4b 45 4e 44 5c 41 4c 4c 3f 20 00 d6 01 86 00 16 00 50 5c 52 46 28 45 29 5c 41 4c 4c 42 37 30 5c 59 45 53 21 00 d7 00 18 00 12 00 50 5c 49 46 54 20 4d 4d 55 50 41 47 3d 30 20 00 d7 00 32 00 3a 00 50 5c 4c 44 5c 41 33 2c 42 ┆E04+STKEND ALL? P RF(E) ALLB70 YES! P IFT MMUPAG=0 2 : P LD A3,B┆
0xb616…b666 4c 2c 41 31 5c 47 45 54 20 4c 45 4e 47 54 48 20 4f 46 20 54 48 45 20 52 45 51 55 45 53 54 45 44 20 42 55 46 46 45 52 2e 5a 45 52 4f 3f 20 00 d7 00 48 00 16 00 50 5c 52 42 28 5a 29 5c 41 4c 4c 42 31 30 5c 59 45 53 21 00 d7 00 86 00 2a 00 50 ┆L,A1 GET LENGTH OF THE REQUESTED BUFFER.ZERO? H P RB(Z) ALLB10 YES! * P┆
0xb666…b6b6 5c 4c 44 5c 41 32 2c 53 42 2c 41 31 5c 47 45 54 20 49 4e 44 45 58 2e 53 48 41 52 45 44 20 42 55 46 46 45 52 3f 20 00 d7 00 a0 00 14 00 50 5c 52 46 28 5a 29 5c 4e 4f 54 53 48 5c 4e 4f 21 00 d7 00 ce 00 20 00 50 5c 4c 44 4b 5c 41 33 2c 44 53 ┆ LD A2,SB,A1 GET INDEX.SHARED BUFFER? P RF(Z) NOTSH NO! P LDK A3,DS┆
0xb6b6…b706 43 42 4c 5c 4c 45 4e 47 54 48 20 4f 46 20 44 53 43 42 00 d7 00 e6 00 22 00 50 5c 43 41 4c 4c 5c 4d 55 4c 54 5c 41 32 2a 41 33 20 52 45 53 55 4c 54 20 49 4e 20 41 33 20 00 d7 01 0a 00 24 00 50 5c 4c 44 52 5c 41 32 2c 41 31 31 5c 47 45 54 20 ┆CBL LENGTH OF DSCB " P CALL MULT A2*A3 RESULT IN A3 $ P LDR A2,A11 GET ┆
0xb706…b756 53 54 41 52 54 20 4f 46 20 44 53 43 42 27 53 20 00 d7 01 30 00 1e 00 50 5c 53 55 52 5c 41 32 2c 41 33 5c 47 45 54 20 53 48 41 52 45 44 20 44 53 43 42 00 d7 01 58 00 24 00 50 5c 4c 44 5c 41 34 2c 42 50 2c 41 32 5c 47 45 54 20 42 55 46 46 45 ┆START OF DSCB'S 0 P SUR A2,A3 GET SHARED DSCB X $ P LD A4,BP,A2 GET BUFFE┆
0xb756…b7a6 (120, 0, 400) 52 20 50 4f 49 4e 54 45 52 20 00 d7 01 7a 00 26 00 50 5c 53 54 5c 41 34 2c 42 50 2c 41 31 5c 53 54 4f 52 45 20 49 4e 20 43 55 52 52 45 4e 54 20 44 53 43 42 00 d8 00 12 00 08 00 50 5c 58 49 46 00 d8 00 3c 00 12 00 50 5c 49 46 54 5c 4d 4d 55 ┆R POINTER z & P ST A4,BP,A1 STORE IN CURRENT DSCB P XIF < P IFT MMU┆
0xb7a6…b7f6 50 41 47 3d 31 20 00 d8 00 48 00 30 00 50 5c 45 4c 5c 41 33 2c 42 4c 2c 41 31 5c 47 45 54 20 4c 45 4e 47 54 48 20 4f 46 20 52 45 51 2e 42 55 46 46 45 52 2e 5a 45 52 4f 3f 20 00 d8 00 5e 00 16 00 50 5c 52 42 28 5a 29 5c 41 4c 4c 42 31 30 5c ┆PAG=1 H 0 P EL A3,BL,A1 GET LENGTH OF REQ.BUFFER.ZERO? ^ P RB(Z) ALLB10 ┆
0xb7f6…b846 59 45 53 21 00 d8 00 92 00 2a 00 50 5c 45 4c 5c 41 32 2c 53 42 2c 41 31 5c 47 45 54 20 49 4e 44 45 58 2e 53 48 41 52 45 44 20 42 55 46 46 45 52 3f 20 00 d8 00 ac 00 14 00 50 5c 52 46 28 5a 29 5c 4e 4f 54 53 48 5c 4e 4f 21 00 d8 00 da 00 20 ┆YES! * P EL A2,SB,A1 GET INDEX.SHARED BUFFER? P RF(Z) NOTSH NO! ┆
0xb846…b896 00 50 5c 4c 44 4b 5c 41 33 2c 44 53 43 42 4c 5c 4c 45 4e 47 54 48 20 4f 46 20 44 53 43 42 00 d8 00 f2 00 22 00 50 5c 43 41 4c 4c 5c 4d 55 4c 54 5c 41 32 2a 41 33 20 52 45 53 55 4c 54 20 49 4e 20 41 33 20 00 d8 01 16 00 24 00 50 5c 4c 44 52 ┆ P LDK A3,DSCBL LENGTH OF DSCB " P CALL MULT A2*A3 RESULT IN A3 $ P LDR┆
0xb896…b8e6 5c 41 32 2c 41 31 31 5c 47 45 54 20 53 54 41 52 54 20 4f 46 20 44 53 43 42 27 53 20 00 d8 01 3c 00 1e 00 50 5c 53 55 52 5c 41 32 2c 41 33 5c 47 45 54 20 53 48 41 52 45 44 20 44 53 43 42 00 d8 01 64 00 24 00 50 5c 45 4c 5c 41 34 2c 42 50 2c ┆ A2,A11 GET START OF DSCB'S < P SUR A2,A3 GET SHARED DSCB d $ P EL A4,BP,┆
0xb8e6…b936 (121, 0, 400) 41 32 5c 47 45 54 20 42 55 46 46 45 52 20 50 4f 49 4e 54 45 52 20 00 d8 01 86 00 26 00 50 5c 45 53 5c 41 34 2c 42 50 2c 41 31 5c 53 54 4f 52 45 20 49 4e 20 43 55 52 52 45 4e 54 20 44 53 43 42 00 d9 00 1e 00 08 00 50 5c 58 49 46 00 d9 00 48 ┆A2 GET BUFFER POINTER & P ES A4,BP,A1 STORE IN CURRENT DSCB P XIF H┆
0xb936…b986 00 0e 00 50 5c 52 42 5c 41 4c 4c 42 31 30 00 d9 00 54 00 04 00 50 00 d9 00 66 00 12 00 50 5c 49 46 54 20 4d 4d 55 50 41 47 3d 30 20 00 d9 00 6e 00 3a 00 50 4e 4f 54 53 48 5c 41 44 4b 5c 41 33 2c 32 5c 4f 4e 45 20 45 58 54 52 41 20 57 4f 52 ┆ P RB ALLB10 T P f P IFT MMUPAG=0 n : PNOTSH ADK A3,2 ONE EXTRA WOR┆
0xb986…b9d6 44 20 55 53 45 44 20 42 59 20 54 48 45 20 49 4e 54 45 52 50 52 45 54 45 52 20 00 d9 00 84 00 2c 00 50 5c 43 41 4c 4c 5c 43 41 4c 4c 4d 4f 5c 41 4c 4c 4f 43 41 54 45 20 42 55 46 46 45 52 20 46 52 4f 4d 20 42 4f 54 54 4f 4d 00 d9 00 c2 00 26 ┆D USED BY THE INTERPRETER , P CALL CALLMO ALLOCATE BUFFER FROM BOTTOM &┆
0xb9d6…ba26 00 50 5c 41 44 4b 5c 41 32 2c 32 5c 42 55 46 46 45 52 20 4d 41 53 4b 20 41 54 20 44 49 53 50 4c 2e 20 2d 32 00 d9 00 f2 00 26 00 50 5c 53 54 5c 41 32 2c 42 50 2c 41 31 5c 53 54 4f 52 45 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 20 00 d9 ┆ P ADK A2,2 BUFFER MASK AT DISPL. -2 & P ST A2,BP,A1 STORE BUFFER ADDRESS ┆
0xba26…ba76 01 1c 00 0e 00 50 5c 52 42 5c 41 4c 4c 42 31 30 00 d9 01 46 00 08 00 50 5c 58 49 46 00 d9 01 58 00 12 00 50 5c 49 46 54 20 4d 4d 55 50 41 47 3d 31 20 00 d9 01 64 00 3a 00 50 4e 4f 54 53 48 5c 41 44 4b 5c 41 33 2c 32 5c 4f 4e 45 20 45 58 54 ┆ P RB ALLB10 F P XIF X P IFT MMUPAG=1 d : PNOTSH ADK A3,2 ONE EXT┆
0xba76…bac6 (122, 0, 400) 52 41 20 57 4f 52 44 20 55 53 45 44 20 42 59 20 54 48 45 20 49 4e 54 45 52 50 52 45 54 45 52 20 00 d9 01 7a 00 2e 00 50 5c 43 41 4c 4c 5c 43 41 4c 4c 4d 4f 5c 41 4c 4c 4f 43 41 54 45 20 42 55 46 46 45 52 20 46 52 4f 4d 20 27 42 4f 54 54 4f ┆RA WORD USED BY THE INTERPRETER z . P CALL CALLMO ALLOCATE BUFFER FROM 'BOTTO┆
0xbac6…bb16 4d 27 00 da 00 28 00 26 00 50 5c 41 44 4b 5c 41 32 2c 32 5c 42 55 46 46 45 52 20 4d 41 53 4b 20 41 54 20 44 49 53 50 4c 2e 20 2d 32 00 da 00 5a 00 26 00 50 5c 45 53 5c 41 32 2c 42 50 2c 41 31 5c 53 54 4f 52 45 20 42 55 46 46 45 52 20 41 44 ┆M' ( & P ADK A2,2 BUFFER MASK AT DISPL. -2 Z & P ES A2,BP,A1 STORE BUFFER AD┆
0xbb16…bb66 44 52 45 53 53 20 00 da 00 84 00 08 00 50 5c 58 49 46 00 da 00 ae 00 0e 00 50 5c 52 42 5c 41 4c 4c 42 31 30 00 da 00 ba 00 08 00 50 5c 5c 5c 5c 00 da 00 cc 00 2c 00 50 2a 20 52 45 53 45 52 56 45 20 53 54 41 43 4b 20 41 4e 44 20 53 45 54 20 ┆DRESS P XIF P RB ALLB10 P , P* RESERVE STACK AND SET ┆
0xbb66…bbb6 53 54 41 43 4b 50 4f 49 4e 54 45 52 53 20 2a 20 00 da 00 d8 00 04 00 50 00 da 01 08 00 10 00 50 41 4c 4c 42 37 30 5c 45 51 55 5c 2a 00 da 01 10 00 12 00 50 5c 49 46 54 20 4d 4d 55 50 41 47 3d 30 20 00 da 01 24 00 20 00 50 5c 4c 44 52 2a 5c ┆STACKPOINTERS * P PALLB70 EQU * P IFT MMUPAG=0 $ P LDR* ┆
0xbbb6…bc06 41 31 2c 41 38 5c 47 45 54 20 54 3a 41 2d 41 44 44 52 45 53 53 20 00 da 01 3a 00 20 00 50 5c 4c 44 5c 41 33 2c 43 53 45 2c 41 31 5c 47 45 54 20 53 54 41 43 4b 20 53 49 5a 45 00 da 01 5e 00 12 00 50 5c 52 46 28 4e 5a 29 5c 41 4c 4c 42 38 30 ┆A1,A8 GET T:A-ADDRESS : P LD A3,CSE,A1 GET STACK SIZE ^ P RF(NZ) ALLB80┆
0xbc06…bc56 (123, 0, 400) 00 da 01 82 00 24 00 50 5c 4c 44 4b 5c 41 33 2c 53 54 4b 53 5a 5c 44 45 46 41 55 4c 54 20 53 54 41 43 4b 53 49 5a 45 20 00 db 00 08 00 10 00 50 41 4c 4c 42 38 30 5c 45 51 55 5c 2a 00 db 00 30 00 2c 00 50 5c 53 54 5c 41 33 2c 53 54 4b 42 2c ┆ $ P LDK A3,STKSZ DEFAULT STACKSIZE PALLB80 EQU * 0 , P ST A3,STKB,┆
0xbc56…bca6 41 31 5c 53 54 4f 52 45 20 41 43 54 55 41 4c 20 53 54 41 43 4b 20 53 49 5a 45 5c 20 00 db 00 44 00 20 00 50 5c 43 41 4c 4c 5c 43 41 4c 4c 4d 4f 5c 41 4c 4c 4f 43 41 54 45 20 53 54 41 43 4b 20 00 db 00 74 00 20 00 50 5c 53 54 5c 41 32 2c 53 ┆A1 STORE ACTUAL STACK SIZE D P CALL CALLMO ALLOCATE STACK t P ST A2,S┆
0xbca6…bcf6 54 4b 45 2c 41 31 5c 53 45 54 20 53 54 41 43 4b 2d 45 4e 44 00 db 00 98 00 22 00 50 5c 4c 44 5c 41 33 2c 53 54 4b 42 2c 41 31 5c 47 45 54 20 53 54 41 43 4b 20 53 49 5a 45 20 00 db 00 bc 00 22 00 50 5c 41 44 52 5c 41 32 2c 41 33 5c 43 4f 4d ┆TKE,A1 SET STACK-END " P LD A3,STKB,A1 GET STACK SIZE " P ADR A2,A3 COM┆
0xbcf6…bd46 50 55 54 45 20 53 54 41 43 4b 20 42 41 53 45 20 00 db 00 e2 00 22 00 50 5c 53 55 4b 5c 41 32 2c 32 5c 41 44 44 52 45 53 53 20 54 4f 20 4c 41 53 54 20 57 4f 52 44 00 db 01 08 00 24 00 50 5c 53 54 5c 41 32 2c 53 54 4b 42 2c 41 31 5c 53 54 4f ┆PUTE STACK BASE " P SUK A2,2 ADDRESS TO LAST WORD $ P ST A2,STKB,A1 STO┆
0xbd46…bd96 52 45 20 53 54 41 43 4b 20 42 41 53 45 20 00 db 01 2e 00 2a 00 50 5c 53 54 52 5c 41 32 2c 41 31 5c 53 54 4f 52 45 20 43 55 52 52 45 4e 54 20 53 54 41 43 4b 20 50 4f 49 4e 54 45 52 00 db 01 56 00 08 00 50 5c 58 49 46 00 db 01 84 00 12 00 50 ┆RE STACK BASE . * P STR A2,A1 STORE CURRENT STACK POINTER V P XIF P┆
0xbd96…bde6 (124, 0, 400) 5c 49 46 54 20 4d 4d 55 50 41 47 3d 31 20 00 db 01 90 00 1e 00 50 5c 45 4c 52 5c 41 31 2c 41 38 5c 47 45 54 20 54 3a 41 2d 41 44 44 52 45 53 53 00 dc 00 16 00 20 00 50 5c 45 4c 5c 41 33 2c 43 53 45 2c 41 31 5c 47 45 54 20 53 54 41 43 4b 20 ┆ IFT MMUPAG=1 P ELR A1,A8 GET T:A-ADDRESS P EL A3,CSE,A1 GET STACK ┆
0xbde6…be36 53 49 5a 45 00 dc 00 38 00 2a 00 50 5c 52 46 28 4e 5a 29 5c 41 4c 4c 42 38 30 5c 55 53 45 52 20 44 45 46 49 4e 45 44 20 53 54 41 43 4b 20 53 49 5a 45 00 dc 00 5c 00 24 00 50 5c 4c 44 4b 5c 41 33 2c 53 54 4b 53 5a 5c 44 45 46 41 55 4c 54 20 ┆SIZE 8 * P RF(NZ) ALLB80 USER DEFINED STACK SIZE $ P LDK A3,STKSZ DEFAULT ┆
0xbe36…be86 53 54 41 43 4b 20 53 49 5a 45 00 dc 00 8a 00 28 00 50 41 4c 4c 42 38 30 5c 45 53 5c 41 33 2c 53 54 4b 42 2c 41 31 5c 53 41 56 45 20 53 54 41 43 4b 20 53 49 5a 45 00 dc 00 b2 00 20 00 50 5c 43 41 4c 4c 5c 43 41 4c 4c 4d 4f 5c 41 4c 4c 4f 43 ┆STACK SIZE ( PALLB80 ES A3,STKB,A1 SAVE STACK SIZE P CALL CALLMO ALLOC┆
0xbe86…bed6 41 54 45 20 53 54 41 43 4b 20 00 dc 00 de 00 22 00 50 5c 45 53 5c 41 32 2c 53 54 4b 45 2c 41 31 5c 53 54 4f 52 45 20 53 54 41 43 4b 20 45 4e 44 00 dc 01 02 00 22 00 50 5c 45 4c 5c 41 33 2c 53 54 4b 42 2c 41 31 5c 47 45 54 20 53 54 41 43 4b ┆ATE STACK " P ES A2,STKE,A1 STORE STACK END " P EL A3,STKB,A1 GET STACK┆
0xbed6…bf26 20 53 49 5a 45 20 00 dc 01 28 00 22 00 50 5c 41 44 52 5c 41 32 2c 41 33 5c 43 4f 4d 50 55 54 45 20 53 54 41 43 4b 20 42 41 53 45 20 00 dc 01 4e 00 22 00 50 5c 53 55 4b 5c 41 32 2c 32 5c 41 44 44 52 45 53 53 20 54 4f 20 4c 41 53 54 20 57 4f ┆ SIZE ( " P ADR A2,A3 COMPUTE STACK BASE N " P SUK A2,2 ADDRESS TO LAST WO┆