|
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: 17500 (0x445c)
Notes: pts_type(SC)
Names: »SPACHQ.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »DEMO6800/SPACHQ.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »DEMO6800/SPACHQ.SC«
IDENT SPACHQ APPL-XX CONTROL
DDUM DEMODD
PDIV
EXPROC SPAP06
EXPROC SPAP07
EXPROC SPAP08
EXPROC SPAP09
EXPROC SPAP10
EXPROC SPAP11
EXPROC SPAP12
EXPROC SPAP13
EXPROC SPAP14
0x0000…0040 (0, 0, 400) Head {h00=0x003c, h01=0x0050, text=» IDENT SPACHQ APPL-XX CONTROL «, 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 SPAP06«, t00=0x0000, t01=0x0066}
0x0078…008e Head {h00=0x0012, h01=0x0050, text=» EXPROC SPAP07«, t00=0x0000, t01=0x007c}
0x008e…00a4 Head {h00=0x0012, h01=0x0050, text=» EXPROC SPAP08«, t00=0x0000, t01=0x0092}
0x00a4…00ba Head {h00=0x0012, h01=0x0050, text=» EXPROC SPAP09«, t00=0x0000, t01=0x00a8}
0x00ba…00d0 Head {h00=0x0012, h01=0x0050, text=» EXPROC SPAP10«, t00=0x0000, t01=0x00be}
0x00d0…00e6 Head {h00=0x0012, h01=0x0050, text=» EXPROC SPAP11«, t00=0x0000, t01=0x00d4}
0x00e6…00fc Head {h00=0x0012, h01=0x0050, text=» EXPROC SPAP12«, t00=0x0000, t01=0x00ea}
0x00fc…0112 Head {h00=0x0012, h01=0x0050, text=» EXPROC SPAP13«, t00=0x0000, t01=0x0100}
0x0112…0128 Head {h00=0x0012, h01=0x0050, text=» EXPROC SPAP14«, t00=0x0000, t01=0x0116}
0x0128…012c Head {h00=0x0054, h01=0x0050}
0x012c…0130 Head {h00=0x5c45, h01=0x5850}
0x0130…0140 52 4f 43 5c 53 50 41 50 31 35 5c 5c 5c 00 00 00 ┆ROC SPAP15 ┆
0x0140…0190 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 2c 00 50 00 50 5c 45 58 50 52 4f 43 5c 53 50 41 50 ┆ , P P EXPROC SPAP┆
0x0190…01e0 (1, 0, 400) 31 39 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 84 00 50 00 50 5c 45 58 50 52 4f 43 5c ┆19 P P EXPROC ┆
0x01e0…0230 53 50 41 50 32 30 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 01 00 48 00 54 00 50 5c 45 58 50 ┆SPAP20 H T P EXP┆
0x0230…0280 52 4f 43 5c 53 50 41 50 32 31 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 00 00 00 00 01 00 9c ┆ROC SPAP21 ┆
0x0280…02d0 00 54 00 50 5c 45 58 50 52 4f 43 5c 53 50 41 50 32 33 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 ┆ T P EXPROC SPAP23 ┆
0x02d0…0320 00 00 00 00 00 01 00 f4 00 54 00 50 5c 45 58 50 52 4f 43 5c 53 50 41 50 32 34 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 ┆ T P EXPROC SPAP24 ┆
0x0320…0370 (2, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 01 01 4c 00 54 00 50 5c 45 58 50 52 4f 43 5c 53 50 41 50 32 35 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 ┆ L T P EXPROC SPAP25 ┆
0x0370…03c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 14 00 12 00 50 5c 45 58 50 52 4f 43 5c 53 50 41 50 32 36 00 02 00 6c 00 12 00 50 5c 45 58 50 52 4f 43 5c 53 50 41 50 32 38 00 02 00 82 00 12 00 50 5c 45 58 50 52 4f 43 5c ┆ P EXPROC SPAP26 l P EXPROC SPAP28 P EXPROC ┆
0x03c0…0410 53 50 41 50 32 39 00 02 00 98 00 12 00 50 5c 45 58 50 52 4f 43 5c 53 50 41 50 33 30 00 02 00 ae 00 12 00 50 5c 45 58 50 52 4f 43 5c 53 50 41 50 33 31 00 02 00 c4 00 12 00 50 5c 45 58 50 52 4f 43 5c 53 50 41 50 33 32 00 02 00 da 00 12 00 0d ┆SPAP29 P EXPROC SPAP30 P EXPROC SPAP31 P EXPROC SPAP32 ┆
0x0410…0460 20 45 4e 54 52 59 20 53 50 41 50 50 4c 20 00 02 00 f0 00 12 00 50 5c 45 4e 54 52 59 5c 53 50 41 50 31 36 20 00 02 01 06 00 12 00 50 5c 45 4e 54 52 59 5c 53 50 41 50 31 37 20 00 02 01 1c 00 12 00 50 5c 45 4e 54 52 59 5c 53 50 41 50 31 38 20 ┆ ENTRY SPAPPL P ENTRY SPAP16 P ENTRY SPAP17 P ENTRY SPAP18 ┆
0x0460…04b0 00 02 01 32 00 12 00 50 5c 45 4e 54 52 59 5c 53 50 41 50 32 32 20 00 02 01 48 00 1c 00 50 20 20 20 20 20 20 20 20 20 45 4e 54 52 59 20 20 20 53 50 41 50 32 37 20 00 02 01 5e 00 12 00 50 20 45 4e 54 52 59 20 53 50 43 48 4b 31 20 00 02 01 7e ┆ 2 P ENTRY SPAP22 H P ENTRY SPAP27 ^ P ENTRY SPCHK1 ~┆
0x04b0…0500 (3, 0, 400) 00 12 00 50 20 45 4e 54 52 59 20 53 50 43 48 4b 32 20 00 03 00 04 00 12 00 50 20 45 4e 54 52 59 20 53 50 43 48 4b 33 20 00 03 00 1a 00 12 00 50 20 45 4e 54 52 59 20 53 50 43 48 4b 34 20 00 03 00 30 00 12 00 50 20 45 4e 54 52 59 20 53 50 43 ┆ P ENTRY SPCHK2 P ENTRY SPCHK3 P ENTRY SPCHK4 0 P ENTRY SPC┆
0x0500…0550 48 4b 35 20 00 03 00 46 00 12 00 50 5c 45 4e 54 52 59 5c 53 50 43 48 4b 36 20 00 03 00 5c 00 12 00 50 5c 45 4e 54 52 59 5c 53 50 43 48 4b 37 20 00 03 00 72 00 12 00 50 5c 45 4e 54 52 59 5c 53 50 54 43 48 4b 20 00 03 00 88 00 4c 00 50 2a 2a ┆HK5 F P ENTRY SPCHK6 P ENTRY SPCHK7 r P ENTRY SPTCHK L P**┆
0x0550…05a0 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 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 00 9e 00 4c 00 50 2a 20 ┆********************************************************************** L P* ┆
0x05a0…05f0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 ee 00 4c 00 50 2a 20 ┆ * L P* ┆
0x05f0…0640 20 20 50 52 4f 43 45 44 55 52 45 3a 20 20 20 20 20 53 50 41 50 50 4c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 01 3e 00 4c 00 50 2a 20 ┆ PROCEDURE: SPAPPL * > L P* ┆
0x0640…0690 (4, 0, 400) 20 20 46 55 4e 43 54 49 4f 4e 41 4c 20 44 45 53 43 52 49 50 54 49 4f 4e 3a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 01 8e 00 4c 00 50 2a 20 ┆ FUNCTIONAL DESCRIPTION: * L P* ┆
0x0690…06e0 20 20 20 20 20 50 45 52 46 4f 52 4d 20 43 48 45 43 4b 53 20 4f 4e 20 56 41 4c 55 45 20 45 4e 54 45 52 45 44 20 57 48 49 4c 45 20 49 4e 20 53 43 52 45 45 4e 20 4d 41 4e 41 47 45 4d 45 4e 54 00 00 00 00 00 00 2a 00 04 00 4e 00 4c 00 50 2a 20 ┆ PERFORM CHECKS ON VALUE ENTERED WHILE IN SCREEN MANAGEMENT * N L P* ┆
0x06e0…0730 20 20 20 20 20 41 46 54 45 52 20 54 48 45 20 4f 50 45 52 41 54 4f 52 20 48 41 53 20 45 4e 54 45 52 45 44 20 41 20 56 41 4c 55 45 20 49 4e 20 41 20 46 49 45 4c 44 20 57 48 49 43 48 00 00 00 00 00 00 00 00 00 2a 00 04 00 9e 00 4c 00 50 2a 20 ┆ AFTER THE OPERATOR HAS ENTERED A VALUE IN A FIELD WHICH * L P* ┆
0x0730…0780 20 20 20 20 20 43 4f 4e 54 41 49 4e 53 20 41 4e 20 41 50 50 4c 2d 50 41 52 41 4d 45 54 45 52 2c 20 53 43 52 45 45 4e 2d 4d 41 4e 41 47 45 4d 45 4e 54 20 57 49 4c 4c 20 47 49 56 45 00 00 00 00 00 00 00 00 00 2a 00 04 00 ee 00 4c 00 50 2a 20 ┆ CONTAINS AN APPL-PARAMETER, SCREEN-MANAGEMENT WILL GIVE * L P* ┆
0x0780…07d0 20 20 20 20 20 43 4f 4e 54 52 4f 4c 20 54 4f 20 53 50 41 50 50 4c 2e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 3e 00 4c 00 50 2a 20 ┆ CONTROL TO SPAPPL. * > L P* ┆
0x07d0…0820 (5, 0, 400) 20 20 20 20 20 53 50 41 50 50 4c 20 57 49 4c 4c 20 54 48 45 4e 20 50 45 52 46 4f 52 4d 20 43 48 45 43 4b 53 20 4f 4e 20 54 48 45 20 56 41 4c 55 45 20 45 4e 54 45 52 45 44 20 41 4e 44 00 00 00 00 00 00 00 00 2a 00 04 01 8e 00 4c 00 50 2a 20 ┆ SPAPPL WILL THEN PERFORM CHECKS ON THE VALUE ENTERED AND * L P* ┆
0x0820…0870 20 20 20 20 20 54 45 4c 4c 20 53 43 52 45 45 4e 2d 4d 41 4e 41 47 45 4d 45 4e 54 20 57 48 41 54 20 54 4f 20 44 4f 20 46 55 52 54 48 45 52 2e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 05 00 4e 00 4c 00 50 2a 20 ┆ TELL SCREEN-MANAGEMENT WHAT TO DO FURTHER. * N L P* ┆
0x0870…08c0 20 20 20 20 20 2d 20 54 48 45 20 56 41 4c 55 45 20 45 4e 54 45 52 45 44 20 49 53 20 46 49 52 53 54 20 4d 4f 56 45 44 20 54 4f 20 54 48 45 20 43 4f 52 52 45 53 50 4f 4e 44 49 4e 47 00 00 00 00 00 00 00 00 00 2a 00 05 00 9e 00 4c 00 50 2a 20 ┆ - THE VALUE ENTERED IS FIRST MOVED TO THE CORRESPONDING * L P* ┆
0x08c0…0910 20 20 20 20 20 20 20 44 41 54 41 2d 49 54 45 4d 2c 20 53 4f 20 43 48 45 43 4b 53 20 43 41 4e 20 42 45 20 50 45 52 46 4f 52 4d 45 44 20 4f 4e 20 54 48 41 54 20 44 41 54 41 2d 49 54 45 4d 00 00 00 00 00 00 00 2a 00 05 00 ee 00 4c 00 50 2a 20 ┆ DATA-ITEM, SO CHECKS CAN BE PERFORMED ON THAT DATA-ITEM * L P* ┆
0x0910…0960 20 20 20 20 20 20 20 4f 52 20 4f 4e 20 54 48 45 20 43 4f 4e 54 45 4e 54 53 20 4f 46 20 53 50 49 4e 50 55 54 20 28 3d 20 54 48 45 20 53 43 52 45 45 4e 20 4d 41 4e 41 47 45 4d 45 4e 54 00 00 00 00 00 00 00 00 2a 00 05 01 3e 00 4c 00 50 2a 20 ┆ OR ON THE CONTENTS OF SPINPUT (= THE SCREEN MANAGEMENT * > L P* ┆
0x0960…09b0 (6, 0, 400) 20 20 20 20 20 20 20 49 4e 50 55 54 20 42 55 46 46 45 52 29 2e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 05 01 8e 00 4c 00 50 2a 20 ┆ INPUT BUFFER). * L P* ┆
0x09b0…0a00 20 20 20 20 2d 20 49 4e 20 4d 4f 53 54 20 43 41 53 45 53 20 54 48 45 20 41 43 54 55 41 4c 20 43 48 45 43 4b 49 4e 47 20 49 53 20 44 4f 4e 45 20 42 59 20 41 20 53 50 41 50 58 58 2d 52 4f 55 54 49 4e 45 00 00 2a 00 06 00 4e 00 4c 00 50 2a 20 ┆ - IN MOST CASES THE ACTUAL CHECKING IS DONE BY A SPAPXX-ROUTINE * N L P* ┆
0x0a00…0a50 20 20 20 20 20 20 57 48 45 52 45 20 58 58 20 49 53 20 54 48 45 20 56 41 4c 55 45 20 4f 46 20 54 48 45 20 41 50 50 4c 2d 50 41 52 41 4d 45 54 45 52 20 49 4e 20 54 48 45 20 46 4f 52 4d 41 54 00 00 00 00 00 00 2a 00 06 00 9e 00 4c 00 50 2a 20 ┆ WHERE XX IS THE VALUE OF THE APPL-PARAMETER IN THE FORMAT * L P* ┆
0x0a50…0aa0 20 20 20 20 20 20 44 45 46 49 4e 49 54 49 4f 4e 2e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 06 00 ee 00 4c 00 50 2a 20 ┆ DEFINITION. * L P* ┆
0x0aa0…0af0 20 20 20 20 20 20 49 4e 54 45 52 46 41 43 45 20 42 45 54 57 45 45 4e 20 53 50 41 50 50 4c 20 41 4e 44 20 41 4e 20 53 50 41 50 58 58 2d 52 4f 55 54 49 4e 45 20 49 53 20 44 4f 4e 45 00 00 00 00 00 00 00 00 00 2a 00 06 01 3e 00 4c 00 50 2a 20 ┆ INTERFACE BETWEEN SPAPPL AND AN SPAPXX-ROUTINE IS DONE * > L P* ┆
0x0af0…0b40 (7, 0, 400) 20 20 20 20 20 20 42 59 20 54 48 45 20 56 41 52 49 41 42 4c 45 20 4e 57 52 45 54 43 44 45 2c 20 41 53 20 46 4f 4c 4c 4f 57 53 3a 00 00 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 06 01 8e 00 4c 00 50 2a 20 ┆ BY THE VARIABLE NWRETCDE, AS FOLLOWS: * L P* ┆
0x0b40…0b90 20 20 20 20 20 20 20 20 56 41 4c 55 45 20 4f 46 20 4e 57 52 45 54 43 44 45 3a 20 20 20 20 20 20 20 20 20 20 20 4d 45 41 4e 53 3a 00 00 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 07 00 4e 00 4c 00 50 2a 20 ┆ VALUE OF NWRETCDE: MEANS: * N L P* ┆
0x0b90…0be0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 48 45 43 4b 20 4f 4b 45 20 28 44 45 46 41 55 4c 54 29 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 07 00 9e 00 4c 00 50 2a 20 ┆ 0 CHECK OKE (DEFAULT) * L P* ┆
0x0be0…0c30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 52 52 4f 52 20 44 45 54 45 43 54 45 44 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 07 00 ee 00 4c 00 50 2a 20 ┆ 1 ERROR DETECTED * L P* ┆
0x0c30…0c80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 41 4e 43 45 4c 20 4f 43 43 55 52 52 45 44 20 4f 52 20 4e 45 43 45 53 53 41 52 59 00 00 00 00 00 00 00 2a 00 07 01 3e 00 4c 00 50 2a 20 ┆ 3 CANCEL OCCURRED OR NECESSARY * > L P* ┆
0x0c80…0cd0 (8, 0, 400) 20 20 55 53 45 20 4f 46 20 56 41 52 49 41 42 4c 45 53 3a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 07 01 8e 00 4c 00 50 2a 20 ┆ USE OF VARIABLES: * L P* ┆
0x0cd0…0d20 20 20 20 20 20 53 50 42 49 4e 57 32 20 28 55 50 44 41 54 45 29 3a 20 49 4e 44 45 58 20 49 4e 20 54 48 45 20 53 43 52 45 45 4e 2d 4d 41 4e 41 47 45 4d 45 4e 54 20 4b 45 59 54 41 42 4c 45 00 00 00 00 00 00 00 2a 00 08 00 4e 00 4c 00 50 2a 20 ┆ SPBINW2 (UPDATE): INDEX IN THE SCREEN-MANAGEMENT KEYTABLE * N L P* ┆
0x0d20…0d70 20 20 20 20 20 53 50 42 49 4e 57 33 20 28 49 4e 50 55 54 29 3a 20 20 41 50 50 4c 2d 50 41 52 41 4d 45 54 45 52 20 46 52 4f 4d 20 46 4f 52 4d 41 54 20 44 45 46 49 4e 49 54 49 4f 4e 00 00 00 00 00 00 00 00 00 2a 00 08 00 9e 00 4c 00 50 2a 20 ┆ SPBINW3 (INPUT): APPL-PARAMETER FROM FORMAT DEFINITION * L P* ┆
0x0d70…0dc0 20 20 20 20 20 53 50 42 49 4e 57 33 20 28 4f 55 54 50 55 54 29 3a 20 41 43 54 49 4f 4e 20 54 4f 20 42 45 20 54 41 4b 45 4e 20 42 59 20 53 43 52 45 45 4e 2d 4d 41 4e 41 47 45 4d 45 4e 54 3a 00 00 00 00 00 00 2a 00 08 00 ee 00 4c 00 50 2a 20 ┆ SPBINW3 (OUTPUT): ACTION TO BE TAKEN BY SCREEN-MANAGEMENT: * L P* ┆
0x0dc0…0e10 20 20 20 20 20 20 20 20 20 20 20 49 46 20 56 41 4c 55 45 20 3d 20 30 20 3a 20 20 20 43 4f 4e 54 49 4e 55 45 20 41 43 43 4f 52 44 49 4e 47 20 54 4f 20 49 4e 44 45 58 20 49 4e 20 53 50 42 49 4e 57 32 00 00 00 2a 00 08 01 3e 00 4c 00 50 2a 20 ┆ IF VALUE = 0 : CONTINUE ACCORDING TO INDEX IN SPBINW2 * > L P* ┆
0x0e10…0e60 (9, 0, 400) 20 20 20 20 20 20 20 20 20 20 20 49 46 20 56 41 4c 55 45 20 3d 20 33 20 3a 20 20 20 45 52 52 4f 52 20 44 45 54 45 43 54 45 44 2c 20 44 49 53 50 4c 41 59 20 45 52 52 4f 52 4d 45 53 53 41 47 45 00 00 00 00 00 2a 00 08 01 8e 00 4c 00 50 2a 20 ┆ IF VALUE = 3 : ERROR DETECTED, DISPLAY ERRORMESSAGE * L P* ┆
0x0e60…0eb0 20 20 20 20 20 53 50 42 49 4e 57 34 20 28 4f 55 54 50 55 54 29 3a 20 43 4f 4e 54 41 49 4e 53 20 54 48 45 20 4e 55 4d 42 45 52 20 4f 46 20 54 48 45 20 45 52 52 4f 52 20 4d 45 53 53 41 47 45 00 00 00 00 00 00 2a 00 09 00 4e 00 4c 00 50 2a 20 ┆ SPBINW4 (OUTPUT): CONTAINS THE NUMBER OF THE ERROR MESSAGE * N L P* ┆
0x0eb0…0f00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 4f 20 42 45 20 44 49 53 50 4c 41 59 45 44 20 42 59 20 53 43 52 45 45 4e 2d 4d 41 4e 41 47 45 4d 45 4e 54 00 00 00 00 00 00 00 00 00 00 2a 00 09 00 9e 00 4c 00 50 2a 20 ┆ TO BE DISPLAYED BY SCREEN-MANAGEMENT * L P* ┆
0x0f00…0f50 20 20 20 20 20 53 50 49 4e 50 55 54 20 28 49 4e 50 55 54 29 3a 20 20 43 4f 4e 54 41 49 4e 53 20 54 48 45 20 56 41 4c 55 45 20 45 4e 54 45 52 45 44 20 42 59 20 54 48 45 20 4f 50 45 52 41 54 4f 52 00 00 00 00 2a 00 09 00 ee 00 4c 00 50 2a 20 ┆ SPINPUT (INPUT): CONTAINS THE VALUE ENTERED BY THE OPERATOR * L P* ┆
0x0f50…0fa0 20 20 20 20 20 4e 57 52 45 54 43 44 45 3a 20 20 20 20 20 20 20 20 20 49 4e 54 45 52 46 41 43 45 20 57 49 54 48 20 53 50 41 50 58 58 2d 52 4f 55 54 49 4e 45 53 2e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 09 01 3e 00 4c 00 50 2a 20 ┆ NWRETCDE: INTERFACE WITH SPAPXX-ROUTINES. * > L P* ┆
0x0fa0…0ff0 (10, 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 00 00 00 00 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 09 01 8e 00 4c 00 50 2a 2a ┆ * L P**┆
0x0ff0…1040 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 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 0a 00 4e 00 4c 00 50 53 50 ┆********************************************************************** N L PSP┆
0x1040…1090 41 50 50 4c 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0a 00 9e 00 4c 00 50 53 50 ┆APPL PROC L PSP┆
0x1090…10e0 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0a 00 ee 00 30 00 50 5c 55 ┆000 0 P U┆
0x10e0…1130 50 44 46 4c 44 5c 31 2c 53 50 49 4e 50 55 54 5c 55 50 44 41 54 45 20 46 49 45 4c 44 20 42 45 46 4f 52 45 20 43 48 45 43 4b 20 00 0a 01 3e 00 06 00 50 2a 20 00 0a 01 72 00 24 00 50 2a 20 44 45 46 41 55 4c 54 20 52 45 54 55 52 4e 43 4f 44 45 ┆PDFLD 1,SPINPUT UPDATE FIELD BEFORE CHECK > P* r $ P* DEFAULT RETURNCODE┆
0x1130…345c (11, 0, 400) […elided…]
0x345c…3480 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 21 00 a8 00 4c ┆ ! L┆
0x3480…34d0 00 50 5c 43 42 4c 5c 57 44 45 43 31 2c 3d 44 27 31 27 2c 53 31 37 35 30 30 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 21 00 f8 00 4c ┆ P CBL WDEC1,=D'1',S17500 ! L┆
0x34d0…351a 00 50 5c 43 42 47 5c 57 44 45 43 31 2c 3d 44 27 38 27 2c 53 31 37 35 30 30 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 ┆ P CBG WDEC1,=D'8',S17500 ┆
0x351a…356a (34, 0, 400) 00 21 01 48 00 4c 00 50 5c 42 5c 53 31 37 39 30 30 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 ┆ ! H L P B S17900 ┆
0x356a…35ba 00 22 00 08 00 4c 00 50 53 31 37 35 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 00 00 00 00 00 00 00 00 00 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 PS17500 ┆
0x35ba…360a 00 22 00 58 00 4c 00 50 5c 4d 4f 56 45 5c 58 57 52 45 54 2c 3d 57 27 31 27 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 ┆ " X L P MOVE XWRET,=W'1' ┆
0x360a…365a 00 22 00 a8 00 4c 00 50 5c 4d 4f 56 45 5c 53 50 42 49 4e 57 34 2c 3d 57 27 31 27 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 ┆ " L P MOVE SPBINW4,=W'1' ┆
0x365a…36aa 00 22 00 f8 00 4c 00 50 53 31 37 39 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 00 00 00 00 00 00 00 00 00 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 PS17900 ┆
0x36aa…36fa (35, 0, 400) 00 22 01 48 00 4c 00 50 5c 52 45 54 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ " H L P RET ┆
0x36fa…374a 00 23 00 08 00 4c 00 50 5c 50 45 4e 44 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 00 00 00 00 00 00 00 00 00 00 00 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 PEND ┆
0x374a…379a 00 23 00 58 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 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 ┆ # X L P************************************************************************┆
0x379a…37ea 00 23 00 a8 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 00 00 00 00 00 00 00 00 00 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 ┆ # L P* *┆
0x37ea…383a 00 23 00 f8 00 4c 00 50 2a 20 20 20 49 4e 50 55 54 2d 46 49 45 4c 44 20 4d 55 53 54 20 4e 4f 54 20 42 45 20 53 50 41 43 45 53 00 00 00 00 00 00 00 00 00 00 00 00 00 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 ┆ # L P* INPUT-FIELD MUST NOT BE SPACES *┆
0x383a…388a (36, 0, 400) 00 23 01 48 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 00 00 00 00 00 00 00 00 00 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 ┆ # H L P* *┆
0x388a…38da 00 24 00 08 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 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************************************************************************┆
0x38da…392a 00 24 00 58 00 4c 00 50 53 50 41 50 31 38 5c 50 52 4f 43 5c 58 57 52 45 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ $ X L PSPAP18 PROC XWRET ┆
0x392a…397a 00 24 00 a8 00 4c 00 50 53 31 38 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 00 00 00 00 00 00 00 00 00 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 PS18000 ┆
0x397a…39ca 00 24 00 f8 00 4c 00 50 5c 4d 4f 56 45 5c 57 43 53 54 52 47 32 35 2c 3d 43 27 20 27 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 ┆ $ L P MOVE WCSTRG25,=C' ' ┆
0x39ca…3a1a (37, 0, 400) 00 24 01 48 00 4c 00 50 5c 43 4f 50 59 5c 57 43 53 54 52 47 32 35 2c 4b 57 30 2c 53 50 42 49 4e 57 31 2c 53 50 49 4e 50 55 54 2c 4b 57 30 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 ┆ $ H L P COPY WCSTRG25,KW0,SPBINW1,SPINPUT,KW0 ┆
0x3a1a…3a6a 00 25 00 08 00 4c 00 50 5c 43 42 45 5c 57 43 53 54 52 47 32 35 2c 3d 43 27 20 27 2c 53 31 38 35 30 30 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 ┆ % L P CBE WCSTRG25,=C' ',S18500 ┆
0x3a6a…3aba 00 25 00 58 00 4c 00 50 5c 42 5c 53 31 38 39 30 30 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 ┆ % X L P B S18900 ┆
0x3aba…3b0a 00 25 00 a8 00 4c 00 50 53 31 38 35 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 00 00 00 00 00 00 00 00 00 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 PS18500 ┆
0x3b0a…3b5a 00 25 00 f8 00 4c 00 50 5c 4d 4f 56 45 5c 58 57 52 45 54 2c 3d 57 27 31 27 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 ┆ % L P MOVE XWRET,=W'1' ┆
0x3b5a…3baa (38, 0, 400) 00 25 01 48 00 4c 00 50 5c 4d 4f 56 45 5c 53 50 42 49 4e 57 34 2c 3d 57 27 31 27 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 ┆ % H L P MOVE SPBINW4,=W'1' ┆
0x3baa…3bfa 00 26 00 08 00 4c 00 50 53 31 38 39 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 00 00 00 00 00 00 00 00 00 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 PS18900 ┆
0x3bfa…3c4a 00 26 00 58 00 4c 00 50 5c 52 45 54 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ & X L P RET ┆
0x3c4a…3c9a 00 26 00 a8 00 4c 00 50 5c 50 45 4e 44 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 00 00 00 00 00 00 00 00 00 00 00 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 PEND ┆
0x3c9a…3cea 00 26 00 f8 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 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************************************************************************┆
0x3cea…3d3a (39, 0, 400) 00 26 01 48 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 00 00 00 00 00 00 00 00 00 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 ┆ & H L P* *┆
0x3d3a…3d8a 00 27 00 08 00 24 00 50 2a 20 20 20 43 4f 4e 54 49 4e 55 45 20 46 52 4f 4d 20 43 55 52 52 45 4e 54 20 53 43 52 45 45 4e 00 27 00 58 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 ┆ ' $ P* CONTINUE FROM CURRENT SCREEN ' X L P* ┆
0x3d8a…3dda 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 27 00 80 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 ┆ * ' L P********************************┆
0x3dda…3e2a 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 2a 2a 00 27 00 d0 00 16 00 50 53 50 41 50 32 32 5c 50 52 4f 43 5c 58 57 52 45 54 20 00 27 01 20 00 10 00 50 5c 50 42 49 4e 5c ┆**************************************** ' PSPAP22 PROC XWRET ' P PBIN ┆
0x3e2a…3e7a 58 57 52 45 54 20 00 27 01 3a 00 0a 00 50 53 32 32 30 30 30 00 27 01 4e 00 1a 00 50 5c 4d 4f 56 45 5c 53 50 42 49 4e 57 32 2c 4b 57 53 50 43 4f 4e 54 00 27 01 5c 00 0a 00 50 53 32 32 39 39 39 00 27 01 7a 00 08 00 50 5c 52 45 54 00 27 01 88 ┆XWRET ' : PS22000 ' N P MOVE SPBINW2,KWSPCONT ' PS22999 ' z P RET ' ┆
0x3e7a…3eca (40, 0, 400) 00 0a 00 50 5c 50 45 4e 44 20 00 28 00 04 00 4a 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P PEND ( J P**************************************************************┆
0x3eca…3f1a 2a 2a 2a 2a 2a 2a 2a 20 00 28 00 12 00 06 00 50 2a 20 00 28 00 60 00 30 00 50 2a 20 20 20 56 41 4c 55 45 20 45 4e 54 45 52 45 44 20 4d 55 53 54 20 42 45 20 47 52 45 41 54 45 52 20 54 48 45 4e 20 5a 45 52 4f 20 00 28 00 6a 00 06 00 50 2a 20 ┆******* ( P* ( ` 0 P* VALUE ENTERED MUST BE GREATER THEN ZERO ( j P* ┆
0x3f1a…3f6a 00 28 00 9e 00 4a 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 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 20 00 28 ┆ ( J P********************************************************************* (┆
0x3f6a…3fba 00 a8 00 1a 00 50 53 50 41 50 32 37 20 20 20 50 52 4f 43 20 20 20 20 58 57 52 45 54 00 28 00 f6 00 10 00 50 5c 50 42 49 4e 5c 58 57 52 45 54 20 00 28 01 14 00 0a 00 50 53 32 37 30 30 30 00 28 01 28 00 22 00 50 20 20 20 20 20 20 20 20 20 4d ┆ PSPAP27 PROC XWRET ( P PBIN XWRET ( PS27000 ( ( " P M┆
0x3fba…400a 4f 56 45 20 20 20 20 57 44 45 43 31 2c 53 50 49 4e 50 55 54 00 28 01 36 00 28 00 50 20 20 20 20 20 20 20 20 20 43 42 47 20 20 20 20 20 57 44 45 43 31 2c 3d 44 27 30 27 2c 53 32 37 35 30 30 20 00 28 01 5c 00 20 00 50 20 20 20 20 20 20 20 20 ┆OVE WDEC1,SPINPUT ( 6 ( P CBG WDEC1,=D'0',S27500 ( P ┆
0x400a…405a (41, 0, 398) 20 4d 4f 56 45 20 20 20 20 58 57 52 45 54 2c 3d 57 27 31 27 00 28 01 88 00 40 00 50 20 20 20 20 20 20 20 20 20 4d 4f 56 45 20 20 20 20 53 50 42 49 4e 57 34 2c 3d 57 27 31 27 20 20 20 20 20 20 20 20 20 27 56 41 4c 55 45 20 4e 4f 54 20 49 4e ┆ MOVE XWRET,=W'1' ( @ P MOVE SPBINW4,=W'1' 'VALUE NOT IN┆
0x405a…40aa 20 52 41 4e 47 45 27 20 00 29 00 1c 00 1c 00 50 20 20 20 20 20 20 20 20 20 42 20 20 20 20 20 20 20 53 32 37 39 39 39 20 00 29 00 60 00 0a 00 50 53 32 37 35 30 30 00 29 00 80 00 20 00 50 20 20 20 20 20 20 20 20 20 4d 4f 56 45 20 20 20 20 58 ┆ RANGE' ) P B S27999 ) ` PS27500 ) P MOVE X┆
0x40aa…40fa 57 52 45 54 2c 3d 57 27 30 27 00 29 00 8e 00 0a 00 50 53 32 37 39 39 39 00 29 00 b2 00 10 00 50 20 20 20 20 20 20 20 20 20 52 45 54 00 29 00 c0 00 12 00 50 20 20 20 20 20 20 20 20 20 50 45 4e 44 20 00 29 00 d4 00 4c 00 50 2a 2a 2a 2a 2a 2a ┆WRET,=W'0' ) PS27999 ) P RET ) P PEND ) L P******┆
0x40fa…414a 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 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 29 00 ea 00 10 00 50 53 50 43 48 4b 31 ┆****************************************************************** ) PSPCHK1┆
0x414a…4198 20 50 52 4f 43 20 00 29 01 3a 00 08 00 04 20 52 45 54 00 29 01 4e 00 0a 00 05 20 50 45 4e 44 20 00 29 01 5a 00 10 00 50 53 50 43 48 4b 32 20 50 52 4f 43 20 00 29 01 68 00 08 00 04 20 52 45 54 00 29 01 7c 00 0a 00 05 20 50 45 4e 44 20 ┆ PROC ) : RET ) N PEND ) Z PSPCHK2 PROC ) h RET ) | PEND ┆
0x4198…41e8 (42, 2, 300) 00 29 01 88 00 10 00 50 53 50 43 48 4b 33 20 50 52 4f 43 20 00 2a 00 08 00 08 00 04 20 52 45 54 00 2a 00 1c 00 0a 00 05 20 50 45 4e 44 20 00 2a 00 28 00 10 00 50 53 50 43 48 4b 34 20 50 52 4f 43 20 00 2a 00 36 00 08 00 04 20 52 45 54 00 2a ┆ ) PSPCHK3 PROC * RET * PEND * ( PSPCHK4 PROC * 6 RET *┆
0x41e8…4238 00 4a 00 0a 00 05 20 50 45 4e 44 20 00 2a 00 56 00 10 00 50 53 50 43 48 4b 35 20 50 52 4f 43 20 00 2a 00 64 00 08 00 04 20 52 45 54 00 2a 00 78 00 0a 00 05 20 50 45 4e 44 20 00 2a 00 84 00 10 00 50 53 50 43 48 4b 36 20 50 52 4f 43 20 00 2a ┆ J PEND * V PSPCHK5 PROC * d RET * x PEND * PSPCHK6 PROC *┆
0x4238…4288 00 92 00 08 00 50 20 52 45 54 00 2a 00 a6 00 0a 00 50 20 50 45 4e 44 20 00 2a 00 b2 00 10 00 50 53 50 43 48 4b 37 20 50 52 4f 43 20 00 2a 00 c0 00 08 00 50 20 52 45 54 00 2a 00 d4 00 0a 00 50 20 50 45 4e 44 20 00 2a 00 e0 00 10 00 50 53 50 ┆ P RET * P PEND * PSPCHK7 PROC * P RET * P PEND * PSP┆
0x4288…42c4 54 43 48 4b 20 50 52 4f 43 20 00 2a 00 ee 00 08 00 50 5c 52 45 54 00 2a 01 02 00 0a 00 50 5c 50 45 4e 44 20 00 2a 01 0e 00 08 00 04 20 45 4e 44 00 2a 01 1c 40 04 00 00 00 2a 01 28 ┆TCHK PROC * P RET * P PEND * END * @ * (┆
0x42c4…42cc (43, 1, 8) 20 04 00 00 00 2b 00 04 ┆ + ┆
0x42cc…431c (44, 0, 400) 20 20 20 20 20 53 42 43 48 51 41 43 54 3a 20 20 20 49 53 20 41 43 43 4f 55 4e 54 20 41 20 43 48 45 51 55 45 20 41 43 43 4f 55 4e 54 20 3f 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 2b 01 8e 00 4c 00 50 2a 20 ┆ SBCHQACT: IS ACCOUNT A CHEQUE ACCOUNT ? * + L P* ┆
0x431c…436c 20 20 57 4f 52 4b 56 41 52 49 41 42 4c 45 3a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 2c 00 4e 00 4c 00 50 2a 20 ┆ WORKVARIABLE: * , N L P* ┆
0x436c…43bc 20 20 20 20 20 57 44 45 43 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 2c 00 9e 00 4c 00 50 2a 20 ┆ WDEC1 * , L P* ┆
0x43bc…440c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 2c 00 ee 00 4c 00 50 2a 2a ┆ * , L P**┆
0x440c…445c 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 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 2c 01 3e 00 4c 00 50 51 47 ┆********************************************************************** , > L PQG┆