|
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: 33388 (0x826c)
Notes: pts_type(SC)
Names: »IOTND.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/IOTND.SC«
IDENT IOTND REL=9.2 VER=ND 81-01-21 UPD 11 80-16-12 / BORO ADD "IOTNDS" SUBROUTINE UPD 10 80-04-16 / BORO RECOVERY PF BEFORE DISPENSE UPD 9 80-04-14 / BORO IGNORE MICRO REJECT FULL UPD 8 80-03-03 / BORO MAKE REJECT CASS LIMIT VARIABL LOWER BUSY T. O. TO 1 MIN NO CASS. BECOMES ERROR E1 DELV ERROR CAUSES TND BLOCK UPD 7 80-02-26 / BORO DON'T REPEAT TIMEOUTS UPD 6 80-02-11 / BORO ADD TNDELVPF & TNDNDU UPD 5 80-02-04 / BORO ADD RETCODE 3 FOR DELIVER UPD 4 80-02-04 / BORO ADD DELIVER FUNCTION UPD 3 80-01-31 / BORO CHANGE ELEMENTS TO ARRAYS UPD 2 80-01-13 / BORO ADD UNKNOWN REJ NOTES UPD 1 80-01-11 / BORO TAKE OUT DELIVER & DUMP EJECT ********************************************************************** * SUBROUTINE TO PERFORM TELLER NOTE DISPENSER (TND) I/O FUNCTIONS * NAME: IOTND * PURPOSE: PERFORM TND I/O FUNCTIONS * CALL: PERF IOTND,OP,TND,TNDWB1,TNDWB2,TNDWB3,TNDWD1,TNDWS1,TNDBUF * PARAMETERS * IN: OP - OPERATION CODE - INDEX TO FUNCTION * 1 INITND: RESET TND,OPEN TND (LIFTS UP) * 2 CLOSND: CLOSE TND (LIFTS DOWN) * 3 DISPND: DISPENSE NOTES TO STACKER * 4 DELVND: DELIVER NOTES TO TELLER * TNDWB1 BIN WORK REGISTER * TNDWB2 " * TNDWB3 " * TNDWD1 BCD WORK REGISTER, MINIMUM 7 CHAR PLUS SIGN CHAR * TNDWS1 STRG WORK REGISTER, MINIMUM 5 CHAR * TNDBUF STRG I/O BUFFER, MINIMUM 40 CHAR * VARIABLES - COMMON FOR ALL FUNCTIONS * IN: NDRCLIM-BCD REJECT CASSETTE LIMIT NOTES DUMPED * BEFORE BLOCKING DISPENSE * OUT: TNDST-STATUS AFTER I/O, 0=OK, OPERATION SUCCESSFUL * 1=ERROR, OPERATION NOT DONE, * DISPENSE, DELIVER BLOCKED UNTIL OPEN * PERFORMED * 2=TND BLOCKED: OP=3, 4 * 3=CASSETTE(S) EMPTY: OP=3 * TNDBAD-FLAG INDICATING IRRECOVERABLE ERROR OCCURRED * T=DISPENSE, DELIVER BLOCKED * F=ALL TND I/O ALLOWED * TNDRCF-FLAG INDICATING REJECT CASSETTE FULL * T=DISPENSE, DELIVER BLOCKED * F=ALL TND I/O ALLOWED * * SUBROUTINES COMMON FOR ALL FUNCTION * MASK * ERRND * NDERR * TNDMSK * DESCRIPTION * TND FUNCTIONS IF PERFORMED SUCCESSFULLY,RETURN WITH TNDST=0 * IF PROGRAM ERROR OR HARDWARE ERROR, THE ERROR(S) ARE REPORTED TO * THE APPLICATION VIA SUBROUTINE "NDERR" WITH AN INDEX PARAMETER * INDICATING THE ERROR. TND REGISTERS ARE UPDATED ACCORDINGLY * PERF NDERR,INDEX * * INDEX: 0=COMMAND, RETURN STATUS (& REJECT TRACE) * IF OTHER THAN CASS. LOW, REJECT CASS FULL, * SEQUENCE ERROR, OR DELIVERY UNIT BUSY * 1=E1-NO CASS., T.O. OR NOP, CHECK TND, OTHERWISE CALL SERVICE * 2=E2-COMMUNICATION OR HARDWARE, CALL SERVICE * 3=E3-T.O. ON NOTES IN DELIVERY UNIT, CALL SERVICE * 4=E4-BAD NOTES OR JAM, FIX OR CALL SERVICE * 5=E5-REJECT CASSETTE FULL, EMPTY IT * 7=E7-PROGRAM ERROR, DEBUG HELP * 8=E8-NDDATA1(KW4,TNDWB1) FAILS TO FEED, CALL SERVICE * IF A CASSETTE EMPTIES DURING A DISPENSE, APPLICATIONS WILL BE * INFORMED VIA "NDERR". DISPENSE NOT DONE, NO REGISTERS AFFECTED * PERF NDERR,INDEX * * INDEX= 6=E6, NDDATA1(KW4,TNDWB1) EMPTY * * SEE RESPECTIVE FUNCTION FOR DETAILS * * DDUM DEMODD PDIV ENTRY IOTND TND I/O OPERATIONS ENTRY IOTNDS TND COMMAND & STATUS EXPROC NDERR NOTIFY APPLICATIONS-ERROR EXPROC MASK CREDIT ASSEMB ROUTINE EJECT * * ROOT: INITIALIZE PARAMETERS, TEST FOR BLOCK, PERFORM I/O AND GO TO * RESPECTIVE I/O ROUTINE FOR HANDLING OF I/O OPERATION RESULTS * IOTND PROC OP, C TND, C TNDWB1, C TNDWB2, C TNDWB3, C TNDWD1, C TNDWS1, C TNDBUF PBIN OP PDSET TND PBIN TNDWB1 PBIN TNDWB2 PBIN TNDWB3 PBCD TNDWD1 PSTRG TNDWS1 PSTRG TNDBUF CBL OP,KW1,IOTND01 MINIMUM OPERATION CODE CBG OP,KW4,IOTND01 MAXIMUM OPERATION CODE CLEAR TNDTRY CLEAR TRY TWICE FLAG CLEAR TNDNDU NO NOTES IN DELVERY UNIT MOVE TNDWB3,=W'60' INITIALIZE BUSY COUNTER * TEST IF DISPENSED BLOCKED IB OP,IO,IO OPEN/RESET & CLOSE OK TBT TNDRCF,IOTND00 I/O OK IF REJ. CASS. NOT FULL TBT TNDBAD,IOTND00 I/O OK IF NOT ERROR BLOCKED * NO PREVIOUS ERRORS, TEST IF REJECT CASSETTE FULL CBE OP,KW4,IO SKIP IF DELIVER CBL NDDUMP,NDRCLIM,IO BRANCH IF REJECT CASS NOT FULL SET TNDRCF BLOCK DISPENSE PERF NDERR,KW5 REPORT ERROR TO APPLICATION IOTND00 MOVE TNDST,KW2 RETURN CODE RET IOTND01 MOVE TNDST,KW1 ERROR RETURN RET * * PERFORM RESPECTIVE OPERATION I/O * IO PERFI OP,INITIO,CLOSIO,DISPIO,DELVIO PLIST TND, C TNDWB1, C TNDWB2, C TNDWD1, C TNDWS1, C TNDBUF * * GET COMMAND AND TND RETURN STATUS, REPORT TO APPLICATIONS IF ERROR * * TEST IF ERROR SHOULD BE REPORTED, IGNORE BITS 2,4,5,11 * CORRESPONDING TO DELIVERY UNIT BUSY, REJECT CASS. FULL,CASS. LOW, * SEQUENCE ERROR MOVE TNDST,=W'-11281' BITS TO REPORT ON PERF IOTNDS,TND,TNDWB1,TNDWB2,TNDST EJECT MOVE TNDST,KW0 ZERO INDEX PERF TNDMSK,TNDWB1,TNDWB2,=W'128' BIT 8 B IOTND10 POWERFAIL MOVE TNDST,KW0 PERF TNDMSK,TNDWB1,TNDWB2,=W'-32752' BITS 0, 11 B IOTND20 PROGRAM ERROR SET NOPF PERF TNDMSK,TNDWB1,TNDWB2,=W'16449' BITS 1, 9, 15 B IOTND10 NO CASS., T.O., NOP CLEAR NOPF SUB TNDST,KW1 PERF TNDMSK,TNDWB1,TNDWB2,=W'10' BITS 12,14 B IOTND10 COMM. OR HARDWARE ERR PERF TNDMSK,TNDWB1,TNDWB2,=W'8192' BIT 2 B IOTND10 BUSY PERF TNDMSK,TNDWB1,TNDWB2,=W'4352' BITS 3,7 B IOTND10 BAD NOTES OR JAM PERF TNDMSK,TNDWB1,TNDWB2,=W'2048' BIT 4 B IOTND10 REJECT CASS FULL PERF TNDMSK,TNDWB1,TNDWB2,=W'512' BIT 6 B IOTND10 CASSETTE EMPTY MOVE TNDST,KW0 OK,CASS. LOW OR REJ. NOTES * * RESULT IN TNDST, BRANCH TO RESPECTIVE I/O ROUTINE * IOTND10 IB OP,INITND,CLOSND,DISPND,DELVND * PROGRAM ERROR? INDEX CODE=7 IOTND20 MOVE TNDST,KW7 MOVE TNDWB2,=W'16' BIT 11 CALL MASK,TNDWB1,TNDWB2 SEQUENCE ERROR? BZ IOPERR NO, REQUEST ERROR B IOTND10 EJECT ********************************************************************** * * 1.INITND * * PURPOSE: RESET TND, OPEN TND (LIFTS UP) * * VARIABLES * IN: * OUT: TNDBUF-CASSETTE ID'S * TNDST =0-OK * =1-ERROR (E1,E2,E4,E7), TND BLOCKED, NOT OPEN * TNDBAD=F-IF OK * TNDRCF=F-IF OK * ********************************************************************** EJECT * * TNDST- INDEX INDICATING RESULT OF IO....ACTION.............RET-TNDST * * 0- IO OK, CASSETTE LOW...........UNBLOCK TND 0 * 1- POWERFAIL.....................REPEAT INITIO * 2- T.O., COMM., HARDWARE, NOP....TRY TWICE, REPORT, BLOCK TND 1 * 3- BUSY, NOTES IN DELIVERY UNIT..IMPOSSIBLE, REPORT, BLOCK TND 1 * 4- BAD NOTES OR JAM..............REPORT, BLOCK TND 1 * 5- REJECT CASSETTE FULL..........WARNING 0 * 6- CASSETTE EMPTY................IGNORE, UNBLOCK TND 0 * 7- SEQ ERR.......................REPORT, BLOCK TND 1 * INITND IB TNDST, C IO,IOTRY,IOPERR,IOER,INIT10,INIT10,IOER * * RESET OK, UNBLOCK TND,TNDST=0 * INIT10 CLEAR TNDBAD CLEAR TNDRCF UNBLOCK REJ CASS FULL B IOOK EJECT ********************************************************************** * * * 2.CLOSND * * * * PURPOSE: CLOSE TND(LIFTS DOWN) * * * * VARIABLES * * IN: * * OUT: TNDBUF-CASSETTE ID'S * * TNDST =0-OK * * =1-ERROR (E1,E2,E4,E7) * * * * * ********************************************************************** EJECT * * TNDST- INDEX INDICATING RESULT OF IO....ACTION.............RET-TNDST * * 0- IO OK, CASSETTE LOW........... 0 * 1- POWERFAIL.....................REPEAT CLOSI0 * 2- T.O., COMM., HARDWARE,NOP.....TRY TWICE,REPORT 1 * 3- BUSY, NOTES IN DELIVERY UNIT..IMPOSSIBLE, REPORT 1 * 4- BAD NOTES OR JAM..............REPORT, BLOCK TND 1 * 5- REJECT CASSETTE FULL..........IGNORE 0 * 6- CASSETTE EMPTY................IGNORE 0 * 7- SEQ ERR.......................REPORT, BLOCK TND 1 * CLOSND IB TNDST, C IO,IOTRY,IOPERR,IOER,CLOS10,CLOS10,IOER * * CLOSE OK,TNDST=0 * CLOS10 TBF TNDRCF,IOOK BR. IF REJECT CASS OK MOVE NDDUMP,KW0 ASSUME CLOSE TO ...EMPTY REJECT CASS B IOOK EJECT ********************************************************************** * * * 3.DISPND * * * * PURPOSE: DISPENSE NOTES TO STACKER * * * * VARIABLES * * IN: NDDATA1(KW2,X)-BCD ARRAY, LOADED WITH NO. NOTES TO DISPENSE/CASS* * CASMAX BIN EL., TOTAL NO. OF CASSETTES * * OUT: NDDATA1(KW5,X)-BCD ARRAY, NO. OF NOTES REJECTED SINCE OPEN * * NDDATA2(KW2,X)-BCD ARRAY, EL=O IF CASSETTE BECAME EMPTY * * TNDST=0-OK * * =1-ERROR (E1,E2,E3,E4,E7,E8). BLOCKED, NO DISPENSE * * =2-TND WAS ALREADY BLOCKED, NO DISPENSE * * =3-CASSETTE EMPTY (E6), NO DISPENSE * * * ********************************************************************** EJECT * * TNDST- INDEX INDICATING RESULT OF IO....ACTION.............RET-TNDST * * O-ID OK,CASSETTE LOW, REJ. NOTES.CALC. REJECTED NOTES 0 * 1-POWERFAIL......................RESET TND, REPEAT DISPENSE * 2-T.O., COMM., HARDWARE, NOP.....CALC. REJECTED NOTES,RESET * OR NO CASS......TND, TRY TWICE, THEN REPORT, * .....BLOCK TND 1 * 3-BUSY, NOTES IN DELIVERY UNIT...NOT DELIVERED BY TND, * ...MANUALLY PLACED, SKIP TRANS 2 * 4-BAD NOTES OR JAM...............SAME AS 2. 1 * 5-REJECT CASSETTE FULL...........WARNING 0 * 6-CASSETTE EMPTY.................REPORT 3 * 7-SEQ. ERROR DUE TO PF?..........RE-OPEN TND * DISPND IB TNDST, C DISPPF,IOTRY,IOTND00,IOTRY,DISPOK,DISPMT,DISPPF * * DISPENSE OK, TEST FOR REJECTED NOTES * DISPOK PERF TNDMSK,TNDWB1,TNDWB2,=W'32' BIT 10 B DISP10 CALC REJECTED NOTES B IOOK NO REJECTED NOTES, RET OK DISP10 * CALCULATE REJECTED NOTES & ADD TO NDDATA1(KW5,X) PERF GETREJ,KW1, C TND, C TNDWB1, C TNDWB2, C TNDWD1, C TNDWS1, C TNDBUF B IOOK NO REJECT B IOOK SUCCESSFUL EJECT * * POWER FAILURE, RESET DISPENSER AND TRY AGAIN * DISPPF PERF INITIO,TND, C TNDWB1, C TNDWB2, C TNDWD1, C TNDWS1, C TNDBUF *REPORT ERRORS, EXCEPT REJ CASS FULL, CASS LOW, CASS EMPTY MOVE TNDST,=W'-3585' BITS TO REPORT PERF IOTNDS,TND,TNDWB1,TNDWB2,TNDST DSC0 TND,2 DUMP NOTES, DISPENSE MAY HAVE BEEN SUCCESSFUL ALSO 2 DISPENSE IN ROW NOT ALLOWED PERF IOTNDS,TND,TNDWB1,TNDWB2,TNDST B IO REPEAT DISPENSE EJECT * * SERIOUS ERROR, CALCULATE REJECTED NOTES, RESET TND, TRY TWICE ONLY * DISPTRY * * FIRST FAILURE, SEE IF REJECTED NOTES * * UPDATE NDDATA1(KW5,X) BY NUMBER DISPENSED PERF GETREJ,KW2, C TND, C TNDWB1, C TNDWB2, C TNDWD1, C TNDWS1, C TNDBUF B DISPTR20 NO NOTES DISPENSED DISPTR20 B DISPPF REPEAT DISPENSE EJECT * * ANALIZE STATUS OF EVERY CASSETTE, REPORT CASSETTE EMPTY OR CASSETTE * DOES NOT FEED, CALCULATE REJECTED NOTES * DISPMT * UPDATE NDDATA1(KW5,X) BY NUMBER DISPENSED AND REPORT CASS. STATUS PERF GETREJ,KW3, C TND, C TNDWB1, C TNDWB2, C TNDWD1, C TNDWS1, C TNDBUF B DISPMT40 NO NOTES DISPENSED * * TEST IF TND ERROR OCCURED OR ONLY CASSETTE EMPTY * DISPMT40 DSC0 TND,2 DUMP NOTES, OTHERWISE ...NEXT DISPENSE WON'T WORK * REPORT ERRORS, EXCEPT REJ CASS FULL, CASS LOW, CASS EMPTY MOVE TNDST,=W'-3585' BITS TO REPORT ON PERF IOTNDS,TND,TNDWB1,TNDWB2,TNDST TBT TNDRCF,DISPMT50 BRANCH IF REJ CASS FULL TBT TNDBAD,DISPMT50 BRANCH IF ERROR MOVE TNDST,KW3 INDICATE CASSETTE EMPTY RET DISPMT50 MOVE TNDST,KW1 SET ERROR RETURN CODE RET EJECT ********************************************************************** * * * 4.DELVND * * PURPOSE: DELIVER NOTES TO TELLER * * * VARIABLES * * IN: NDDATA1(KW2,X)-BCD ARRAY, LOADED WITH NO. NOTES DISPENSED/CASS* * TNDREG(X) * CASMAX BIN EL., TOTAL NO. OF CASSETTES * * OUT: NDDATA1(KW5,X)-BCD ARRAY, NO. OF NOTES REJECTED SINCE OPEN * * OR * NDDATA1(KW1,X)-BCD ARRAY INCR. BY AMOUNT DELIVERED * AND * TNDREG(X) -BCD ARRAY DECR. BY AMOUNT DELIVERRED * NDATA1(KW2,X)-BCD ARRAY, CONTAINING AMT DELIVERED-ZEROED * TNDST=0-OK, E5-DELIVER OK, BUT BLOCK FURTHER DISPENSE * =1-ERROR (E1,E2,E3,E7,E8). BLOCKED, NO DELIVER * * =2-TND WAS ALREADY BLOCKED, NO DELIVER * * * ********************************************************************** EJECT * * TNDST- INDEX INDICATING RESULT OF IO....ACTION.............RET-TNDST * * 0-I/O OK.........................UPDATE TND REGISTERS 0 * 1-POWERFAIL......................REPEAT DELIVER * 2-T.O., COMM., HARDWARE, NOP.....REPORT, BLOCK TND 1 * 3-BUSY, NOTES IN DELIVERY UNIT...DELAY, REPEAT I/O UNTIL SEQ ERR OR * ...TIME OUT, REPORT,BLOCK TND 1 * 4- BAD NOTES OR JAM..............IMPOSSIBLE, REPORT, BLOCK TND 1 * 5-REJECT CASSETTE FULL...........WARNING 0 * 6-CASSETTE EMPTY.................IMPOSSIBLE, REPORT, BLOCK TND 1 * 7-SEQ. ERR, NOTES TAKEN?.........OK IF NOTES DELIVERED * DELVND IB TNDST, C IO,IOTRY,IOBZY,IOER,DELVOK,IOPERR,DELVSEQ * DELIVER SUCCESSFUL * UPDATE TND REGISTERSBY AMOUNT DISPENSED TO TELLER * NDDATA1(KW1,X), TNDREG(X) AND ZERO NDDATA1(KW2,X) DELVOK PERF PDDUMP,KW0,TNDWB1 SET TNDNDU NOTES IN DELIVERY UNIT B IO WAIT TILL TAKEN BY OPERATOR EJECT * SEQUENCE ERROR: IF NOTES WERE IN DELIVERY UNIT, THEN THEY HAVE * NOW BEEN TAKEN BY OPERATOR, ALL OK * BUT: IF NEVER DETECTED THAT NOTES WERE IN DELIVERY UNIT, THEN * SITUATION IS UNCLEAR, POWERFAIL MAY HAVE CAUSED NOTES * DISPENSED TO BE DUMPED BEFORE DELIVERY COMMAND ARRIVED OR * DELIVER COMMMAND ARRIVED, BUT DUE TO COMM. ERR OR POWERFAIL * WE NEVER RECIEVED ACKNOWLEGEMENT AND OPERATOR TOOK DELIVER NOTES * OUT BEFORE WE COULD DETERMINE IF THEY WERE IN DELIVERY UNIT- * HOPEFULLY PROBABILITY IS LOW THAT THIS COULD HAPPEN DELVSEQ TBT TNDNDU,IOOK BR. IF NOTES WERE DELIVERED B IOER EJECT * * TELLER HAS NOT TAKEN NOTES FROM STACKER, DELAY AND REPEAT I/O * AFTER A NUMBER OF TRYS, ASSUME HARWARE ERROR, REPORT, BLOCK TND * AND SET RETURN CODE = 1 * IOBZY TBF TNDNDU,DELVOK SUB TNDWB3,KW1 DECREMENT TIMEOUT COUNTER BNP IOER T.O., REPORT & BLOCK TND MOVE TNDWB1,=W'10' DELAY 1 SECOND DELAY TNDWB1 DELAY B IO REPEAT I/O EJECT * * COMMON ROUTINES: IOOK, IOTRY, IOER, IOPERR * * * * COMMON RETURN FOR I/O SUCCESS, SET RETURN CODE = 0 * IOOK MOVE TNDST,KW0 SET RETURN CODE RET EJECT * * SERIOUS ERROR, TRY TWICE, IF FAIL 2ND TRY, REPORT, BLOCK TND AND * SET RETURN CODE = 1 * IOTRY TBT TNDTRY,IOTRY10 BRANCH IF THIS 2ND TRY TBF NOPF,IOTRY05 BR. NOT NO CASS, T.O. OR NOP CALL MASK,TNDWB1,KW1 NOP? BZ IOTRY10 DON'T REPEAT I/O IOTRY05 SET TNDTRY INDICATE 2ND TRY IB OP,IO,IO,DISPTRY,IO REPEAT I/O * * FAILED TWICE, REPORT & BLOCK TND DISPENSE * IOTRY10 TBF NOPF,IOER BRANCH IF NOT T.O., NOP MOVE TNDST,KW1 T.O., NOP MSG INDEX * * ERROR END ROUTINE - REPORT (TNDST-MSG INDEX), BLOCK TND AND * RETURN CODE (TNDST) = 1 * IOER PERF ERRND IB OP,IOEND,IOEND,DISPMT NEXT INSTRUCTION-DELIVER TBT TNDNDU,IOOK NOTES DELIVERED? PERF PDDUMP,KW0,TNDWB1 ASSUME DELIVERED B IOOK TELL OPERATOR NOTES DELIVERED IOEND RET * * PROGRAM ERROR, REPORT, BLOCK TND, RETURN CODE = 1 * IOPERR MOVE TNDST,KW7 PROG ERR MSG INDEX B IOER PEND EJECT * I/O SUBROUTINES * * OPEN (LIFTS UP) AND RESET (AFTER LIFTS UP) I/O * INITIO PROC TND, C TNDWB1, C TNDWB2, C TNDWD1, C TNDWS1, C TNDBUF PDSET TND PBIN TNDWB1 PBIN TNDWB2 PBCD TNDWD1 PSTRG TNDWS1 PSTRG TNDBUF MOVE TNDBUF,=C' ' MOVE TNDWB1,=W'40' DSC2 TND,X'18',TNDST,TNDBUF,TNDWB1 CBL TNDWB1,KW5,INITIO10 NO REJECTED NOTES? MOVE TNDWS1,=C' ' INIT REJECTED NOTES COPY TNDWS1,KW0,KW3,TNDBUF,KW2 GET REJ NOTES OF UNKNOWN VAL MOVE TNDWD1,TNDWS1 CONVERT TO BCD ADD NDDUMP,TNDWD1 UPDATE TOTAL DUMP CNT. INITIO10 RET PEND * * CLOSE (LIFTS DOWN) I/O * CLOSIO PROC TND, C TNDWB1, C TNDWB2, C TNDWD1, C TNDWS1, C TNDBUF PDSET TND PBIN TNDWB1 PBIN TNDWB2 PBCD TNDWD1 PSTRG TNDWS1 PSTRG TNDBUF DSC2 TND,03,TNDST,TNDBUF,TNDWB1 RET PEND EJECT * * DISPENSE NOTES TO STACKER * DISPIO PROC TND, C TNDWB1, C TNDWB2, C TNDWD1, C TNDWS1, C TNDBUF PDSET TND PBIN TNDWB1 PBIN TNDWB2 PBCD TNDWD1 PSTRG TNDWS1 PSTRG TNDBUF * * EDIT NOTES TO DISPENSE INTO OUTPUT BUFFER AND DISPENSE * MOVE TNDBUF,=C'0' MOVE TNDWB1,KW0 REQUESTED LENGTH MOVE TNDWB2,KW1 CASSETT INDEX DISPI10 CBG TNDWB2,CASMAX,DISPI20 DONE EDITING MOVE TNDST,NDDATA2(KW1,TNDWB2) GET LOGICAL INDEX EDSUB TNDBUF,TNDWB1,DISPFMT EDIT DATA TO BUFFER ADD TNDWB2,KW1 INCREMENT CASSETTE INDEX B DISPI10 LOOP DISPI20 DSC2 TND,X'15',TNDST,TNDBUF,TNDWB1 RET * * * SUB EDIT FORMAT FOR DISPINSE * MOVES NDDATA1(KW2,X) TO OUTPUT BUFFER * DISPFMT FRMT FILLR ' ',2 FBNZ TNDST,FMT10 BRANCH IF DISPENSE OK FILLR '0',3 DON'T DISPENSE FB FMT20 FMT10 FMEL 'PP999',NDDATA1(KW2,TNDST) FMT20 FMEND PEND EJECT * * DELIVER NOTES TO TELLER * DELVIO PROC TND, C TNDWB1, C TNDWB2, C TNDWD1, C TNDWS1, C TNDBUF PDSET TND PBIN TNDWB1 PBIN TNDWB2 PBCD TNDWD1 PSTRG TNDWS1 PSTRG TNDBUF DSC0 TND,1 RET PEND EJECT * * ASSORTED SUBROUTINES * * NAME: ERRND * * PURPOSE: REPORT ERROR TO APPLICATION, BLOCK TND, SET ERROR RETURN * CODE * CALL: PERF NDERR * * PARAMETERS * IN: * OUT: * VARIABLES * IN: TNDST-CONTAINS ERROR INDEX * OUT TNDST-HAS ERROR RETURN CODE * TNDBAD=T TO BLOCK TND DISPENSE, DELIVER AND DUMP FUNCTIONS * * ERRND PROC SET TNDBAD BLOCK DISP'NS,DEL'R & DUMP PERF NDERR,TNDST REPORT ERROR MOVE TNDST,KW1 RETURN CODE RET PEND EJECT ******************************************************************** * * NAME: GETREJ * * PURPOSE: CALCULATE REJECTED NOTES, REPORT CASSETTE STATUS * * CALL: PERF GETREJ,TYPE,TND,TNDWB1,TNDWB2,TNDWD1,TNDWS1,TNDBUF * RET 0 NO DISPENSE WAS DONE * RET 2 ALL UPDATING DONE * * PARAMETERS * IN: TYPE-BIN, INDICATING UPDATE TYPE * =1, UPD. NDDATA1(KW5,X) BY DISPENSED-REQUESTED DISPENSE * =2, UPD. NDDATA1(KW5,X) BY DISPENSED * =3, SAME AS 2, PLUS REPORT CASSETTE ERRORS * TND TND DATA SET * TNDWB1 BIN WORK REGISTER & CASSETTE INDEX * TNDWB2 BIN WORK REGISTER * TNDWD1 BCD WORK REGISTER, MINIMUM 7 CHAR PLUS SIGN CHAR * TNDWS1 STRG WORK REGISTER, MINIMUM 5 CHAR * TNDBUF STRG I/O BUFFER, MINIMUM (CASMAX+1)X5 CHAR * VARIABLES * IN: CASMAX-BIN, MAX POSSIBLE CASSETTE POSITIONS * TNDST -BIN WORK REGISTER * ******************************************************************** GETREJ PROC TYPE, C TND, C TNDWB1, C TNDWB2, C TNDWD1, C TNDWS1, C TNDBUF PBIN TYPE PDSET TND PBIN TNDWB1 PBIN TNDWB2 PBCD TNDWD1 PSTRG TNDWS1 PSTRG TNDBUF * * READ STATUS AND NUMBER OF NOTES DISPENSED * MOVE TNDST,=W'35' REQUESTED LENGTH DSC2 TND,X'14',TNDWB1,TNDBUF,TNDST * * ANALISE RESULTS OF READ CONTROL * CBNE TNDST,KW0,GET10 RET * * INITIALIZE * GET10 MOVE TNDWB2,TNDST GET PHYSICAL POSITION OF DIV TNDWB2,KW5 ...CASS. FROM EFFECTIVE LENGTH ADD TNDST,KW2 INIT BUFFER POINTER GET20 SUB TNDST,KW6 POINT AT NEXT CASS. STATUS CBNL TNDST,KW5,GET25 BRANCH NOT END OF BUFFER RET 2 YES, DONE GET25 SUB TNDWB2,KW1 PHYSICAL CASSETTE INDEX CBG TNDWB2,CASMAX,GET20 MOVE TNDWB1,NDDATA2(KW1,TNDWB2) GET LOGICAL INDEX MOVE TNDWS1,=C' ' CBE TNDWB1,KW0,GET35 CASSETTE NOT MAPPED IB TYPE,GET35,GET35 * * GET STATUS * COPY TNDWS1,KW0,KW1,TNDBUF,TNDST CBNE TNDWS1,=C'2',GET30 BRANCH NOT CASSETTE EMPTY MOVE NDDATA2(KW2,TNDWB1),KW0 BLOCK CASSETTE MOVE TNDCIX,TNDWB1 PERF NDERR,KW6 REPORT MOVE TNDWB1,TNDCIX B GET35 CALC. REJECTED NOTES * * TEST FOR CASSETTE DOES NOT FEED, REPORT, BLOCK TND, TNDST=1 * GET30 CBNE TNDWS1,=C'6',GET35 NO ERROR, CALC REJ. SET TNDBAD BLOCK DISPENSING MOVE TNDCIX,TNDWB1 PERF NDERR,KW8 REPORT CASS. FAILS TO FEED MOVE TNDWB1,TNDCIX * * DISPENSED NOTES TO REJECT ACCUMULATORS * GET35 ADD TNDST,KW1 OFFSET TO AMT DISPENSED COPY TNDWS1,KW0,KW3,TNDBUF,TNDST MOVE TNDWD1,TNDWS1 CBE TNDWB1,KW0,GET50 CASSETTE NOT MAPPED IB TYPE,GET40,GET45,GET45 GET40 SUB TNDWD1,NDDATA1(KW2,TNDWB1) DISPENSED-REQUESTED GET45 ADD NDDATA1(KW5,TNDWB1),TNDWD1 UPDATE REJECTED GET50 ADD NDDUMP,TNDWD1 ADD REJ. TO TOTAL REJECTED B GET20 PEND EJECT * * * NAME: TNDMSK * * PURPOSE: LOGICAL PRODUKT OF RETURN CODE AND GIVEN MASK * * CALL: PERF TNDMSK,TNDWB1,TNDWB2,LIT * RET0 RESULTS NOT ZERO * RET2 RESULTS ZERO * * PARAMETERS * IN: LIT-BINARY LITERAL, GIVEN MASK * TNDWB1 BIN WORK REGISTER * TNDWB2 " * OUT: * * VARIABLES * IN: TNDWB1-LOADED WITH TND RETURN CODE * OUT: * * SCRATCH * TNDWB2 * TNDMSK PROC TNDWB1,TNDWB2,LIT PBIN TNDWB1 PBIN TNDWB2 PLIT LIT ADD TNDST,KW1 INCREMENT INDEX COUNTER MOVE TNDWB2,LIT CALL MASK,TNDWB1,TNDWB2 BZ TNDMSK10 RET TNDMSK10 RET 2 PEND EJECT ******************************************************************** * * NAME: PDDUMP * * PURPOSE: UPDATE TND REGISTERS AFTER DELIVER * * CALL: PERF PDDUMP,PORD,TNDWB1 * * PARAMETERS: * IN: PORD BIN ELEMENT=0=>NOTES DELIVERED * =1=>NOTES NOT DELIVERED * TNDWB1 BIN WORK REGISTER * * OUT: * * VARIABLES * IN: NDDATA1(KW2,X) BCD ARRAY, NUMBER OF NOTES DISPENSED/CASS. * * OUT: NDDATA1(KW1,X) BCD ARRAY, NUMBER OF NOTES PAID/CASS. * TNDREG(X) BCD ARRAY, TOTAL TO DISPENSE-NDDATA1(KW2,X) * OR * NDDATA1(KW5,X) BCD ARRAY, TOTAL DUMPED+NDDATA1(KW2,X) * NDDATA1(KW2,X) BCD ARRAY ZEROED * ******************************************************************** PDDUMP PROC PORD,TNDWB1 PBIN PORD PBIN TNDWB1 MOVE TNDWB1,KW0 CASSETTE INDEX PDD10 ADD TNDWB1,KW1 NEXT CASETTE CBNG TNDWB1,CASMAX,PDD20 RET DONE PDD20 CBE PORD,KW1,PDD30 BRANCH IF NOTES DUMPED * NOTES DELIVERED: UPDATED TOATAL AMOUNT PAID/CASS. * SUBTRACT AMOUNT DELIVERED FROM TOTAL AMT TO DISPENSE ADD NDDATA1(KW1,TNDWB1),NDDATA1(KW2,TNDWB1) TOTAL PAID SUB TNDREG(TNDWB1),NDDATA1(KW2,TNDWB1) AMT LEFT TO DISPENSE MOVE NDDATA1(KW2,TNDWB1),KW0 ZERO AMOUNT DISPENSED B PDD10 * NOTES NOT DELIVERED: UPDATE AMOUNT DUMPED/CASS. PDD30 ADD NDDATA1(KW5,TNDWB1),NDDATA1(KW2,TNDWB1) NOTES DUMPED/ ADD NDDUMP,NDDATA1(KW2,TNDWB1) UPDATE TOTAL DUMPED B PDD10 PEND EJECT ******************************************************************** * * NAME: IOTNDS * * PURPOSE: GET COMMANDS TO & RETURN STATUS FROM TND OF LAST I/O * ALSO REPORT IF ERROR OR REJECTED NOTES * * CALL: PERF IOTNDS,TND,TNDWB1,TNDWB2 * * PARAMETERS: * IN: TND - TND DATA SET * TNDWB1 - BINARY REGISTER * TNDWB2 - BINARY REGISTER * TNDWB3 - BITS SET IN RETURN CODE TO REPORT AS ERROR * * OUT: TNDWB1 - RETURN CODE OF I/O * * VARIABLES: * OUT: TNDDVS - STRG WITH COMMANDS AND RETURN STATUS * TNDREJ - STRG WITH REASON FOR LAST 15 REJECTS * ******************************************************************** EJECT IOTNDS PROC TND,TNDWB1,TNDWB2,TNDWB3 PDSET TND PBIN TNDWB1 PBIN TNDWB2 PBIN TNDWB3 MOVE TNDDVS,=C' ' BLANK COMMAND/STAUS STRING XSTAT TND,TNDWB1 GET RETURN CODE MOVE TNDIOL,KW4 UP TO 2 COMMANDS AND STATUS DSC2 TND,X'16',TNDWB2,TNDDVS,TNDIOL CBE TNDIOL,KW0,IOS100 MOVE TNDWB2,=W'32' BIT 10 CALL MASK,TNDWB1,TNDWB2 BIT 0N? BZ IOS100 BR IF NO NOTES REJECTED MOVE TNDWB2,=W'16' REASONS FOR REJECT DSC2 TND,X'17',TNDWB2,TNDREJ,TNDWB2 * * TEST IF AN ERROR, BIT SET IN RETURN CODE * IF BIT ON REPORT TO APPLICATIONS * IOS100 CALL MASK,TNDWB1,TNDWB3 OTHER BITS ON? BZ IOS200 NO, DON'T REPORT PERF NDERR,KW0 REPORT TO APPLICATIONS IOS200 RET PEND END
0x0000…002c (0, 0, 398) Head {h00=0x0028, h01=0x0050, text=» IDENT IOTND REL=9.2 VER=ND 81-01-21«, t00=0x0000, t01=0x0004}
0x002c…004e Head {h00=0x001e, h01=0x0050, text=» UPD 11 80-16-12 / BORO «, t00=0x0000, t01=0x0030}
0x004e…0070 Head {h00=0x001e, h01=0x0050, text=» ADD "IOTNDS" SUBROUTINE«, t00=0x0000, t01=0x0052}
0x0070…0092 Head {h00=0x001e, h01=0x0050, text=» UPD 10 80-04-16 / BORO «, t00=0x0000, t01=0x0074}
0x0092…00b8 Head {h00=0x0022, h01=0x0050, text=» RECOVERY PF BEFORE DISPENSE«, t00=0x0000, t01=0x0096}
0x00b8…00d8 Head {h00=0x001c, h01=0x0050, text=» UPD 9 80-04-14 / BORO«, t00=0x0000, t01=0x00bc}
0x00d8…00fc Head {h00=0x0020, h01=0x0050, text=» IGNORE MICRO REJECT FULL «, t00=0x0000, t01=0x00dc}
0x00fc…011c Head {h00=0x001c, h01=0x0050, text=» UPD 8 80-03-03 / BORO«, t00=0x0000, t01=0x0100}
0x011c…0146 Head {h00=0x0026, h01=0x0050, text=» MAKE REJECT CASS LIMIT VARIABL «, t00=0x0000, t01=0x0120}
0x0146…016a Head {h00=0x0020, h01=0x0050, text=» LOWER BUSY T. O. TO 1 MIN«, t00=0x0000, t01=0x014a}
0x016a…018e Head {h00=0x0020, h01=0x0050, text=» NO CASS. BECOMES ERROR E1«, t00=0x0000, t01=0x016e}
0x018e…01b4 (1, 0, 398) Head {h00=0x0022, h01=0x0050, text=» DELV ERROR CAUSES TND BLOCK«, t00=0x0001, t01=0x0004}
0x01b4…01d4 Head {h00=0x001c, h01=0x0050, text=» UPD 7 80-02-26 / BORO«, t00=0x0001, t01=0x002a}
0x01d4…01f4 Head {h00=0x001c, h01=0x0050, text=» DON'T REPEAT TIMEOUTS«, t00=0x0001, t01=0x004a}
0x01f4…0214 Head {h00=0x001c, h01=0x0050, text=» UPD 6 80-02-11 / BORO«, t00=0x0001, t01=0x006a}
0x0214…0234 Head {h00=0x001c, h01=0x0050, text=» ADD TNDELVPF & TNDNDU«, t00=0x0001, t01=0x008a}
0x0234…0254 Head {h00=0x001c, h01=0x0050, text=» UPD 5 80-02-04 / BORO«, t00=0x0001, t01=0x00aa}
0x0254…0278 Head {h00=0x0020, h01=0x0050, text=» ADD RETCODE 3 FOR DELIVER«, t00=0x0001, t01=0x00ca}
0x0278…0298 Head {h00=0x001c, h01=0x0050, text=» UPD 4 80-02-04 / BORO«, t00=0x0001, t01=0x00ee}
0x0298…02b8 Head {h00=0x001c, h01=0x0050, text=» ADD DELIVER FUNCTION «, t00=0x0001, t01=0x010e}
0x02b8…02d8 Head {h00=0x001c, h01=0x0050, text=» UPD 3 80-01-31 / BORO«, t00=0x0001, t01=0x012e}
0x02d8…02fc Head {h00=0x0020, h01=0x0050, text=» CHANGE ELEMENTS TO ARRAYS«, t00=0x0001, t01=0x014e}
0x02fc…031c Head {h00=0x001c, h01=0x0050, text=» UPD 2 80-01-13 / BORO«, t00=0x0001, t01=0x0172}
0x031c…033c (2, 0, 400) Head {h00=0x001c, h01=0x0050, text=» ADD UNKNOWN REJ NOTES«, t00=0x0002, t01=0x0004}
0x033c…035c Head {h00=0x001c, h01=0x0050, text=» UPD 1 80-01-11 / BORO«, t00=0x0002, t01=0x0024}
0x035c…037e Head {h00=0x001e, h01=0x0050, text=» TAKE OUT DELIVER & DUMP«, t00=0x0002, t01=0x0044}
0x037e…038c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0066}
0x038c…03da Head {h00=0x004a, h01=0x0046, text=»**********************************************************************«, t00=0x0002, t01=0x0074}
0x03da…0424 Head {h00=0x0046, h01=0x0041, text=»* SUBROUTINE TO PERFORM TELLER NOTE DISPENSER (TND) I/O FUNCTIONS «, t00=0x0002, t01=0x00c2}
0x0424…0444 Head {h00=0x001c, h01=0x0017, text=»* NAME: IOTND «, t00=0x0002, t01=0x010c}
0x0444…0478 Head {h00=0x0030, h01=0x0050, text=»* PURPOSE: PERFORM TND I/O FUNCTIONS «, t00=0x0002, t01=0x012c}
0x0478…04ce Head {h00=0x0052, h01=0x0050, text=»* CALL: PERF IOTND,OP,TND,TNDWB1,TNDWB2,TNDWB3,TNDWD1,TNDWS1,TNDBUF «, t00=0x0002, t01=0x0160}
0x04ce…04e2 Head {h00=0x0010, h01=0x000c, text=»* PARAMETERS«, t00=0x0003, t01=0x0026}
0x04e2…051c Head {h00=0x0036, h01=0x0031, text=»* IN: OP - OPERATION CODE - INDEX TO FUNCTION «, t00=0x0003, t01=0x003a}
0x051c…0556 Head {h00=0x0036, h01=0x0032, text=»* 1 INITND: RESET TND,OPEN TND (LIFTS UP)«, t00=0x0003, t01=0x0074}
0x0556…058a Head {h00=0x0030, h01=0x002b, text=»* 2 CLOSND: CLOSE TND (LIFTS DOWN) «, t00=0x0003, t01=0x00ae}
0x058a…05c0 Head {h00=0x0032, h01=0x002e, text=»* 3 DISPND: DISPENSE NOTES TO STACKER«, t00=0x0003, t01=0x00e2}
0x05c0…05f4 Head {h00=0x0030, h01=0x0050, text=»* 4 DELVND: DELIVER NOTES TO TELLER«, t00=0x0003, t01=0x0118}
0x05f4…061e Head {h00=0x0026, h01=0x0050, text=»* TNDWB1 BIN WORK REGISTER«, t00=0x0003, t01=0x014c}
0x061e…063a Head {h00=0x0018, h01=0x0050, text=»* TNDWB2 " «, t00=0x0003, t01=0x0176}
0x063a…0656 (4, 0, 400) Head {h00=0x0018, h01=0x0050, text=»* TNDWB3 " «, t00=0x0004, t01=0x0004}
0x0656…06a0 Head {h00=0x0046, h01=0x0050, text=»* TNDWD1 BCD WORK REGISTER, MINIMUM 7 CHAR PLUS SIGN CHAR «, t00=0x0004, t01=0x0020}
0x06a0…06dc Head {h00=0x0038, h01=0x0050, text=»* TNDWS1 STRG WORK REGISTER, MINIMUM 5 CHAR «, t00=0x0004, t01=0x006a}
0x06dc…0716 Head {h00=0x0036, h01=0x0050, text=»* TNDBUF STRG I/O BUFFER, MINIMUM 40 CHAR «, t00=0x0004, t01=0x00a6}
0x0716…0744 Head {h00=0x002a, h01=0x0026, text=»* VARIABLES - COMMON FOR ALL FUNCTIONS«, t00=0x0004, t01=0x00e0}
0x0744…0784 Head {h00=0x003c, h01=0x0050, text=»* IN: NDRCLIM-BCD REJECT CASSETTE LIMIT NOTES DUMPED«, t00=0x0004, t01=0x010e}
0x0784…07b6 Head {h00=0x002e, h01=0x0050, text=»* BEFORE BLOCKING DISPENSE«, t00=0x0004, t01=0x014e}
0x07b6…07fa Head {h00=0x0040, h01=0x0050, text=»* OUT: TNDST-STATUS AFTER I/O, 0=OK, OPERATION SUCCESSFUL «, t00=0x0004, t01=0x0180}
0x07fa…0840 Head {h00=0x0042, h01=0x003d, text=»* 1=ERROR, OPERATION NOT DONE, «, t00=0x0005, t01=0x0034}
0x0840…0890 Head {h00=0x004c, h01=0x0050, text=»* DISPENSE, DELIVER BLOCKED UNTIL OPEN «, t00=0x0005, t01=0x007a}
0x0890…08c4 Head {h00=0x0030, h01=0x0050, text=»* PERFORMED«, t00=0x0005, t01=0x00ca}
0x08c4…0904 Head {h00=0x003c, h01=0x0050, text=»* 2=TND BLOCKED: OP=3, 4 «, t00=0x0005, t01=0x00fe}
0x0904…0946 Head {h00=0x003e, h01=0x0050, text=»* 3=CASSETTE(S) EMPTY: OP=3«, t00=0x0005, t01=0x013e}
0x0946…098c Head {h00=0x0042, h01=0x003d, text=»* TNDBAD-FLAG INDICATING IRRECOVERABLE ERROR OCCURRED «, t00=0x0005, t01=0x0180}
0x098c…09c0 Head {h00=0x0030, h01=0x0050, text=»* T=DISPENSE, DELIVER BLOCKED«, t00=0x0006, t01=0x0036}
0x09c0…09ee Head {h00=0x002a, h01=0x0050, text=»* F=ALL TND I/O ALLOWED«, t00=0x0006, t01=0x006a}
0x09ee…0a2a Head {h00=0x0038, h01=0x0050, text=»* TNDRCF-FLAG INDICATING REJECT CASSETTE FULL«, t00=0x0006, t01=0x0098}
0x0a2a…0a5e Head {h00=0x0030, h01=0x0050, text=»* T=DISPENSE, DELIVER BLOCKED«, t00=0x0006, t01=0x00d4}
0x0a5e…0a8c Head {h00=0x002a, h01=0x0050, text=»* F=ALL TND I/O ALLOWED«, t00=0x0006, t01=0x0108}
0x0a8c…0a96 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x0136}
0x0a96…0ac4 Head {h00=0x002a, h01=0x0050, text=»* SUBROUTINES COMMON FOR ALL FUNCTION «, t00=0x0006, t01=0x0140}
0x0ac4…0ada Head {h00=0x0012, h01=0x000e, text=»* MASK«, t00=0x0006, t01=0x016e}
0x0ada…0af2 Head {h00=0x0014, h01=0x000f, text=»* ERRND «, t00=0x0006, t01=0x0184}
0x0af2…0b0a Head {h00=0x0014, h01=0x000f, text=»* NDERR «, t00=0x0007, t01=0x000c}
0x0b0a…0b22 Head {h00=0x0014, h01=0x0010, text=»* TNDMSK«, t00=0x0007, t01=0x0024}
0x0b22…0b38 Head {h00=0x0012, h01=0x000d, text=»* DESCRIPTION «, t00=0x0007, t01=0x003c}
0x0b38…0b80 Head {h00=0x0044, h01=0x0050, text=»* TND FUNCTIONS IF PERFORMED SUCCESSFULLY,RETURN WITH TNDST=0 «, t00=0x0007, t01=0x0052}
0x0b80…0bce Head {h00=0x004a, h01=0x0045, text=»* IF PROGRAM ERROR OR HARDWARE ERROR, THE ERROR(S) ARE REPORTED TO «, t00=0x0007, t01=0x009a}
0x0bce…0c18 Head {h00=0x0046, h01=0x0042, text=»* THE APPLICATION VIA SUBROUTINE "NDERR" WITH AN INDEX PARAMETER«, t00=0x0007, t01=0x00e8}
0x0c18…0c60 Head {h00=0x0044, h01=0x0050, text=»* INDICATING THE ERROR. TND REGISTERS ARE UPDATED ACCORDINGLY «, t00=0x0007, t01=0x0132}
0x0c60…0c84 Head {h00=0x0020, h01=0x001c, text=»* PERF NDERR,INDEX«, t00=0x0007, t01=0x017a}
0x0c84…0c8e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x000e}
0x0c8e…0cd0 Head {h00=0x003e, h01=0x0050, text=»* INDEX: 0=COMMAND, RETURN STATUS (& REJECT TRACE)«, t00=0x0008, t01=0x0018}
0x0cd0…0d16 Head {h00=0x0042, h01=0x0050, text=»* IF OTHER THAN CASS. LOW, REJECT CASS FULL, «, t00=0x0008, t01=0x005a}
0x0d16…0d56 Head {h00=0x003c, h01=0x0050, text=»* SEQUENCE ERROR, OR DELIVERY UNIT BUSY«, t00=0x0008, t01=0x00a0}
0x0d56…0dac Head {h00=0x0052, h01=0x0050, text=»* 1=E1-NO CASS., T.O. OR NOP, CHECK TND, OTHERWISE CALL SERVICE«, t00=0x0008, t01=0x00e0}
0x0dac…0df2 Head {h00=0x0042, h01=0x0050, text=»* 2=E2-COMMUNICATION OR HARDWARE, CALL SERVICE«, t00=0x0008, t01=0x0136}
0x0df2…0e3c Head {h00=0x0046, h01=0x0042, text=»* 3=E3-T.O. ON NOTES IN DELIVERY UNIT, CALL SERVICE«, t00=0x0008, t01=0x017c}
0x0e3c…0e80 Head {h00=0x0040, h01=0x0050, text=»* 4=E4-BAD NOTES OR JAM, FIX OR CALL SERVICE «, t00=0x0009, t01=0x0036}
0x0e80…0ebc Head {h00=0x0038, h01=0x0034, text=»* 5=E5-REJECT CASSETTE FULL, EMPTY IT«, t00=0x0009, t01=0x007a}
0x0ebc…0ef4 Head {h00=0x0034, h01=0x002f, text=»* 7=E7-PROGRAM ERROR, DEBUG HELP «, t00=0x0009, t01=0x00b6}
0x0ef4…0f42 Head {h00=0x004a, h01=0x0050, text=»* 8=E8-NDDATA1(KW4,TNDWB1) FAILS TO FEED, CALL SERVICE «, t00=0x0009, t01=0x00ee}
0x0f42…0f8a Head {h00=0x0044, h01=0x0040, text=»* IF A CASSETTE EMPTIES DURING A DISPENSE, APPLICATIONS WILL BE«, t00=0x0009, t01=0x013c}
0x0f8a…0fd6 Head {h00=0x0048, h01=0x0050, text=»* INFORMED VIA "NDERR". DISPENSE NOT DONE, NO REGISTERS AFFECTED «, t00=0x0009, t01=0x0184}
0x0fd6…0ffe Head {h00=0x0024, h01=0x001f, text=»* PERF NDERR,INDEX «, t00=0x000a, t01=0x0040}
0x0ffe…1008 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x0068}
0x1008…1040 Head {h00=0x0034, h01=0x0050, text=»* INDEX= 6=E6, NDDATA1(KW4,TNDWB1) EMPTY«, t00=0x000a, t01=0x0072}
0x1040…104a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x00aa}
0x104a…1078 Head {h00=0x002a, h01=0x0026, text=»* SEE RESPECTIVE FUNCTION FOR DETAILS«, t00=0x000a, t01=0x00b4}
0x1078…1082 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x00e2}
0x1082…108c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x00ec}
0x108c…10a0 Head {h00=0x0010, h01=0x0050, text=» DDUM DEMODD«, t00=0x000a, t01=0x00f6}
0x10a0…10ae Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x000a, t01=0x010a}
0x10ae…10d6 Head {h00=0x0024, h01=0x001f, text=» ENTRY IOTND TND I/O OPERATIONS «, t00=0x000a, t01=0x0118}
0x10d6…1100 Head {h00=0x0026, h01=0x0050, text=» ENTRY IOTNDS TND COMMAND & STATUS«, t00=0x000a, t01=0x0140}
0x1100…1130 Head {h00=0x002c, h01=0x0050, text=» EXPROC NDERR NOTIFY APPLICATIONS-ERROR «, t00=0x000a, t01=0x016a}
0x1130…115a Head {h00=0x0026, h01=0x0050, text=» EXPROC MASK CREDIT ASSEMB ROUTINE«, t00=0x000b, t01=0x000a}
0x115a…1168 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x000b, t01=0x0034}
0x1168…1172 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x0042}
0x1172…11be Head {h00=0x0048, h01=0x0050, text=»* ROOT: INITIALIZE PARAMETERS, TEST FOR BLOCK, PERFORM I/O AND GO TO«, t00=0x000b, t01=0x004c}
0x11be…120a Head {h00=0x0048, h01=0x0044, text=»* RESPECTIVE I/O ROUTINE FOR HANDLING OF I/O OPERATION RESULTS«, t00=0x000b, t01=0x0098}
0x120a…1214 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x00e4}
0x1214…122e Head {h00=0x0016, h01=0x0050, text=»IOTND PROC OP, C «, t00=0x000b, t01=0x00ee}
0x122e…1240 Head {h00=0x000e, h01=0x0009, text=» TND, C «, t00=0x000b, t01=0x0108}
0x1240…1254 Head {h00=0x0010, h01=0x000c, text=» TNDWB1, C«, t00=0x000b, t01=0x011a}
0x1254…1268 Head {h00=0x0010, h01=0x000c, text=» TNDWB2, C«, t00=0x000b, t01=0x012e}
0x1268…127c Head {h00=0x0010, h01=0x000c, text=» TNDWB3, C«, t00=0x000b, t01=0x0142}
0x127c…1290 Head {h00=0x0010, h01=0x000c, text=» TNDWD1, C«, t00=0x000b, t01=0x0156}
0x1290…12a4 Head {h00=0x0010, h01=0x000c, text=» TNDWS1, C«, t00=0x000b, t01=0x016a}
0x12a4…12b4 Head {h00=0x000c, h01=0x0008, text=» TNDBUF«, t00=0x000b, t01=0x017e}
0x12b4…12c4 Head {h00=0x000c, h01=0x0050, text=» PBIN OP«, t00=0x000b, t01=0x018e}
0x12c4…12d6 Head {h00=0x000e, h01=0x0050, text=» PDSET TND«, t00=0x000c, t01=0x000e}
0x12d6…12ea Head {h00=0x0010, h01=0x0050, text=» PBIN TNDWB1«, t00=0x000c, t01=0x0020}
0x12ea…12fe Head {h00=0x0010, h01=0x0050, text=» PBIN TNDWB2«, t00=0x000c, t01=0x0034}
0x12fe…1312 Head {h00=0x0010, h01=0x0050, text=» PBIN TNDWB3«, t00=0x000c, t01=0x0048}
0x1312…1326 Head {h00=0x0010, h01=0x0050, text=» PBCD TNDWD1«, t00=0x000c, t01=0x005c}
0x1326…133c Head {h00=0x0012, h01=0x0050, text=» PSTRG TNDWS1 «, t00=0x000c, t01=0x0070}
0x133c…1352 Head {h00=0x0012, h01=0x0050, text=» PSTRG TNDBUF «, t00=0x000c, t01=0x0086}
0x1352…1384 Head {h00=0x002e, h01=0x0050, text=» CBL OP,KW1,IOTND01 MINIMUM OPERATION CODE«, t00=0x000c, t01=0x009c}
0x1384…13b6 Head {h00=0x002e, h01=0x0050, text=» CBG OP,KW4,IOTND01 MAXIMUM OPERATION CODE«, t00=0x000c, t01=0x00ce}
0x13b6…13e0 Head {h00=0x0026, h01=0x0022, text=» CLEAR TNDTRY CLEAR TRY TWICE FLAG«, t00=0x000c, t01=0x0100}
0x13e0…140e Head {h00=0x002a, h01=0x0050, text=» CLEAR TNDNDU NO NOTES IN DELVERY UNIT«, t00=0x000c, t01=0x012a}
0x140e…1442 Head {h00=0x0030, h01=0x0050, text=» MOVE TNDWB3,=W'60' INITIALIZE BUSY COUNTER «, t00=0x000c, t01=0x0158}
0x1442…144a Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x018c}
0x144a…146e (13, 0, 400) Head {h00=0x0020, h01=0x0050, text=»* TEST IF DISPENSED BLOCKED «, t00=0x000d, t01=0x0004}
0x146e…1476 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0028}
0x1476…14a0 Head {h00=0x0026, h01=0x0050, text=» IB OP,IO,IO OPEN/RESET & CLOSE OK«, t00=0x000d, t01=0x0030}
0x14a0…14da Head {h00=0x0036, h01=0x0050, text=» TBT TNDRCF,IOTND00 I/O OK IF REJ. CASS. NOT FULL «, t00=0x000d, t01=0x005a}
0x14da…1512 Head {h00=0x0034, h01=0x0050, text=» TBT TNDBAD,IOTND00 I/O OK IF NOT ERROR BLOCKED «, t00=0x000d, t01=0x0094}
0x1512…151a Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x00cc}
0x151a…1556 Head {h00=0x0038, h01=0x0050, text=»* NO PREVIOUS ERRORS, TEST IF REJECT CASSETTE FULL «, t00=0x000d, t01=0x00d4}
0x1556…155e Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0110}
0x155e…1584 Head {h00=0x0022, h01=0x0050, text=» CBE OP,KW4,IO SKIP IF DELIVER«, t00=0x000d, t01=0x0118}
0x1584…15c2 Head {h00=0x003a, h01=0x0050, text=» CBL NDDUMP,NDRCLIM,IO BRANCH IF REJECT CASS NOT FULL «, t00=0x000d, t01=0x013e}
0x15c2…15e4 Head {h00=0x001e, h01=0x0050, text=» SET TNDRCF BLOCK DISPENSE«, t00=0x000d, t01=0x017c}
0x15e4…1618 Head {h00=0x0030, h01=0x0050, text=» PERF NDERR,KW5 REPORT ERROR TO APPLICATION «, t00=0x000e, t01=0x000e}
0x1618…1628 Head {h00=0x000c, h01=0x0050, text=»IOTND00 «, t00=0x000e, t01=0x0042}
0x1628…164c Head {h00=0x0020, h01=0x0050, text=» MOVE TNDST,KW2 RETURN CODE «, t00=0x000e, t01=0x0052}
0x164c…1658 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x000e, t01=0x0076}
0x1658…1668 Head {h00=0x000c, h01=0x0050, text=»IOTND01 «, t00=0x000e, t01=0x0082}
0x1668…168c Head {h00=0x0020, h01=0x0050, text=» MOVE TNDST,KW1 ERROR RETURN«, t00=0x000e, t01=0x0092}
0x168c…1698 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000e, t01=0x00b6}
0x1698…16a2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x00c2}
0x16a2…16cc Head {h00=0x0026, h01=0x0022, text=»* PERFORM RESPECTIVE OPERATION I/O«, t00=0x000e, t01=0x00cc}
0x16cc…16d6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x00f6}
0x16d6…1706 Head {h00=0x002c, h01=0x0050, text=»IO PERFI OP,INITIO,CLOSIO,DISPIO,DELVIO «, t00=0x000e, t01=0x0100}
0x1706…171c Head {h00=0x0012, h01=0x0050, text=» PLIST TND, C«, t00=0x000e, t01=0x0130}
0x171c…1730 Head {h00=0x0010, h01=0x0050, text=» TNDWB1, C«, t00=0x000e, t01=0x0146}
0x1730…1744 Head {h00=0x0010, h01=0x0050, text=» TNDWB2, C«, t00=0x000e, t01=0x015a}
0x1744…1758 Head {h00=0x0010, h01=0x000c, text=» TNDWD1, C«, t00=0x000e, t01=0x016e}
0x1758…176c Head {h00=0x0010, h01=0x000c, text=» TNDWS1, C«, t00=0x000e, t01=0x0182}
0x176c…177c Head {h00=0x000c, h01=0x0008, text=» TNDBUF«, t00=0x000f, t01=0x0008}
0x177c…1786 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0018}
0x1786…17d2 Head {h00=0x0048, h01=0x0050, text=»* GET COMMAND AND TND RETURN STATUS, REPORT TO APPLICATIONS IF ERROR«, t00=0x000f, t01=0x0022}
0x17d2…17dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x006e}
0x17dc…181c Head {h00=0x003c, h01=0x0050, text=»* TEST IF ERROR SHOULD BE REPORTED, IGNORE BITS 2,4,5,11«, t00=0x000f, t01=0x0078}
0x181c…1868 Head {h00=0x0048, h01=0x0050, text=»* CORRESPONDING TO DELIVERY UNIT BUSY, REJECT CASS. FULL,CASS. LOW, «, t00=0x000f, t01=0x00b8}
0x1868…1880 Head {h00=0x0014, h01=0x0050, text=»* SEQUENCE ERROR«, t00=0x000f, t01=0x0104}
0x1880…18b0 Head {h00=0x002c, h01=0x0050, text=» MOVE TNDST,=W'-11281' BITS TO REPORT ON«, t00=0x000f, t01=0x011c}
0x18b0…18dc Head {h00=0x0028, h01=0x0050, text=» PERF IOTNDS,TND,TNDWB1,TNDWB2,TNDST«, t00=0x000f, t01=0x014c}
0x18dc…18ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0178}
0x18ea…190c Head {h00=0x001e, h01=0x0050, text=» MOVE TNDST,KW0 ZERO INDEX«, t00=0x000f, t01=0x0186}
0x190c…193c Head {h00=0x002c, h01=0x0050, text=» PERF TNDMSK,TNDWB1,TNDWB2,=W'128' BIT 8«, t00=0x0010, t01=0x0018}
0x193c…1958 Head {h00=0x0018, h01=0x0014, text=» B IOTND10 POWERFAIL«, t00=0x0010, t01=0x0048}
0x1958…1970 Head {h00=0x0014, h01=0x0050, text=» MOVE TNDST,KW0 «, t00=0x0010, t01=0x0064}
0x1970…19a8 Head {h00=0x0034, h01=0x0050, text=» PERF TNDMSK,TNDWB1,TNDWB2,=W'-32752' BITS 0, 11«, t00=0x0010, t01=0x007c}
0x19a8…19c8 Head {h00=0x001c, h01=0x0050, text=» B IOTND20 PROGRAM ERROR«, t00=0x0010, t01=0x00b4}
0x19c8…19da Head {h00=0x000e, h01=0x0009, text=» SET NOPF «, t00=0x0010, t01=0x00d4}
0x19da…1a14 Head {h00=0x0036, h01=0x0050, text=» PERF TNDMSK,TNDWB1,TNDWB2,=W'16449' BITS 1, 9, 15«, t00=0x0010, t01=0x00e6}
0x1a14…1a3a Head {h00=0x0022, h01=0x0050, text=» B IOTND10 NO CASS., T.O., NOP«, t00=0x0010, t01=0x0120}
0x1a3a…1a4e Head {h00=0x0010, h01=0x000b, text=» CLEAR NOPF «, t00=0x0010, t01=0x0146}
0x1a4e…1a64 Head {h00=0x0012, h01=0x0050, text=» SUB TNDST,KW1«, t00=0x0010, t01=0x015a}
0x1a64…1a98 Head {h00=0x0030, h01=0x0050, text=» PERF TNDMSK,TNDWB1,TNDWB2,=W'10' BITS 12,14«, t00=0x0010, t01=0x0170}
0x1a98…1ac0 Head {h00=0x0024, h01=0x0050, text=» B IOTND10 COMM. OR HARDWARE ERR«, t00=0x0011, t01=0x0014}
0x1ac0…1af2 Head {h00=0x002e, h01=0x0050, text=» PERF TNDMSK,TNDWB1,TNDWB2,=W'8192' BIT 2«, t00=0x0011, t01=0x003c}
0x1af2…1b0a Head {h00=0x0014, h01=0x000f, text=» B IOTND10 BUSY «, t00=0x0011, t01=0x006e}
0x1b0a…1b3e Head {h00=0x0030, h01=0x0050, text=» PERF TNDMSK,TNDWB1,TNDWB2,=W'4352' BITS 3,7«, t00=0x0011, t01=0x0086}
0x1b3e…1b62 Head {h00=0x0020, h01=0x001b, text=» B IOTND10 BAD NOTES OR JAM «, t00=0x0011, t01=0x00ba}
0x1b62…1b94 Head {h00=0x002e, h01=0x0050, text=» PERF TNDMSK,TNDWB1,TNDWB2,=W'2048' BIT 4 «, t00=0x0011, t01=0x00de}
0x1b94…1bb8 Head {h00=0x0020, h01=0x001b, text=» B IOTND10 REJECT CASS FULL «, t00=0x0011, t01=0x0110}
0x1bb8…1be8 Head {h00=0x002c, h01=0x0050, text=» PERF TNDMSK,TNDWB1,TNDWB2,=W'512' BIT 6«, t00=0x0011, t01=0x0134}
0x1be8…1c0a Head {h00=0x001e, h01=0x0019, text=» B IOTND10 CASSETTE EMPTY «, t00=0x0011, t01=0x0164}
0x1c0a…1c3c Head {h00=0x002e, h01=0x0050, text=» MOVE TNDST,KW0 OK,CASS. LOW OR REJ. NOTES«, t00=0x0011, t01=0x0186}
0x1c3c…1c46 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x0028}
0x1c46…1c82 Head {h00=0x0038, h01=0x0033, text=»* RESULT IN TNDST, BRANCH TO RESPECTIVE I/O ROUTINE «, t00=0x0012, t01=0x0032}
0x1c82…1c8c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x006e}
0x1c8c…1c9c Head {h00=0x000c, h01=0x0007, text=»IOTND10 «, t00=0x0012, t01=0x0078}
0x1c9c…1cc6 Head {h00=0x0026, h01=0x0050, text=» IB OP,INITND,CLOSND,DISPND,DELVND«, t00=0x0012, t01=0x0088}
0x1cc6…1cce Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x00b2}
0x1cce…1cf4 Head {h00=0x0022, h01=0x0050, text=»* PROGRAM ERROR? INDEX CODE=7 «, t00=0x0012, t01=0x00ba}
0x1cf4…1cfc Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x00e0}
0x1cfc…1d0c Head {h00=0x000c, h01=0x0050, text=»IOTND20 «, t00=0x0012, t01=0x00e8}
0x1d0c…1d24 Head {h00=0x0014, h01=0x0050, text=» MOVE TNDST,KW7 «, t00=0x0012, t01=0x00f8}
0x1d24…1d46 Head {h00=0x001e, h01=0x0050, text=» MOVE TNDWB2,=W'16' BIT 11«, t00=0x0012, t01=0x0110}
0x1d46…1d76 Head {h00=0x002c, h01=0x0050, text=» CALL MASK,TNDWB1,TNDWB2 SEQUENCE ERROR?«, t00=0x0012, t01=0x0132}
0x1d76…1d9a Head {h00=0x0020, h01=0x0050, text=» BZ IOPERR NO, REQUEST ERROR«, t00=0x0012, t01=0x0162}
0x1d9a…1dac Head {h00=0x000e, h01=0x0050, text=» B IOTND10«, t00=0x0012, t01=0x0186}
0x1dac…1dba Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0013, t01=0x0008}
0x1dba…1e08 Head {h00=0x004a, h01=0x0046, text=»**********************************************************************«, t00=0x0013, t01=0x0016}
0x1e08…1e12 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x0064}
0x1e12…1e24 Head {h00=0x000e, h01=0x000b, text=»* 1.INITND«, t00=0x0013, t01=0x006e}
0x1e24…1e2e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x0080}
0x1e2e…1e66 Head {h00=0x0034, h01=0x0050, text=»* PURPOSE: RESET TND, OPEN TND (LIFTS UP) «, t00=0x0013, t01=0x008a}
0x1e66…1e70 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x00c2}
0x1e70…1e84 Head {h00=0x0010, h01=0x000b, text=»* VARIABLES «, t00=0x0013, t01=0x00cc}
0x1e84…1e94 Head {h00=0x000c, h01=0x0008, text=»* IN:«, t00=0x0013, t01=0x00e0}
0x1e94…1eba Head {h00=0x0022, h01=0x001e, text=»* OUT: TNDBUF-CASSETTE ID'S«, t00=0x0013, t01=0x00f0}
0x1eba…1ed8 Head {h00=0x001a, h01=0x0015, text=»* TNDST =0-OK «, t00=0x0013, t01=0x0116}
0x1ed8…1f1e Head {h00=0x0042, h01=0x0050, text=»* =1-ERROR (E1,E2,E4,E7), TND BLOCKED, NOT OPEN «, t00=0x0013, t01=0x0134}
0x1f1e…1f3e Head {h00=0x001c, h01=0x0050, text=»* TNDBAD=F-IF OK«, t00=0x0013, t01=0x017a}
0x1f3e…1f5e Head {h00=0x001c, h01=0x0050, text=»* TNDRCF=F-IF OK«, t00=0x0014, t01=0x000a}
0x1f5e…1f68 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x002a}
0x1f68…1fb6 Head {h00=0x004a, h01=0x0046, text=»**********************************************************************«, t00=0x0014, t01=0x0034}
0x1fb6…1fc4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0082}
0x1fc4…1fce Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x0090}
0x1fce…201c Head {h00=0x004a, h01=0x0046, text=»* TNDST- INDEX INDICATING RESULT OF IO....ACTION.............RET-TNDST«, t00=0x0014, t01=0x009a}
0x201c…2026 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x00e8}
0x2026…2074 Head {h00=0x004a, h01=0x0045, text=»* 0- IO OK, CASSETTE LOW...........UNBLOCK TND 0 «, t00=0x0014, t01=0x00f2}
0x2074…20ae Head {h00=0x0036, h01=0x0032, text=»* 1- POWERFAIL.....................REPEAT INITIO«, t00=0x0014, t01=0x0140}
0x20ae…20fc Head {h00=0x004a, h01=0x0045, text=»* 2- T.O., COMM., HARDWARE, NOP....TRY TWICE, REPORT, BLOCK TND 1 «, t00=0x0014, t01=0x017a}
0x20fc…214a Head {h00=0x004a, h01=0x0045, text=»* 3- BUSY, NOTES IN DELIVERY UNIT..IMPOSSIBLE, REPORT, BLOCK TND 1 «, t00=0x0015, t01=0x0038}
0x214a…2198 Head {h00=0x004a, h01=0x0050, text=»* 4- BAD NOTES OR JAM..............REPORT, BLOCK TND 1 «, t00=0x0015, t01=0x0086}
0x2198…21e6 Head {h00=0x004a, h01=0x0050, text=»* 5- REJECT CASSETTE FULL..........WARNING 0 «, t00=0x0015, t01=0x00d4}
0x21e6…2234 Head {h00=0x004a, h01=0x0045, text=»* 6- CASSETTE EMPTY................IGNORE, UNBLOCK TND 0 «, t00=0x0015, t01=0x0122}
0x2234…2282 Head {h00=0x004a, h01=0x0050, text=»* 7- SEQ ERR.......................REPORT, BLOCK TND 1 «, t00=0x0015, t01=0x0170}
0x2282…228c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x002e}
0x228c…229a Head {h00=0x000a, h01=0x0006, text=»INITND«, t00=0x0016, t01=0x0038}
0x229a…22b0 Head {h00=0x0012, h01=0x0050, text=» IB TNDST, C «, t00=0x0016, t01=0x0046}
0x22b0…22e2 Head {h00=0x002e, h01=0x0050, text=» IO,IOTRY,IOPERR,IOER,INIT10,INIT10,IOER «, t00=0x0016, t01=0x005c}
0x22e2…22ec Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x008e}
0x22ec…2314 Head {h00=0x0024, h01=0x001f, text=»* RESET OK, UNBLOCK TND,TNDST=0 «, t00=0x0016, t01=0x0098}
0x2314…231e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x00c0}
0x231e…232c Head {h00=0x000a, h01=0x0050, text=»INIT10«, t00=0x0016, t01=0x00ca}
0x232c…2342 Head {h00=0x0012, h01=0x000d, text=» CLEAR TNDBAD «, t00=0x0016, t01=0x00d8}
0x2342…236e Head {h00=0x0028, h01=0x0050, text=» CLEAR TNDRCF UNBLOCK REJ CASS FULL «, t00=0x0016, t01=0x00ee}
0x236e…237e Head {h00=0x000c, h01=0x0007, text=» B IOOK «, t00=0x0016, t01=0x011a}
0x237e…238c Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0016, t01=0x012a}
0x238c…23da Head {h00=0x004a, h01=0x0046, text=»**********************************************************************«, t00=0x0016, t01=0x0138}
0x23da…2428 Head {h00=0x004a, h01=0x0046, text=»* *«, t00=0x0016, t01=0x0186}
0x2428…2476 Head {h00=0x004a, h01=0x0046, text=»* 2.CLOSND *«, t00=0x0017, t01=0x0044}
0x2476…24c4 Head {h00=0x004a, h01=0x0046, text=»* *«, t00=0x0017, t01=0x0092}
0x24c4…2512 Head {h00=0x004a, h01=0x0050, text=»* PURPOSE: CLOSE TND(LIFTS DOWN) *«, t00=0x0017, t01=0x00e0}
0x2512…2560 Head {h00=0x004a, h01=0x0046, text=»* *«, t00=0x0017, t01=0x012e}
0x2560…25ae Head {h00=0x004a, h01=0x0050, text=»* VARIABLES *«, t00=0x0017, t01=0x017c}
0x25ae…25fc Head {h00=0x004a, h01=0x0046, text=»* IN: *«, t00=0x0018, t01=0x003a}
0x25fc…264a Head {h00=0x004a, h01=0x0046, text=»* OUT: TNDBUF-CASSETTE ID'S *«, t00=0x0018, t01=0x0088}
0x264a…2698 Head {h00=0x004a, h01=0x0046, text=»* TNDST =0-OK *«, t00=0x0018, t01=0x00d6}
0x2698…26ea Head {h00=0x004e, h01=0x0050, text=»* =1-ERROR (E1,E2,E4,E7) * «, t00=0x0018, t01=0x0124}
0x26ea…2738 Head {h00=0x004a, h01=0x0046, text=»* *«, t00=0x0018, t01=0x0176}
0x2738…2786 Head {h00=0x004a, h01=0x0046, text=»* *«, t00=0x0019, t01=0x0034}
0x2786…27d4 Head {h00=0x004a, h01=0x0046, text=»**********************************************************************«, t00=0x0019, t01=0x0082}
0x27d4…27e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x00d0}
0x27e2…27ec Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0019, t01=0x00de}
0x27ec…283a Head {h00=0x004a, h01=0x0046, text=»* TNDST- INDEX INDICATING RESULT OF IO....ACTION.............RET-TNDST«, t00=0x0019, t01=0x00e8}
0x283a…2844 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0019, t01=0x0136}
0x2844…2892 Head {h00=0x004a, h01=0x0045, text=»* 0- IO OK, CASSETTE LOW........... 0 «, t00=0x0019, t01=0x0140}
0x2892…28cc Head {h00=0x0036, h01=0x0032, text=»* 1- POWERFAIL.....................REPEAT CLOSI0«, t00=0x0019, t01=0x018e}
0x28cc…291a Head {h00=0x004a, h01=0x0050, text=»* 2- T.O., COMM., HARDWARE,NOP.....TRY TWICE,REPORT 1 «, t00=0x001a, t01=0x0038}
0x291a…2968 Head {h00=0x004a, h01=0x0045, text=»* 3- BUSY, NOTES IN DELIVERY UNIT..IMPOSSIBLE, REPORT 1 «, t00=0x001a, t01=0x0086}
0x2968…29b6 Head {h00=0x004a, h01=0x0050, text=»* 4- BAD NOTES OR JAM..............REPORT, BLOCK TND 1 «, t00=0x001a, t01=0x00d4}
0x29b6…2a04 Head {h00=0x004a, h01=0x0045, text=»* 5- REJECT CASSETTE FULL..........IGNORE 0 «, t00=0x001a, t01=0x0122}
0x2a04…2a52 Head {h00=0x004a, h01=0x0045, text=»* 6- CASSETTE EMPTY................IGNORE 0 «, t00=0x001a, t01=0x0170}
0x2a52…2aa0 Head {h00=0x004a, h01=0x0050, text=»* 7- SEQ ERR.......................REPORT, BLOCK TND 1 «, t00=0x001b, t01=0x002e}
0x2aa0…2aaa Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001b, t01=0x007c}
0x2aaa…2ab8 Head {h00=0x000a, h01=0x0006, text=»CLOSND«, t00=0x001b, t01=0x0086}
0x2ab8…2ace Head {h00=0x0012, h01=0x0050, text=» IB TNDST, C «, t00=0x001b, t01=0x0094}
0x2ace…2b00 Head {h00=0x002e, h01=0x0050, text=» IO,IOTRY,IOPERR,IOER,CLOS10,CLOS10,IOER «, t00=0x001b, t01=0x00aa}
0x2b00…2b0a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001b, t01=0x00dc}
0x2b0a…2b24 Head {h00=0x0016, h01=0x0012, text=»* CLOSE OK,TNDST=0«, t00=0x001b, t01=0x00e6}
0x2b24…2b2e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001b, t01=0x0100}
0x2b2e…2b3c Head {h00=0x000a, h01=0x0050, text=»CLOS10«, t00=0x001b, t01=0x010a}
0x2b3c…2b6a Head {h00=0x002a, h01=0x0050, text=» TBF TNDRCF,IOOK BR. IF REJECT CASS OK«, t00=0x001b, t01=0x0118}
0x2b6a…2b92 Head {h00=0x0024, h01=0x0050, text=» MOVE NDDUMP,KW0 ASSUME CLOSE TO«, t00=0x001b, t01=0x0146}
0x2b92…2bb2 Head {h00=0x001c, h01=0x0050, text=» ...EMPTY REJECT CASS «, t00=0x001b, t01=0x016e}
0x2bb2…2bc2 Head {h00=0x000c, h01=0x0007, text=» B IOOK «, t00=0x001b, t01=0x018e}
0x2bc2…2bd0 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x001c, t01=0x000e}
0x2bd0…2c1e Head {h00=0x004a, h01=0x0046, text=»**********************************************************************«, t00=0x001c, t01=0x001c}
0x2c1e…2c6c Head {h00=0x004a, h01=0x0046, text=»* *«, t00=0x001c, t01=0x006a}
0x2c6c…2cba Head {h00=0x004a, h01=0x0046, text=»* 3.DISPND *«, t00=0x001c, t01=0x00b8}
0x2cba…2d08 Head {h00=0x004a, h01=0x0046, text=»* *«, t00=0x001c, t01=0x0106}
0x2d08…2d56 Head {h00=0x004a, h01=0x0050, text=»* PURPOSE: DISPENSE NOTES TO STACKER *«, t00=0x001c, t01=0x0154}
0x2d56…2da4 Head {h00=0x004a, h01=0x0046, text=»* *«, t00=0x001d, t01=0x0012}
0x2da4…2df2 Head {h00=0x004a, h01=0x0046, text=»* VARIABLES *«, t00=0x001d, t01=0x0060}
0x2df2…2e46 Head {h00=0x0050, h01=0x0050, text=»* IN: NDDATA1(KW2,X)-BCD ARRAY, LOADED WITH NO. NOTES TO DISPENSE/CASS* «, t00=0x001d, t01=0x00ae}
0x2e46…2e96 Head {h00=0x004c, h01=0x0050, text=»* CASMAX BIN EL., TOTAL NO. OF CASSETTES *«, t00=0x001d, t01=0x0102}
0x2e96…2eea Head {h00=0x0050, h01=0x0050, text=»* OUT: NDDATA1(KW5,X)-BCD ARRAY, NO. OF NOTES REJECTED SINCE OPEN * «, t00=0x001d, t01=0x0152}
0x2eea…2f3e Head {h00=0x0050, h01=0x0050, text=»* NDDATA2(KW2,X)-BCD ARRAY, EL=O IF CASSETTE BECAME EMPTY * «, t00=0x001e, t01=0x0016}
0x2f3e…2f8c Head {h00=0x004a, h01=0x0046, text=»* TNDST=0-OK *«, t00=0x001e, t01=0x006a}
0x2f8c…2fd8 Head {h00=0x0048, h01=0x0050, text=»* =1-ERROR (E1,E2,E3,E4,E7,E8). BLOCKED, NO DISPENSE * «, t00=0x001e, t01=0x00b8}
0x2fd8…3026 Head {h00=0x004a, h01=0x0046, text=»* =2-TND WAS ALREADY BLOCKED, NO DISPENSE *«, t00=0x001e, t01=0x0104}
0x3026…3074 Head {h00=0x004a, h01=0x0046, text=»* =3-CASSETTE EMPTY (E6), NO DISPENSE *«, t00=0x001e, t01=0x0152}
0x3074…30c2 Head {h00=0x004a, h01=0x0046, text=»* *«, t00=0x001f, t01=0x0010}
0x30c2…3110 Head {h00=0x004a, h01=0x0046, text=»**********************************************************************«, t00=0x001f, t01=0x005e}
0x3110…311e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x00ac}
0x311e…3128 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001f, t01=0x00ba}
0x3128…3176 Head {h00=0x004a, h01=0x0046, text=»* TNDST- INDEX INDICATING RESULT OF IO....ACTION.............RET-TNDST«, t00=0x001f, t01=0x00c4}
0x3176…3180 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001f, t01=0x0112}
0x3180…31ce Head {h00=0x004a, h01=0x0045, text=»* O-ID OK,CASSETTE LOW, REJ. NOTES.CALC. REJECTED NOTES 0 «, t00=0x001f, t01=0x011c}
0x31ce…3216 Head {h00=0x0044, h01=0x0050, text=»* 1-POWERFAIL......................RESET TND, REPEAT DISPENSE «, t00=0x001f, t01=0x016a}
0x3216…325e Head {h00=0x0044, h01=0x003f, text=»* 2-T.O., COMM., HARDWARE, NOP.....CALC. REJECTED NOTES,RESET «, t00=0x0020, t01=0x0022}
0x325e…32a8 Head {h00=0x0046, h01=0x0050, text=»* OR NO CASS......TND, TRY TWICE, THEN REPORT, «, t00=0x0020, t01=0x006a}
0x32a8…32f6 Head {h00=0x004a, h01=0x0045, text=»* .....BLOCK TND 1 «, t00=0x0020, t01=0x00b4}
0x32f6…3338 Head {h00=0x003e, h01=0x0050, text=»* 3-BUSY, NOTES IN DELIVERY UNIT...NOT DELIVERED BY TND,«, t00=0x0020, t01=0x0102}
0x3338…3386 Head {h00=0x004a, h01=0x0050, text=»* ...MANUALLY PLACED, SKIP TRANS 2 «, t00=0x0020, t01=0x0144}
0x3386…33d4 (33, 0, 400) Head {h00=0x004a, h01=0x0045, text=»* 4-BAD NOTES OR JAM...............SAME AS 2. 1 «, t00=0x0021, t01=0x0004}
0x33d4…3422 Head {h00=0x004a, h01=0x0050, text=»* 5-REJECT CASSETTE FULL...........WARNING 0 «, t00=0x0021, t01=0x0052}
0x3422…3470 Head {h00=0x004a, h01=0x0045, text=»* 6-CASSETTE EMPTY.................REPORT 3 «, t00=0x0021, t01=0x00a0}
0x3470…34a8 Head {h00=0x0034, h01=0x0050, text=»* 7-SEQ. ERROR DUE TO PF?..........RE-OPEN TND«, t00=0x0021, t01=0x00ee}
0x34a8…34b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0126}
0x34b2…34c0 Head {h00=0x000a, h01=0x0006, text=»DISPND«, t00=0x0021, t01=0x0130}
0x34c0…34d6 Head {h00=0x0012, h01=0x0050, text=» IB TNDST, C «, t00=0x0021, t01=0x013e}
0x34d6…3510 Head {h00=0x0036, h01=0x0050, text=» DISPPF,IOTRY,IOTND00,IOTRY,DISPOK,DISPMT,DISPPF «, t00=0x0021, t01=0x0154}
0x3510…351a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0021, t01=0x018e}
0x351a…3548 Head {h00=0x002a, h01=0x0026, text=»* DISPENSE OK, TEST FOR REJECTED NOTES«, t00=0x0022, t01=0x0008}
0x3548…3552 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0022, t01=0x0036}
0x3552…3560 Head {h00=0x000a, h01=0x0050, text=»DISPOK«, t00=0x0022, t01=0x0040}
0x3560…3590 Head {h00=0x002c, h01=0x0050, text=» PERF TNDMSK,TNDWB1,TNDWB2,=W'32' BIT 10«, t00=0x0022, t01=0x004e}
0x3590…35b6 Head {h00=0x0022, h01=0x001d, text=» B DISP10 CALC REJECTED NOTES «, t00=0x0022, t01=0x007e}
0x35b6…35e0 Head {h00=0x0026, h01=0x0050, text=» B IOOK NO REJECTED NOTES, RET OK «, t00=0x0022, t01=0x00a4}
0x35e0…35ee Head {h00=0x000a, h01=0x0050, text=»DISP10«, t00=0x0022, t01=0x00ce}
0x35ee…3628 Head {h00=0x0036, h01=0x0050, text=»* CALCULATE REJECTED NOTES & ADD TO NDDATA1(KW5,X)«, t00=0x0022, t01=0x00dc}
0x3628…3644 Head {h00=0x0018, h01=0x0050, text=» PERF GETREJ,KW1, C«, t00=0x0022, t01=0x0116}
0x3644…3656 Head {h00=0x000e, h01=0x0009, text=» TND, C «, t00=0x0022, t01=0x0132}
0x3656…366a Head {h00=0x0010, h01=0x000c, text=» TNDWB1, C«, t00=0x0022, t01=0x0144}
0x366a…367e Head {h00=0x0010, h01=0x000c, text=» TNDWB2, C«, t00=0x0022, t01=0x0158}
0x367e…3692 Head {h00=0x0010, h01=0x000c, text=» TNDWD1, C«, t00=0x0022, t01=0x016c}
0x3692…36a6 Head {h00=0x0010, h01=0x000c, text=» TNDWS1, C«, t00=0x0022, t01=0x0180}
0x36a6…36b6 (35, 0, 400) Head {h00=0x000c, h01=0x0008, text=» TNDBUF«, t00=0x0023, t01=0x0004}
0x36b6…36d0 Head {h00=0x0016, h01=0x0050, text=» B IOOK NO REJECT «, t00=0x0023, t01=0x0014}
0x36d0…36ea Head {h00=0x0016, h01=0x0050, text=» B IOOK SUCCESSFUL«, t00=0x0023, t01=0x002e}
0x36ea…36f8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0048}
0x36f8…3702 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0023, t01=0x0056}
0x3702…3738 Head {h00=0x0032, h01=0x002e, text=»* POWER FAILURE, RESET DISPENSER AND TRY AGAIN«, t00=0x0023, t01=0x0060}
0x3738…3742 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0023, t01=0x0096}
0x3742…3750 Head {h00=0x000a, h01=0x0050, text=»DISPPF«, t00=0x0023, t01=0x00a0}
0x3750…376c Head {h00=0x0018, h01=0x0050, text=» PERF INITIO,TND, C«, t00=0x0023, t01=0x00ae}
0x376c…3780 Head {h00=0x0010, h01=0x0050, text=» TNDWB1, C«, t00=0x0023, t01=0x00ca}
0x3780…3794 Head {h00=0x0010, h01=0x0050, text=» TNDWB2, C«, t00=0x0023, t01=0x00de}
0x3794…37a8 Head {h00=0x0010, h01=0x000c, text=» TNDWD1, C«, t00=0x0023, t01=0x00f2}
0x37a8…37bc Head {h00=0x0010, h01=0x000c, text=» TNDWS1, C«, t00=0x0023, t01=0x0106}
0x37bc…37cc Head {h00=0x000c, h01=0x0008, text=» TNDBUF«, t00=0x0023, t01=0x011a}
0x37cc…380e Head {h00=0x003e, h01=0x0050, text=»*REPORT ERRORS, EXCEPT REJ CASS FULL, CASS LOW, CASS EMPTY«, t00=0x0023, t01=0x012a}
0x380e…383a Head {h00=0x0028, h01=0x0050, text=» MOVE TNDST,=W'-3585' BITS TO REPORT«, t00=0x0023, t01=0x016c}
0x383a…3866 Head {h00=0x0028, h01=0x0050, text=» PERF IOTNDS,TND,TNDWB1,TNDWB2,TNDST«, t00=0x0024, t01=0x0008}
0x3866…3892 Head {h00=0x0028, h01=0x0050, text=» DSC0 TND,2 DUMP NOTES, DISPENSE MAY«, t00=0x0024, t01=0x0034}
0x3892…38b2 Head {h00=0x001c, h01=0x0050, text=» HAVE BEEN SUCCESSFUL «, t00=0x0024, t01=0x0060}
0x38b2…38d4 Head {h00=0x001e, h01=0x0050, text=» ALSO 2 DISPENSE IN ROW «, t00=0x0024, t01=0x0080}
0x38d4…38ea Head {h00=0x0012, h01=0x0050, text=» NOT ALLOWED«, t00=0x0024, t01=0x00a2}
0x38ea…3916 Head {h00=0x0028, h01=0x0050, text=» PERF IOTNDS,TND,TNDWB1,TNDWB2,TNDST«, t00=0x0024, t01=0x00b8}
0x3916…3934 Head {h00=0x001a, h01=0x0015, text=» B IO REPEAT DISPENSE «, t00=0x0024, t01=0x00e4}
0x3934…3942 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0102}
0x3942…394c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0024, t01=0x0110}
0x394c…3998 Head {h00=0x0048, h01=0x0044, text=»* SERIOUS ERROR, CALCULATE REJECTED NOTES, RESET TND, TRY TWICE ONLY«, t00=0x0024, t01=0x011a}
0x3998…39a2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0024, t01=0x0166}
0x39a2…39b2 Head {h00=0x000c, h01=0x0007, text=»DISPTRY «, t00=0x0024, t01=0x0170}
0x39b2…39bc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0024, t01=0x0180}
0x39bc…39ea Head {h00=0x002a, h01=0x0026, text=»* FIRST FAILURE, SEE IF REJECTED NOTES«, t00=0x0024, t01=0x018a}
0x39ea…39f4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0025, t01=0x0028}
0x39f4…3a28 Head {h00=0x0030, h01=0x0050, text=»* UPDATE NDDATA1(KW5,X) BY NUMBER DISPENSED «, t00=0x0025, t01=0x0032}
0x3a28…3a44 Head {h00=0x0018, h01=0x0050, text=» PERF GETREJ,KW2, C«, t00=0x0025, t01=0x0066}
0x3a44…3a56 Head {h00=0x000e, h01=0x0009, text=» TND, C «, t00=0x0025, t01=0x0082}
0x3a56…3a6a Head {h00=0x0010, h01=0x000c, text=» TNDWB1, C«, t00=0x0025, t01=0x0094}
0x3a6a…3a7e Head {h00=0x0010, h01=0x000c, text=» TNDWB2, C«, t00=0x0025, t01=0x00a8}
0x3a7e…3a92 Head {h00=0x0010, h01=0x000c, text=» TNDWD1, C«, t00=0x0025, t01=0x00bc}
0x3a92…3aa6 Head {h00=0x0010, h01=0x000c, text=» TNDWS1, C«, t00=0x0025, t01=0x00d0}
0x3aa6…3ab6 Head {h00=0x000c, h01=0x0008, text=» TNDBUF«, t00=0x0025, t01=0x00e4}
0x3ab6…3adc Head {h00=0x0022, h01=0x0050, text=» B DISPTR20 NO NOTES DISPENSED«, t00=0x0025, t01=0x00f4}
0x3adc…3aec Head {h00=0x000c, h01=0x0008, text=»DISPTR20«, t00=0x0025, t01=0x011a}
0x3aec…3b0e Head {h00=0x001e, h01=0x0050, text=» B DISPPF REPEAT DISPENSE «, t00=0x0025, t01=0x012a}
0x3b0e…3b1c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x014c}
0x3b1c…3b26 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0025, t01=0x015a}
0x3b26…3b74 Head {h00=0x004a, h01=0x0050, text=»* ANALIZE STATUS OF EVERY CASSETTE, REPORT CASSETTE EMPTY OR CASSETTE«, t00=0x0025, t01=0x0164}
0x3b74…3ba6 Head {h00=0x002e, h01=0x002a, text=»* DOES NOT FEED, CALCULATE REJECTED NOTES«, t00=0x0026, t01=0x0022}
0x3ba6…3bb0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0026, t01=0x0054}
0x3bb0…3bbe Head {h00=0x000a, h01=0x0006, text=»DISPMT«, t00=0x0026, t01=0x005e}
0x3bbe…3c0a Head {h00=0x0048, h01=0x0050, text=»* UPDATE NDDATA1(KW5,X) BY NUMBER DISPENSED AND REPORT CASS. STATUS «, t00=0x0026, t01=0x006c}
0x3c0a…3c26 Head {h00=0x0018, h01=0x0050, text=» PERF GETREJ,KW3, C«, t00=0x0026, t01=0x00b8}
0x3c26…3c38 Head {h00=0x000e, h01=0x0009, text=» TND, C «, t00=0x0026, t01=0x00d4}
0x3c38…3c4c Head {h00=0x0010, h01=0x000c, text=» TNDWB1, C«, t00=0x0026, t01=0x00e6}
0x3c4c…3c60 Head {h00=0x0010, h01=0x000c, text=» TNDWB2, C«, t00=0x0026, t01=0x00fa}
0x3c60…3c74 Head {h00=0x0010, h01=0x000c, text=» TNDWD1, C«, t00=0x0026, t01=0x010e}
0x3c74…3c88 Head {h00=0x0010, h01=0x000c, text=» TNDWS1, C«, t00=0x0026, t01=0x0122}
0x3c88…3c98 Head {h00=0x000c, h01=0x0008, text=» TNDBUF«, t00=0x0026, t01=0x0136}
0x3c98…3cbe Head {h00=0x0022, h01=0x0050, text=» B DISPMT40 NO NOTES DISPENSED«, t00=0x0026, t01=0x0146}
0x3cbe…3cc8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0026, t01=0x016c}
0x3cc8…3d02 Head {h00=0x0036, h01=0x0032, text=»* TEST IF TND ERROR OCCURED OR ONLY CASSETTE EMPTY«, t00=0x0026, t01=0x0176}
0x3d02…3d0c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0027, t01=0x0020}
0x3d0c…3d1c Head {h00=0x000c, h01=0x0008, text=»DISPMT40«, t00=0x0027, t01=0x002a}
0x3d1c…3d46 Head {h00=0x0026, h01=0x0050, text=» DSC0 TND,2 DUMP NOTES, OTHERWISE «, t00=0x0027, t01=0x003a}
0x3d46…3d6c Head {h00=0x0022, h01=0x0050, text=» ...NEXT DISPENSE WON'T WORK«, t00=0x0027, t01=0x0064}
0x3d6c…3db0 Head {h00=0x0040, h01=0x0050, text=»* REPORT ERRORS, EXCEPT REJ CASS FULL, CASS LOW, CASS EMPTY «, t00=0x0027, t01=0x008a}
0x3db0…3de0 Head {h00=0x002c, h01=0x0050, text=» MOVE TNDST,=W'-3585' BITS TO REPORT ON «, t00=0x0027, t01=0x00ce}
0x3de0…3e0c Head {h00=0x0028, h01=0x0050, text=» PERF IOTNDS,TND,TNDWB1,TNDWB2,TNDST«, t00=0x0027, t01=0x00fe}
0x3e0c…3e40 Head {h00=0x0030, h01=0x0050, text=» TBT TNDRCF,DISPMT50 BRANCH IF REJ CASS FULL«, t00=0x0027, t01=0x012a}
0x3e40…3e6c Head {h00=0x0028, h01=0x0050, text=» TBT TNDBAD,DISPMT50 BRANCH IF ERROR«, t00=0x0027, t01=0x015e}
0x3e6c…3e9c Head {h00=0x002c, h01=0x0050, text=» MOVE TNDST,KW3 INDICATE CASSETTE EMPTY «, t00=0x0027, t01=0x018a}
0x3e9c…3ea8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0028, t01=0x002a}
0x3ea8…3eb8 Head {h00=0x000c, h01=0x0008, text=»DISPMT50«, t00=0x0028, t01=0x0036}
0x3eb8…3ee6 Head {h00=0x002a, h01=0x0050, text=» MOVE TNDST,KW1 SET ERROR RETURN CODE «, t00=0x0028, t01=0x0046}
0x3ee6…3ef2 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0028, t01=0x0074}
0x3ef2…3f00 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0028, t01=0x0080}
0x3f00…3f4e Head {h00=0x004a, h01=0x0046, text=»**********************************************************************«, t00=0x0028, t01=0x008e}
0x3f4e…3f9c Head {h00=0x004a, h01=0x0046, text=»* *«, t00=0x0028, t01=0x00dc}
0x3f9c…3fae Head {h00=0x000e, h01=0x0050, text=»* 4.DELVND«, t00=0x0028, t01=0x012a}
0x3fae…3fb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x013c}
0x3fb8…3fe8 Head {h00=0x002c, h01=0x0050, text=»* PURPOSE: DELIVER NOTES TO TELLER«, t00=0x0028, t01=0x0146}
0x3fe8…4036 Head {h00=0x004a, h01=0x0046, text=»* *«, t00=0x0028, t01=0x0176}
0x4036…4084 Head {h00=0x004a, h01=0x0046, text=»* VARIABLES *«, t00=0x0029, t01=0x0034}
0x4084…40d6 Head {h00=0x004e, h01=0x0050, text=»* IN: NDDATA1(KW2,X)-BCD ARRAY, LOADED WITH NO. NOTES DISPENSED/CASS* «, t00=0x0029, t01=0x0082}
0x40d6…40f2 Head {h00=0x0018, h01=0x0050, text=»* TNDREG(X) «, t00=0x0029, t01=0x00d4}
0x40f2…40fa Head {h00=0x0004, h01=0x0050, t00=0x0029, t01=0x00f0}
0x40fa…414a Head {h00=0x004c, h01=0x0050, text=»* CASMAX BIN EL., TOTAL NO. OF CASSETTES *«, t00=0x0029, t01=0x00f8}
0x414a…419e Head {h00=0x0050, h01=0x0050, text=»* OUT: NDDATA1(KW5,X)-BCD ARRAY, NO. OF NOTES REJECTED SINCE OPEN * «, t00=0x0029, t01=0x0148}
0x419e…41b2 Head {h00=0x0010, h01=0x0050, text=»* OR«, t00=0x002a, t01=0x000c}
0x41b2…41f6 Head {h00=0x0040, h01=0x0050, text=»* NDDATA1(KW1,X)-BCD ARRAY INCR. BY AMOUNT DELIVERED«, t00=0x002a, t01=0x0020}
0x41f6…420c Head {h00=0x0012, h01=0x0050, text=»* AND «, t00=0x002a, t01=0x0064}
0x420c…4250 Head {h00=0x0040, h01=0x0050, text=»* TNDREG(X) -BCD ARRAY DECR. BY AMOUNT DELIVERRED«, t00=0x002a, t01=0x007a}
0x4250…429a Head {h00=0x0046, h01=0x0050, text=»* NDATA1(KW2,X)-BCD ARRAY, CONTAINING AMT DELIVERED-ZEROED«, t00=0x002a, t01=0x00be}
0x429a…42e2 Head {h00=0x0044, h01=0x0050, text=»* TNDST=0-OK, E5-DELIVER OK, BUT BLOCK FURTHER DISPENSE «, t00=0x002a, t01=0x0108}
0x42e2…432a Head {h00=0x0044, h01=0x0050, text=»* =1-ERROR (E1,E2,E3,E7,E8). BLOCKED, NO DELIVER * «, t00=0x002a, t01=0x0150}
0x432a…4378 Head {h00=0x004a, h01=0x0050, text=»* =2-TND WAS ALREADY BLOCKED, NO DELIVER * «, t00=0x002b, t01=0x0008}
0x4378…43c6 Head {h00=0x004a, h01=0x0046, text=»* *«, t00=0x002b, t01=0x0056}
0x43c6…4414 Head {h00=0x004a, h01=0x0046, text=»**********************************************************************«, t00=0x002b, t01=0x00a4}
0x4414…4422 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x00f2}
0x4422…442c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002b, t01=0x0100}
0x442c…447a Head {h00=0x004a, h01=0x0046, text=»* TNDST- INDEX INDICATING RESULT OF IO....ACTION.............RET-TNDST«, t00=0x002b, t01=0x010a}
0x447a…4484 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002b, t01=0x0158}
0x4484…44d2 Head {h00=0x004a, h01=0x0050, text=»* 0-I/O OK.........................UPDATE TND REGISTERS 0 «, t00=0x002b, t01=0x0162}
0x44d2…450e Head {h00=0x0038, h01=0x0050, text=»* 1-POWERFAIL......................REPEAT DELIVER «, t00=0x002c, t01=0x0020}
0x450e…455c Head {h00=0x004a, h01=0x0050, text=»* 2-T.O., COMM., HARDWARE, NOP.....REPORT, BLOCK TND 1 «, t00=0x002c, t01=0x005c}
0x455c…45ac Head {h00=0x004c, h01=0x0050, text=»* 3-BUSY, NOTES IN DELIVERY UNIT...DELAY, REPEAT I/O UNTIL SEQ ERR OR «, t00=0x002c, t01=0x00aa}
0x45ac…45fa Head {h00=0x004a, h01=0x0045, text=»* ...TIME OUT, REPORT,BLOCK TND 1 «, t00=0x002c, t01=0x00fa}
0x45fa…4648 Head {h00=0x004a, h01=0x0050, text=»* 4- BAD NOTES OR JAM..............IMPOSSIBLE, REPORT, BLOCK TND 1 «, t00=0x002c, t01=0x0148}
0x4648…4696 Head {h00=0x004a, h01=0x0050, text=»* 5-REJECT CASSETTE FULL...........WARNING 0 «, t00=0x002d, t01=0x0008}
0x4696…46e4 Head {h00=0x004a, h01=0x0050, text=»* 6-CASSETTE EMPTY.................IMPOSSIBLE, REPORT, BLOCK TND 1 «, t00=0x002d, t01=0x0056}
0x46e4…4726 Head {h00=0x003e, h01=0x0050, text=»* 7-SEQ. ERR, NOTES TAKEN?.........OK IF NOTES DELIVERED«, t00=0x002d, t01=0x00a4}
0x4726…4730 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002d, t01=0x00e6}
0x4730…473e Head {h00=0x000a, h01=0x0050, text=»DELVND«, t00=0x002d, t01=0x00f0}
0x473e…4754 Head {h00=0x0012, h01=0x0050, text=» IB TNDST, C «, t00=0x002d, t01=0x00fe}
0x4754…4788 Head {h00=0x0030, h01=0x0050, text=» IO,IOTRY,IOBZY,IOER,DELVOK,IOPERR,DELVSEQ «, t00=0x002d, t01=0x0114}
0x4788…4790 Head {h00=0x0004, h01=0x0050, t00=0x002d, t01=0x0148}
0x4790…47ac Head {h00=0x0018, h01=0x0050, text=»* DELIVER SUCCESSFUL«, t00=0x002d, t01=0x0150}
0x47ac…47e8 Head {h00=0x0038, h01=0x0050, text=»* UPDATE TND REGISTERSBY AMOUNT DISPENSED TO TELLER «, t00=0x002d, t01=0x016c}
0x47e8…4824 Head {h00=0x0038, h01=0x0050, text=»* NDDATA1(KW1,X), TNDREG(X) AND ZERO NDDATA1(KW2,X) «, t00=0x002e, t01=0x0018}
0x4824…4832 Head {h00=0x000a, h01=0x0050, text=»DELVOK«, t00=0x002e, t01=0x0054}
0x4832…4852 Head {h00=0x001c, h01=0x0050, text=» PERF PDDUMP,KW0,TNDWB1 «, t00=0x002e, t01=0x0062}
0x4852…487c Head {h00=0x0026, h01=0x0050, text=» SET TNDNDU NOTES IN DELIVERY UNIT«, t00=0x002e, t01=0x0082}
0x487c…48a6 Head {h00=0x0026, h01=0x0050, text=» B IO WAIT TILL TAKEN BY OPERATOR «, t00=0x002e, t01=0x00ac}
0x48a6…48ae Head {h00=0x0004, h01=0x0050, t00=0x002e, t01=0x00d6}
0x48ae…48bc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x00de}
0x48bc…48c4 Head {h00=0x0004, h01=0x0050, t00=0x002e, t01=0x00ec}
0x48c4…490c Head {h00=0x0044, h01=0x0050, text=»* SEQUENCE ERROR: IF NOTES WERE IN DELIVERY UNIT, THEN THEY HAVE«, t00=0x002e, t01=0x00f4}
0x490c…4948 Head {h00=0x0038, h01=0x0050, text=»* NOW BEEN TAKEN BY OPERATOR, ALL OK«, t00=0x002e, t01=0x013c}
0x4948…4992 Head {h00=0x0046, h01=0x0050, text=»* BUT: IF NEVER DETECTED THAT NOTES WERE IN DELIVERY UNIT, THEN «, t00=0x002e, t01=0x0178}
0x4992…49d8 Head {h00=0x0042, h01=0x0050, text=»* SITUATION IS UNCLEAR, POWERFAIL MAY HAVE CAUSED NOTES«, t00=0x002f, t01=0x0032}
0x49d8…4a22 Head {h00=0x0046, h01=0x0050, text=»* DISPENSED TO BE DUMPED BEFORE DELIVERY COMMAND ARRIVED OR«, t00=0x002f, t01=0x0078}
0x4a22…4a6e Head {h00=0x0048, h01=0x0050, text=»* DELIVER COMMMAND ARRIVED, BUT DUE TO COMM. ERR OR POWERFAIL«, t00=0x002f, t01=0x00c2}
0x4a6e…4ac0 Head {h00=0x004e, h01=0x0050, text=»* WE NEVER RECIEVED ACKNOWLEGEMENT AND OPERATOR TOOK DELIVER NOTES «, t00=0x002f, t01=0x010e}
0x4ac0…4b0e Head {h00=0x004a, h01=0x0050, text=»* OUT BEFORE WE COULD DETERMINE IF THEY WERE IN DELIVERY UNIT- «, t00=0x002f, t01=0x0160}
0x4b0e…4b52 Head {h00=0x0040, h01=0x0050, text=»* HOPEFULLY PROBABILITY IS LOW THAT THIS COULD HAPPEN«, t00=0x0030, t01=0x001e}
0x4b52…4b5a Head {h00=0x0004, h01=0x0050, t00=0x0030, t01=0x0062}
0x4b5a…4b6a Head {h00=0x000c, h01=0x0050, text=»DELVSEQ «, t00=0x0030, t01=0x006a}
0x4b6a…4b9e Head {h00=0x0030, h01=0x0050, text=» TBT TNDNDU,IOOK BR. IF NOTES WERE DELIVERED«, t00=0x0030, t01=0x007a}
0x4b9e…4bae Head {h00=0x000c, h01=0x0050, text=» B IOER «, t00=0x0030, t01=0x00ae}
0x4bae…4bbc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x00be}
0x4bbc…4bc6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0030, t01=0x00cc}
0x4bc6…4c0e Head {h00=0x0044, h01=0x003f, text=»* TELLER HAS NOT TAKEN NOTES FROM STACKER, DELAY AND REPEAT I/O «, t00=0x0030, t01=0x00d6}
0x4c0e…4c5a Head {h00=0x0048, h01=0x0043, text=»* AFTER A NUMBER OF TRYS, ASSUME HARWARE ERROR, REPORT, BLOCK TND «, t00=0x0030, t01=0x011e}
0x4c5a…4c7e Head {h00=0x0020, h01=0x001b, text=»* AND SET RETURN CODE = 1 «, t00=0x0030, t01=0x016a}
0x4c7e…4c88 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0030, t01=0x018e}
0x4c88…4c96 Head {h00=0x000a, h01=0x0005, text=»IOBZY «, t00=0x0031, t01=0x0008}
0x4c96…4cb0 Head {h00=0x0016, h01=0x0050, text=» TBF TNDNDU,DELVOK«, t00=0x0031, t01=0x0016}
0x4cb0…4ce2 Head {h00=0x002e, h01=0x0050, text=» SUB TNDWB3,KW1 DECREMENT TIMEOUT COUNTER «, t00=0x0031, t01=0x0030}
0x4ce2…4d0c Head {h00=0x0026, h01=0x0050, text=» BNP IOER T.O., REPORT & BLOCK TND«, t00=0x0031, t01=0x0062}
0x4d0c…4d36 Head {h00=0x0026, h01=0x0050, text=» MOVE TNDWB1,=W'10' DELAY 1 SECOND«, t00=0x0031, t01=0x008c}
0x4d36…4d52 Head {h00=0x0018, h01=0x0050, text=» DELAY TNDWB1 DELAY «, t00=0x0031, t01=0x00b6}
0x4d52…4d6a Head {h00=0x0014, h01=0x0050, text=» B IO REPEAT I/O«, t00=0x0031, t01=0x00d2}
0x4d6a…4d78 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0031, t01=0x00ea}
0x4d78…4d82 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0031, t01=0x00f8}
0x4d82…4db8 Head {h00=0x0032, h01=0x0050, text=»* COMMON ROUTINES: IOOK, IOTRY, IOER, IOPERR «, t00=0x0031, t01=0x0102}
0x4db8…4dc2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0031, t01=0x0138}
0x4dc2…4dcc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0031, t01=0x0142}
0x4dcc…4dd6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0031, t01=0x014c}
0x4dd6…4e12 Head {h00=0x0038, h01=0x0034, text=»* COMMON RETURN FOR I/O SUCCESS, SET RETURN CODE = 0«, t00=0x0031, t01=0x0156}
0x4e12…4e1c (50, 0, 398) Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0032, t01=0x0004}
0x4e1c…4e28 Head {h00=0x0008, h01=0x0004, text=»IOOK«, t00=0x0032, t01=0x000e}
0x4e28…4e50 Head {h00=0x0024, h01=0x0050, text=» MOVE TNDST,KW0 SET RETURN CODE «, t00=0x0032, t01=0x001a}
0x4e50…4e5c Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0032, t01=0x0042}
0x4e5c…4e6a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x004e}
0x4e6a…4e74 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0032, t01=0x005c}
0x4e74…4ebe Head {h00=0x0046, h01=0x0042, text=»* SERIOUS ERROR, TRY TWICE, IF FAIL 2ND TRY, REPORT, BLOCK TND AND«, t00=0x0032, t01=0x0066}
0x4ebe…4ede Head {h00=0x001c, h01=0x0017, text=»* SET RETURN CODE = 1 «, t00=0x0032, t01=0x00b0}
0x4ede…4ee8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0032, t01=0x00d0}
0x4ee8…4ef6 Head {h00=0x000a, h01=0x0005, text=»IOTRY «, t00=0x0032, t01=0x00da}
0x4ef6…4f28 Head {h00=0x002e, h01=0x002a, text=» TBT TNDTRY,IOTRY10 BRANCH IF THIS 2ND TRY«, t00=0x0032, t01=0x00e8}
0x4f28…4f5e Head {h00=0x0032, h01=0x0050, text=» TBF NOPF,IOTRY05 BR. NOT NO CASS, T.O. OR NOP«, t00=0x0032, t01=0x011a}
0x4f5e…4f80 Head {h00=0x001e, h01=0x0050, text=» CALL MASK,TNDWB1,KW1 NOP?«, t00=0x0032, t01=0x0150}
0x4f80…4fa4 Head {h00=0x0020, h01=0x0050, text=» BZ IOTRY10 DON'T REPEAT I/O«, t00=0x0032, t01=0x0172}
0x4fa4…4fb4 Head {h00=0x000c, h01=0x0050, text=»IOTRY05 «, t00=0x0033, t01=0x0008}
0x4fb4…4fd8 Head {h00=0x0020, h01=0x001c, text=» SET TNDTRY INDICATE 2ND TRY«, t00=0x0033, t01=0x0018}
0x4fd8…5002 Head {h00=0x0026, h01=0x0050, text=» IB OP,IO,IO,DISPTRY,IO REPEAT I/O«, t00=0x0033, t01=0x003c}
0x5002…500c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0033, t01=0x0066}
0x500c…5040 Head {h00=0x0030, h01=0x0050, text=»* FAILED TWICE, REPORT & BLOCK TND DISPENSE «, t00=0x0033, t01=0x0070}
0x5040…504a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0033, t01=0x00a4}
0x504a…505a Head {h00=0x000c, h01=0x0007, text=»IOTRY10 «, t00=0x0033, t01=0x00ae}
0x505a…5088 Head {h00=0x002a, h01=0x0050, text=» TBF NOPF,IOER BRANCH IF NOT T.O., NOP«, t00=0x0033, t01=0x00be}
0x5088…50b4 Head {h00=0x0028, h01=0x0050, text=» MOVE TNDST,KW1 T.O., NOP MSG INDEX «, t00=0x0033, t01=0x00ec}
0x50b4…50be Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0033, t01=0x0118}
0x50be…5104 Head {h00=0x0042, h01=0x003d, text=»* ERROR END ROUTINE - REPORT (TNDST-MSG INDEX), BLOCK TND AND «, t00=0x0033, t01=0x0122}
0x5104…5128 Head {h00=0x0020, h01=0x001b, text=»* RETURN CODE (TNDST) = 1 «, t00=0x0033, t01=0x0168}
0x5128…5132 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0033, t01=0x018c}
0x5132…513e Head {h00=0x0008, h01=0x0004, text=»IOER«, t00=0x0034, t01=0x0008}
0x513e…5152 Head {h00=0x0010, h01=0x000b, text=» PERF ERRND «, t00=0x0034, t01=0x0014}
0x5152…518c Head {h00=0x0036, h01=0x0050, text=» IB OP,IOEND,IOEND,DISPMT NEXT INSTRUCTION-DELIVER«, t00=0x0034, t01=0x0028}
0x518c…51b6 Head {h00=0x0026, h01=0x0050, text=» TBT TNDNDU,IOOK NOTES DELIVERED? «, t00=0x0034, t01=0x0062}
0x51b6…51e6 Head {h00=0x002c, h01=0x0050, text=» PERF PDDUMP,KW0,TNDWB1 ASSUME DELIVERED«, t00=0x0034, t01=0x008c}
0x51e6…5214 Head {h00=0x002a, h01=0x0050, text=» B IOOK TELL OPERATOR NOTES DELIVERED «, t00=0x0034, t01=0x00bc}
0x5214…5222 Head {h00=0x000a, h01=0x0050, text=»IOEND «, t00=0x0034, t01=0x00ea}
0x5222…522e Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0034, t01=0x00f8}
0x522e…5238 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0034, t01=0x0104}
0x5238…5274 Head {h00=0x0038, h01=0x0033, text=»* PROGRAM ERROR, REPORT, BLOCK TND, RETURN CODE = 1 «, t00=0x0034, t01=0x010e}
0x5274…527e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0034, t01=0x014a}
0x527e…528c Head {h00=0x000a, h01=0x0006, text=»IOPERR«, t00=0x0034, t01=0x0154}
0x528c…52b6 Head {h00=0x0026, h01=0x0050, text=» MOVE TNDST,KW7 PROG ERR MSG INDEX«, t00=0x0034, t01=0x0162}
0x52b6…52c6 Head {h00=0x000c, h01=0x0007, text=» B IOER «, t00=0x0034, t01=0x018c}
0x52c6…52d4 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0035, t01=0x000c}
0x52d4…52e2 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0035, t01=0x001a}
0x52e2…52fc Head {h00=0x0016, h01=0x0011, text=»* I/O SUBROUTINES «, t00=0x0035, t01=0x0028}
0x52fc…5306 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0035, t01=0x0042}
0x5306…533e Head {h00=0x0034, h01=0x0030, text=»* OPEN (LIFTS UP) AND RESET (AFTER LIFTS UP) I/O«, t00=0x0035, t01=0x004c}
0x533e…5348 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0035, t01=0x0084}
0x5348…5364 Head {h00=0x0018, h01=0x0050, text=»INITIO PROC TND, C «, t00=0x0035, t01=0x008e}
0x5364…5378 Head {h00=0x0010, h01=0x000c, text=» TNDWB1, C«, t00=0x0035, t01=0x00aa}
0x5378…538c Head {h00=0x0010, h01=0x000c, text=» TNDWB2, C«, t00=0x0035, t01=0x00be}
0x538c…53a0 Head {h00=0x0010, h01=0x000c, text=» TNDWD1, C«, t00=0x0035, t01=0x00d2}
0x53a0…53b4 Head {h00=0x0010, h01=0x000c, text=» TNDWS1, C«, t00=0x0035, t01=0x00e6}
0x53b4…53c4 Head {h00=0x000c, h01=0x0008, text=» TNDBUF«, t00=0x0035, t01=0x00fa}
0x53c4…53d6 Head {h00=0x000e, h01=0x0050, text=» PDSET TND«, t00=0x0035, t01=0x010a}
0x53d6…53ea Head {h00=0x0010, h01=0x0050, text=» PBIN TNDWB1«, t00=0x0035, t01=0x011c}
0x53ea…53fe Head {h00=0x0010, h01=0x0050, text=» PBIN TNDWB2«, t00=0x0035, t01=0x0130}
0x53fe…5412 Head {h00=0x0010, h01=0x0050, text=» PBCD TNDWD1«, t00=0x0035, t01=0x0144}
0x5412…5428 Head {h00=0x0012, h01=0x0050, text=» PSTRG TNDWS1 «, t00=0x0035, t01=0x0158}
0x5428…543e Head {h00=0x0012, h01=0x0050, text=» PSTRG TNDBUF «, t00=0x0035, t01=0x016e}
0x543e…5458 Head {h00=0x0016, h01=0x0050, text=» MOVE TNDBUF,=C' '«, t00=0x0035, t01=0x0184}
0x5458…5474 Head {h00=0x0018, h01=0x0050, text=» MOVE TNDWB1,=W'40' «, t00=0x0036, t01=0x000e}
0x5474…54a0 Head {h00=0x0028, h01=0x0050, text=» DSC2 TND,X'18',TNDST,TNDBUF,TNDWB1 «, t00=0x0036, t01=0x002a}
0x54a0…54d4 Head {h00=0x0030, h01=0x0050, text=» CBL TNDWB1,KW5,INITIO10 NO REJECTED NOTES? «, t00=0x0036, t01=0x0056}
0x54d4…5502 Head {h00=0x002a, h01=0x0050, text=» MOVE TNDWS1,=C' ' INIT REJECTED NOTES«, t00=0x0036, t01=0x008a}
0x5502…5546 Head {h00=0x0040, h01=0x0050, text=» COPY TNDWS1,KW0,KW3,TNDBUF,KW2 GET REJ NOTES OF UNKNOWN VAL«, t00=0x0036, t01=0x00b8}
0x5546…5570 Head {h00=0x0026, h01=0x0050, text=» MOVE TNDWD1,TNDWS1 CONVERT TO BCD«, t00=0x0036, t01=0x00fc}
0x5570…55a2 Head {h00=0x002e, h01=0x0050, text=» ADD NDDUMP,TNDWD1 UPDATE TOTAL DUMP CNT. «, t00=0x0036, t01=0x0126}
0x55a2…55b2 Head {h00=0x000c, h01=0x0050, text=»INITIO10«, t00=0x0036, t01=0x0158}
0x55b2…55be Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0036, t01=0x0168}
0x55be…55cc Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0036, t01=0x0174}
0x55cc…55d6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0036, t01=0x0182}
0x55d6…55f6 Head {h00=0x001c, h01=0x0018, text=»* CLOSE (LIFTS DOWN) I/O«, t00=0x0036, t01=0x018c}
0x55f6…5600 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0037, t01=0x001c}
0x5600…561c Head {h00=0x0018, h01=0x0050, text=»CLOSIO PROC TND, C «, t00=0x0037, t01=0x0026}
0x561c…5630 Head {h00=0x0010, h01=0x000c, text=» TNDWB1, C«, t00=0x0037, t01=0x0042}
0x5630…5644 Head {h00=0x0010, h01=0x000c, text=» TNDWB2, C«, t00=0x0037, t01=0x0056}
0x5644…5658 Head {h00=0x0010, h01=0x000c, text=» TNDWD1, C«, t00=0x0037, t01=0x006a}
0x5658…566c Head {h00=0x0010, h01=0x000c, text=» TNDWS1, C«, t00=0x0037, t01=0x007e}
0x566c…567c Head {h00=0x000c, h01=0x0008, text=» TNDBUF«, t00=0x0037, t01=0x0092}
0x567c…568e Head {h00=0x000e, h01=0x0050, text=» PDSET TND«, t00=0x0037, t01=0x00a2}
0x568e…56a2 Head {h00=0x0010, h01=0x0050, text=» PBIN TNDWB1«, t00=0x0037, t01=0x00b4}
0x56a2…56b6 Head {h00=0x0010, h01=0x0050, text=» PBIN TNDWB2«, t00=0x0037, t01=0x00c8}
0x56b6…56ca Head {h00=0x0010, h01=0x0050, text=» PBCD TNDWD1«, t00=0x0037, t01=0x00dc}
0x56ca…56e0 Head {h00=0x0012, h01=0x0050, text=» PSTRG TNDWS1 «, t00=0x0037, t01=0x00f0}
0x56e0…56f6 Head {h00=0x0012, h01=0x0050, text=» PSTRG TNDBUF «, t00=0x0037, t01=0x0106}
0x56f6…571e Head {h00=0x0024, h01=0x0050, text=» DSC2 TND,03,TNDST,TNDBUF,TNDWB1«, t00=0x0037, t01=0x011c}
0x571e…572a Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0037, t01=0x0144}
0x572a…5738 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0037, t01=0x0150}
0x5738…5746 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x015e}
0x5746…5750 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x016c}
0x5750…5774 Head {h00=0x0020, h01=0x001b, text=»* DISPENSE NOTES TO STACKER «, t00=0x0037, t01=0x0176}
0x5774…577e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0038, t01=0x000a}
0x577e…579a Head {h00=0x0018, h01=0x0050, text=»DISPIO PROC TND, C «, t00=0x0038, t01=0x0014}
0x579a…57ae Head {h00=0x0010, h01=0x000c, text=» TNDWB1, C«, t00=0x0038, t01=0x0030}
0x57ae…57c2 Head {h00=0x0010, h01=0x000c, text=» TNDWB2, C«, t00=0x0038, t01=0x0044}
0x57c2…57d6 Head {h00=0x0010, h01=0x000c, text=» TNDWD1, C«, t00=0x0038, t01=0x0058}
0x57d6…57ea Head {h00=0x0010, h01=0x000c, text=» TNDWS1, C«, t00=0x0038, t01=0x006c}
0x57ea…57fa Head {h00=0x000c, h01=0x0008, text=» TNDBUF«, t00=0x0038, t01=0x0080}
0x57fa…580c Head {h00=0x000e, h01=0x0050, text=» PDSET TND«, t00=0x0038, t01=0x0090}
0x580c…5820 Head {h00=0x0010, h01=0x0050, text=» PBIN TNDWB1«, t00=0x0038, t01=0x00a2}
0x5820…5834 Head {h00=0x0010, h01=0x0050, text=» PBIN TNDWB2«, t00=0x0038, t01=0x00b6}
0x5834…5848 Head {h00=0x0010, h01=0x0050, text=» PBCD TNDWD1«, t00=0x0038, t01=0x00ca}
0x5848…585e Head {h00=0x0012, h01=0x0050, text=» PSTRG TNDWS1 «, t00=0x0038, t01=0x00de}
0x585e…5874 Head {h00=0x0012, h01=0x0050, text=» PSTRG TNDBUF «, t00=0x0038, t01=0x00f4}
0x5874…587e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0038, t01=0x010a}
0x587e…58be Head {h00=0x003c, h01=0x0038, text=»* EDIT NOTES TO DISPENSE INTO OUTPUT BUFFER AND DISPENSE«, t00=0x0038, t01=0x0114}
0x58be…58c8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0038, t01=0x0154}
0x58c8…58e2 Head {h00=0x0016, h01=0x0012, text=» MOVE TNDBUF,=C'0'«, t00=0x0038, t01=0x015e}
0x58e2…590c Head {h00=0x0026, h01=0x0050, text=» MOVE TNDWB1,KW0 REQUESTED LENGTH «, t00=0x0038, t01=0x0178}
0x590c…5932 Head {h00=0x0022, h01=0x0050, text=» MOVE TNDWB2,KW1 CASSETT INDEX«, t00=0x0039, t01=0x0012}
0x5932…5942 Head {h00=0x000c, h01=0x0050, text=»DISPI10 «, t00=0x0039, t01=0x0038}
0x5942…5972 Head {h00=0x002c, h01=0x0050, text=» CBG TNDWB2,CASMAX,DISPI20 DONE EDITING «, t00=0x0039, t01=0x0048}
0x5972…59ac Head {h00=0x0036, h01=0x0050, text=» MOVE TNDST,NDDATA2(KW1,TNDWB2) GET LOGICAL INDEX «, t00=0x0039, t01=0x0078}
0x59ac…59e4 Head {h00=0x0034, h01=0x0050, text=» EDSUB TNDBUF,TNDWB1,DISPFMT EDIT DATA TO BUFFER«, t00=0x0039, t01=0x00b2}
0x59e4…5a14 Head {h00=0x002c, h01=0x0050, text=» ADD TNDWB2,KW1 INCREMENT CASSETTE INDEX«, t00=0x0039, t01=0x00ea}
0x5a14…5a2c Head {h00=0x0014, h01=0x0050, text=» B DISPI10 LOOP «, t00=0x0039, t01=0x011a}
0x5a2c…5a3c Head {h00=0x000c, h01=0x0050, text=»DISPI20 «, t00=0x0039, t01=0x0132}
0x5a3c…5a68 Head {h00=0x0028, h01=0x0050, text=» DSC2 TND,X'15',TNDST,TNDBUF,TNDWB1 «, t00=0x0039, t01=0x0142}
0x5a68…5a74 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0039, t01=0x016e}
0x5a74…5a7e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0039, t01=0x017a}
0x5a7e…5a88 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0039, t01=0x0184}
0x5a88…5aae Head {h00=0x0022, h01=0x001e, text=»* SUB EDIT FORMAT FOR DISPINSE«, t00=0x0039, t01=0x018e}
0x5aae…5ade Head {h00=0x002c, h01=0x0050, text=»* MOVES NDDATA1(KW2,X) TO OUTPUT BUFFER «, t00=0x003a, t01=0x0024}
0x5ade…5ae8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003a, t01=0x0054}
0x5ae8…5afc Head {h00=0x0010, h01=0x0050, text=»DISPFMT FRMT«, t00=0x003a, t01=0x005e}
0x5afc…5b10 Head {h00=0x0010, h01=0x000c, text=» FILLR ' ',2«, t00=0x003a, t01=0x0072}
0x5b10…5b40 Head {h00=0x002c, h01=0x0050, text=» FBNZ TNDST,FMT10 BRANCH IF DISPENSE OK «, t00=0x003a, t01=0x0086}
0x5b40…5b64 Head {h00=0x0020, h01=0x0050, text=» FILLR '0',3 DON'T DISPENSE «, t00=0x003a, t01=0x00b6}
0x5b64…5b76 Head {h00=0x000e, h01=0x0050, text=» FB FMT20 «, t00=0x003a, t01=0x00da}
0x5b76…5b84 Head {h00=0x000a, h01=0x0050, text=»FMT10 «, t00=0x003a, t01=0x00ec}
0x5b84…5bac Head {h00=0x0024, h01=0x0050, text=» FMEL 'PP999',NDDATA1(KW2,TNDST)«, t00=0x003a, t01=0x00fa}
0x5bac…5bba Head {h00=0x000a, h01=0x0050, text=»FMT20 «, t00=0x003a, t01=0x0122}
0x5bba…5bc8 Head {h00=0x000a, h01=0x0006, text=» FMEND«, t00=0x003a, t01=0x0130}
0x5bc8…5bd6 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x003a, t01=0x013e}
0x5bd6…5be4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x014c}
0x5be4…5bee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x015a}
0x5bee…5c10 Head {h00=0x001e, h01=0x0050, text=»* DELIVER NOTES TO TELLER «, t00=0x003a, t01=0x0164}
0x5c10…5c1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0186}
0x5c1a…5c36 Head {h00=0x0018, h01=0x0050, text=»DELVIO PROC TND, C «, t00=0x003a, t01=0x0190}
0x5c36…5c4a Head {h00=0x0010, h01=0x000c, text=» TNDWB1, C«, t00=0x003b, t01=0x001c}
0x5c4a…5c5e Head {h00=0x0010, h01=0x000c, text=» TNDWB2, C«, t00=0x003b, t01=0x0030}
0x5c5e…5c72 Head {h00=0x0010, h01=0x000c, text=» TNDWD1, C«, t00=0x003b, t01=0x0044}
0x5c72…5c86 Head {h00=0x0010, h01=0x000c, text=» TNDWS1, C«, t00=0x003b, t01=0x0058}
0x5c86…5c96 Head {h00=0x000c, h01=0x0008, text=» TNDBUF«, t00=0x003b, t01=0x006c}
0x5c96…5ca8 Head {h00=0x000e, h01=0x0050, text=» PDSET TND«, t00=0x003b, t01=0x007c}
0x5ca8…5cbc Head {h00=0x0010, h01=0x0050, text=» PBIN TNDWB1«, t00=0x003b, t01=0x008e}
0x5cbc…5cd0 Head {h00=0x0010, h01=0x0050, text=» PBIN TNDWB2«, t00=0x003b, t01=0x00a2}
0x5cd0…5ce4 Head {h00=0x0010, h01=0x0050, text=» PBCD TNDWD1«, t00=0x003b, t01=0x00b6}
0x5ce4…5cfa Head {h00=0x0012, h01=0x0050, text=» PSTRG TNDWS1 «, t00=0x003b, t01=0x00ca}
0x5cfa…5d10 Head {h00=0x0012, h01=0x0050, text=» PSTRG TNDBUF «, t00=0x003b, t01=0x00e0}
0x5d10…5d24 Head {h00=0x0010, h01=0x0050, text=» DSC0 TND,1 «, t00=0x003b, t01=0x00f6}
0x5d24…5d30 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003b, t01=0x010a}
0x5d30…5d3e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003b, t01=0x0116}
0x5d3e…5d4c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x0124}
0x5d4c…5d56 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003b, t01=0x0132}
0x5d56…5d74 Head {h00=0x001a, h01=0x0016, text=»* ASSORTED SUBROUTINES«, t00=0x003b, t01=0x013c}
0x5d74…5d7e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003b, t01=0x015a}
0x5d7e…5d9c Head {h00=0x001a, h01=0x0050, text=»* NAME: ERRND«, t00=0x003b, t01=0x0164}
0x5d9c…5da6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003b, t01=0x0182}
0x5da6…5df8 Head {h00=0x004e, h01=0x0050, text=»* PURPOSE: REPORT ERROR TO APPLICATION, BLOCK TND, SET ERROR RETURN «, t00=0x003b, t01=0x018c}
0x5df8…5e10 Head {h00=0x0014, h01=0x000f, text=»* CODE «, t00=0x003c, t01=0x004e}
0x5e10…5e36 Head {h00=0x0022, h01=0x0050, text=»* CALL: PERF NDERR «, t00=0x003c, t01=0x0066}
0x5e36…5e40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x008c}
0x5e40…5e54 Head {h00=0x0010, h01=0x000c, text=»* PARAMETERS«, t00=0x003c, t01=0x0096}
0x5e54…5e64 Head {h00=0x000c, h01=0x0007, text=»* IN: «, t00=0x003c, t01=0x00aa}
0x5e64…5e74 Head {h00=0x000c, h01=0x0008, text=»* OUT:«, t00=0x003c, t01=0x00ba}
0x5e74…5e88 Head {h00=0x0010, h01=0x000b, text=»* VARIABLES «, t00=0x003c, t01=0x00ca}
0x5e88…5eb4 Head {h00=0x0028, h01=0x0024, text=»* IN: TNDST-CONTAINS ERROR INDEX«, t00=0x003c, t01=0x00de}
0x5eb4…5ee0 Head {h00=0x0028, h01=0x0024, text=»* OUT TNDST-HAS ERROR RETURN CODE«, t00=0x003c, t01=0x010a}
0x5ee0…5f2c Head {h00=0x0048, h01=0x0043, text=»* TNDBAD=T TO BLOCK TND DISPENSE, DELIVER AND DUMP FUNCTIONS «, t00=0x003c, t01=0x0136}
0x5f2c…5f36 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003c, t01=0x0182}
0x5f36…5f40 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003c, t01=0x018c}
0x5f40…5f52 Head {h00=0x000e, h01=0x000a, text=»ERRND PROC«, t00=0x003d, t01=0x0008}
0x5f52…5f80 Head {h00=0x002a, h01=0x0026, text=» SET TNDBAD BLOCK DISP'NS,DEL'R & DUMP«, t00=0x003d, t01=0x001a}
0x5f80…5fa6 Head {h00=0x0022, h01=0x001e, text=» PERF NDERR,TNDST REPORT ERROR«, t00=0x003d, t01=0x0048}
0x5fa6…5fca Head {h00=0x0020, h01=0x0050, text=» MOVE TNDST,KW1 RETURN CODE «, t00=0x003d, t01=0x006e}
0x5fca…5fd6 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x003d, t01=0x0092}
0x5fd6…5fe4 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x003d, t01=0x009e}
0x5fe4…5ff2 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x003d, t01=0x00ac}
0x5ff2…603e Head {h00=0x0048, h01=0x0044, text=»********************************************************************«, t00=0x003d, t01=0x00ba}
0x603e…6048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0106}
0x6048…6068 Head {h00=0x001c, h01=0x0050, text=»* NAME: GETREJ «, t00=0x003d, t01=0x0110}
0x6068…6072 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0130}
0x6072…60bc Head {h00=0x0046, h01=0x0050, text=»* PURPOSE: CALCULATE REJECTED NOTES, REPORT CASSETTE STATUS «, t00=0x003d, t01=0x013a}
0x60bc…60c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0184}
0x60c6…6112 Head {h00=0x0048, h01=0x0050, text=»* CALL: PERF GETREJ,TYPE,TND,TNDWB1,TNDWB2,TNDWD1,TNDWS1,TNDBUF«, t00=0x003d, t01=0x018e}
0x6112…6144 Head {h00=0x002e, h01=0x0050, text=»* RET 0 NO DISPENSE WAS DONE«, t00=0x003e, t01=0x004a}
0x6144…6174 Head {h00=0x002c, h01=0x0050, text=»* RET 2 ALL UPDATING DONE «, t00=0x003e, t01=0x007c}
0x6174…617e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00ac}
0x617e…6192 Head {h00=0x0010, h01=0x0050, text=»* PARAMETERS«, t00=0x003e, t01=0x00b6}
0x6192…61c4 Head {h00=0x002e, h01=0x0050, text=»* IN: TYPE-BIN, INDICATING UPDATE TYPE«, t00=0x003e, t01=0x00ca}
0x61c4…6212 Head {h00=0x004a, h01=0x0050, text=»* =1, UPD. NDDATA1(KW5,X) BY DISPENSED-REQUESTED DISPENSE«, t00=0x003e, t01=0x00fc}
0x6212…624e Head {h00=0x0038, h01=0x0050, text=»* =2, UPD. NDDATA1(KW5,X) BY DISPENSED «, t00=0x003e, t01=0x014a}
0x624e…6290 Head {h00=0x003e, h01=0x0050, text=»* =3, SAME AS 2, PLUS REPORT CASSETTE ERRORS «, t00=0x003e, t01=0x0186}
0x6290…62b4 Head {h00=0x0020, h01=0x0050, text=»* TND TND DATA SET «, t00=0x003f, t01=0x0038}
0x62b4…62f0 Head {h00=0x0038, h01=0x0050, text=»* TNDWB1 BIN WORK REGISTER & CASSETTE INDEX «, t00=0x003f, t01=0x005c}
0x62f0…631a Head {h00=0x0026, h01=0x0050, text=»* TNDWB2 BIN WORK REGISTER«, t00=0x003f, t01=0x0098}
0x631a…6364 Head {h00=0x0046, h01=0x0050, text=»* TNDWD1 BCD WORK REGISTER, MINIMUM 7 CHAR PLUS SIGN CHAR «, t00=0x003f, t01=0x00c2}
0x6364…63a0 Head {h00=0x0038, h01=0x0050, text=»* TNDWS1 STRG WORK REGISTER, MINIMUM 5 CHAR «, t00=0x003f, t01=0x010c}
0x63a0…63e4 Head {h00=0x0040, h01=0x0050, text=»* TNDBUF STRG I/O BUFFER, MINIMUM (CASMAX+1)X5 CHAR «, t00=0x003f, t01=0x0148}
0x63e4…63f8 Head {h00=0x0010, h01=0x0050, text=»* VARIABLES «, t00=0x003f, t01=0x018c}
0x63f8…6436 Head {h00=0x003a, h01=0x0050, text=»* IN: CASMAX-BIN, MAX POSSIBLE CASSETTE POSITIONS «, t00=0x0040, t01=0x0010}
0x6436…6460 Head {h00=0x0026, h01=0x0050, text=»* TNDST -BIN WORK REGISTER«, t00=0x0040, t01=0x004e}
0x6460…646a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0078}
0x646a…64b6 Head {h00=0x0048, h01=0x0044, text=»********************************************************************«, t00=0x0040, t01=0x0082}
0x64b6…64d2 Head {h00=0x0018, h01=0x0050, text=»GETREJ PROC TYPE, C«, t00=0x0040, t01=0x00ce}
0x64d2…64e4 Head {h00=0x000e, h01=0x0009, text=» TND, C «, t00=0x0040, t01=0x00ea}
0x64e4…64f8 Head {h00=0x0010, h01=0x000c, text=» TNDWB1, C«, t00=0x0040, t01=0x00fc}
0x64f8…650c Head {h00=0x0010, h01=0x000c, text=» TNDWB2, C«, t00=0x0040, t01=0x0110}
0x650c…6520 Head {h00=0x0010, h01=0x000c, text=» TNDWD1, C«, t00=0x0040, t01=0x0124}
0x6520…6534 Head {h00=0x0010, h01=0x000c, text=» TNDWS1, C«, t00=0x0040, t01=0x0138}
0x6534…6544 Head {h00=0x000c, h01=0x0008, text=» TNDBUF«, t00=0x0040, t01=0x014c}
0x6544…6556 Head {h00=0x000e, h01=0x0050, text=» PBIN TYPE«, t00=0x0040, t01=0x015c}
0x6556…6568 Head {h00=0x000e, h01=0x0050, text=» PDSET TND«, t00=0x0040, t01=0x016e}
0x6568…657c Head {h00=0x0010, h01=0x0050, text=» PBIN TNDWB1«, t00=0x0040, t01=0x0180}
0x657c…6590 (65, 0, 398) Head {h00=0x0010, h01=0x0050, text=» PBIN TNDWB2«, t00=0x0041, t01=0x0004}
0x6590…65a4 Head {h00=0x0010, h01=0x0050, text=» PBCD TNDWD1«, t00=0x0041, t01=0x0018}
0x65a4…65ba Head {h00=0x0012, h01=0x0050, text=» PSTRG TNDWS1 «, t00=0x0041, t01=0x002c}
0x65ba…65d0 Head {h00=0x0012, h01=0x0050, text=» PSTRG TNDBUF «, t00=0x0041, t01=0x0042}
0x65d0…65da Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0041, t01=0x0058}
0x65da…660e Head {h00=0x0030, h01=0x0050, text=»* READ STATUS AND NUMBER OF NOTES DISPENSED «, t00=0x0041, t01=0x0062}
0x660e…6618 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0041, t01=0x0096}
0x6618…6644 Head {h00=0x0028, h01=0x0050, text=» MOVE TNDST,=W'35' REQUESTED LENGTH «, t00=0x0041, t01=0x00a0}
0x6644…6670 Head {h00=0x0028, h01=0x0050, text=» DSC2 TND,X'14',TNDWB1,TNDBUF,TNDST «, t00=0x0041, t01=0x00cc}
0x6670…667a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0041, t01=0x00f8}
0x667a…66a4 Head {h00=0x0026, h01=0x0021, text=»* ANALISE RESULTS OF READ CONTROL «, t00=0x0041, t01=0x0102}
0x66a4…66ae Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0041, t01=0x012c}
0x66ae…66cc Head {h00=0x001a, h01=0x0050, text=» CBNE TNDST,KW0,GET10 «, t00=0x0041, t01=0x0136}
0x66cc…66d8 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0041, t01=0x0154}
0x66d8…66e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0160}
0x66e2…66f6 Head {h00=0x0010, h01=0x0050, text=»* INITIALIZE«, t00=0x0041, t01=0x016a}
0x66f6…6700 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x017e}
0x6700…670e Head {h00=0x000a, h01=0x0005, text=»GET10 «, t00=0x0041, t01=0x0188}
0x670e…6742 Head {h00=0x0030, h01=0x0050, text=» MOVE TNDWB2,TNDST GET PHYSICAL POSITION OF «, t00=0x0042, t01=0x0008}
0x6742…6778 Head {h00=0x0032, h01=0x0050, text=» DIV TNDWB2,KW5 ...CASS. FROM EFFECTIVE LENGTH«, t00=0x0042, t01=0x003c}
0x6778…67a2 Head {h00=0x0026, h01=0x0050, text=» ADD TNDST,KW2 INIT BUFFER POINTER«, t00=0x0042, t01=0x0072}
0x67a2…67b0 Head {h00=0x000a, h01=0x0050, text=»GET20 «, t00=0x0042, t01=0x009c}
0x67b0…67e2 Head {h00=0x002e, h01=0x0050, text=» SUB TNDST,KW6 POINT AT NEXT CASS. STATUS «, t00=0x0042, t01=0x00aa}
0x67e2…6818 Head {h00=0x0032, h01=0x0050, text=» CBNL TNDST,KW5,GET25 BRANCH NOT END OF BUFFER«, t00=0x0042, t01=0x00dc}
0x6818…6830 Head {h00=0x0014, h01=0x0050, text=» RET 2 YES, DONE«, t00=0x0042, t01=0x0112}
0x6830…683e Head {h00=0x000a, h01=0x0050, text=»GET25 «, t00=0x0042, t01=0x012a}
0x683e…686e Head {h00=0x002c, h01=0x0050, text=» SUB TNDWB2,KW1 PHYSICAL CASSETTE INDEX «, t00=0x0042, t01=0x0138}
0x686e…688e Head {h00=0x001c, h01=0x0050, text=» CBG TNDWB2,CASMAX,GET20«, t00=0x0042, t01=0x0168}
0x688e…68c8 Head {h00=0x0036, h01=0x0050, text=» MOVE TNDWB1,NDDATA2(KW1,TNDWB2) GET LOGICAL INDEX«, t00=0x0042, t01=0x0188}
0x68c8…68e2 Head {h00=0x0016, h01=0x0050, text=» MOVE TNDWS1,=C' '«, t00=0x0043, t01=0x0032}
0x68e2…6914 Head {h00=0x002e, h01=0x0050, text=» CBE TNDWB1,KW0,GET35 CASSETTE NOT MAPPED «, t00=0x0043, t01=0x004c}
0x6914…6930 Head {h00=0x0018, h01=0x0050, text=» IB TYPE,GET35,GET35«, t00=0x0043, t01=0x007e}
0x6930…693a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x009a}
0x693a…694e Head {h00=0x0010, h01=0x0050, text=»* GET STATUS«, t00=0x0043, t01=0x00a4}
0x694e…6958 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00b8}
0x6958…6982 Head {h00=0x0026, h01=0x0050, text=» COPY TNDWS1,KW0,KW1,TNDBUF,TNDST «, t00=0x0043, t01=0x00c2}
0x6982…69bc Head {h00=0x0036, h01=0x0050, text=» CBNE TNDWS1,=C'2',GET30 BRANCH NOT CASSETTE EMPTY«, t00=0x0043, t01=0x00ec}
0x69bc…69f0 Head {h00=0x0030, h01=0x0050, text=» MOVE NDDATA2(KW2,TNDWB1),KW0 BLOCK CASSETTE«, t00=0x0043, t01=0x0126}
0x69f0…6a0c Head {h00=0x0018, h01=0x0050, text=» MOVE TNDCIX,TNDWB1 «, t00=0x0043, t01=0x015a}
0x6a0c…6a2a Head {h00=0x001a, h01=0x0050, text=» PERF NDERR,KW6 REPORT«, t00=0x0043, t01=0x0176}
0x6a2a…6a46 (68, 0, 400) Head {h00=0x0018, h01=0x0050, text=» MOVE TNDWB1,TNDCIX «, t00=0x0044, t01=0x0004}
0x6a46…6a6c Head {h00=0x0022, h01=0x0050, text=» B GET35 CALC. REJECTED NOTES «, t00=0x0044, t01=0x0020}
0x6a6c…6a76 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0044, t01=0x0046}
0x6a76…6abc Head {h00=0x0042, h01=0x003d, text=»* TEST FOR CASSETTE DOES NOT FEED, REPORT, BLOCK TND, TNDST=1 «, t00=0x0044, t01=0x0050}
0x6abc…6ac6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0044, t01=0x0096}
0x6ac6…6ad4 Head {h00=0x000a, h01=0x0050, text=»GET30 «, t00=0x0044, t01=0x00a0}
0x6ad4…6b08 Head {h00=0x0030, h01=0x0050, text=» CBNE TNDWS1,=C'6',GET35 NO ERROR, CALC REJ.«, t00=0x0044, t01=0x00ae}
0x6b08…6b2c Head {h00=0x0020, h01=0x0050, text=» SET TNDBAD BLOCK DISPENSING«, t00=0x0044, t01=0x00e2}
0x6b2c…6b48 Head {h00=0x0018, h01=0x0050, text=» MOVE TNDCIX,TNDWB1 «, t00=0x0044, t01=0x0106}
0x6b48…6b7a Head {h00=0x002e, h01=0x0050, text=» PERF NDERR,KW8 REPORT CASS. FAILS TO FEED«, t00=0x0044, t01=0x0122}
0x6b7a…6b96 Head {h00=0x0018, h01=0x0050, text=» MOVE TNDWB1,TNDCIX «, t00=0x0044, t01=0x0154}
0x6b96…6ba0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0044, t01=0x0170}
0x6ba0…6bd0 Head {h00=0x002c, h01=0x0050, text=»* DISPENSED NOTES TO REJECT ACCUMULATORS«, t00=0x0044, t01=0x017a}
0x6bd0…6bda Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0045, t01=0x001a}
0x6bda…6be8 Head {h00=0x000a, h01=0x0050, text=»GET35 «, t00=0x0045, t01=0x0024}
0x6be8…6c16 Head {h00=0x002a, h01=0x0050, text=» ADD TNDST,KW1 OFFSET TO AMT DISPENSED«, t00=0x0045, t01=0x0032}
0x6c16…6c40 Head {h00=0x0026, h01=0x0050, text=» COPY TNDWS1,KW0,KW3,TNDBUF,TNDST «, t00=0x0045, t01=0x0060}
0x6c40…6c5c Head {h00=0x0018, h01=0x0050, text=» MOVE TNDWD1,TNDWS1 «, t00=0x0045, t01=0x008a}
0x6c5c…6c8e Head {h00=0x002e, h01=0x0050, text=» CBE TNDWB1,KW0,GET50 CASSETTE NOT MAPPED «, t00=0x0045, t01=0x00a6}
0x6c8e…6cb0 Head {h00=0x001e, h01=0x0050, text=» IB TYPE,GET40,GET45,GET45«, t00=0x0045, t01=0x00d8}
0x6cb0…6cbe Head {h00=0x000a, h01=0x0050, text=»GET40 «, t00=0x0045, t01=0x00fa}
0x6cbe…6cfa Head {h00=0x0038, h01=0x0050, text=» SUB TNDWD1,NDDATA1(KW2,TNDWB1) DISPENSED-REQUESTED «, t00=0x0045, t01=0x0108}
0x6cfa…6d08 Head {h00=0x000a, h01=0x0050, text=»GET45 «, t00=0x0045, t01=0x0144}
0x6d08…6d40 Head {h00=0x0034, h01=0x0050, text=» ADD NDDATA1(KW5,TNDWB1),TNDWD1 UPDATE REJECTED «, t00=0x0045, t01=0x0152}
0x6d40…6d4e Head {h00=0x000a, h01=0x0050, text=»GET50 «, t00=0x0045, t01=0x018a}
0x6d4e…6d84 Head {h00=0x0032, h01=0x0050, text=» ADD NDDUMP,TNDWD1 ADD REJ. TO TOTAL REJECTED «, t00=0x0046, t01=0x0008}
0x6d84…6d94 Head {h00=0x000c, h01=0x0050, text=» B GET20«, t00=0x0046, t01=0x003e}
0x6d94…6da2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0046, t01=0x004e}
0x6da2…6db0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x005c}
0x6db0…6dba Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0046, t01=0x006a}
0x6dba…6dc4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0046, t01=0x0074}
0x6dc4…6de4 Head {h00=0x001c, h01=0x0017, text=»* NAME: TNDMSK «, t00=0x0046, t01=0x007e}
0x6de4…6dee Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0046, t01=0x009e}
0x6dee…6e34 Head {h00=0x0042, h01=0x003e, text=»* PURPOSE: LOGICAL PRODUKT OF RETURN CODE AND GIVEN MASK«, t00=0x0046, t01=0x00a8}
0x6e34…6e3e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0046, t01=0x00ee}
0x6e3e…6e74 Head {h00=0x0032, h01=0x0050, text=»* CALL: PERF TNDMSK,TNDWB1,TNDWB2,LIT«, t00=0x0046, t01=0x00f8}
0x6e74…6ea2 Head {h00=0x002a, h01=0x0026, text=»* RET0 RESULTS NOT ZERO«, t00=0x0046, t01=0x012e}
0x6ea2…6ece Head {h00=0x0028, h01=0x0023, text=»* RET2 RESULTS ZERO «, t00=0x0046, t01=0x015c}
0x6ece…6ed8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0046, t01=0x0188}
0x6ed8…6eec (71, 0, 400) Head {h00=0x0010, h01=0x000c, text=»* PARAMETERS«, t00=0x0047, t01=0x0004}
0x6eec…6f1c Head {h00=0x002c, h01=0x0028, text=»* IN: LIT-BINARY LITERAL, GIVEN MASK«, t00=0x0047, t01=0x0018}
0x6f1c…6f46 Head {h00=0x0026, h01=0x0050, text=»* TNDWB1 BIN WORK REGISTER«, t00=0x0047, t01=0x0048}
0x6f46…6f62 Head {h00=0x0018, h01=0x0050, text=»* TNDWB2 " «, t00=0x0047, t01=0x0072}
0x6f62…6f72 Head {h00=0x000c, h01=0x0008, text=»* OUT:«, t00=0x0047, t01=0x008e}
0x6f72…6f7c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0047, t01=0x009e}
0x6f7c…6f90 Head {h00=0x0010, h01=0x000b, text=»* VARIABLES «, t00=0x0047, t01=0x00a8}
0x6f90…6fc4 Head {h00=0x0030, h01=0x0050, text=»* IN: TNDWB1-LOADED WITH TND RETURN CODE«, t00=0x0047, t01=0x00bc}
0x6fc4…6fd4 Head {h00=0x000c, h01=0x0008, text=»* OUT:«, t00=0x0047, t01=0x00f0}
0x6fd4…6fde Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0047, t01=0x0100}
0x6fde…6ff0 Head {h00=0x000e, h01=0x0009, text=»* SCRATCH «, t00=0x0047, t01=0x010a}
0x6ff0…7008 Head {h00=0x0014, h01=0x0050, text=»* TNDWB2«, t00=0x0047, t01=0x011c}
0x7008…7012 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0047, t01=0x0134}
0x7012…7038 Head {h00=0x0022, h01=0x0050, text=»TNDMSK PROC TNDWB1,TNDWB2,LIT «, t00=0x0047, t01=0x013e}
0x7038…704c Head {h00=0x0010, h01=0x0050, text=» PBIN TNDWB1«, t00=0x0047, t01=0x0164}
0x704c…7060 Head {h00=0x0010, h01=0x0050, text=» PBIN TNDWB2«, t00=0x0047, t01=0x0178}
0x7060…7072 Head {h00=0x000e, h01=0x0050, text=» PLIT LIT «, t00=0x0047, t01=0x018c}
0x7072…70a0 Head {h00=0x002a, h01=0x0050, text=» ADD TNDST,KW1 INCREMENT INDEX COUNTER«, t00=0x0048, t01=0x000e}
0x70a0…70b8 Head {h00=0x0014, h01=0x0050, text=» MOVE TNDWB2,LIT«, t00=0x0048, t01=0x003c}
0x70b8…70d8 Head {h00=0x001c, h01=0x0050, text=» CALL MASK,TNDWB1,TNDWB2«, t00=0x0048, t01=0x0054}
0x70d8…70ec Head {h00=0x0010, h01=0x000c, text=» BZ TNDMSK10«, t00=0x0048, t01=0x0074}
0x70ec…70f8 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0048, t01=0x0088}
0x70f8…7108 Head {h00=0x000c, h01=0x0008, text=»TNDMSK10«, t00=0x0048, t01=0x0094}
0x7108…7116 Head {h00=0x000a, h01=0x0006, text=» RET 2«, t00=0x0048, t01=0x00a4}
0x7116…7124 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0048, t01=0x00b2}
0x7124…7132 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0048, t01=0x00c0}
0x7132…717e Head {h00=0x0048, h01=0x0044, text=»********************************************************************«, t00=0x0048, t01=0x00ce}
0x717e…7188 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x011a}
0x7188…71a6 Head {h00=0x001a, h01=0x0050, text=»* NAME: PDDUMP«, t00=0x0048, t01=0x0124}
0x71a6…71b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0142}
0x71b0…71ea Head {h00=0x0036, h01=0x0050, text=»* PURPOSE: UPDATE TND REGISTERS AFTER DELIVER«, t00=0x0048, t01=0x014c}
0x71ea…71f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0186}
0x71f4…7224 Head {h00=0x002c, h01=0x0050, text=»* CALL: PERF PDDUMP,PORD,TNDWB1 «, t00=0x0048, t01=0x0190}
0x7224…722e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0030}
0x722e…7244 Head {h00=0x0012, h01=0x0050, text=»* PARAMETERS: «, t00=0x0049, t01=0x003a}
0x7244…727c Head {h00=0x0034, h01=0x0050, text=»* IN: PORD BIN ELEMENT=0=>NOTES DELIVERED «, t00=0x0049, t01=0x0050}
0x727c…72b8 Head {h00=0x0038, h01=0x0050, text=»* =1=>NOTES NOT DELIVERED «, t00=0x0049, t01=0x0088}
0x72b8…72e2 Head {h00=0x0026, h01=0x0050, text=»* TNDWB1 BIN WORK REGISTER«, t00=0x0049, t01=0x00c4}
0x72e2…72ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00ee}
0x72ec…72fc Head {h00=0x000c, h01=0x0050, text=»* OUT:«, t00=0x0049, t01=0x00f8}
0x72fc…7306 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0108}
0x7306…731a Head {h00=0x0010, h01=0x0050, text=»* VARIABLES «, t00=0x0049, t01=0x0112}
0x731a…7366 Head {h00=0x0048, h01=0x0050, text=»* IN: NDDATA1(KW2,X) BCD ARRAY, NUMBER OF NOTES DISPENSED/CASS. «, t00=0x0049, t01=0x0126}
0x7366…7370 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0172}
0x7370…73b6 Head {h00=0x0042, h01=0x0050, text=»* OUT: NDDATA1(KW1,X) BCD ARRAY, NUMBER OF NOTES PAID/CASS.«, t00=0x0049, t01=0x017c}
0x73b6…7402 Head {h00=0x0048, h01=0x0050, text=»* TNDREG(X) BCD ARRAY, TOTAL TO DISPENSE-NDDATA1(KW2,X) «, t00=0x004a, t01=0x0032}
0x7402…7416 Head {h00=0x0010, h01=0x0050, text=»* OR«, t00=0x004a, t01=0x007e}
0x7416…745e Head {h00=0x0044, h01=0x0050, text=»* NDDATA1(KW5,X) BCD ARRAY, TOTAL DUMPED+NDDATA1(KW2,X) «, t00=0x004a, t01=0x0092}
0x745e…7490 Head {h00=0x002e, h01=0x0050, text=»* NDDATA1(KW2,X) BCD ARRAY ZEROED «, t00=0x004a, t01=0x00da}
0x7490…749a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x010c}
0x749a…74e6 Head {h00=0x0048, h01=0x0044, text=»********************************************************************«, t00=0x004a, t01=0x0116}
0x74e6…7506 Head {h00=0x001c, h01=0x0050, text=»PDDUMP PROC PORD,TNDWB1 «, t00=0x004a, t01=0x0162}
0x7506…7518 Head {h00=0x000e, h01=0x0050, text=» PBIN PORD«, t00=0x004a, t01=0x0182}
0x7518…752c (75, 0, 400) Head {h00=0x0010, h01=0x0050, text=» PBIN TNDWB1«, t00=0x004b, t01=0x0004}
0x752c…7554 Head {h00=0x0024, h01=0x0050, text=» MOVE TNDWB1,KW0 CASSETTE INDEX «, t00=0x004b, t01=0x0018}
0x7554…7562 Head {h00=0x000a, h01=0x0050, text=»PDD10 «, t00=0x004b, t01=0x0040}
0x7562…7586 Head {h00=0x0020, h01=0x0050, text=» ADD TNDWB1,KW1 NEXT CASETTE«, t00=0x004b, t01=0x004e}
0x7586…75a8 Head {h00=0x001e, h01=0x0050, text=» CBNG TNDWB1,CASMAX,PDD20 «, t00=0x004b, t01=0x0072}
0x75a8…75ba Head {h00=0x000e, h01=0x0050, text=» RET DONE«, t00=0x004b, t01=0x0094}
0x75ba…75c8 Head {h00=0x000a, h01=0x0050, text=»PDD20 «, t00=0x004b, t01=0x00a6}
0x75c8…75fa Head {h00=0x002e, h01=0x0050, text=» CBE PORD,KW1,PDD30 BRANCH IF NOTES DUMPED«, t00=0x004b, t01=0x00b4}
0x75fa…7602 Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x00e6}
0x7602…763e Head {h00=0x0038, h01=0x0050, text=»* NOTES DELIVERED: UPDATED TOATAL AMOUNT PAID/CASS. «, t00=0x004b, t01=0x00ee}
0x763e…7680 Head {h00=0x003e, h01=0x0050, text=»* SUBTRACT AMOUNT DELIVERED FROM TOTAL AMT TO DISPENSE«, t00=0x004b, t01=0x012a}
0x7680…7688 Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x016c}
0x7688…76c8 Head {h00=0x003c, h01=0x0050, text=» ADD NDDATA1(KW1,TNDWB1),NDDATA1(KW2,TNDWB1) TOTAL PAID «, t00=0x004b, t01=0x0174}
0x76c8…770c Head {h00=0x0040, h01=0x0050, text=» SUB TNDREG(TNDWB1),NDDATA1(KW2,TNDWB1) AMT LEFT TO DISPENSE«, t00=0x004c, t01=0x0024}
0x770c…7748 Head {h00=0x0038, h01=0x0050, text=» MOVE NDDATA1(KW2,TNDWB1),KW0 ZERO AMOUNT DISPENSED «, t00=0x004c, t01=0x0068}
0x7748…7758 Head {h00=0x000c, h01=0x0050, text=» B PDD10«, t00=0x004c, t01=0x00a4}
0x7758…7760 Head {h00=0x0004, h01=0x0050, t00=0x004c, t01=0x00b4}
0x7760…779a Head {h00=0x0036, h01=0x0050, text=»* NOTES NOT DELIVERED: UPDATE AMOUNT DUMPED/CASS. «, t00=0x004c, t01=0x00bc}
0x779a…77a2 Head {h00=0x0004, h01=0x0050, t00=0x004c, t01=0x00f6}
0x77a2…77b0 Head {h00=0x000a, h01=0x0050, text=»PDD30 «, t00=0x004c, t01=0x00fe}
0x77b0…77f2 Head {h00=0x003e, h01=0x0050, text=» ADD NDDATA1(KW5,TNDWB1),NDDATA1(KW2,TNDWB1) NOTES DUMPED/«, t00=0x004c, t01=0x010c}
0x77f2…782e Head {h00=0x0038, h01=0x0050, text=» ADD NDDUMP,NDDATA1(KW2,TNDWB1) UPDATE TOTAL DUMPED «, t00=0x004c, t01=0x014e}
0x782e…783e Head {h00=0x000c, h01=0x0050, text=» B PDD10«, t00=0x004c, t01=0x018a}
0x783e…784c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004d, t01=0x000a}
0x784c…785a Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x004d, t01=0x0018}
0x785a…78a6 Head {h00=0x0048, h01=0x0044, text=»********************************************************************«, t00=0x004d, t01=0x0026}
0x78a6…78b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0072}
0x78b0…78ce Head {h00=0x001a, h01=0x0050, text=»* NAME: IOTNDS«, t00=0x004d, t01=0x007c}
0x78ce…78d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x009a}
0x78d8…7924 Head {h00=0x0048, h01=0x0050, text=»* PURPOSE: GET COMMANDS TO & RETURN STATUS FROM TND OF LAST I/O«, t00=0x004d, t01=0x00a4}
0x7924…7962 Head {h00=0x003a, h01=0x0050, text=»* ALSO REPORT IF ERROR OR REJECTED NOTES«, t00=0x004d, t01=0x00f0}
0x7962…796c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x012e}
0x796c…79a2 Head {h00=0x0032, h01=0x0050, text=»* CALL: PERF IOTNDS,TND,TNDWB1,TNDWB2«, t00=0x004d, t01=0x0138}
0x79a2…79ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x016e}
0x79ac…79c2 Head {h00=0x0012, h01=0x0050, text=»* PARAMETERS: «, t00=0x004d, t01=0x0178}
0x79c2…79ec Head {h00=0x0026, h01=0x0050, text=»* IN: TND - TND DATA SET«, t00=0x004d, t01=0x018e}
0x79ec…7a1c Head {h00=0x002c, h01=0x0050, text=»* TNDWB1 - BINARY REGISTER«, t00=0x004e, t01=0x0028}
0x7a1c…7a4c Head {h00=0x002c, h01=0x0050, text=»* TNDWB2 - BINARY REGISTER«, t00=0x004e, t01=0x0058}
0x7a4c…7a96 Head {h00=0x0046, h01=0x0050, text=»* TNDWB3 - BITS SET IN RETURN CODE TO REPORT AS ERROR«, t00=0x004e, t01=0x0088}
0x7a96…7aa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00d2}
0x7aa0…7ad4 Head {h00=0x0030, h01=0x0050, text=»* OUT: TNDWB1 - RETURN CODE OF I/O «, t00=0x004e, t01=0x00dc}
0x7ad4…7ade Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0110}
0x7ade…7af2 Head {h00=0x0010, h01=0x0050, text=»* VARIABLES:«, t00=0x004e, t01=0x011a}
0x7af2…7b38 Head {h00=0x0042, h01=0x0050, text=»* OUT: TNDDVS - STRG WITH COMMANDS AND RETURN STATUS «, t00=0x004e, t01=0x012e}
0x7b38…7b7e Head {h00=0x0042, h01=0x0050, text=»* TNDREJ - STRG WITH REASON FOR LAST 15 REJECTS «, t00=0x004e, t01=0x0174}
0x7b7e…7b88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x002a}
0x7b88…7bd4 Head {h00=0x0048, h01=0x0044, text=»********************************************************************«, t00=0x004f, t01=0x0034}
0x7bd4…7be2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004f, t01=0x0080}
0x7be2…7c0e Head {h00=0x0028, h01=0x0050, text=»IOTNDS PROC TND,TNDWB1,TNDWB2,TNDWB3«, t00=0x004f, t01=0x008e}
0x7c0e…7c20 Head {h00=0x000e, h01=0x0050, text=» PDSET TND«, t00=0x004f, t01=0x00ba}
0x7c20…7c34 Head {h00=0x0010, h01=0x0050, text=» PBIN TNDWB1«, t00=0x004f, t01=0x00cc}
0x7c34…7c48 Head {h00=0x0010, h01=0x0050, text=» PBIN TNDWB2«, t00=0x004f, t01=0x00e0}
0x7c48…7c5c Head {h00=0x0010, h01=0x0050, text=» PBIN TNDWB3«, t00=0x004f, t01=0x00f4}
0x7c5c…7c92 Head {h00=0x0032, h01=0x0050, text=» MOVE TNDDVS,=C' ' BLANK COMMAND/STAUS STRING «, t00=0x004f, t01=0x0108}
0x7c92…7cbc Head {h00=0x0026, h01=0x0050, text=» XSTAT TND,TNDWB1 GET RETURN CODE «, t00=0x004f, t01=0x013e}
0x7cbc…7cf0 Head {h00=0x0030, h01=0x0050, text=» MOVE TNDIOL,KW4 UP TO 2 COMMANDS AND STATUS«, t00=0x004f, t01=0x0168}
0x7cf0…7d1c Head {h00=0x0028, h01=0x0050, text=» DSC2 TND,X'16',TNDWB2,TNDDVS,TNDIOL«, t00=0x0050, t01=0x000c}
0x7d1c…7d3a Head {h00=0x001a, h01=0x0050, text=» CBE TNDIOL,KW0,IOS100«, t00=0x0050, t01=0x0038}
0x7d3a…7d5c Head {h00=0x001e, h01=0x0050, text=» MOVE TNDWB2,=W'32' BIT 10«, t00=0x0050, t01=0x0056}
0x7d5c…7d84 Head {h00=0x0024, h01=0x0050, text=» CALL MASK,TNDWB1,TNDWB2 BIT 0N?«, t00=0x0050, t01=0x0078}
0x7d84…7dae Head {h00=0x0026, h01=0x0050, text=» BZ IOS100 BR IF NO NOTES REJECTED«, t00=0x0050, t01=0x00a0}
0x7dae…7ddc Head {h00=0x002a, h01=0x0050, text=» MOVE TNDWB2,=W'16' REASONS FOR REJECT«, t00=0x0050, t01=0x00ca}
0x7ddc…7e08 Head {h00=0x0028, h01=0x0050, text=» DSC2 TND,X'17',TNDWB2,TNDREJ,TNDWB2«, t00=0x0050, t01=0x00f8}
0x7e08…7e12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0124}
0x7e12…7e44 Head {h00=0x002e, h01=0x0050, text=»* TEST IF AN ERROR, BIT SET IN RETURN CODE«, t00=0x0050, t01=0x012e}
0x7e44…7e6e Head {h00=0x0026, h01=0x0050, text=»* IF BIT ON REPORT TO APPLICATIONS«, t00=0x0050, t01=0x0160}
0x7e6e…7e78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x018a}
0x7e78…7e86 (81, 2, 204) Head {h00=0x000a, h01=0x0050, text=»IOS100«, t00=0x0051, t01=0x0004}
0x7e86…7eb6 Head {h00=0x002c, h01=0x0050, text=» CALL MASK,TNDWB1,TNDWB3 OTHER BITS ON? «, t00=0x0051, t01=0x0012}
0x7eb6…7eda Head {h00=0x0020, h01=0x0050, text=» BZ IOS200 NO, DON'T REPORT «, t00=0x0051, t01=0x0042}
0x7eda…7f08 Head {h00=0x002a, h01=0x0050, text=» PERF NDERR,KW0 REPORT TO APPLICATIONS«, t00=0x0051, t01=0x0066}
0x7f08…7f16 Head {h00=0x000a, h01=0x0050, text=»IOS200«, t00=0x0051, t01=0x0094}
0x7f16…7f22 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0051, t01=0x00a2}
0x7f22…7f30 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0051, t01=0x00ae}
0x7f30…7f3c Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0051, t01=0x00bc}
0x7f3c…7f40 Head {h00=0x4004, h01=0x0000}
0x7f40…7f44 00 51 00 c8 ┆ Q ┆
0x7f44…7f4c (82, 1, 8) 20 04 00 00 00 52 00 04 ┆ R ┆
0x7f4c…7f9c (83, 0, 400) 51 5e d0 80 05 66 5e d0 51 04 50 51 57 5a 23 51 6c 0d 64 5d d0 50 5e d0 80 05 00 50 d0 57 49 04 44 d1 24 44 d1 12 00 51 d0 5f 4f 66 5e d0 51 04 50 51 12 50 d0 63 57 46 80 06 13 d1 57 3e 23 50 6d 1b 01 44 18 64 5e 50 44 5d d0 80 01 d1 d1 30 ┆Q^ f^ Q PQWZ#Ql d] P^ P WI D $D Q _Of^ Q PQ P cWF W>#Pm D d^PD] 0┆
0x7f9c…7fec 0b 5e 80 07 80 01 d1 d0 00 50 d0 57 0b 01 44 1a 01 57 71 00 51 d0 5f 8c 49 32 11 20 41 d1 0d 20 41 d2 09 00 48 d0 12 50 d0 b7 57 02 41 32 34 01 01 57 70 6a 5d d0 d1 57 d0 80 01 d1 d1 30 0b 5d 80 07 80 01 d1 d0 34 00 48 33 14 48 31 11 49 f3 ┆ ^ P W D Wq Q _ I2 A A H P W A24 Wpj] W 0 ] 4 H3 H1 I ┆
0x7fec…803c 07 80 08 16 16 12 57 16 80 08 15 15 12 57 0f 49 f3 07 80 08 14 14 11 57 05 80 08 13 13 11 40 f3 34 00 31 02 90 15 80 09 10 49 35 12 4a 31 0d 57 0d 40 32 80 0a 31 02 90 15 80 09 10 57 00 11 22 52 11 21 22 54 3c 49 35 08 20 41 e1 22 18 41 e0 ┆ W W I W @ 4 1 I5 J1 W @2 1 W "R !"T<I5 A " A ┆
0x803c…808c 20 80 0b 10 30 d0 26 29 36 75 0a 49 35 03 48 31 1d 80 0c 57 19 80 0d 29 36 54 13 80 0e 57 0f 19 22 53 42 4a 31 45 80 0f 21 22 54 06 5f 4d 80 10 5f 51 31 02 90 12 30 0c 48 35 15 19 22 53 07 01 4c 53 01 37 52 01 38 75 01 3a 52 01 3b 52 57 32 ┆ 0 &)6u I5 H1 W )6T W "SBJ1E !"T _M _Q1 0 H5 "S LS 7R 8u :R ;RW2┆
0x808c…80dc 01 37 52 01 4c 52 21 22 53 05 80 11 49 32 64 80 12 49 32 47 80 13 49 32 42 00 31 25 01 65 57 80 03 1b 49 32 36 00 4c 65 00 37 65 21 37 52 03 05 37 52 03 12 52 00 32 12 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ 7R LR!"S I2d I2G I2B 1% eW I26 Le 7e!7R 7R R 2 ┆
0x80dc…812c (84, 0, 400) 00 33 32 08 33 db 49 35 27 80 03 1d 49 32 14 01 36 52 29 3b 53 02 41 36 21 22 53 22 80 14 49 32 1a 57 1b 29 22 52 14 80 15 80 16 01 22 75 57 0b 80 03 47 49 32 08 01 36 52 57 03 01 36 75 34 00 21 65 52 1a 21 65 53 16 21 65 57 12 21 65 76 0e ┆ 32 3 I5' I2 6R);S A6!"S" I2 W )"R "uW GI2 6RW 6u4 !eR !eS !eW !ev ┆
0x812c…817c 21 65 77 0a 21 65 78 06 01 00 11 01 43 11 34 01 00 49 4b 23 38 52 16 01 35 4e 25 37 58 15 01 44 17 30 0d 00 44 44 30 0e 04 44 44 57 06 01 00 11 01 43 11 34 01 00 31 25 21 36 53 05 80 17 49 32 84 41 60 80 18 11 01 66 75 80 03 25 00 31 86 49 ┆!ew !ex C 4 IK#8R 5N%7X D 0 DD0 DDW C 4 1%!6S I2 A` fu % 1 I┆
0x817c…81cc 32 6b 48 34 1a 80 01 d5 d1 80 06 27 d0 80 09 10 4a 31 06 80 01 d3 d0 80 01 d5 d0 40 34 5f 29 48 35 05 80 03 48 57 03 80 03 26 49 32 40 01 36 54 01 84 53 00 3d 65 00 85 32 80 19 80 f3 49 32 2d 01 b2 7a 03 2b 52 00 b6 2b 00 6c 23 d4 00 b7 87 ┆2kH4 ' J1 @4_)H5 HW &I2@ 6T S =e 2 I2- z +R + l# ┆
0x81cc…821c d1 d4 80 18 17 00 60 d0 03 60 11 00 6c 23 60 00 b7 87 d1 60 80 18 17 15 60 13 13 57 05 01 36 53 80 0a 80 18 13 40 60 34 00 25 65 7c 32 23 65 7d 2e 00 80 65 08 80 db 80 1a 80 f3 d1 49 32 28 48 fa 18 21 84 75 14 21 84 53 0b 25 37 54 1c 30 0e ┆ ` ` l#` ` ` W 6S @`4 %e|2#e}. e I2(H ! u ! S %7T 0 ┆
0x821c…826c 04 d3 d3 57 15 01 43 69 57 08 01 43 68 57 03 01 43 11 01 00 11 57 03 01 00 13 34 01 49 35 1d 49 31 1a 28 6a 82 02 57 14 03 66 52 21 66 54 08 01 43 6a 01 00 11 57 05 41 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ W CiW ChW C W 4 I5 I1 (j W fR!fT Cj W A ┆