|
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: 4682 (0x124a)
Notes: pts_type(SC)
Names: »TNDCAB.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/TNDCAB.SC«
IDENT TNDCAB TND DISPENSE MAIN PROCEDURE DDUM DEMODD ************************************************************************ * * PROCEDURE-NAME: * TNDCAB * * FUNCTIONAL DESCRIPTION: * THIS ROUTINE IS THE START OF THE INTERFACE BETWEEN * THE DEMO-PACKAGE AND THE TND CONTROL ROUTINES * FROM THE SVENSKA HANDELSBANKEN TND-PACKAGE * * IT: * -COMPUTES THE NUMBER OF NOTES TO DELIVER PER * CASSETTE IN MAXIMUM SIZE OF BUNDLES OR * -ASKES THE CUSTOMER FOR THE NUMBER OF NOTES * PER DENOMINATION * -PASSES CONTROL TO THE TND ROUTINES * * PROCEDURES USED: * * XBFMT DISPLAY SCREEN FORMAT AND GET INPUT * XEERR DISPLAY ERROR/GET REPLY * TNDPAY DISPENSE MONEY FROM THE TND * ************************************************************************ PDIV ENTRY TNDCAB EXPROC XBFMT EXPROC XEERR EXPROC TNDPAY ENTRY SPAP34 TNDCAB PROC TBF SBTND,CAB999 MOVE WW1,KW1 CAB010 CBG WW1,KW4,CAB020 END-OF-LOOP MOVE TNDREG(WW1),=D'0' INIT NUMBER OF NOTES ADD WW1,KW1 ..TO DELIVER PER CASSETTE B CAB010 CAB020 MOVE WDEC1,=D'0' MOVE WW1,KW1 CAB021 CBG WW1,KW4,CAB025 DIV NOTES(WW1),=D'100' ADD WW1,KW1 B CAB021 CAB025 MOVE TNDCIX,KW0 PERF XBFMT,=W'91' DISPLAY SELECTION FORMAT CBNE TNDCIX,KW0,CAB026 MOVE WDEC1,=D'0' CAB026 MOVE WW1,KW1 CAB027 CBG WW1,KW4,CAB029 MUL NOTES(WW1),=D'100' ADD WW1,KW1 B CAB027 CAB029 TBT SBCANCEL,CAB999 ...AND GET INPUT MOVE WDEC2,WDEC1 TOTAL AMOUNT SELECTED MOVE WDEC1,TDAMOUNT ...IS IN WDEC1, COMPUTE SUB WDEC1,WDEC2 ...THE DIFFERENCE MOVE WW1,KW1 MOVE WDEC2,=D'0' CAB030 CBG WW1,KW4,CAB040 DID WE HANDLE ALL CASSETTES? CBE WDEC1,=D'0',CAB040 ...NO, IS AMOUNT ZERO? MOVE IDAMT1,WDEC1 ...NO, CONTINUE DIV IDAMT1,NOTES(WW1) COMPUTE NUMBER OF NOTES OF ADD TNDREG(WW1),IDAMT1 UPDATE DISPENSE QUANTITIES MOVE WDEC2,NOTES(WW1) ...CURRENT DENOMINATION MUL WDEC2,IDAMT1 COMPUTE REMAINDER AND SUB WDEC1,WDEC2 ...AND STORE IT ADD WW1,KW1 POINT TO NEXT DENOMINATION B CAB030 REPEAT CAB040 MOVE WDEC2,=D'0' INIT PARAMATERS FOR MOVE WW1,KW0 ...TND CALL MOVE WW2,KW0 MOVE WW3,KW0 CAB050 MOVE TNDBFF,=C' ' INIT BUFFER PERF TNDPAY,WDEC1,TNDSET,WW1,WW2,WW3,WDEC2,WCSTRG6,TNDBFF B CAB999 STOP B CAB060 RET=2 B CAB065 RET=4 CAB060 MOVE IDAMT1,TDAMOUNT SAVE TDAMOUNT SUB TDAMOUNT,WDEC1 (RET=2) B CAB070 ...REJECTED NOTES CAB065 MOVE IDAMT1,TDAMOUNT SAVE TDAMOUNT SUB TDAMOUNT,WDEC1 (RET=4) PERF XBFMT,=W'77' ...OK, MESSAGE 'REMAINING...' MOVE TDAMOUNT,IDAMT1 RESTORE TDAMOUNT B CAB999 EXIT CAB070 PERF XEERR,=W'81',KW3 DISPLAY ERROR, STOP MOVE TDAMOUNT,IDAMT1 RESTORE TDAMOUNT CAB999 CLEAR SBCANCEL RET PEND ***************************** * * PROCEDURE USED BY KEYBOARD INPUT (SCREEN MANAGEMANT) * CHECKS IF NUMBER OF NOTEST ENTERED DON7T EXCEED TOTAL * AMOUT TO DELEIVER ***************************** SPAP34 PROC XWRET PBIN XWRET SP34000 GETABX TNDCIX GET FIELD NUMBER (=INDEX) MOVE TNDREG(TNDCIX),SPINPUT CONVERT TO DECIMAL MOVE WW1,KW1 MOVE WDEC1,=D'0' MOVE WDEC2,=D'0' SP34010 CBG WW1,TNDCIX,SP34020 LC > CURRENT INDEX MOVE WDEC2,TNDREG(WW1) MUL WDEC2,NOTES(WW1) COMPUTE AMOUNT FOR THIS MUL WDEC2,=D'100' ADD WDEC1,WDEC2 DENOMINATION AND ADD TO ADD WW1,KW1 TOTAL, POINT TO NEXT B SP34010 SP34020 CBG WDEC1,TDAMOUNT,SP34030 DISPENSE EXCEEDS LIMIT? ADD TNDCIX,KW1 RET SP34030 MOVE SPBINW4,=W'92' 'DISPENSE AMOUNT OVERDRAWN' MOVE XWRET,=W'1' BY QUOTATION RET PEND END
0x0000…0032 (0, 0, 400) Head {h00=0x002e, h01=0x0029, text=» IDENT TNDCAB TND DISPENSE MAIN PROCEDURE «, t00=0x0000, t01=0x0004}
0x0032…0046 Head {h00=0x0010, h01=0x0050, text=» DDUM DEMODD«, t00=0x0000, t01=0x0036}
0x0046…0096 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x004a}
0x0096…00a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x009a}
0x00a0…00c2 Head {h00=0x001e, h01=0x0050, text=»* PROCEDURE-NAME:«, t00=0x0000, t01=0x00a4}
0x00c2…00e4 Head {h00=0x001e, h01=0x0050, text=»* TNDCAB «, t00=0x0000, t01=0x00c6}
0x00e4…00ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e8}
0x00ee…0118 Head {h00=0x0026, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION:«, t00=0x0000, t01=0x00f2}
0x0118…0166 Head {h00=0x004a, h01=0x0050, text=»* THIS ROUTINE IS THE START OF THE INTERFACE BETWEEN «, t00=0x0000, t01=0x011c}
0x0166…01ae Head {h00=0x0044, h01=0x0050, text=»* THE DEMO-PACKAGE AND THE TND CONTROL ROUTINES«, t00=0x0000, t01=0x016a}
0x01ae…01f4 Head {h00=0x0042, h01=0x0050, text=»* FROM THE SVENSKA HANDELSBANKEN TND-PACKAGE «, t00=0x0001, t01=0x0022}
0x01f4…01fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0068}
0x01fe…021c Head {h00=0x001a, h01=0x0050, text=»* IT:«, t00=0x0001, t01=0x0072}
0x021c…0266 Head {h00=0x0046, h01=0x0050, text=»* -COMPUTES THE NUMBER OF NOTES TO DELIVER PER «, t00=0x0001, t01=0x0090}
0x0266…02aa Head {h00=0x0040, h01=0x0050, text=»* CASSETTE IN MAXIMUM SIZE OF BUNDLES OR«, t00=0x0001, t01=0x00da}
0x02aa…02f2 Head {h00=0x0044, h01=0x0050, text=»* -ASKES THE CUSTOMER FOR THE NUMBER OF NOTES«, t00=0x0001, t01=0x011e}
0x02f2…0320 Head {h00=0x002a, h01=0x0050, text=»* PER DENOMINATION«, t00=0x0001, t01=0x0166}
0x0320…0360 (2, 0, 400) Head {h00=0x003c, h01=0x0050, text=»* -PASSES CONTROL TO THE TND ROUTINES«, t00=0x0002, t01=0x0004}
0x0360…036a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0044}
0x036a…038c Head {h00=0x001e, h01=0x0050, text=»* PROCEDURES USED:«, t00=0x0002, t01=0x004e}
0x038c…0396 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0070}
0x0396…039e Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x007a}
0x039e…03e4 Head {h00=0x0042, h01=0x0050, text=»* XBFMT DISPLAY SCREEN FORMAT AND GET INPUT«, t00=0x0002, t01=0x0082}
0x03e4…041e Head {h00=0x0036, h01=0x0050, text=»* XEERR DISPLAY ERROR/GET REPLY«, t00=0x0002, t01=0x00c8}
0x041e…045e Head {h00=0x003c, h01=0x0050, text=»* TNDPAY DISPENSE MONEY FROM THE TND «, t00=0x0002, t01=0x0102}
0x045e…0468 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0142}
0x0468…04b8 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0002, t01=0x014c}
0x04b8…04c6 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0003, t01=0x000c}
0x04c6…04dc Head {h00=0x0012, h01=0x0050, text=» ENTRY TNDCAB «, t00=0x0003, t01=0x001a}
0x04dc…04f2 Head {h00=0x0012, h01=0x0050, text=» EXPROC XBFMT «, t00=0x0003, t01=0x0030}
0x04f2…0508 Head {h00=0x0012, h01=0x0050, text=» EXPROC XEERR «, t00=0x0003, t01=0x0046}
0x0508…051e Head {h00=0x0012, h01=0x0050, text=» EXPROC TNDPAY«, t00=0x0003, t01=0x005c}
0x051e…0534 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPAP34 «, t00=0x0003, t01=0x0072}
0x0534…0548 Head {h00=0x0010, h01=0x0050, text=»TNDCAB PROC «, t00=0x0003, t01=0x0088}
0x0548…0562 Head {h00=0x0016, h01=0x0050, text=» TBF SBTND,CAB999 «, t00=0x0003, t01=0x009c}
0x0562…0578 Head {h00=0x0012, h01=0x0050, text=» MOVE WW1,KW1 «, t00=0x0003, t01=0x00b6}
0x0578…0586 Head {h00=0x000a, h01=0x0050, text=»CAB010«, t00=0x0003, t01=0x00cc}
0x0586…05ae Head {h00=0x0024, h01=0x0050, text=» CBG WW1,KW4,CAB020 END-OF-LOOP «, t00=0x0003, t01=0x00da}
0x05ae…05e2 Head {h00=0x0030, h01=0x0050, text=» MOVE TNDREG(WW1),=D'0' INIT NUMBER OF NOTES«, t00=0x0003, t01=0x0102}
0x05e2…0610 Head {h00=0x002a, h01=0x0050, text=» ADD WW1,KW1 ..TO DELIVER PER CASSETTE«, t00=0x0003, t01=0x0136}
0x0610…0622 Head {h00=0x000e, h01=0x0050, text=» B CAB010 «, t00=0x0003, t01=0x0164}
0x0622…0630 Head {h00=0x000a, h01=0x0050, text=»CAB020«, t00=0x0003, t01=0x0176}
0x0630…064a Head {h00=0x0016, h01=0x0050, text=» MOVE WDEC1,=D'0' «, t00=0x0003, t01=0x0184}
0x064a…0660 Head {h00=0x0012, h01=0x0050, text=» MOVE WW1,KW1 «, t00=0x0004, t01=0x000e}
0x0660…066e Head {h00=0x000a, h01=0x0050, text=»CAB021«, t00=0x0004, t01=0x0024}
0x066e…068a Head {h00=0x0018, h01=0x0050, text=» CBG WW1,KW4,CAB025 «, t00=0x0004, t01=0x0032}
0x068a…06aa Head {h00=0x001c, h01=0x0050, text=» DIV NOTES(WW1),=D'100' «, t00=0x0004, t01=0x004e}
0x06aa…06be Head {h00=0x0010, h01=0x0050, text=» ADD WW1,KW1«, t00=0x0004, t01=0x006e}
0x06be…06d0 Head {h00=0x000e, h01=0x0050, text=» B CAB021 «, t00=0x0004, t01=0x0082}
0x06d0…06de Head {h00=0x000a, h01=0x0050, text=»CAB025«, t00=0x0004, t01=0x0094}
0x06de…06f6 Head {h00=0x0014, h01=0x0050, text=» MOVE TNDCIX,KW0«, t00=0x0004, t01=0x00a2}
0x06f6…072a Head {h00=0x0030, h01=0x0050, text=» PERF XBFMT,=W'91' DISPLAY SELECTION FORMAT «, t00=0x0004, t01=0x00ba}
0x072a…074a Head {h00=0x001c, h01=0x0050, text=» CBNE TNDCIX,KW0,CAB026 «, t00=0x0004, t01=0x00ee}
0x074a…0764 Head {h00=0x0016, h01=0x0050, text=» MOVE WDEC1,=D'0' «, t00=0x0004, t01=0x010e}
0x0764…0772 Head {h00=0x000a, h01=0x0050, text=»CAB026«, t00=0x0004, t01=0x0128}
0x0772…0788 Head {h00=0x0012, h01=0x0050, text=» MOVE WW1,KW1 «, t00=0x0004, t01=0x0136}
0x0788…0796 Head {h00=0x000a, h01=0x0050, text=»CAB027«, t00=0x0004, t01=0x014c}
0x0796…07b2 Head {h00=0x0018, h01=0x0050, text=» CBG WW1,KW4,CAB029 «, t00=0x0004, t01=0x015a}
0x07b2…07d2 Head {h00=0x001c, h01=0x0050, text=» MUL NOTES(WW1),=D'100' «, t00=0x0004, t01=0x0176}
0x07d2…07e6 Head {h00=0x0010, h01=0x0050, text=» ADD WW1,KW1«, t00=0x0005, t01=0x0008}
0x07e6…07f8 Head {h00=0x000e, h01=0x0050, text=» B CAB027 «, t00=0x0005, t01=0x001c}
0x07f8…0806 Head {h00=0x000a, h01=0x0050, text=»CAB029«, t00=0x0005, t01=0x002e}
0x0806…0834 Head {h00=0x002a, h01=0x0050, text=» TBT SBCANCEL,CAB999 ...AND GET INPUT «, t00=0x0005, t01=0x003c}
0x0834…0864 Head {h00=0x002c, h01=0x0050, text=» MOVE WDEC2,WDEC1 TOTAL AMOUNT SELECTED «, t00=0x0005, t01=0x006a}
0x0864…0898 Head {h00=0x0030, h01=0x0050, text=» MOVE WDEC1,TDAMOUNT ...IS IN WDEC1, COMPUTE«, t00=0x0005, t01=0x009a}
0x0898…08c2 Head {h00=0x0026, h01=0x0050, text=» SUB WDEC1,WDEC2 ...THE DIFFERENCE«, t00=0x0005, t01=0x00ce}
0x08c2…08d8 Head {h00=0x0012, h01=0x0050, text=» MOVE WW1,KW1 «, t00=0x0005, t01=0x00f8}
0x08d8…08f2 Head {h00=0x0016, h01=0x0050, text=» MOVE WDEC2,=D'0' «, t00=0x0005, t01=0x010e}
0x08f2…0900 Head {h00=0x000a, h01=0x0050, text=»CAB030«, t00=0x0005, t01=0x0128}
0x0900…0938 Head {h00=0x0034, h01=0x0050, text=» CBG WW1,KW4,CAB040 DID WE HANDLE ALL CASSETTES?«, t00=0x0005, t01=0x0136}
0x0938…096e Head {h00=0x0032, h01=0x0050, text=» CBE WDEC1,=D'0',CAB040 ...NO, IS AMOUNT ZERO?«, t00=0x0005, t01=0x016e}
0x096e…0998 Head {h00=0x0026, h01=0x0050, text=» MOVE IDAMT1,WDEC1 ...NO, CONTINUE«, t00=0x0006, t01=0x0014}
0x0998…09d2 Head {h00=0x0036, h01=0x0050, text=» DIV IDAMT1,NOTES(WW1) COMPUTE NUMBER OF NOTES OF «, t00=0x0006, t01=0x003e}
0x09d2…0a0c Head {h00=0x0036, h01=0x0050, text=» ADD TNDREG(WW1),IDAMT1 UPDATE DISPENSE QUANTITIES«, t00=0x0006, t01=0x0078}
0x0a0c…0a42 Head {h00=0x0032, h01=0x0050, text=» MOVE WDEC2,NOTES(WW1) ...CURRENT DENOMINATION«, t00=0x0006, t01=0x00b2}
0x0a42…0a72 Head {h00=0x002c, h01=0x0050, text=» MUL WDEC2,IDAMT1 COMPUTE REMAINDER AND «, t00=0x0006, t01=0x00e8}
0x0a72…0a9a Head {h00=0x0024, h01=0x0050, text=» SUB WDEC1,WDEC2 ...AND STORE IT«, t00=0x0006, t01=0x0118}
0x0a9a…0aca Head {h00=0x002c, h01=0x0050, text=» ADD WW1,KW1 POINT TO NEXT DENOMINATION «, t00=0x0006, t01=0x0140}
0x0aca…0ae2 Head {h00=0x0014, h01=0x0050, text=» B CAB030 REPEAT«, t00=0x0006, t01=0x0170}
0x0ae2…0af0 Head {h00=0x000a, h01=0x0050, text=»CAB040«, t00=0x0006, t01=0x0188}
0x0af0…0b1e Head {h00=0x002a, h01=0x0050, text=» MOVE WDEC2,=D'0' INIT PARAMATERS FOR «, t00=0x0007, t01=0x0008}
0x0b1e…0b40 Head {h00=0x001e, h01=0x0050, text=» MOVE WW1,KW0 ...TND CALL «, t00=0x0007, t01=0x0036}
0x0b40…0b56 Head {h00=0x0012, h01=0x0050, text=» MOVE WW2,KW0 «, t00=0x0007, t01=0x0058}
0x0b56…0b6c Head {h00=0x0012, h01=0x0050, text=» MOVE WW3,KW0 «, t00=0x0007, t01=0x006e}
0x0b6c…0b7a Head {h00=0x000a, h01=0x0050, text=»CAB050«, t00=0x0007, t01=0x0084}
0x0b7a…0ba0 Head {h00=0x0022, h01=0x0050, text=» MOVE TNDBFF,=C' ' INIT BUFFER«, t00=0x0007, t01=0x0092}
0x0ba0…0be2 Head {h00=0x003e, h01=0x0050, text=» PERF TNDPAY,WDEC1,TNDSET,WW1,WW2,WW3,WDEC2,WCSTRG6,TNDBFF«, t00=0x0007, t01=0x00b8}
0x0be2…0bf8 Head {h00=0x0012, h01=0x0050, text=» B CAB999 STOP«, t00=0x0007, t01=0x00fa}
0x0bf8…0c10 Head {h00=0x0014, h01=0x0050, text=» B CAB060 RET=2 «, t00=0x0007, t01=0x0110}
0x0c10…0c28 Head {h00=0x0014, h01=0x0050, text=» B CAB065 RET=4 «, t00=0x0007, t01=0x0128}
0x0c28…0c36 Head {h00=0x000a, h01=0x0050, text=»CAB060«, t00=0x0007, t01=0x0140}
0x0c36…0c62 Head {h00=0x0028, h01=0x0050, text=» MOVE IDAMT1,TDAMOUNT SAVE TDAMOUNT «, t00=0x0007, t01=0x014e}
0x0c62…0c86 Head {h00=0x0020, h01=0x0050, text=» SUB TDAMOUNT,WDEC1 (RET=2) «, t00=0x0007, t01=0x017a}
0x0c86…0caa Head {h00=0x0020, h01=0x0050, text=» B CAB070 ...REJECTED NOTES «, t00=0x0008, t01=0x000e}
0x0caa…0cb8 Head {h00=0x000a, h01=0x0050, text=»CAB065«, t00=0x0008, t01=0x0032}
0x0cb8…0ce4 Head {h00=0x0028, h01=0x0050, text=» MOVE IDAMT1,TDAMOUNT SAVE TDAMOUNT «, t00=0x0008, t01=0x0040}
0x0ce4…0d08 Head {h00=0x0020, h01=0x0050, text=» SUB TDAMOUNT,WDEC1 (RET=4) «, t00=0x0008, t01=0x006c}
0x0d08…0d40 Head {h00=0x0034, h01=0x0050, text=» PERF XBFMT,=W'77' ...OK, MESSAGE 'REMAINING...'«, t00=0x0008, t01=0x0090}
0x0d40…0d6e Head {h00=0x002a, h01=0x0050, text=» MOVE TDAMOUNT,IDAMT1 RESTORE TDAMOUNT«, t00=0x0008, t01=0x00c8}
0x0d6e…0d84 Head {h00=0x0012, h01=0x0050, text=» B CAB999 EXIT«, t00=0x0008, t01=0x00f6}
0x0d84…0d92 Head {h00=0x000a, h01=0x0050, text=»CAB070«, t00=0x0008, t01=0x010c}
0x0d92…0dc4 Head {h00=0x002e, h01=0x0050, text=» PERF XEERR,=W'81',KW3 DISPLAY ERROR, STOP«, t00=0x0008, t01=0x011a}
0x0dc4…0df2 Head {h00=0x002a, h01=0x0050, text=» MOVE TDAMOUNT,IDAMT1 RESTORE TDAMOUNT«, t00=0x0008, t01=0x014c}
0x0df2…0e00 Head {h00=0x000a, h01=0x0050, text=»CAB999«, t00=0x0008, t01=0x017a}
0x0e00…0e18 Head {h00=0x0014, h01=0x0050, text=» CLEAR SBCANCEL «, t00=0x0008, t01=0x0188}
0x0e18…0e24 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x0010}
0x0e24…0e32 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x001c}
0x0e32…0e58 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0009, t01=0x002a}
0x0e58…0e62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0050}
0x0e62…0ea6 Head {h00=0x0040, h01=0x0050, text=»* PROCEDURE USED BY KEYBOARD INPUT (SCREEN MANAGEMANT) «, t00=0x0009, t01=0x005a}
0x0ea6…0eea Head {h00=0x0040, h01=0x0050, text=»* CHECKS IF NUMBER OF NOTEST ENTERED DON7T EXCEED TOTAL«, t00=0x0009, t01=0x009e}
0x0eea…0f0a Head {h00=0x001c, h01=0x0050, text=»* AMOUT TO DELEIVER«, t00=0x0009, t01=0x00e2}
0x0f0a…0f30 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0009, t01=0x0102}
0x0f30…0f4a Head {h00=0x0016, h01=0x0050, text=»SPAP34 PROC XWRET «, t00=0x0009, t01=0x0128}
0x0f4a…0f5e Head {h00=0x0010, h01=0x0050, text=» PBIN XWRET «, t00=0x0009, t01=0x0142}
0x0f5e…0f6e Head {h00=0x000c, h01=0x0050, text=»SP34000 «, t00=0x0009, t01=0x0156}
0x0f6e…0f9e Head {h00=0x002c, h01=0x0050, text=» GETABX TNDCIX GET FIELD NUMBER (=INDEX)«, t00=0x0009, t01=0x0166}
0x0f9e…0fd6 Head {h00=0x0034, h01=0x0050, text=» MOVE TNDREG(TNDCIX),SPINPUT CONVERT TO DECIMAL «, t00=0x000a, t01=0x0008}
0x0fd6…0fec Head {h00=0x0012, h01=0x0050, text=» MOVE WW1,KW1 «, t00=0x000a, t01=0x0040}
0x0fec…1006 Head {h00=0x0016, h01=0x0050, text=» MOVE WDEC1,=D'0' «, t00=0x000a, t01=0x0056}
0x1006…1020 Head {h00=0x0016, h01=0x0050, text=» MOVE WDEC2,=D'0' «, t00=0x000a, t01=0x0070}
0x1020…1030 Head {h00=0x000c, h01=0x0050, text=»SP34010 «, t00=0x000a, t01=0x008a}
0x1030…1062 Head {h00=0x002e, h01=0x0050, text=» CBG WW1,TNDCIX,SP34020 LC > CURRENT INDEX«, t00=0x000a, t01=0x009a}
0x1062…1082 Head {h00=0x001c, h01=0x0050, text=» MOVE WDEC2,TNDREG(WW1) «, t00=0x000a, t01=0x00cc}
0x1082…10b8 Head {h00=0x0032, h01=0x0050, text=» MUL WDEC2,NOTES(WW1) COMPUTE AMOUNT FOR THIS «, t00=0x000a, t01=0x00ec}
0x10b8…10d2 Head {h00=0x0016, h01=0x0050, text=» MUL WDEC2,=D'100'«, t00=0x000a, t01=0x0122}
0x10d2…1102 Head {h00=0x002c, h01=0x0050, text=» ADD WDEC1,WDEC2 DENOMINATION AND ADD TO«, t00=0x000a, t01=0x013c}
0x1102…112c Head {h00=0x0026, h01=0x0050, text=» ADD WW1,KW1 TOTAL, POINT TO NEXT «, t00=0x000a, t01=0x016c}
0x112c…113e Head {h00=0x000e, h01=0x0050, text=» B SP34010«, t00=0x000b, t01=0x0008}
0x113e…114e Head {h00=0x000c, h01=0x0050, text=»SP34020 «, t00=0x000b, t01=0x001a}
0x114e…118a Head {h00=0x0038, h01=0x0050, text=» CBG WDEC1,TDAMOUNT,SP34030 DISPENSE EXCEEDS LIMIT? «, t00=0x000b, t01=0x002a}
0x118a…11a2 Head {h00=0x0014, h01=0x0050, text=» ADD TNDCIX,KW1 «, t00=0x000b, t01=0x0066}
0x11a2…11ae Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x007e}
0x11ae…11be Head {h00=0x000c, h01=0x0050, text=»SP34030 «, t00=0x000b, t01=0x008a}
0x11be…11f6 Head {h00=0x0034, h01=0x0050, text=» MOVE SPBINW4,=W'92' 'DISPENSE AMOUNT OVERDRAWN'«, t00=0x000b, t01=0x009a}
0x11f6…121c Head {h00=0x0022, h01=0x0050, text=» MOVE XWRET,=W'1' BY QUOTATION«, t00=0x000b, t01=0x00d2}
0x121c…1228 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x00f8}
0x1228…1236 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000b, t01=0x0104}
0x1236…1242 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x000b, t01=0x0112}
0x1242…124a (12, 1, 8) 20 04 00 00 00 0c 00 04 ┆ ┆