|
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: 11124 (0x2b74)
Notes: pts_type(SC)
Names: »DAUCCY.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »DEMO6800/DAUCCY.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »DEMO6800/DAUCCY.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/DAUCCY.SC«
IDENT DAUCCY CURRENCY UPDATE
DDUM DEMODD
PDIV
EXPROC ECICCY
EXPROC PAJRN
EXPROC XBFMT
EXPROC ZCRDD
EXPROC ZHWRID
ENTRY DAUCCY
ENTRY EPPCCY
ENTRY SPAP21
ENTRY SPAP23
ENTRY SPAP24
ENTRY SPAP25
ENTRY SPAP28
ENTRY SPAP29
************************************************************************
*
* UPDATE CURRENCY
*
************************************************************************
DAUCCY PROC
DA000
CBNE YDSTATUS,=D'1',DA100
MOVE SWCCY,=W'1'
DA050
MOVE CDCCYRNR,SWCCY
ADD CDCCYRNR,=D'10'
MUL CDCCYRNR,KDSHIFT SHIFT NUMBER
PERF ZCRDD,CDCCYRNR,NDLRN1,KW1 READ CURRENCY RECORD
TBT SBCANCEL,DA999
TBT SBRECAVB,DA100 CONTINUE
*
* INITIALISE A NEW CURRENCY RECORD
*
PERF ECICCY
DA100
CBE YDSTATUS,=D'1',DA150
SET SBUCCY
PERF PAJRN,=W'1'
DA150
PERF XBFMT,=W'15' INITIALISE CURRENCY
TBT SBCANCEL,DA999
MOVE YCCCY(SWCCY),CCCCYCDE MOVE CURRENCY CODE TO CWB
PERF ZHWRID,CDCCYRNR,NDLRN1 WRITE CURRENCY RECORD
CBNE YDSTATUS,=D'1',DA200
ADD SWCCY,=W'1'
CBL SWCCY,=W'4',DA050
B DA999
DA200
*
* LOG UPDATES ON JOURNAL ROLL
*
PERF EPPCCY
ADD YDLASSEQ,=D'1'
MOVE TDTRSSEQ,YDLASSEQ
DA999
CLEAR SBUCCY
RET
PEND
**********************************************************************
*
* PRINT CURRENCY LINE TYPES (UPDATE AND INQUIRY)
*
**********************************************************************
EPPCCY PROC PRINT CURRENCY
*
* LINE 5
*
MOVE ICTEXT2,CCCCYNME
PERF PAJRN,=W'5'
*
* LINE 6: BUYING RATES
*
MOVE IDAMT1,CDBUY1
MOVE IDAMT2,CDBUY2
PERF PAJRN,=W'6'
*
* LINE 6: SELLING RATES
*
MOVE IDAMT1,CDSEL1
MOVE IDAMT2,CDSEL2
PERF PAJRN,=W'6'
*
* LINE 4: CURRENCY CODE AND RELATION
*
MOVE ICTEXT3,YCCCY(SWCCY) CURRENCY CODE
MOVE TDAMOUNT,CDRELAT
MUL TDAMOUNT,KDSHIFT
PERF PAJRN,=W'4'
*
* LINE 4: SYSTEM CURRENCY AND LIMIT RATE
*
MOVE ICTEXT3,YCCCY(KW4) SYSTEM CURRENCY
MOVE TDAMOUNT,CDLIMIT LIMIT RATE
PERF PAJRN,=W'4'
RET
PEND
************************************************************************
*
* VALUE BETWEEN 1 AND 10000
*
*********************************************************************
SPAP21 PROC XWRET
PBIN XWRET
S21000
CBL CDRELAT,=D'1',S21500
CBG CDRELAT,=D'10000',S21500
MOVE XWRET,=W'0'
B S21999
S21500
MOVE XWRET,=W'1'
MOVE SPBINW4,=W'1' 'RANGE ERROR'
S21999
RET
PEND
*********************************************************************
*
* IF VALUE 2 NOT ZERO, IT MUST BE GREATER THEN VALUE 1
*
*********************************************************************
SPAP23 PROC XWRET
PBIN XWRET
S23000
CBE CDBUY2,=D'0',S23200
CBL CDBUY1,CDBUY2,S23200
MOVE XWRET,=W'1'
MOVE SPBINW4,=W'20' 'INVALID COMPARISION'
B S23999
S23200
CBG CDBUY2,=D'0',S23500
CBG CDSEL2,=D'0',S23500
*
* BOTH RATES ARE ZERO, SET LIMIT RATE-2 TO ZERO
*
MOVE CDLIMIT,=D'0'
B S24800
*
* AT LEAST ONE RATE IS UNEQUAL TO ZERO
* IF CDLIMIT = 0, ACTIVATE THE ME-OPTION FOR THIS
* FIELD BY CLEARING CDLIMIT
*
S23500
CBG CDLIMIT,=D'0',S23900
MOVE CDLIMIT,=X'0F' ACTIVATE THE ME0OPTION
*
* REDISPLAY LIMIT RATE, IF SCREEN CONTAINS ENOUGH LINES
*
S23800
CBL RDSCRLNS,=D'5',S23900
ERASE 0,KW5,KW5
DISPLAY 4,KW5,KW5
S23900
MOVE XWRET,=W'0'
S23999
RET
PEND
*********************************************************************
*
* VALUE 2 MAY BE ZERO, OTHERWISE IT MUST BE LESS THEN VALUE 1
*
*********************************************************************
SPAP24 PROC XWRET
PBIN XWRET
S24000
CBE CDSEL2,=D'0',S24200
CBG CDSEL1,CDSEL2,S24200
MOVE XWRET,=W'1'
MOVE SPBINW4,=W'20' 'INVALID COMPARISION'
B S24999
S24200
CBG CDBUY2,=D'0',S24500
CBG CDSEL2,=D'0',S24500
*
* BOTH RATES ARE ZERO, SET LIMIT RATE-2 TO ZERO
*
MOVE CDLIMIT,=D'0'
B S24800 REDISPLAY LIMIT
*
* AT LEAST ONE RATE IS UNEQUAL TO ZERO
* IF CDLIMIT = 0, ACTIVATE TH ME-OPTION FOR THIS
* FIELD BY CLEARING CDLIMIT
*
S24500
CBG CDLIMIT,=D'0',S24900
MOVE CDLIMIT,=X'0F' ACTIVATE ME-OPTION
*
* REDISPLAY LIMIT RATE, IF SCREEN CONTAINS ENOUGH LINES
*
S24800
CBL RDSCRLNS,=D'5',S24900
ERASE 0,KW5,KW5
DISPLAY 4,KW5,KW5
S24900
MOVE XWRET,=W'0'
S24999
RET
PEND
*********************************************************************
*
* CHECK LIMIT RATE IF BOTH CDSEL2 AND CDBUY2 ARE EQUAL TO ZERO ,
* CDLIMIT MUST CONTAIN ZERO , ELSE IT MUST CONTAIN ANY VALUE
* GREATER THEN ZERO
*
*********************************************************************
SPAP25 PROC XWRET
PBIN XWRET
S25000
CBE CDBUY2,=D'0',S25100
B S25200
S25100
CBE CDSEL2,=D'0',S25500
*
* CDBUY2 OR CDSEL2 IS NOT EQUAL TO ZERO
*
S25200
CBG CDLIMIT,=D'0',S25900
MOVE XWRET,=W'1'
MOVE SPBINW4,=W'1' 'VALUE NOT IN RANGE'
B S25999
S25500
*
* BOTH CDBUY2 AND CDSEL2 ARE EQUAL TO ZERO
*
CBE CDLIMIT,=D'0',S25900
MOVE XWRET,=W'1'
MOVE SPBINW4,=W'9'
B S25999
S25900
MOVE XWRET,=W'0'
S25999
RET
PEND
*************************************************************
* *
* CDBUY1 MUST BE GREATER THEN ZERO *
* IF A NEW VALUE IS ENTERED, ACTIVATE ME-OPTION FOR
* CDBUY2 AND REDISPLAY THE WHOLE LINE. *
* *
*************************************************************
SPAP28 PROC XWRET
PBIN XWRET
S28000
CBG CDBUY1,=D'0',S28200
MOVE SPBINW4,=W'1' 'VALUE NOT IN RANGE'
MOVE XWRET,=W'1'
B S28999
S28200
MOVE CDBUY2,=X'0F' ACTIVATE ME-OPTION
CBL RDSCRLNS,=D'3',S28900
ERASE 0,KW3,KW3
DISPLAY 4,KW3,KW3
S28900
MOVE XWRET,=W'0'
S28999
RET
PEND
***********************************************************
* *
* CDSEL1 MUST BE GREATER THEN ZERO *
* IF A NEW VALUE IS ENTERED, ACTIVATE ME-OPTION FOR *
* CDSEL2 AND REDISPLAY THE WHOLE LINE *
* *
***********************************************************
SPAP29 PROC XWRET
PBIN XWRET
S29000
CBG CDSEL1,=D'0',S29200
MOVE SPBINW4,=W'1' 'VALUE NOT IN RANGE'
MOVE XWRET,=W'1'
B S29999
S29200
MOVE CDSEL2,=X'0F' ACTIVATE ME-OPTION
CBL RDSCRLNS,=D'4',S29900
ERASE 0,KW4,KW4
DISPLAY 4,KW4,KW4
S29900
MOVE XWRET,=W'0'
S29999
RET
PEND
*********************************************************************
END
0x0000…0040 (0, 0, 400) Head {h00=0x003c, h01=0x0050, text=» IDENT DAUCCY CURRENCY UPDATE «, t00=0x0000, t01=0x0004}
0x0040…0054 Head {h00=0x0010, h01=0x000c, text=» DDUM DEMODD«, t00=0x0000, t01=0x0044}
0x0054…0062 Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x0058}
0x0062…0078 Head {h00=0x0012, h01=0x0050, text=» EXPROC ECICCY«, t00=0x0000, t01=0x0066}
0x0078…0098 Head {h00=0x001c, h01=0x0050, text=» EXPROC PAJRN «, t00=0x0000, t01=0x007c}
0x0098…00ae Head {h00=0x0012, h01=0x0050, text=» EXPROC XBFMT «, t00=0x0000, t01=0x009c}
0x00ae…00c4 Head {h00=0x0012, h01=0x0050, text=» EXPROC ZCRDD «, t00=0x0000, t01=0x00b2}
0x00c4…00da Head {h00=0x0012, h01=0x0050, text=» EXPROC ZHWRID«, t00=0x0000, t01=0x00c8}
0x00da…00f0 Head {h00=0x0012, h01=0x000d, text=» ENTRY DAUCCY «, t00=0x0000, t01=0x00de}
0x00f0…0106 Head {h00=0x0012, h01=0x0050, text=» ENTRY EPPCCY «, t00=0x0000, t01=0x00f4}
0x0106…0126 Head {h00=0x001c, h01=0x0050, text=» ENTRY SPAP21«, t00=0x0000, t01=0x010a}
0x0126…0146 Head {h00=0x001c, h01=0x0050, text=» ENTRY SPAP23«, t00=0x0000, t01=0x012a}
0x0146…0166 Head {h00=0x001c, h01=0x0050, text=» ENTRY SPAP24«, t00=0x0000, t01=0x014a}
0x0166…0186 Head {h00=0x001c, h01=0x0050, text=» ENTRY SPAP25«, t00=0x0000, t01=0x016a}
0x0186…019c Head {h00=0x0012, h01=0x0050, text=» ENTRY SPAP28 «, t00=0x0000, t01=0x018a}
0x019c…01b2 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPAP29 «, t00=0x0001, t01=0x0010}
0x01b2…0202 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0001, t01=0x0026}
0x0202…020c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0076}
0x020c…0226 Head {h00=0x0016, h01=0x0050, text=»* UPDATE CURRENCY «, t00=0x0001, t01=0x0080}
0x0226…0230 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0001, t01=0x009a}
0x0230…0280 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0001, t01=0x00a4}
0x0280…0294 Head {h00=0x0010, h01=0x0050, text=»DAUCCY PROC «, t00=0x0001, t01=0x00f4}
0x0294…02a2 Head {h00=0x000a, h01=0x0050, text=»DA000 «, t00=0x0001, t01=0x0108}
0x02a2…02c4 Head {h00=0x001e, h01=0x0050, text=» CBNE YDSTATUS,=D'1',DA100«, t00=0x0001, t01=0x0116}
0x02c4…02de Head {h00=0x0016, h01=0x0050, text=» MOVE SWCCY,=W'1' «, t00=0x0001, t01=0x0138}
0x02de…02ec Head {h00=0x000a, h01=0x0050, text=»DA050 «, t00=0x0001, t01=0x0152}
0x02ec…0308 Head {h00=0x0018, h01=0x0050, text=» MOVE CDCCYRNR,SWCCY«, t00=0x0001, t01=0x0160}
0x0308…0324 Head {h00=0x0018, h01=0x0050, text=» ADD CDCCYRNR,=D'10'«, t00=0x0001, t01=0x017c}
0x0324…034e Head {h00=0x0026, h01=0x0050, text=» MUL CDCCYRNR,KDSHIFT SHIFT NUMBER«, t00=0x0002, t01=0x0008}
0x034e…038a Head {h00=0x0038, h01=0x0050, text=» PERF ZCRDD,CDCCYRNR,NDLRN1,KW1 READ CURRENCY RECORD«, t00=0x0002, t01=0x0032}
0x038a…03a6 Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,DA999 «, t00=0x0002, t01=0x006e}
0x03a6…03ca Head {h00=0x0020, h01=0x0050, text=» TBT SBRECAVB,DA100 CONTINUE«, t00=0x0002, t01=0x008a}
0x03ca…03d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ae}
0x03d4…03fe Head {h00=0x0026, h01=0x0050, text=»* INITIALISE A NEW CURRENCY RECORD«, t00=0x0002, t01=0x00b8}
0x03fe…0408 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00e2}
0x0408…041c Head {h00=0x0010, h01=0x0050, text=» PERF ECICCY«, t00=0x0002, t01=0x00ec}
0x041c…042a Head {h00=0x000a, h01=0x0050, text=»DA100 «, t00=0x0002, t01=0x0100}
0x042a…0458 Head {h00=0x002a, h01=0x0050, text=» CBE YDSTATUS,=D'1',DA150«, t00=0x0002, t01=0x010e}
0x0458…046c Head {h00=0x0010, h01=0x0050, text=» SET SBUCCY «, t00=0x0002, t01=0x013c}
0x046c…0492 Head {h00=0x0022, h01=0x0050, text=» PERF PAJRN,=W'1' «, t00=0x0002, t01=0x0150}
0x0492…04a0 Head {h00=0x000a, h01=0x0050, text=»DA150 «, t00=0x0002, t01=0x0176}
0x04a0…04ce Head {h00=0x002a, h01=0x0050, text=» PERF XBFMT,=W'15' INITIALISE CURRENCY«, t00=0x0002, t01=0x0184}
0x04ce…04ea Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,DA999 «, t00=0x0003, t01=0x0022}
0x04ea…0528 Head {h00=0x003a, h01=0x0050, text=» MOVE YCCCY(SWCCY),CCCCYCDE MOVE CURRENCY CODE TO CWB «, t00=0x0003, t01=0x003e}
0x0528…0562 Head {h00=0x0036, h01=0x0050, text=» PERF ZHWRID,CDCCYRNR,NDLRN1 WRITE CURRENCY RECORD«, t00=0x0003, t01=0x007c}
0x0562…0584 Head {h00=0x001e, h01=0x0050, text=» CBNE YDSTATUS,=D'1',DA200«, t00=0x0003, t01=0x00b6}
0x0584…059c Head {h00=0x0014, h01=0x0050, text=» ADD SWCCY,=W'1'«, t00=0x0003, t01=0x00d8}
0x059c…05ba Head {h00=0x001a, h01=0x0050, text=» CBL SWCCY,=W'4',DA050«, t00=0x0003, t01=0x00f0}
0x05ba…05ca Head {h00=0x000c, h01=0x0050, text=» B DA999«, t00=0x0003, t01=0x010e}
0x05ca…05d8 Head {h00=0x000a, h01=0x0050, text=»DA200 «, t00=0x0003, t01=0x011e}
0x05d8…05e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x012c}
0x05e2…0608 Head {h00=0x0022, h01=0x0050, text=»* LOG UPDATES ON JOURNAL ROLL«, t00=0x0003, t01=0x0136}
0x0608…0612 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x015c}
0x0612…0626 Head {h00=0x0010, h01=0x0050, text=» PERF EPPCCY«, t00=0x0003, t01=0x0166}
0x0626…0642 Head {h00=0x0018, h01=0x0050, text=» ADD YDLASSEQ,=D'1' «, t00=0x0003, t01=0x017a}
0x0642…0662 Head {h00=0x001c, h01=0x0050, text=» MOVE TDTRSSEQ,YDLASSEQ «, t00=0x0004, t01=0x0008}
0x0662…0670 Head {h00=0x000a, h01=0x0050, text=»DA999 «, t00=0x0004, t01=0x0028}
0x0670…0686 Head {h00=0x0012, h01=0x0050, text=» CLEAR SBUCCY «, t00=0x0004, t01=0x0036}
0x0686…069a Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0004, t01=0x004c}
0x069a…06a8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x0060}
0x06a8…06f6 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0004, t01=0x006e}
0x06f6…0700 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00bc}
0x0700…073a Head {h00=0x0036, h01=0x0050, text=»* PRINT CURRENCY LINE TYPES (UPDATE AND INQUIRY) «, t00=0x0004, t01=0x00c6}
0x073a…0744 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0100}
0x0744…0792 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0004, t01=0x010a}
0x0792…07b6 Head {h00=0x0020, h01=0x0050, text=»EPPCCY PROC PRINT CURRENCY «, t00=0x0004, t01=0x0158}
0x07b6…07c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x017c}
0x07c0…07d2 Head {h00=0x000e, h01=0x0050, text=»* LINE 5 «, t00=0x0004, t01=0x0186}
0x07d2…07dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0008}
0x07dc…0804 Head {h00=0x0024, h01=0x0050, text=» MOVE ICTEXT2,CCCCYNME «, t00=0x0005, t01=0x0012}
0x0804…0826 Head {h00=0x001e, h01=0x0050, text=» PERF PAJRN,=W'5'«, t00=0x0005, t01=0x003a}
0x0826…0830 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x005c}
0x0830…0850 Head {h00=0x001c, h01=0x0050, text=»* LINE 6: BUYING RATES «, t00=0x0005, t01=0x0066}
0x0850…085a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0086}
0x085a…087e Head {h00=0x0020, h01=0x0050, text=» MOVE IDAMT1,CDBUY1«, t00=0x0005, t01=0x0090}
0x087e…08a2 Head {h00=0x0020, h01=0x0050, text=» MOVE IDAMT2,CDBUY2«, t00=0x0005, t01=0x00b4}
0x08a2…08c4 Head {h00=0x001e, h01=0x0050, text=» PERF PAJRN,=W'6'«, t00=0x0005, t01=0x00d8}
0x08c4…08ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00fa}
0x08ce…08ee Head {h00=0x001c, h01=0x0050, text=»* LINE 6: SELLING RATES«, t00=0x0005, t01=0x0104}
0x08ee…08f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0124}
0x08f8…091c Head {h00=0x0020, h01=0x0050, text=» MOVE IDAMT1,CDSEL1«, t00=0x0005, t01=0x012e}
0x091c…0940 Head {h00=0x0020, h01=0x0050, text=» MOVE IDAMT2,CDSEL2«, t00=0x0005, t01=0x0152}
0x0940…0962 Head {h00=0x001e, h01=0x0050, text=» PERF PAJRN,=W'6'«, t00=0x0005, t01=0x0176}
0x0962…096c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0008}
0x096c…099a Head {h00=0x002a, h01=0x0050, text=»* LINE 4: CURRENCY CODE AND RELATION «, t00=0x0006, t01=0x0012}
0x099a…09a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0040}
0x09a4…09de Head {h00=0x0036, h01=0x0050, text=» MOVE ICTEXT3,YCCCY(SWCCY) CURRENCY CODE«, t00=0x0006, t01=0x004a}
0x09de…0a06 Head {h00=0x0024, h01=0x0050, text=» MOVE TDAMOUNT,CDRELAT «, t00=0x0006, t01=0x0084}
0x0a06…0a2e Head {h00=0x0024, h01=0x0050, text=» MUL TDAMOUNT,KDSHIFT «, t00=0x0006, t01=0x00ac}
0x0a2e…0a50 Head {h00=0x001e, h01=0x0050, text=» PERF PAJRN,=W'4'«, t00=0x0006, t01=0x00d4}
0x0a50…0a5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00f6}
0x0a5a…0a8c Head {h00=0x002e, h01=0x0050, text=»* LINE 4: SYSTEM CURRENCY AND LIMIT RATE «, t00=0x0006, t01=0x0100}
0x0a8c…0a96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0132}
0x0a96…0ad4 Head {h00=0x003a, h01=0x0050, text=» MOVE ICTEXT3,YCCCY(KW4) SYSTEM CURRENCY«, t00=0x0006, t01=0x013c}
0x0ad4…0b0e Head {h00=0x0036, h01=0x0050, text=» MOVE TDAMOUNT,CDLIMIT LIMIT RATE «, t00=0x0006, t01=0x017a}
0x0b0e…0b30 Head {h00=0x001e, h01=0x0050, text=» PERF PAJRN,=W'4'«, t00=0x0007, t01=0x0024}
0x0b30…0b44 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0046}
0x0b44…0b52 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x005a}
0x0b52…0ba2 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0007, t01=0x0068}
0x0ba2…0bac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b8}
0x0bac…0bd2 Head {h00=0x0022, h01=0x0050, text=»* VALUE BETWEEN 1 AND 10000 «, t00=0x0007, t01=0x00c2}
0x0bd2…0bdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e8}
0x0bdc…0c2a Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0007, t01=0x00f2}
0x0c2a…0c44 Head {h00=0x0016, h01=0x0050, text=»SPAP21 PROC XWRET «, t00=0x0007, t01=0x0140}
0x0c44…0c58 Head {h00=0x0010, h01=0x0050, text=» PBIN XWRET «, t00=0x0007, t01=0x015a}
0x0c58…0c66 Head {h00=0x000a, h01=0x0050, text=»S21000«, t00=0x0007, t01=0x016e}
0x0c66…0c94 Head {h00=0x002a, h01=0x0050, text=» CBL CDRELAT,=D'1',S21500«, t00=0x0007, t01=0x017c}
0x0c94…0cc6 Head {h00=0x002e, h01=0x0050, text=» CBG CDRELAT,=D'10000',S21500«, t00=0x0008, t01=0x001a}
0x0cc6…0cec Head {h00=0x0022, h01=0x0050, text=» MOVE XWRET,=W'0' «, t00=0x0008, t01=0x004c}
0x0cec…0d0c Head {h00=0x001c, h01=0x0050, text=» B S21999«, t00=0x0008, t01=0x0072}
0x0d0c…0d1a Head {h00=0x000a, h01=0x0050, text=»S21500«, t00=0x0008, t01=0x0092}
0x0d1a…0d40 Head {h00=0x0022, h01=0x0050, text=» MOVE XWRET,=W'1' «, t00=0x0008, t01=0x00a0}
0x0d40…0d7e Head {h00=0x003a, h01=0x0050, text=» MOVE SPBINW4,=W'1' 'RANGE ERROR' «, t00=0x0008, t01=0x00c6}
0x0d7e…0d8c Head {h00=0x000a, h01=0x0050, text=»S21999«, t00=0x0008, t01=0x0104}
0x0d8c…0da0 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0008, t01=0x0112}
0x0da0…0db6 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0008, t01=0x0126}
0x0db6…0e04 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0008, t01=0x013c}
0x0e04…0e0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x018a}
0x0e0e…0e4e (9, 0, 400) Head {h00=0x003c, h01=0x0050, text=»* IF VALUE 2 NOT ZERO, IT MUST BE GREATER THEN VALUE 1«, t00=0x0009, t01=0x0004}
0x0e4e…0e58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0044}
0x0e58…0ea6 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0009, t01=0x004e}
0x0ea6…0ec0 Head {h00=0x0016, h01=0x0050, text=»SPAP23 PROC XWRET «, t00=0x0009, t01=0x009c}
0x0ec0…0ed4 Head {h00=0x0010, h01=0x0050, text=» PBIN XWRET «, t00=0x0009, t01=0x00b6}
0x0ed4…0ee2 Head {h00=0x000a, h01=0x0050, text=»S23000«, t00=0x0009, t01=0x00ca}
0x0ee2…0f10 Head {h00=0x002a, h01=0x0050, text=» CBE CDBUY2,=D'0',S23200 «, t00=0x0009, t01=0x00d8}
0x0f10…0f3e Head {h00=0x002a, h01=0x0050, text=» CBL CDBUY1,CDBUY2,S23200«, t00=0x0009, t01=0x0106}
0x0f3e…0f64 Head {h00=0x0022, h01=0x0050, text=» MOVE XWRET,=W'1' «, t00=0x0009, t01=0x0134}
0x0f64…0faa Head {h00=0x0042, h01=0x0050, text=» MOVE SPBINW4,=W'20' 'INVALID COMPARISION' «, t00=0x0009, t01=0x015a}
0x0faa…0fca Head {h00=0x001c, h01=0x0050, text=» B S23999«, t00=0x000a, t01=0x0010}
0x0fca…0fd8 Head {h00=0x000a, h01=0x0050, text=»S23200«, t00=0x000a, t01=0x0030}
0x0fd8…0ff8 Head {h00=0x001c, h01=0x0050, text=» CBG CDBUY2,=D'0',S23500«, t00=0x000a, t01=0x003e}
0x0ff8…1018 Head {h00=0x001c, h01=0x0050, text=» CBG CDSEL2,=D'0',S23500«, t00=0x000a, t01=0x005e}
0x1018…1022 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x007e}
0x1022…105a Head {h00=0x0034, h01=0x0050, text=»* BOTH RATES ARE ZERO, SET LIMIT RATE-2 TO ZERO«, t00=0x000a, t01=0x0088}
0x105a…1064 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00c0}
0x1064…1080 Head {h00=0x0018, h01=0x0050, text=» MOVE CDLIMIT,=D'0' «, t00=0x000a, t01=0x00ca}
0x1080…1092 Head {h00=0x000e, h01=0x0050, text=» B S24800 «, t00=0x000a, t01=0x00e6}
0x1092…109c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00f8}
0x109c…10cc Head {h00=0x002c, h01=0x0050, text=»* AT LEAST ONE RATE IS UNEQUAL TO ZERO «, t00=0x000a, t01=0x0102}
0x10cc…1106 Head {h00=0x0036, h01=0x0050, text=»* IF CDLIMIT = 0, ACTIVATE THE ME-OPTION FOR THIS«, t00=0x000a, t01=0x0132}
0x1106…112a Head {h00=0x0020, h01=0x0050, text=»* FIELD BY CLEARING CDLIMIT«, t00=0x000a, t01=0x016c}
0x112a…1134 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0190}
0x1134…1142 Head {h00=0x000a, h01=0x0050, text=»S23500«, t00=0x000b, t01=0x000a}
0x1142…1164 Head {h00=0x001e, h01=0x0050, text=» CBG CDLIMIT,=D'0',S23900 «, t00=0x000b, t01=0x0018}
0x1164…1198 Head {h00=0x0030, h01=0x0050, text=» MOVE CDLIMIT,=X'0F' ACTIVATE THE ME0OPTION «, t00=0x000b, t01=0x003a}
0x1198…11a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x006e}
0x11a2…11e2 Head {h00=0x003c, h01=0x0050, text=»* REDISPLAY LIMIT RATE, IF SCREEN CONTAINS ENOUGH LINES«, t00=0x000b, t01=0x0078}
0x11e2…11ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00b8}
0x11ec…11fa Head {h00=0x000a, h01=0x0050, text=»S23800«, t00=0x000b, t01=0x00c2}
0x11fa…121c Head {h00=0x001e, h01=0x0050, text=» CBL RDSCRLNS,=D'5',S23900«, t00=0x000b, t01=0x00d0}
0x121c…1234 Head {h00=0x0014, h01=0x0050, text=» ERASE 0,KW5,KW5«, t00=0x000b, t01=0x00f2}
0x1234…124e Head {h00=0x0016, h01=0x0050, text=» DISPLAY 4,KW5,KW5«, t00=0x000b, t01=0x010a}
0x124e…125c Head {h00=0x000a, h01=0x0050, text=»S23900«, t00=0x000b, t01=0x0124}
0x125c…1282 Head {h00=0x0022, h01=0x0050, text=» MOVE XWRET,=W'0' «, t00=0x000b, t01=0x0132}
0x1282…1290 Head {h00=0x000a, h01=0x0050, text=»S23999«, t00=0x000b, t01=0x0158}
0x1290…12a4 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x000b, t01=0x0166}
0x12a4…12ba Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x000b, t01=0x017a}
0x12ba…1308 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x000b, t01=0x0190}
0x1308…1312 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x004e}
0x1312…135a Head {h00=0x0044, h01=0x0050, text=»* VALUE 2 MAY BE ZERO, OTHERWISE IT MUST BE LESS THEN VALUE 1 «, t00=0x000c, t01=0x0058}
0x135a…1364 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00a0}
0x1364…13b2 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x000c, t01=0x00aa}
0x13b2…13cc Head {h00=0x0016, h01=0x0050, text=»SPAP24 PROC XWRET «, t00=0x000c, t01=0x00f8}
0x13cc…13e0 Head {h00=0x0010, h01=0x0050, text=» PBIN XWRET «, t00=0x000c, t01=0x0112}
0x13e0…13ee Head {h00=0x000a, h01=0x0050, text=»S24000«, t00=0x000c, t01=0x0126}
0x13ee…140e Head {h00=0x001c, h01=0x0050, text=» CBE CDSEL2,=D'0',S24200«, t00=0x000c, t01=0x0134}
0x140e…143c Head {h00=0x002a, h01=0x0050, text=» CBG CDSEL1,CDSEL2,S24200«, t00=0x000c, t01=0x0154}
0x143c…1462 Head {h00=0x0022, h01=0x0050, text=» MOVE XWRET,=W'1' «, t00=0x000c, t01=0x0182}
0x1462…14a8 Head {h00=0x0042, h01=0x0050, text=» MOVE SPBINW4,=W'20' 'INVALID COMPARISION' «, t00=0x000d, t01=0x0018}
0x14a8…14c8 Head {h00=0x001c, h01=0x0050, text=» B S24999«, t00=0x000d, t01=0x005e}
0x14c8…14d6 Head {h00=0x000a, h01=0x0050, text=»S24200«, t00=0x000d, t01=0x007e}
0x14d6…14f6 Head {h00=0x001c, h01=0x0050, text=» CBG CDBUY2,=D'0',S24500«, t00=0x000d, t01=0x008c}
0x14f6…1516 Head {h00=0x001c, h01=0x0050, text=» CBG CDSEL2,=D'0',S24500«, t00=0x000d, t01=0x00ac}
0x1516…1520 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00cc}
0x1520…1558 Head {h00=0x0034, h01=0x0050, text=»* BOTH RATES ARE ZERO, SET LIMIT RATE-2 TO ZERO«, t00=0x000d, t01=0x00d6}
0x1558…1562 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x010e}
0x1562…157e Head {h00=0x0018, h01=0x0050, text=» MOVE CDLIMIT,=D'0' «, t00=0x000d, t01=0x0118}
0x157e…15a0 Head {h00=0x001e, h01=0x0050, text=» B S24800 REDISPLAY LIMIT «, t00=0x000d, t01=0x0134}
0x15a0…15aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0156}
0x15aa…15d8 Head {h00=0x002a, h01=0x0050, text=»* AT LEAST ONE RATE IS UNEQUAL TO ZERO«, t00=0x000d, t01=0x0160}
0x15d8…1610 Head {h00=0x0034, h01=0x0050, text=»* IF CDLIMIT = 0, ACTIVATE TH ME-OPTION FOR THIS«, t00=0x000d, t01=0x018e}
0x1610…1634 Head {h00=0x0020, h01=0x0050, text=»* FIELD BY CLEARING CDLIMIT«, t00=0x000e, t01=0x0036}
0x1634…163e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x005a}
0x163e…164c Head {h00=0x000a, h01=0x0050, text=»S24500«, t00=0x000e, t01=0x0064}
0x164c…166e Head {h00=0x001e, h01=0x0050, text=» CBG CDLIMIT,=D'0',S24900 «, t00=0x000e, t01=0x0072}
0x166e…169e Head {h00=0x002c, h01=0x0050, text=» MOVE CDLIMIT,=X'0F' ACTIVATE ME-OPTION «, t00=0x000e, t01=0x0094}
0x169e…16a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c4}
0x16a8…16e8 Head {h00=0x003c, h01=0x0050, text=»* REDISPLAY LIMIT RATE, IF SCREEN CONTAINS ENOUGH LINES«, t00=0x000e, t01=0x00ce}
0x16e8…16f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x010e}
0x16f2…1700 Head {h00=0x000a, h01=0x0050, text=»S24800«, t00=0x000e, t01=0x0118}
0x1700…1722 Head {h00=0x001e, h01=0x0050, text=» CBL RDSCRLNS,=D'5',S24900«, t00=0x000e, t01=0x0126}
0x1722…173a Head {h00=0x0014, h01=0x0050, text=» ERASE 0,KW5,KW5«, t00=0x000e, t01=0x0148}
0x173a…1754 Head {h00=0x0016, h01=0x0050, text=» DISPLAY 4,KW5,KW5«, t00=0x000e, t01=0x0160}
0x1754…1762 Head {h00=0x000a, h01=0x0050, text=»S24900«, t00=0x000e, t01=0x017a}
0x1762…1788 Head {h00=0x0022, h01=0x0050, text=» MOVE XWRET,=W'0' «, t00=0x000e, t01=0x0188}
0x1788…1796 Head {h00=0x000a, h01=0x0050, text=»S24999«, t00=0x000f, t01=0x001e}
0x1796…17aa Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x000f, t01=0x002c}
0x17aa…17c0 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x000f, t01=0x0040}
0x17c0…180e Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x000f, t01=0x0056}
0x180e…1818 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00a4}
0x1818…1862 Head {h00=0x0046, h01=0x0050, text=»* CHECK LIMIT RATE IF BOTH CDSEL2 AND CDBUY2 ARE EQUAL TO ZERO , «, t00=0x000f, t01=0x00ae}
0x1862…18a8 Head {h00=0x0042, h01=0x0050, text=»* CDLIMIT MUST CONTAIN ZERO , ELSE IT MUST CONTAIN ANY VALUE«, t00=0x000f, t01=0x00f8}
0x18a8…18c8 Head {h00=0x001c, h01=0x0050, text=»* GREATER THEN ZERO «, t00=0x000f, t01=0x013e}
0x18c8…18d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x015e}
0x18d2…1920 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x000f, t01=0x0168}
0x1920…193a Head {h00=0x0016, h01=0x0050, text=»SPAP25 PROC XWRET «, t00=0x0010, t01=0x0026}
0x193a…194e Head {h00=0x0010, h01=0x0050, text=» PBIN XWRET «, t00=0x0010, t01=0x0040}
0x194e…195c Head {h00=0x000a, h01=0x0050, text=»S25000«, t00=0x0010, t01=0x0054}
0x195c…198a Head {h00=0x002a, h01=0x0050, text=» CBE CDBUY2,=D'0',S25100 «, t00=0x0010, t01=0x0062}
0x198a…19aa Head {h00=0x001c, h01=0x0050, text=» B S25200«, t00=0x0010, t01=0x0090}
0x19aa…19b8 Head {h00=0x000a, h01=0x0050, text=»S25100«, t00=0x0010, t01=0x00b0}
0x19b8…19e6 Head {h00=0x002a, h01=0x0050, text=» CBE CDSEL2,=D'0',S25500 «, t00=0x0010, t01=0x00be}
0x19e6…19f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ec}
0x19f0…1a20 Head {h00=0x002c, h01=0x0050, text=»* CDBUY2 OR CDSEL2 IS NOT EQUAL TO ZERO«, t00=0x0010, t01=0x00f6}
0x1a20…1a2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0126}
0x1a2a…1a38 Head {h00=0x000a, h01=0x0050, text=»S25200«, t00=0x0010, t01=0x0130}
0x1a38…1a66 Head {h00=0x002a, h01=0x0050, text=» CBG CDLIMIT,=D'0',S25900«, t00=0x0010, t01=0x013e}
0x1a66…1a8c Head {h00=0x0022, h01=0x0050, text=» MOVE XWRET,=W'1' «, t00=0x0010, t01=0x016c}
0x1a8c…1ad0 (17, 0, 400) Head {h00=0x0040, h01=0x0050, text=» MOVE SPBINW4,=W'1' 'VALUE NOT IN RANGE'«, t00=0x0011, t01=0x0004}
0x1ad0…1af0 Head {h00=0x001c, h01=0x0050, text=» B S25999«, t00=0x0011, t01=0x0048}
0x1af0…1afe Head {h00=0x000a, h01=0x0050, text=»S25500«, t00=0x0011, t01=0x0068}
0x1afe…1b08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0076}
0x1b08…1b3c Head {h00=0x0030, h01=0x0050, text=»* BOTH CDBUY2 AND CDSEL2 ARE EQUAL TO ZERO «, t00=0x0011, t01=0x0080}
0x1b3c…1b46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b4}
0x1b46…1b74 Head {h00=0x002a, h01=0x0050, text=» CBE CDLIMIT,=D'0',S25900«, t00=0x0011, t01=0x00be}
0x1b74…1b9a Head {h00=0x0022, h01=0x0050, text=» MOVE XWRET,=W'1' «, t00=0x0011, t01=0x00ec}
0x1b9a…1bc2 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'9' «, t00=0x0011, t01=0x0112}
0x1bc2…1be2 Head {h00=0x001c, h01=0x0050, text=» B S25999«, t00=0x0011, t01=0x013a}
0x1be2…1bf0 Head {h00=0x000a, h01=0x0050, text=»S25900«, t00=0x0011, t01=0x015a}
0x1bf0…1c16 Head {h00=0x0022, h01=0x0050, text=» MOVE XWRET,=W'0' «, t00=0x0011, t01=0x0168}
0x1c16…1c24 Head {h00=0x000a, h01=0x0050, text=»S25999«, t00=0x0011, t01=0x018e}
0x1c24…1c38 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0012, t01=0x000c}
0x1c38…1c4e Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0012, t01=0x0020}
0x1c4e…1c94 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0012, t01=0x0036}
0x1c94…1cda Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0012, t01=0x007c}
0x1cda…1d20 Head {h00=0x0042, h01=0x0050, text=»* CDBUY1 MUST BE GREATER THEN ZERO * «, t00=0x0012, t01=0x00c2}
0x1d20…1d5e Head {h00=0x003a, h01=0x0050, text=»* IF A NEW VALUE IS ENTERED, ACTIVATE ME-OPTION FOR «, t00=0x0012, t01=0x0108}
0x1d5e…1da4 Head {h00=0x0042, h01=0x0050, text=»* CDBUY2 AND REDISPLAY THE WHOLE LINE. * «, t00=0x0012, t01=0x0146}
0x1da4…1dea Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0012, t01=0x018c}
0x1dea…1e30 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0013, t01=0x0042}
0x1e30…1e4a Head {h00=0x0016, h01=0x0050, text=»SPAP28 PROC XWRET «, t00=0x0013, t01=0x0088}
0x1e4a…1e5e Head {h00=0x0010, h01=0x0050, text=» PBIN XWRET «, t00=0x0013, t01=0x00a2}
0x1e5e…1e6c Head {h00=0x000a, h01=0x0050, text=»S28000«, t00=0x0013, t01=0x00b6}
0x1e6c…1e8c Head {h00=0x001c, h01=0x0050, text=» CBG CDBUY1,=D'0',S28200«, t00=0x0013, t01=0x00c4}
0x1e8c…1ebc Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW4,=W'1' 'VALUE NOT IN RANGE'«, t00=0x0013, t01=0x00e4}
0x1ebc…1ed6 Head {h00=0x0016, h01=0x0050, text=» MOVE XWRET,=W'1' «, t00=0x0013, t01=0x0114}
0x1ed6…1ee8 Head {h00=0x000e, h01=0x0050, text=» B S28999 «, t00=0x0013, t01=0x012e}
0x1ee8…1ef6 Head {h00=0x000a, h01=0x0050, text=»S28200«, t00=0x0013, t01=0x0140}
0x1ef6…1f24 Head {h00=0x002a, h01=0x0050, text=» MOVE CDBUY2,=X'0F' ACTIVATE ME-OPTION«, t00=0x0013, t01=0x014e}
0x1f24…1f46 Head {h00=0x001e, h01=0x0050, text=» CBL RDSCRLNS,=D'3',S28900«, t00=0x0013, t01=0x017c}
0x1f46…1f5e Head {h00=0x0014, h01=0x0050, text=» ERASE 0,KW3,KW3«, t00=0x0014, t01=0x000e}
0x1f5e…1f78 Head {h00=0x0016, h01=0x0050, text=» DISPLAY 4,KW3,KW3«, t00=0x0014, t01=0x0026}
0x1f78…1f86 Head {h00=0x000a, h01=0x0050, text=»S28900«, t00=0x0014, t01=0x0040}
0x1f86…1fa0 Head {h00=0x0016, h01=0x0050, text=» MOVE XWRET,=W'0' «, t00=0x0014, t01=0x004e}
0x1fa0…1fae Head {h00=0x000a, h01=0x0050, text=»S28999«, t00=0x0014, t01=0x0068}
0x1fae…1fba Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0014, t01=0x0076}
0x1fba…1fc8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0014, t01=0x0082}
0x1fc8…200c Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0014, t01=0x0090}
0x200c…2050 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0014, t01=0x00d4}
0x2050…2094 Head {h00=0x0040, h01=0x0050, text=»* CDSEL1 MUST BE GREATER THEN ZERO * «, t00=0x0014, t01=0x0118}
0x2094…20d6 Head {h00=0x003e, h01=0x0050, text=»* IF A NEW VALUE IS ENTERED, ACTIVATE ME-OPTION FOR *«, t00=0x0014, t01=0x015c}
0x20d6…211a Head {h00=0x0040, h01=0x0050, text=»* CDSEL2 AND REDISPLAY THE WHOLE LINE * «, t00=0x0015, t01=0x000e}
0x211a…215e Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0015, t01=0x0052}
0x215e…21a2 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0015, t01=0x0096}
0x21a2…21bc Head {h00=0x0016, h01=0x0050, text=»SPAP29 PROC XWRET «, t00=0x0015, t01=0x00da}
0x21bc…21d0 Head {h00=0x0010, h01=0x0050, text=» PBIN XWRET «, t00=0x0015, t01=0x00f4}
0x21d0…21de Head {h00=0x000a, h01=0x0050, text=»S29000«, t00=0x0015, t01=0x0108}
0x21de…21fe Head {h00=0x001c, h01=0x0050, text=» CBG CDSEL1,=D'0',S29200«, t00=0x0015, t01=0x0116}
0x21fe…222e Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW4,=W'1' 'VALUE NOT IN RANGE'«, t00=0x0015, t01=0x0136}
0x222e…2248 Head {h00=0x0016, h01=0x0050, text=» MOVE XWRET,=W'1' «, t00=0x0015, t01=0x0166}
0x2248…225a Head {h00=0x000e, h01=0x0050, text=» B S29999 «, t00=0x0015, t01=0x0180}
0x225a…2268 (22, 2, 322) Head {h00=0x000a, h01=0x0050, text=»S29200«, t00=0x0016, t01=0x0004}
0x2268…2296 Head {h00=0x002a, h01=0x0050, text=» MOVE CDSEL2,=X'0F' ACTIVATE ME-OPTION«, t00=0x0016, t01=0x0012}
0x2296…22b8 Head {h00=0x001e, h01=0x0050, text=» CBL RDSCRLNS,=D'4',S29900«, t00=0x0016, t01=0x0040}
0x22b8…22d0 Head {h00=0x0014, h01=0x0050, text=» ERASE 0,KW4,KW4«, t00=0x0016, t01=0x0062}
0x22d0…22ea Head {h00=0x0016, h01=0x0050, text=» DISPLAY 4,KW4,KW4«, t00=0x0016, t01=0x007a}
0x22ea…22f8 Head {h00=0x000a, h01=0x0050, text=»S29900«, t00=0x0016, t01=0x0094}
0x22f8…2312 Head {h00=0x0016, h01=0x0050, text=» MOVE XWRET,=W'0' «, t00=0x0016, t01=0x00a2}
0x2312…2320 Head {h00=0x000a, h01=0x0050, text=»S29999«, t00=0x0016, t01=0x00bc}
0x2320…232c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0016, t01=0x00ca}
0x232c…233a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0016, t01=0x00d6}
0x233a…2388 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0016, t01=0x00e4}
0x2388…2394 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0016, t01=0x0132}
0x2394…2398 Head {h00=0x4004, h01=0x0000}
0x2398…239c 00 16 01 3e ┆ >┆
0x239c…23a4 (23, 1, 8) 20 04 00 00 00 17 00 04 ┆ ┆
0x23a4…23f4 (24, 0, 400) 00 3c 00 37 20 20 20 20 20 20 20 20 20 49 44 45 4e 54 20 20 20 43 47 43 53 59 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4c 4f 53 45 20 53 59 53 54 45 4d 20 00 00 00 04 00 4c 00 50 5c 44 44 55 4d 5c 44 45 4d 4f 44 44 ┆ < 7 IDENT CGCSYS CLOSE SYSTEM L P DDUM DEMODD┆
0x23f4…2444 5c 5c 5c 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 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 44 00 4c 00 50 5c 50 44 49 56 5c 5c 5c 5c 00 00 00 ┆ D L P PDIV ┆
0x2444…2494 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 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 94 00 50 00 50 5c 45 58 50 52 4f 43 5c 50 41 4a 52 ┆ P P EXPROC PAJR┆
0x2494…24e4 4e 5c 5c 5c 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 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 20 00 00 00 e4 00 50 00 50 5c 45 58 50 52 4f 43 5c ┆N P P EXPROC ┆
0x24e4…2534 51 43 47 55 57 42 5c 5c 5c 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 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 20 00 00 01 38 00 12 00 50 5c 45 58 50 ┆QCGUWB 8 P EXP┆
0x2534…2584 (25, 0, 400) 52 4f 43 5c 51 44 46 55 57 42 00 00 01 8c 00 54 00 50 5c 45 58 50 52 4f 43 5c 51 45 4d 4f 56 45 5c 5c 5c 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 00 00 00 00 00 00 00 00 00 00 00 00 ┆ROC QDFUWB T P EXPROC QEMOVE ┆
0x2584…25d4 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 01 00 12 00 54 00 50 5c 45 58 50 52 4f 43 5c 58 42 46 4d 54 5c 5c 5c 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 00 00 00 00 00 ┆ T P EXPROC XBFMT ┆
0x25d4…2624 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 20 00 01 00 6a 00 50 00 50 5c 45 58 50 52 4f 43 5c 58 45 45 52 52 5c 5c 5c 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 ┆ j P P EXPROC XEERR ┆
0x2624…2674 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 20 00 01 00 c2 00 50 00 50 5c 45 58 50 52 4f 43 5c 5a 42 43 4c 53 44 5c 5c 5c 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 ┆ P P EXPROC ZBCLSD ┆
0x2674…26c4 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 20 00 01 01 16 00 54 00 50 5c 45 58 50 52 4f 43 5c 5a 43 52 44 44 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ T P EXPROC ZCRDD ┆
0x26c4…2714 (26, 0, 400) 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 00 00 00 00 00 00 00 00 20 00 01 01 6a 00 12 00 50 5c 45 58 50 52 4f 43 5c 5a 47 52 45 41 20 00 02 00 32 00 50 00 50 5c 45 58 50 52 4f 43 5c ┆ j P EXPROC ZGREA 2 P P EXPROC ┆
0x2714…2764 5a 4c 43 4c 53 46 5c 5c 5c 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 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 20 00 02 00 48 00 50 00 50 5c 45 58 50 ┆ZLCLSF H P P EXP┆
0x2764…27b4 52 4f 43 5c 5a 48 57 52 49 44 5c 5c 5c 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 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 20 00 02 00 9c 00 12 00 50 ┆ROC ZHWRID P┆
0x27b4…2804 5c 45 58 50 52 4f 43 5c 5a 59 52 4c 4e 47 00 02 00 f0 00 10 00 50 5c 45 58 50 52 4f 43 5c 4d 41 53 4b 00 02 01 06 00 4c 00 50 5c 45 4e 54 52 59 5c 43 47 43 53 59 53 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ EXPROC ZYRLNG P EXPROC MASK L P ENTRY CGCSYS ┆
0x2804…2854 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 00 00 02 01 1a 00 4c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ L P**************************************┆
0x2854…28a4 (27, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 02 01 6a 00 4c 00 50 2a 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 00 00 00 00 ┆********************************** j L P* ┆
0x28a4…28f4 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 2a 00 03 00 2a 00 4c 00 50 2a 20 43 4c 4f 53 45 20 53 59 53 54 45 4d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * * L P* CLOSE SYSTEM ┆
0x28f4…2944 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 2a 00 03 00 7a 00 4c 00 50 2a 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 00 00 00 00 ┆ * z L P* ┆
0x2944…2994 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 2a 00 03 00 ca 00 4c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * L P**************************************┆
0x2994…29e4 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 03 01 1a 00 4c 00 50 43 47 43 53 59 53 5c 50 52 4f 43 5c 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆********************************** L PCGCSYS PROC ┆
0x29e4…2a34 (28, 0, 400) 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 00 00 03 01 6a 00 4c 00 50 43 47 30 30 30 5c 5c 5c 5c 5c 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 ┆ j L PCG000 ┆
0x2a34…2a84 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 00 00 04 00 2a 00 4c 00 50 2a 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 00 00 00 00 ┆ * L P* ┆
0x2a84…2ad4 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 2a 00 04 00 7a 00 4c 00 50 2a 20 45 4e 53 55 52 45 20 54 48 41 54 20 4e 4f 20 4f 50 45 52 41 54 4f 52 20 49 53 20 42 55 53 59 00 00 00 00 00 ┆ * z L P* ENSURE THAT NO OPERATOR IS BUSY ┆
0x2ad4…2b24 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 2a 00 04 00 ca 00 4c 00 50 2a 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 00 00 00 00 ┆ * L P* ┆
0x2b24…2b74 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 2a 00 04 01 1a 00 4c 00 50 5c 4d 4f 56 45 5c 4e 57 55 57 42 4e 52 2c 3d 57 27 30 27 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * L P MOVE NWUWBNR,=W'0' ┆