|
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: 6478 (0x194e)
Notes: pts_type(SC)
Names: »TNDOPN.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/TNDOPN.SC«
IDENT TNDOPN OPEN TELLER NOTE DISPENSER DDUM DEMODD **************** * * PROCEDURE-NAME * TNDOPN * * FUNCTIONAL DESCRIPTION * THIS ROUTINE PERFORMS THE OPEN FUNCTIONS FOR * THE TND: * CHECKS THE DENOMINATION TABLE, * GETS THE LOADED NUMBER OF NOTES PER CASSETTE * CHECKS THE CASSETTE SERIAL NUMBERS AFTER LOAD * * BOOLEAN TNDOPF IS SET TO INDICATE THAT THE OPEN * HAS BEEN EXECUTED SUCCESFULLY * * PROCEDURES USED: * XBFMT SCREEN MANAGEMENT * XEERR DISPLAY ERROR-MESSAGE * VARIABLES USED: * * * SB CANCEL CANCEL SWITCH * NDDUMP NO. OF REJECTED NOTES PER CASSETTE * TNDST ERROR-STATUS * CASMAX NUMBER OF USED CASSETTES * NOTES(..) DENOMINATION TABLE * NDDATA1(..,..) TND TABLE (SEE DATA DIV.) * TNDRCF REJECT CASSETTE EMPTY * TNDBAD UNCONTROLLED (=BAD ) TND STATUS * TND OPF OPEN INDICATOR FOR TND ************************************************************************ PDIV EXPROC XBFMT EXPROC XEERR EXPROC IOTND ENTRY SPAP33 ENTRY TNDOPN ENTRY TNDINI TNDOPN PROC TBF SBTND,TO999 B TO035 TO010 PERF XBFMT,=W'75' 'MOUNT CASSETTES' TBT SBCANCEL,TO999 SEND LIFTS UP PERF IOTND,KW1,TNDSET,WW1,WW2,WW3,WDEC1,WCSTRG6,TNDBFF CBE TNDST,KW0,TO040 LIFTS UP SUCCESSFULL? TO030 PERF XEERR,=W'79',KW3 MESSAGE 'OPEN FAILURE' * TBT SBCANCEL,TO999 STOP IF CANCELED, ELSE RETRY TO035 PERF IOTND,KW2,TNDSET,WW1,WW2,WW3,WDEC1,WCSTRG6,TNDBFF TND LIFTS DOWN, RETRY B TO010 TO040 MOVE TNDCIX,KW1 TND OPEN OK TO050 PERF TNDINI INIT TND REGISTERS * * CHECK CASSETTE SERIAL OF REJECT CASSETTE * CHECK CASSETTE SEQUENCE TO060 MOVE WCSTRG6,=C' ' INIT CASSETTE ID MOVE WW1,KW5 POINT TO REJECT CASS. SERIAL COPY WCSTRG6,KW1,KW5,TNDBFF,WW1 MOVE WDEC1,WCSTRG6 CONVERT TO DECIMAL SUB WDEC1,NDRCID CHECK IF SAME REJECT CASSETTE BZ TO070 IF EQUAL,CONTINUE TO065 PERF XEERR,=W'78',KW3 MESSAGE 'CASS. SERIAL ERROR' TBT SBCANCEL,TO999 STOP IF CANCELED B TO035 RETRY TO070 MOVE TNDCIX,KW0 TO080 ADD TNDCIX,KW1 CBG TNDCIX,CASMAX,TO100 HANDLED ALL CASSETTES? MOVE WCSTRG6,=C' ' ADD WW1,KW5 POINT OT NEXT SERIAL NO. COPY WCSTRG6,KW1,KW5,TNDBFF,WW1 MOVE WDEC1,WCSTRG6 CONVERT IT TO DECIMAL SUB WDEC1,=D'0' IS IT ZERO? BZ TO080 ....THEN LOOP, ELSE TO090 MOVE WW2,NDDATA2(KW1,TNDCIX) GET LOGICAL POINTER SUB WW2,KW0 IS IT ZERO BZ TO080 ....THEN LOOP BACK SUB WW2,KW1 SET TO INDEX EQUIVALENT MOVE WW3,KW5 MATCH WCSTRG6,WW3,KW1,NDMAP,WW2,KW1 CHECK 1 DIGIT BNE TO065 IF NOT SAME, CASSETTE ERROR ADD WW2,KW1 RESET TO POINTER MOVE NDDATA1(KW4,WW2),WCSTRG6 B TO080 GET NEXT ONE * * * TO100 GET NUMBER OF NOTES AND MOVE WW1,KW1 T110 CBG WW1,KW4,T120 DIV NOTES(WW1),=D'100' ADD WW1,KW1 B T110 T120 MOVE TNDCIX,KW1 THEIR DENOMINATIONS PERF XBFMT,=W'76' MOVE WW1,KW1 T131 CBG WW1,KW4,T135 MUL NOTES(WW1),=D'100' ADD WW1,KW1 B T131 T135 TBT SBCANCEL,TO999 CANCELED? SET TNDOPF TNDOPENED CLEAR TNDRCF REJECT CASSETTE FULL CLEAR TNDBAD TND-STATUS OK TO999 RET PEND * **************************** * * * INITIALISATION ROUTINE FOR THE TND REGISTERS * ***************************** TNDINI PROC MOVE WW1,KW1 INIT TND REGISTERS INI010 CBG WW1,KW5,INI999 5 ROWS TO INIT MOVE TNDCIX,KW1 INI020 CBG TNDCIX,KW4,INI040 ..... AND 4 COLUMNS PER ROW CBNE WW1,KW2,INI030 MOVE NDDATA2(WW1,TNDCIX),=D'0' INI030 MOVE NDDATA1(WW1,TNDCIX),=D'0' ADD TNDCIX,KW1 INCREASE COLUMN NO. B INI020 INI040 ADD WW1,KW1 INCREASE ROW NO. B INI010 INI999 MOVE NDDUMP,=D'0' RET PEND * ************************************ * * KEYBOARD INPUT ATTRIBUTE ROUTINE, USED * WHEN ENTERING THE NUMBER OF NOTES FOR A CERTAIN * CASSETTE * ************************************* * SPAP33 PROC XWRET PBIN XWRET GETABX TNDCIX GET INDEX (FIELDNO.) MOVE WDEC1,SPINPUT CBE WDEC1,=D'0',SP33001 MOVE NDDATA2(KW2,TNDCIX),=D'1' NOTES HAVE BEEN LOADED ADD TNDCIX,KW1 .... FOR THIS CASSETTE RET INCREASE REGISTER INDEX SP33001 MOVE SPBINW4,KW5 ERROR, VALUE MUST BE ENTERED MOVE XWRET,KW1 RETURN AND REPEAT INPUT RET PEND END
0x0000…0030 (0, 0, 400) Head {h00=0x002c, h01=0x0028, text=» IDENT TNDOPN OPEN TELLER NOTE DISPENSER«, t00=0x0000, t01=0x0004}
0x0030…0044 Head {h00=0x0010, h01=0x000c, text=» DDUM DEMODD«, t00=0x0000, t01=0x0034}
0x0044…005c Head {h00=0x0014, h01=0x0010, text=»****************«, t00=0x0000, t01=0x0048}
0x005c…0066 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0000, t01=0x0060}
0x0066…0086 Head {h00=0x001c, h01=0x0017, text=»* PROCEDURE-NAME «, t00=0x0000, t01=0x006a}
0x0086…00a4 Head {h00=0x001a, h01=0x0016, text=»* TNDOPN«, t00=0x0000, t01=0x008a}
0x00a4…00ae Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0000, t01=0x00a8}
0x00ae…00d6 Head {h00=0x0024, h01=0x001f, text=»* FUNCTIONAL DESCRIPTION «, t00=0x0000, t01=0x00b2}
0x00d6…011a Head {h00=0x0040, h01=0x003c, text=»* THIS ROUTINE PERFORMS THE OPEN FUNCTIONS FOR«, t00=0x0000, t01=0x00da}
0x011a…013a Head {h00=0x001c, h01=0x0050, text=»* THE TND:«, t00=0x0000, t01=0x011e}
0x013a…017c Head {h00=0x003e, h01=0x0039, text=»* CHECKS THE DENOMINATION TABLE, «, t00=0x0000, t01=0x013e}
0x017c…01cc Head {h00=0x004c, h01=0x0047, text=»* GETS THE LOADED NUMBER OF NOTES PER CASSETTE «, t00=0x0000, t01=0x0180}
0x01cc…021c Head {h00=0x004c, h01=0x004b, text=»* CHECKS THE CASSETTE SERIAL NUMBERS AFTER LOAD«, t00=0x0001, t01=0x0040}
0x021c…0226 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0001, t01=0x0090}
0x0226…026e Head {h00=0x0044, h01=0x0040, text=»* BOOLEAN TNDOPF IS SET TO INDICATE THAT THE OPEN«, t00=0x0001, t01=0x009a}
0x026e…02a4 Head {h00=0x0032, h01=0x002e, text=»* HAS BEEN EXECUTED SUCCESFULLY«, t00=0x0001, t01=0x00e2}
0x02a4…02ae Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0001, t01=0x0118}
0x02ae…02d0 Head {h00=0x001e, h01=0x0050, text=»* PROCEDURES USED: «, t00=0x0001, t01=0x0122}
0x02d0…0302 Head {h00=0x002e, h01=0x002a, text=»* XBFMT SCREEN MANAGEMENT«, t00=0x0001, t01=0x0144}
0x0302…0338 Head {h00=0x0032, h01=0x002e, text=»* XEERR DISPLAY ERROR-MESSAGE«, t00=0x0001, t01=0x0176}
0x0338…035a Head {h00=0x001e, h01=0x0019, text=»* VARIABLES USED: «, t00=0x0002, t01=0x001c}
0x035a…0364 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0002, t01=0x003e}
0x0364…036e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0048}
0x036e…03a0 Head {h00=0x002e, h01=0x0050, text=»* SB CANCEL CANCEL SWITCH «, t00=0x0002, t01=0x0052}
0x03a0…03e4 Head {h00=0x0040, h01=0x0050, text=»* NDDUMP NO. OF REJECTED NOTES PER CASSETTE«, t00=0x0002, t01=0x0084}
0x03e4…0412 Head {h00=0x002a, h01=0x0050, text=»* TNDST ERROR-STATUS«, t00=0x0002, t01=0x00c8}
0x0412…044c Head {h00=0x0036, h01=0x0050, text=»* CASMAX NUMBER OF USED CASSETTES«, t00=0x0002, t01=0x00f6}
0x044c…0480 Head {h00=0x0030, h01=0x0050, text=»* NOTES(..) DENOMINATION TABLE«, t00=0x0002, t01=0x0130}
0x0480…04bc Head {h00=0x0038, h01=0x0050, text=»* NDDATA1(..,..) TND TABLE (SEE DATA DIV.) «, t00=0x0002, t01=0x0164}
0x04bc…04f4 Head {h00=0x0034, h01=0x0050, text=»* TNDRCF REJECT CASSETTE EMPTY «, t00=0x0003, t01=0x0010}
0x04f4…0536 Head {h00=0x003e, h01=0x0050, text=»* TNDBAD UNCONTROLLED (=BAD ) TND STATUS «, t00=0x0003, t01=0x0048}
0x0536…0570 Head {h00=0x0036, h01=0x0050, text=»* TND OPF OPEN INDICATOR FOR TND «, t00=0x0003, t01=0x008a}
0x0570…05c0 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0003, t01=0x00c4}
0x05c0…05ce Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0003, t01=0x0114}
0x05ce…05e4 Head {h00=0x0012, h01=0x0050, text=» EXPROC XBFMT «, t00=0x0003, t01=0x0122}
0x05e4…05fa Head {h00=0x0012, h01=0x0050, text=» EXPROC XEERR «, t00=0x0003, t01=0x0138}
0x05fa…0610 Head {h00=0x0012, h01=0x0050, text=» EXPROC IOTND «, t00=0x0003, t01=0x014e}
0x0610…0626 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPAP33 «, t00=0x0003, t01=0x0164}
0x0626…063c Head {h00=0x0012, h01=0x0050, text=» ENTRY TNDOPN «, t00=0x0003, t01=0x017a}
0x063c…0652 Head {h00=0x0012, h01=0x0050, text=» ENTRY TNDINI «, t00=0x0003, t01=0x0190}
0x0652…0666 Head {h00=0x0010, h01=0x0050, text=»TNDOPN PROC «, t00=0x0004, t01=0x0016}
0x0666…067e Head {h00=0x0014, h01=0x0050, text=» TBF SBTND,TO999«, t00=0x0004, t01=0x002a}
0x067e…068e Head {h00=0x000c, h01=0x0050, text=» B TO035«, t00=0x0004, t01=0x0042}
0x068e…069c Head {h00=0x000a, h01=0x0050, text=»TO010 «, t00=0x0004, t01=0x0052}
0x069c…06c8 Head {h00=0x0028, h01=0x0050, text=» PERF XBFMT,=W'75' 'MOUNT CASSETTES'«, t00=0x0004, t01=0x0060}
0x06c8…06e4 Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,TO999 «, t00=0x0004, t01=0x008c}
0x06e4…06fc Head {h00=0x0014, h01=0x0050, text=» SEND LIFTS UP«, t00=0x0004, t01=0x00a8}
0x06fc…073c Head {h00=0x003c, h01=0x0050, text=» PERF IOTND,KW1,TNDSET,WW1,WW2,WW3,WDEC1,WCSTRG6,TNDBFF «, t00=0x0004, t01=0x00c0}
0x073c…076e Head {h00=0x002e, h01=0x0050, text=» CBE TNDST,KW0,TO040 LIFTS UP SUCCESSFULL?«, t00=0x0004, t01=0x0100}
0x076e…077c Head {h00=0x000a, h01=0x0050, text=»TO030 «, t00=0x0004, t01=0x0132}
0x077c…07b2 Head {h00=0x0032, h01=0x0050, text=» PERF XEERR,=W'79',KW3 MESSAGE 'OPEN FAILURE' «, t00=0x0004, t01=0x0140}
0x07b2…07bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0176}
0x07bc…07f4 Head {h00=0x0034, h01=0x0050, text=» TBT SBCANCEL,TO999 STOP IF CANCELED, ELSE RETRY«, t00=0x0004, t01=0x0180}
0x07f4…0802 Head {h00=0x000a, h01=0x0050, text=»TO035 «, t00=0x0005, t01=0x0028}
0x0802…0842 Head {h00=0x003c, h01=0x0050, text=» PERF IOTND,KW2,TNDSET,WW1,WW2,WW3,WDEC1,WCSTRG6,TNDBFF «, t00=0x0005, t01=0x0036}
0x0842…0862 Head {h00=0x001c, h01=0x0050, text=» TND LIFTS DOWN, RETRY«, t00=0x0005, t01=0x0076}
0x0862…0872 Head {h00=0x000c, h01=0x0050, text=» B TO010«, t00=0x0005, t01=0x0096}
0x0872…0880 Head {h00=0x000a, h01=0x0050, text=»TO040 «, t00=0x0005, t01=0x00a6}
0x0880…08a4 Head {h00=0x0020, h01=0x0050, text=» MOVE TNDCIX,KW1 TND OPEN OK«, t00=0x0005, t01=0x00b4}
0x08a4…08b2 Head {h00=0x000a, h01=0x0050, text=»TO050 «, t00=0x0005, t01=0x00d8}
0x08b2…08da Head {h00=0x0024, h01=0x0050, text=» PERF TNDINI INIT TND REGISTERS «, t00=0x0005, t01=0x00e6}
0x08da…08e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x010e}
0x08e4…0916 Head {h00=0x002e, h01=0x0050, text=»* CHECK CASSETTE SERIAL OF REJECT CASSETTE«, t00=0x0005, t01=0x0118}
0x0916…0938 Head {h00=0x001e, h01=0x0050, text=»* CHECK CASSETTE SEQUENCE «, t00=0x0005, t01=0x014a}
0x0938…0946 Head {h00=0x000a, h01=0x0050, text=»TO060 «, t00=0x0005, t01=0x016c}
0x0946…0972 Head {h00=0x0028, h01=0x0050, text=» MOVE WCSTRG6,=C' ' INIT CASSETTE ID«, t00=0x0005, t01=0x017a}
0x0972…09a4 Head {h00=0x002e, h01=0x0050, text=» MOVE WW1,KW5 POINT TO REJECT CASS. SERIAL«, t00=0x0006, t01=0x0016}
0x09a4…09cc Head {h00=0x0024, h01=0x0050, text=» COPY WCSTRG6,KW1,KW5,TNDBFF,WW1«, t00=0x0006, t01=0x0048}
0x09cc…09d4 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0070}
0x09d4…0a02 Head {h00=0x002a, h01=0x0050, text=» MOVE WDEC1,WCSTRG6 CONVERT TO DECIMAL«, t00=0x0006, t01=0x0078}
0x0a02…0a3a Head {h00=0x0034, h01=0x0050, text=» SUB WDEC1,NDRCID CHECK IF SAME REJECT CASSETTE «, t00=0x0006, t01=0x00a6}
0x0a3a…0a5e Head {h00=0x0020, h01=0x0050, text=» BZ TO070 IF EQUAL,CONTINUE «, t00=0x0006, t01=0x00de}
0x0a5e…0a6c Head {h00=0x000a, h01=0x0050, text=»TO065 «, t00=0x0006, t01=0x0102}
0x0a6c…0aa8 Head {h00=0x0038, h01=0x0050, text=» PERF XEERR,=W'78',KW3 MESSAGE 'CASS. SERIAL ERROR' «, t00=0x0006, t01=0x0110}
0x0aa8…0ad4 Head {h00=0x0028, h01=0x0050, text=» TBT SBCANCEL,TO999 STOP IF CANCELED«, t00=0x0006, t01=0x014c}
0x0ad4…0aea Head {h00=0x0012, h01=0x0050, text=» B TO035 RETRY«, t00=0x0006, t01=0x0178}
0x0aea…0af8 Head {h00=0x000a, h01=0x0050, text=»TO070 «, t00=0x0006, t01=0x018e}
0x0af8…0b10 Head {h00=0x0014, h01=0x0050, text=» MOVE TNDCIX,KW0«, t00=0x0007, t01=0x000c}
0x0b10…0b1e Head {h00=0x000a, h01=0x0050, text=»TO080 «, t00=0x0007, t01=0x0024}
0x0b1e…0b36 Head {h00=0x0014, h01=0x0050, text=» ADD TNDCIX,KW1 «, t00=0x0007, t01=0x0032}
0x0b36…0b6e Head {h00=0x0034, h01=0x0050, text=» CBG TNDCIX,CASMAX,TO100 HANDLED ALL CASSETTES? «, t00=0x0007, t01=0x004a}
0x0b6e…0b8a Head {h00=0x0018, h01=0x0050, text=» MOVE WCSTRG6,=C' ' «, t00=0x0007, t01=0x0082}
0x0b8a…0bb8 Head {h00=0x002a, h01=0x0050, text=» ADD WW1,KW5 POINT OT NEXT SERIAL NO. «, t00=0x0007, t01=0x009e}
0x0bb8…0be0 Head {h00=0x0024, h01=0x0050, text=» COPY WCSTRG6,KW1,KW5,TNDBFF,WW1«, t00=0x0007, t01=0x00cc}
0x0be0…0c12 Head {h00=0x002e, h01=0x0050, text=» MOVE WDEC1,WCSTRG6 CONVERT IT TO DECIMAL «, t00=0x0007, t01=0x00f4}
0x0c12…0c36 Head {h00=0x0020, h01=0x0050, text=» SUB WDEC1,=D'0' IS IT ZERO?«, t00=0x0007, t01=0x0126}
0x0c36…0c5c Head {h00=0x0022, h01=0x0050, text=» BZ TO080 ....THEN LOOP, ELSE «, t00=0x0007, t01=0x014a}
0x0c5c…0c6a Head {h00=0x000a, h01=0x0050, text=»TO090 «, t00=0x0007, t01=0x0170}
0x0c6a…0ca4 Head {h00=0x0036, h01=0x0050, text=» MOVE WW2,NDDATA2(KW1,TNDCIX) GET LOGICAL POINTER «, t00=0x0007, t01=0x017e}
0x0ca4…0cc4 Head {h00=0x001c, h01=0x0050, text=» SUB WW2,KW0 IS IT ZERO «, t00=0x0008, t01=0x0028}
0x0cc4…0ce8 Head {h00=0x0020, h01=0x0050, text=» BZ TO080 ....THEN LOOP BACK«, t00=0x0008, t01=0x0048}
0x0ce8…0d14 Head {h00=0x0028, h01=0x0050, text=» SUB WW2,KW1 SET TO INDEX EQUIVALENT«, t00=0x0008, t01=0x006c}
0x0d14…0d2a Head {h00=0x0012, h01=0x0050, text=» MOVE WW3,KW5 «, t00=0x0008, t01=0x0098}
0x0d2a…0d64 Head {h00=0x0036, h01=0x0050, text=» MATCH WCSTRG6,WW3,KW1,NDMAP,WW2,KW1 CHECK 1 DIGIT«, t00=0x0008, t01=0x00ae}
0x0d64…0d92 Head {h00=0x002a, h01=0x0050, text=» BNE TO065 IF NOT SAME, CASSETTE ERROR«, t00=0x0008, t01=0x00e8}
0x0d92…0db8 Head {h00=0x0022, h01=0x0050, text=» ADD WW2,KW1 RESET TO POINTER «, t00=0x0008, t01=0x0116}
0x0db8…0dde Head {h00=0x0022, h01=0x0050, text=» MOVE NDDATA1(KW4,WW2),WCSTRG6«, t00=0x0008, t01=0x013c}
0x0dde…0dfc Head {h00=0x001a, h01=0x0050, text=» B TO080 GET NEXT ONE «, t00=0x0008, t01=0x0162}
0x0dfc…0e06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0180}
0x0e06…0e10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x018a}
0x0e10…0e1a (9, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0004}
0x0e1a…0e42 Head {h00=0x0024, h01=0x0050, text=»TO100 GET NUMBER OF NOTES AND «, t00=0x0009, t01=0x000e}
0x0e42…0e58 Head {h00=0x0012, h01=0x0050, text=» MOVE WW1,KW1 «, t00=0x0009, t01=0x0036}
0x0e58…0e64 Head {h00=0x0008, h01=0x0050, text=»T110«, t00=0x0009, t01=0x004c}
0x0e64…0e7e Head {h00=0x0016, h01=0x0050, text=» CBG WW1,KW4,T120 «, t00=0x0009, t01=0x0058}
0x0e7e…0e9e Head {h00=0x001c, h01=0x0050, text=» DIV NOTES(WW1),=D'100' «, t00=0x0009, t01=0x0072}
0x0e9e…0eb2 Head {h00=0x0010, h01=0x0050, text=» ADD WW1,KW1«, t00=0x0009, t01=0x0092}
0x0eb2…0ec2 Head {h00=0x000c, h01=0x0050, text=» B T110 «, t00=0x0009, t01=0x00a6}
0x0ec2…0ece Head {h00=0x0008, h01=0x0050, text=»T120«, t00=0x0009, t01=0x00b6}
0x0ece…0efe Head {h00=0x002c, h01=0x0050, text=» MOVE TNDCIX,KW1 THEIR DENOMINATIONS«, t00=0x0009, t01=0x00c2}
0x0efe…0f18 Head {h00=0x0016, h01=0x0050, text=» PERF XBFMT,=W'76'«, t00=0x0009, t01=0x00f2}
0x0f18…0f2e Head {h00=0x0012, h01=0x0050, text=» MOVE WW1,KW1 «, t00=0x0009, t01=0x010c}
0x0f2e…0f3a Head {h00=0x0008, h01=0x0050, text=»T131«, t00=0x0009, t01=0x0122}
0x0f3a…0f54 Head {h00=0x0016, h01=0x0050, text=» CBG WW1,KW4,T135 «, t00=0x0009, t01=0x012e}
0x0f54…0f74 Head {h00=0x001c, h01=0x0050, text=» MUL NOTES(WW1),=D'100' «, t00=0x0009, t01=0x0148}
0x0f74…0f88 Head {h00=0x0010, h01=0x0050, text=» ADD WW1,KW1«, t00=0x0009, t01=0x0168}
0x0f88…0f98 Head {h00=0x000c, h01=0x0050, text=» B T131 «, t00=0x0009, t01=0x017c}
0x0f98…0fa4 Head {h00=0x0008, h01=0x0050, text=»T135«, t00=0x0009, t01=0x018c}
0x0fa4…0fca Head {h00=0x0022, h01=0x0050, text=» TBT SBCANCEL,TO999 CANCELED? «, t00=0x000a, t01=0x0008}
0x0fca…0fe8 Head {h00=0x001a, h01=0x0050, text=» SET TNDOPF TNDOPENED «, t00=0x000a, t01=0x002e}
0x0fe8…1012 Head {h00=0x0026, h01=0x0050, text=» CLEAR TNDRCF REJECT CASSETTE FULL«, t00=0x000a, t01=0x004c}
0x1012…1036 Head {h00=0x0020, h01=0x0050, text=» CLEAR TNDBAD TND-STATUS OK «, t00=0x000a, t01=0x0076}
0x1036…1044 Head {h00=0x000a, h01=0x0050, text=»TO999 «, t00=0x000a, t01=0x009a}
0x1044…1050 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x00a8}
0x1050…105e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000a, t01=0x00b4}
0x105e…1068 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00c2}
0x1068…108c Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x000a, t01=0x00cc}
0x108c…1096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00f0}
0x1096…10a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00fa}
0x10a0…10e0 Head {h00=0x003c, h01=0x0050, text=»* INITIALISATION ROUTINE FOR THE TND REGISTERS «, t00=0x000a, t01=0x0104}
0x10e0…10ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0144}
0x10ea…1110 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x000a, t01=0x014e}
0x1110…1124 Head {h00=0x0010, h01=0x0050, text=»TNDINI PROC «, t00=0x000a, t01=0x0174}
0x1124…114c Head {h00=0x0024, h01=0x0050, text=» MOVE WW1,KW1 INIT TND REGISTERS«, t00=0x000a, t01=0x0188}
0x114c…115a Head {h00=0x000a, h01=0x0050, text=»INI010«, t00=0x000b, t01=0x0020}
0x115a…1184 Head {h00=0x0026, h01=0x0050, text=» CBG WW1,KW5,INI999 5 ROWS TO INIT«, t00=0x000b, t01=0x002e}
0x1184…119c Head {h00=0x0014, h01=0x0050, text=» MOVE TNDCIX,KW1«, t00=0x000b, t01=0x0058}
0x119c…11aa Head {h00=0x000a, h01=0x0050, text=»INI020«, t00=0x000b, t01=0x0070}
0x11aa…11e4 Head {h00=0x0036, h01=0x0050, text=» CBG TNDCIX,KW4,INI040 ..... AND 4 COLUMNS PER ROW«, t00=0x000b, t01=0x007e}
0x11e4…1200 Head {h00=0x0018, h01=0x0050, text=» CBNE WW1,KW2,INI030«, t00=0x000b, t01=0x00b8}
0x1200…1228 Head {h00=0x0024, h01=0x0050, text=» MOVE NDDATA2(WW1,TNDCIX),=D'0' «, t00=0x000b, t01=0x00d4}
0x1228…1236 Head {h00=0x000a, h01=0x0050, text=»INI030«, t00=0x000b, t01=0x00fc}
0x1236…125e Head {h00=0x0024, h01=0x0050, text=» MOVE NDDATA1(WW1,TNDCIX),=D'0' «, t00=0x000b, t01=0x010a}
0x125e…128a Head {h00=0x0028, h01=0x0050, text=» ADD TNDCIX,KW1 INCREASE COLUMN NO. «, t00=0x000b, t01=0x0132}
0x128a…129c Head {h00=0x000e, h01=0x0050, text=» B INI020 «, t00=0x000b, t01=0x015e}
0x129c…12aa Head {h00=0x000a, h01=0x0050, text=»INI040«, t00=0x000b, t01=0x0170}
0x12aa…12d0 Head {h00=0x0022, h01=0x0050, text=» ADD WW1,KW1 INCREASE ROW NO. «, t00=0x000b, t01=0x017e}
0x12d0…12e2 Head {h00=0x000e, h01=0x0050, text=» B INI010 «, t00=0x000c, t01=0x0014}
0x12e2…12f0 Head {h00=0x000a, h01=0x0050, text=»INI999«, t00=0x000c, t01=0x0026}
0x12f0…130a Head {h00=0x0016, h01=0x0050, text=» MOVE NDDUMP,=D'0'«, t00=0x000c, t01=0x0034}
0x130a…1316 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x004e}
0x1316…1324 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000c, t01=0x005a}
0x1324…132e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0068}
0x132e…135a Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x000c, t01=0x0072}
0x135a…1364 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x009e}
0x1364…139e Head {h00=0x0036, h01=0x0050, text=»* KEYBOARD INPUT ATTRIBUTE ROUTINE, USED «, t00=0x000c, t01=0x00a8}
0x139e…13e0 Head {h00=0x003e, h01=0x0050, text=»* WHEN ENTERING THE NUMBER OF NOTES FOR A CERTAIN«, t00=0x000c, t01=0x00e2}
0x13e0…13fc Head {h00=0x0018, h01=0x0050, text=»* CASSETTE «, t00=0x000c, t01=0x0124}
0x13fc…1406 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0140}
0x1406…1434 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x000c, t01=0x014a}
0x1434…143e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0178}
0x143e…1458 Head {h00=0x0016, h01=0x0050, text=»SPAP33 PROC XWRET «, t00=0x000c, t01=0x0182}
0x1458…146c Head {h00=0x0010, h01=0x0050, text=» PBIN XWRET «, t00=0x000d, t01=0x000c}
0x146c…1498 Head {h00=0x0028, h01=0x0050, text=» GETABX TNDCIX GET INDEX (FIELDNO.) «, t00=0x000d, t01=0x0020}
0x1498…14b4 Head {h00=0x0018, h01=0x0050, text=» MOVE WDEC1,SPINPUT «, t00=0x000d, t01=0x004c}
0x14b4…14d4 Head {h00=0x001c, h01=0x0050, text=» CBE WDEC1,=D'0',SP33001«, t00=0x000d, t01=0x0068}
0x14d4…1512 Head {h00=0x003a, h01=0x0050, text=» MOVE NDDATA2(KW2,TNDCIX),=D'1' NOTES HAVE BEEN LOADED«, t00=0x000d, t01=0x0088}
0x1512…1540 Head {h00=0x002a, h01=0x0050, text=» ADD TNDCIX,KW1 .... FOR THIS CASSETTE«, t00=0x000d, t01=0x00c6}
0x1540…1566 Head {h00=0x0022, h01=0x0050, text=» RET INCREASE REGISTER INDEX «, t00=0x000d, t01=0x00f4}
0x1566…1576 Head {h00=0x000c, h01=0x0050, text=»SP33001 «, t00=0x000d, t01=0x011a}
0x1576…15ac Head {h00=0x0032, h01=0x0050, text=» MOVE SPBINW4,KW5 ERROR, VALUE MUST BE ENTERED«, t00=0x000d, t01=0x012a}
0x15ac…15dc Head {h00=0x002c, h01=0x0050, text=» MOVE XWRET,KW1 RETURN AND REPEAT INPUT «, t00=0x000d, t01=0x0160}
0x15dc…15e8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x0190}
0x15e8…15f6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000e, t01=0x000c}
0x15f6…1602 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x000e, t01=0x001a}
0x1602…1606 Head {h00=0x4004, h01=0x0000}
0x1606…160a 00 0e 00 26 ┆ &┆
0x160a…1612 (15, 1, 8) 20 04 00 00 00 0f 00 04 ┆ ┆
0x1612…161e (16, 0, 12) 00 08 00 48 45 4e 44 20 00 00 00 04 ┆ HEND ┆
0x161e…1626 (17, 1, 8) 20 04 00 00 00 01 00 04 ┆ ┆
0x1626…162e (18, 1, 8) 20 04 00 00 00 02 00 04 ┆ ┆
0x162e…167e (19, 0, 400) 00 2a 00 26 03 12 00 00 00 3d 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 13 00 04 00 2a 00 26 03 12 00 00 00 5b 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * & = * & [ ┆
0x167e…16ce 00 00 00 00 00 00 00 00 00 13 00 32 00 10 00 0c 03 05 00 00 00 79 00 00 00 00 00 00 00 13 00 60 00 10 00 0c 04 05 00 00 00 01 00 7c 00 03 00 00 00 13 00 74 00 0e 00 0a 07 04 00 00 00 79 00 7c 00 00 00 13 00 88 00 3c 00 48 20 49 44 45 4e 54 ┆ 2 y ` | t y | < H IDENT┆
0x16ce…171e 20 44 3a 55 41 32 30 20 20 54 52 41 20 31 30 2e 30 20 20 20 2d 20 20 2d 20 20 20 46 31 20 4f 31 31 31 31 20 20 44 41 54 41 20 44 49 56 49 53 49 4f 4e 00 13 00 9a 00 0e 00 0a 01 04 c8 44 3a 55 41 32 30 00 00 13 00 da 00 10 00 0c 05 05 c8 44 ┆ D:UA20 TRA 10.0 - - F1 O1111 DATA DIVISION D:UA20 D┆
0x171e…176e 3a 55 41 32 30 55 00 02 00 13 00 ec 00 2a 00 26 03 12 00 00 00 01 00 00 00 3e 30 06 00 00 30 03 00 06 00 14 00 09 00 14 00 1d 00 14 00 31 00 06 00 45 30 01 00 4b 00 13 01 00 00 2a 00 26 03 12 00 00 00 1f 00 00 30 06 00 4c 30 06 00 52 30 06 ┆:UA20U * & >0 0 1 E0 K * & 0 L0 R0 ┆
0x176e…17be 00 58 30 06 00 5e 30 02 00 64 30 06 00 66 30 06 00 6c 30 06 00 13 01 2e 00 0e 00 0a 03 04 00 00 00 3d 00 00 00 72 00 13 01 5c 00 0e 00 0a 07 04 00 00 00 1f 00 3e 00 00 00 13 01 6e 00 3c 00 48 20 49 44 45 4e 54 20 55 3a 55 54 31 30 20 20 54 ┆ X0 ^0 d0 f0 l0 . = r > n < H IDENT U:UT10 T┆
0x17be…180e (20, 0, 400) 52 41 20 31 30 2e 30 20 20 20 2d 20 20 2d 20 20 20 46 31 20 4f 31 31 31 31 20 20 44 41 54 41 20 44 49 56 49 53 49 4f 4e 00 13 01 80 00 0e 00 0a 01 04 c8 55 3a 55 54 31 30 00 00 14 00 30 00 10 00 0c 05 05 c8 55 3a 55 54 31 30 55 00 04 00 14 ┆RA 10.0 - - F1 O1111 DATA DIVISION U:UT10 0 U:UT10U ┆
0x180e…185e 00 42 00 2a 00 26 03 12 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 14 00 56 00 2a 00 26 03 12 00 00 00 1f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ B * & V * & ┆
0x185e…18ae 00 00 00 00 00 00 00 00 00 20 00 14 00 84 00 20 00 1c 03 0d 00 00 00 3d 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 14 00 b2 00 10 00 0c 04 05 00 00 00 01 00 50 00 03 00 00 00 14 00 d6 00 0e 00 0a 07 04 00 00 00 3d ┆ = * P =┆
0x18ae…18fe 00 50 00 00 00 14 00 ea 00 3c 00 48 20 49 44 45 4e 54 20 44 3a 55 54 31 30 20 20 54 52 41 20 31 30 2e 30 20 20 20 2d 20 20 2d 20 20 20 46 31 20 4f 31 31 31 31 20 20 44 41 54 41 20 44 49 56 49 53 49 4f 4e 00 14 00 fc 00 0e 00 0a 01 04 c8 44 ┆ P < H IDENT D:UT10 TRA 10.0 - - F1 O1111 DATA DIVISION D┆
0x18fe…194e 3a 55 54 31 30 00 00 14 01 3c 00 10 00 0c 05 05 c8 44 3a 55 54 31 30 55 00 02 00 14 01 4e 00 2a 00 26 03 12 00 00 00 01 00 00 00 32 30 06 00 00 30 03 00 06 30 02 00 09 30 04 00 0b 30 06 00 0f 30 06 00 15 30 06 00 1b 00 14 01 62 00 20 00 1c ┆:UT10 < D:UT10U N * & 20 0 0 0 0 0 0 b ┆