|
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: 4558 (0x11ce)
Notes: pts_type(SC)
Names: »EQUATE.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »DIVFMT/EQUATE.SC«
└─⟦this⟧ »REMIT2/EQUATE.SC«
└─⟦75255755f⟧ Bits:30009693 Philips computer tape "600410"
└─⟦this⟧ »NJREMIT/EQUATE.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »REMIT2/EQUATE.SC«
* ************************************************** * * EQUATES * ************************************************** * * LITERAL EQUATES * * BINARY EQUATES======LITERALS * BLIT0 EQU 0 BLIT1 EQU 1 BLIT2 EQU 2 BLIT3 EQU 3 BLIT4 EQU 4 BLIT5 EQU 5 BLIT6 EQU 6 BLIT7 EQU 7 BLIT8 EQU 8 BLIT9 EQU 9 BLIT10 EQU 10 * * * DECIMAL LITERALS * * DLIT0 EQU 0 DLIT1 EQU 1 DLIT2 EQU 2 DLIT3 EQU 3 DLIT4 EQU 4 DLIT5 EQU 5 DLIT6 EQU 6 DLIT7 EQU 7 DLIT8 EQU 8 DLIT9 EQU 9 DLIT10 EQU 10 * ********************************************* * * EQUATES FOR SOPLAMPS * ********************************************** * * * EQUATES FOR DATASET CONTROL * * GRASP EQU 0 UNLOD EQU 1 RLEAS EQU 1 RELEASE VOUCHER RWIND EQU 2 REWIND ERASE EQU 2 ERASE DISPLAY SKIB EQU 2 SKIP BUFFER WTM EQU 3 WRITE TAPE MARK CLOSE EQU 3 CLOSE FILE LOCK EQU 4 LOCK CASSETTE TSTAT EQU 7 TEST STATUS RACCS EQU 9 RELEASE EXCLUSIVE ACCESS BSP EQU 10 B10CKSP10CE ONE BLOCK * * DSC1 * * LOAD EQU 0 LOAD CASSETTE ON EQU 0 TURN ON INDICATOR TRPAR EQU 0 TRANSFER PARAMETER OFF EQU 1 TURN OFF INDICATOR POS EQU 6 POSITION VOUCHER/CURSOR DEL EQU 8 RANDOM DELETE * * * *
0x0000…000a (0, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0004}
0x000a…0044 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x000e}
0x0044…004e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0048}
0x004e…006c Head {h00=0x001a, h01=0x0050, text=»* EQUATES«, t00=0x0000, t01=0x0052}
0x006c…0076 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0070}
0x0076…00b0 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x007a}
0x00b0…00ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b4}
0x00ba…00de Head {h00=0x0020, h01=0x0050, text=»* LITERAL EQUATES«, t00=0x0000, t01=0x00be}
0x00de…00e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e2}
0x00e8…0116 Head {h00=0x002a, h01=0x0050, text=»* BINARY EQUATES======LITERALS «, t00=0x0000, t01=0x00ec}
0x0116…0120 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011a}
0x0120…0134 Head {h00=0x0010, h01=0x0050, text=»BLIT0 EQU 0 «, t00=0x0000, t01=0x0124}
0x0134…0148 Head {h00=0x0010, h01=0x0050, text=»BLIT1 EQU 1 «, t00=0x0000, t01=0x0138}
0x0148…015c Head {h00=0x0010, h01=0x0050, text=»BLIT2 EQU 2 «, t00=0x0000, t01=0x014c}
0x015c…0170 Head {h00=0x0010, h01=0x0050, text=»BLIT3 EQU 3 «, t00=0x0000, t01=0x0160}
0x0170…0184 Head {h00=0x0010, h01=0x0050, text=»BLIT4 EQU 4 «, t00=0x0000, t01=0x0174}
0x0184…0198 Head {h00=0x0010, h01=0x0050, text=»BLIT5 EQU 5 «, t00=0x0000, t01=0x0188}
0x0198…01ac Head {h00=0x0010, h01=0x0050, text=»BLIT6 EQU 6 «, t00=0x0001, t01=0x000c}
0x01ac…01c0 Head {h00=0x0010, h01=0x0050, text=»BLIT7 EQU 7 «, t00=0x0001, t01=0x0020}
0x01c0…01d4 Head {h00=0x0010, h01=0x0050, text=»BLIT8 EQU 8 «, t00=0x0001, t01=0x0034}
0x01d4…01e8 Head {h00=0x0010, h01=0x0050, text=»BLIT9 EQU 9 «, t00=0x0001, t01=0x0048}
0x01e8…01fe Head {h00=0x0012, h01=0x0050, text=»BLIT10 EQU 10 «, t00=0x0001, t01=0x005c}
0x01fe…0208 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0072}
0x0208…0212 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x007c}
0x0212…0234 Head {h00=0x001e, h01=0x0050, text=»* DECIMAL LITERALS«, t00=0x0001, t01=0x0086}
0x0234…023e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a8}
0x023e…0248 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b2}
0x0248…025c Head {h00=0x0010, h01=0x0050, text=»DLIT0 EQU 0 «, t00=0x0001, t01=0x00bc}
0x025c…0270 Head {h00=0x0010, h01=0x0050, text=»DLIT1 EQU 1 «, t00=0x0001, t01=0x00d0}
0x0270…0284 Head {h00=0x0010, h01=0x0050, text=»DLIT2 EQU 2 «, t00=0x0001, t01=0x00e4}
0x0284…0298 Head {h00=0x0010, h01=0x0050, text=»DLIT3 EQU 3 «, t00=0x0001, t01=0x00f8}
0x0298…02ac Head {h00=0x0010, h01=0x0050, text=»DLIT4 EQU 4 «, t00=0x0001, t01=0x010c}
0x02ac…02c0 Head {h00=0x0010, h01=0x0050, text=»DLIT5 EQU 5 «, t00=0x0001, t01=0x0120}
0x02c0…02d4 Head {h00=0x0010, h01=0x0050, text=»DLIT6 EQU 6 «, t00=0x0001, t01=0x0134}
0x02d4…02e8 Head {h00=0x0010, h01=0x0050, text=»DLIT7 EQU 7 «, t00=0x0001, t01=0x0148}
0x02e8…02fc Head {h00=0x0010, h01=0x0050, text=»DLIT8 EQU 8 «, t00=0x0001, t01=0x015c}
0x02fc…0310 Head {h00=0x0010, h01=0x0050, text=»DLIT9 EQU 9 «, t00=0x0001, t01=0x0170}
0x0310…0326 Head {h00=0x0012, h01=0x0050, text=»DLIT10 EQU 10 «, t00=0x0001, t01=0x0184}
0x0326…0330 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x000a}
0x0330…0366 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0002, t01=0x0014}
0x0366…0370 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x004a}
0x0370…0396 Head {h00=0x0022, h01=0x0050, text=»* EQUATES FOR SOPLAMPS «, t00=0x0002, t01=0x0054}
0x0396…03a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x007a}
0x03a0…03d6 Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0002, t01=0x0084}
0x03d6…03e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ba}
0x03e0…03ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00c4}
0x03ea…0412 Head {h00=0x0024, h01=0x0050, text=»* EQUATES FOR DATASET CONTROL«, t00=0x0002, t01=0x00ce}
0x0412…041c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00f6}
0x041c…0426 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0100}
0x0426…043a Head {h00=0x0010, h01=0x0050, text=»GRASP EQU 0 «, t00=0x0002, t01=0x010a}
0x043a…044e Head {h00=0x0010, h01=0x0050, text=»UNLOD EQU 1 «, t00=0x0002, t01=0x011e}
0x044e…0472 Head {h00=0x0020, h01=0x0050, text=»RLEAS EQU 1 RELEASE VOUCHER «, t00=0x0002, t01=0x0132}
0x0472…048c Head {h00=0x0016, h01=0x0050, text=»RWIND EQU 2 REWIND«, t00=0x0002, t01=0x0156}
0x048c…04ae Head {h00=0x001e, h01=0x0050, text=»ERASE EQU 2 ERASE DISPLAY «, t00=0x0002, t01=0x0170}
0x04ae…04cc (3, 0, 400) Head {h00=0x001a, h01=0x0050, text=»SKIB EQU 2 SKIP BUFFER«, t00=0x0003, t01=0x0004}
0x04cc…04ee Head {h00=0x001e, h01=0x0050, text=»WTM EQU 3 WRITE TAPE MARK «, t00=0x0003, t01=0x0022}
0x04ee…050c Head {h00=0x001a, h01=0x0050, text=»CLOSE EQU 3 CLOSE FILE«, t00=0x0003, t01=0x0044}
0x050c…052c Head {h00=0x001c, h01=0x0050, text=»LOCK EQU 4 LOCK CASSETTE«, t00=0x0003, t01=0x0062}
0x052c…054c Head {h00=0x001c, h01=0x0050, text=»TSTAT EQU 7 TEST STATUS «, t00=0x0003, t01=0x0082}
0x054c…0578 Head {h00=0x0028, h01=0x0050, text=»RACCS EQU 9 RELEASE EXCLUSIVE ACCESS«, t00=0x0003, t01=0x00a2}
0x0578…05a0 Head {h00=0x0024, h01=0x0050, text=»BSP EQU 10 B10CKSP10CE ONE BLOCK«, t00=0x0003, t01=0x00ce}
0x05a0…05aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00f6}
0x05aa…05be Head {h00=0x0010, h01=0x0050, text=»* DSC1«, t00=0x0003, t01=0x0100}
0x05be…05c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0114}
0x05c8…05d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x011e}
0x05d2…05f2 Head {h00=0x001c, h01=0x0050, text=»LOAD EQU 0 LOAD CASSETTE«, t00=0x0003, t01=0x0128}
0x05f2…0614 Head {h00=0x001e, h01=0x0050, text=»ON EQU 0 TURN ON INDICATOR«, t00=0x0003, t01=0x0148}
0x0614…063a Head {h00=0x0022, h01=0x0050, text=»TRPAR EQU 0 TRANSFER PARAMETER«, t00=0x0003, t01=0x016a}
0x063a…065e Head {h00=0x0020, h01=0x0050, text=»OFF EQU 1 TURN OFF INDICATOR«, t00=0x0003, t01=0x0190}
0x065e…0688 Head {h00=0x0026, h01=0x0050, text=»POS EQU 6 POSITION VOUCHER/CURSOR «, t00=0x0004, t01=0x0024}
0x0688…06a8 Head {h00=0x001c, h01=0x0050, text=»DEL EQU 8 RANDOM DELETE «, t00=0x0004, t01=0x004e}
0x06a8…06b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x006e}
0x06b2…06bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0078}
0x06bc…06c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0082}
0x06c6…06d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x008c}
0x06d0…06d4 Head {h00=0x4004, h01=0x0000}
0x06d4…06d8 00 04 00 96 ┆ ┆
0x06d8…06e0 (5, 1, 8) 20 04 00 00 00 05 00 04 ┆ ┆
0x06e0…0730 (6, 0, 400) 31 5c 49 4e 49 54 49 41 4c 20 45 52 52 4f 52 43 4f 44 45 20 00 05 01 7e 00 26 00 50 5c 4d 4f 56 45 5c 47 53 57 42 43 44 33 2c 3d 44 27 31 27 5c 42 4c 41 4e 4b 20 47 53 57 42 43 44 33 20 00 06 00 1c 00 22 00 50 5c 4d 4f 56 45 5c 47 53 57 42 ┆1 INITIAL ERRORCODE ~ & P MOVE GSWBCD3,=D'1' BLANK GSWBCD3 " P MOVE GSWB┆
0x0730…0780 43 44 36 2c 53 50 49 4e 50 55 54 5c 47 45 54 20 44 41 54 45 00 06 00 46 00 2e 00 50 5c 4d 4f 56 45 5c 47 53 57 42 49 4e 32 2c 3d 57 27 31 30 27 5c 53 45 54 20 50 4f 49 4e 54 45 52 20 54 4f 20 4d 4f 4e 54 48 20 00 06 00 6c 00 38 00 50 5c 43 ┆CD6,SPINPUT GET DATE F . P MOVE GSWBIN2,=W'10' SET POINTER TO MONTH l 8 P C┆
0x0780…07d0 4f 50 59 5c 47 53 57 42 43 44 33 2c 43 42 49 4e 34 2c 43 42 49 4e 32 2c 47 53 57 42 43 44 36 2c 47 53 57 42 49 4e 32 5c 47 45 54 20 4d 4f 4e 54 48 20 00 06 00 9e 00 28 00 50 5c 43 42 47 5c 47 53 57 42 43 44 33 2c 3d 44 27 31 32 27 2c 43 48 ┆OPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,GSWBIN2 GET MONTH ( P CBG GSWBCD3,=D'12',CH┆
0x07d0…0820 32 39 5c 43 48 45 43 4b 20 4d 4f 4e 54 48 00 06 00 da 00 1c 00 50 5c 43 42 4c 5c 47 53 57 42 43 44 33 2c 3d 44 27 31 27 2c 43 48 32 39 20 00 06 01 06 00 2c 00 50 5c 53 55 42 5c 47 53 57 42 49 4e 32 2c 3d 57 27 32 27 5c 41 44 4a 55 53 54 20 ┆29 CHECK MONTH P CBL GSWBCD3,=D'1',CH29 , P SUB GSWBIN2,=W'2' ADJUST ┆
0x0820…0870 50 4f 49 4e 54 45 52 20 54 4f 20 44 41 59 00 06 01 26 00 36 00 50 5c 43 4f 50 59 5c 47 53 57 42 43 44 33 2c 43 42 49 4e 34 2c 43 42 49 4e 32 2c 47 53 57 42 43 44 36 2c 47 53 57 42 49 4e 32 5c 47 45 54 20 44 41 59 20 00 06 01 56 00 1c 00 50 ┆POINTER TO DAY & 6 P COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,GSWBIN2 GET DAY V P┆
0x0870…08c0 (7, 0, 400) 5c 43 42 47 5c 47 53 57 42 43 44 33 2c 3d 44 27 33 31 27 2c 43 48 32 39 00 06 01 90 00 1c 00 50 5c 43 42 4c 5c 47 53 57 42 43 44 33 2c 3d 44 27 31 27 2c 43 48 32 39 20 00 07 00 20 00 0e 00 50 5c 42 5c 43 48 32 52 45 54 20 00 07 00 40 00 08 ┆ CBG GSWBCD3,=D'31',CH29 P CBL GSWBCD3,=D'1',CH29 P B CH2RET @ ┆
0x08c0…0910 00 50 43 48 32 39 00 07 00 52 00 26 00 50 5c 4d 4f 56 45 5c 53 50 42 49 4e 57 33 2c 43 42 49 4e 33 5c 49 4e 44 49 43 41 54 45 20 45 52 52 4f 52 00 07 00 5e 00 26 00 50 5c 4d 4f 56 45 20 53 50 42 49 4e 57 34 2c 3d 57 27 37 27 5c 53 45 54 20 ┆ PCH29 R & P MOVE SPBINW3,CBIN3 INDICATE ERROR ^ & P MOVE SPBINW4,=W'7' SET ┆
0x0910…0960 45 52 52 4f 52 43 4f 44 45 20 00 07 00 88 00 0a 00 50 43 48 32 52 45 54 00 07 00 b2 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 43 44 33 2c 3d 58 27 46 46 27 00 07 00 c0 00 08 00 50 5c 52 45 54 00 07 00 dc 00 0a 00 50 5c 50 45 4e 44 20 00 07 ┆ERRORCODE PCH2RET P MOVE GSWBCD3,=X'FF' P RET P PEND ┆
0x0960…09b0 00 e8 00 0a 00 50 5c 45 4a 45 43 54 00 07 00 f6 00 10 00 50 53 50 43 48 4b 33 5c 50 52 4f 43 20 00 07 01 04 00 14 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 07 01 18 00 06 00 50 2a 20 00 07 01 30 00 22 00 50 2a 20 20 20 20 20 ┆ P EJECT PSPCHK3 PROC P**************** P* 0 " P* ┆
0x09b0…0a00 20 20 20 20 53 50 43 48 4b 33 20 2d 20 43 48 45 43 4b 20 4d 4f 4e 54 48 00 07 01 3a 00 06 00 50 2a 20 00 07 01 60 00 22 00 50 2a 20 20 20 20 20 20 20 20 20 20 43 48 45 43 4b 53 20 20 30 3c 4d 4f 4e 54 48 3c 31 33 20 00 07 01 6a 00 28 00 50 ┆ SPCHK3 - CHECK MONTH : P* ` " P* CHECKS 0<MONTH<13 j ( P┆
0x0a00…0a50 (8, 0, 400) 2a 20 20 20 20 20 20 20 20 20 20 4d 4f 4e 54 48 20 49 53 20 49 4e 20 54 48 45 20 46 4f 52 4d 20 20 4d 4d 20 00 07 01 90 00 22 00 50 2a 20 20 20 20 20 20 20 20 20 49 4e 50 55 54 20 46 49 45 4c 44 3a 20 53 50 49 4e 50 55 54 00 08 00 2c 00 06 ┆* MONTH IS IN THE FORM MM " P* INPUT FIELD: SPINPUT , ┆
0x0a50…0aa0 00 50 2a 20 00 08 00 52 00 38 00 50 2a 20 20 20 20 20 20 20 20 20 20 49 46 20 45 52 52 4f 52 2c 20 45 52 52 4f 52 43 4f 44 45 20 37 20 49 53 20 4d 4f 56 45 44 20 54 4f 20 53 50 42 49 4e 57 34 00 08 00 5c 00 06 00 50 2a 20 00 08 00 98 00 16 ┆ P* R 8 P* IF ERROR, ERRORCODE 7 IS MOVED TO SPBINW4 P* ┆
0x0aa0…0af0 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 08 00 a2 00 24 00 50 5c 4d 4f 56 45 5c 47 53 57 42 43 44 33 2c 53 50 49 4e 50 55 54 5c 47 45 54 20 4d 4f 4e 54 48 20 00 08 00 bc 00 28 00 50 5c 43 42 47 5c 47 53 57 42 43 44 33 ┆ P****************** $ P MOVE GSWBCD3,SPINPUT GET MONTH ( P CBG GSWBCD3┆
0x0af0…0b40 2c 3d 44 27 31 32 27 2c 43 48 33 39 5c 43 48 45 43 4b 20 4d 4f 4e 54 48 00 08 00 e4 00 1c 00 50 5c 43 42 4c 5c 47 53 57 42 43 44 33 2c 3d 44 27 31 27 2c 43 48 33 39 20 00 08 01 10 00 28 00 50 5c 4d 4f 56 45 5c 53 50 42 49 4e 57 33 2c 43 42 ┆,=D'12',CH39 CHECK MONTH P CBL GSWBCD3,=D'1',CH39 ( P MOVE SPBINW3,CB┆
0x0b40…0b90 49 4e 31 5c 53 45 54 20 45 52 52 4f 52 43 4f 44 45 20 4f 4b 00 08 01 30 00 0e 00 50 5c 42 5c 43 48 33 52 45 54 20 00 08 01 5c 00 08 00 50 43 48 33 39 00 08 01 6e 00 26 00 50 5c 4d 4f 56 45 5c 53 50 42 49 4e 57 33 2c 43 42 49 4e 33 5c 49 4e ┆IN1 SET ERRORCODE OK 0 P B CH3RET PCH39 n & P MOVE SPBINW3,CBIN3 IN┆
0x0b90…0be0 (9, 0, 400) 44 49 43 41 54 45 20 45 52 52 4f 52 00 08 01 7a 00 26 00 50 5c 4d 4f 56 45 5c 53 50 42 49 4e 57 34 2c 3d 57 27 37 27 5c 53 45 54 20 45 52 52 4f 52 43 4f 44 45 20 00 09 00 14 00 0a 00 50 43 48 33 52 45 54 00 09 00 3e 00 08 00 50 5c 52 45 54 ┆DICATE ERROR z & P MOVE SPBINW4,=W'7' SET ERRORCODE PCH3RET > P RET┆
0x0be0…0c30 00 09 00 4c 00 0a 00 50 5c 50 45 4e 44 20 00 09 00 58 00 0a 00 50 5c 45 4a 45 43 54 00 09 00 66 00 10 00 50 53 50 43 48 4b 34 5c 50 52 4f 43 20 00 09 00 74 00 18 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 09 00 88 ┆ L P PEND X P EJECT f PSPCHK4 PROC t P******************** ┆
0x0c30…0c80 00 06 00 50 2a 20 00 09 00 a4 00 3c 00 50 2a 20 20 20 20 20 20 20 20 20 20 53 50 43 48 4b 34 20 2d 20 43 48 41 4e 47 45 20 53 49 47 4e 20 4f 4e 20 56 41 4c 55 45 2c 20 49 46 20 4b 52 45 44 49 54 20 4b 45 59 20 00 09 00 ae 00 06 00 50 2a 20 ┆ P* < P* SPCHK4 - CHANGE SIGN ON VALUE, IF KREDIT KEY P* ┆
0x0c80…0cd0 00 09 00 ee 00 18 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 09 00 f8 00 18 00 50 5c 4d 4f 56 45 5c 53 50 42 49 4e 57 33 2c 43 42 49 4e 31 20 00 09 01 14 00 20 00 50 5c 43 42 4e 45 5c 53 50 42 49 4e 57 32 2c 3d 57 ┆ P******************** P MOVE SPBINW3,CBIN1 P CBNE SPBINW2,=W┆
0x0cd0…0d20 27 31 38 27 2c 43 48 34 52 45 54 20 00 09 01 30 00 28 00 50 5c 4d 4f 56 45 5c 47 53 57 42 43 44 37 2c 53 50 49 4e 50 55 54 5c 49 46 20 4b 52 45 44 49 54 20 4b 45 59 20 00 09 01 54 00 18 00 50 5c 4d 55 4c 5c 47 53 57 42 43 44 37 2c 3d 44 27 ┆'18',CH4RET 0 ( P MOVE GSWBCD7,SPINPUT IF KREDIT KEY T P MUL GSWBCD7,=D'┆
0x0d20…0d70 (10, 0, 400) 2d 31 27 20 00 09 01 80 00 1a 00 50 5c 4d 4f 56 45 5c 53 50 49 4e 50 55 54 2c 47 53 57 42 43 44 37 20 00 0a 00 0c 00 28 00 50 5c 4d 4f 56 45 5c 53 50 42 49 4e 57 32 2c 3d 57 27 33 27 5c 53 49 4d 55 4c 41 54 45 20 45 4f 49 2d 4b 45 59 00 0a ┆-1' P MOVE SPINPUT,GSWBCD7 ( P MOVE SPBINW2,=W'3' SIMULATE EOI-KEY ┆
0x0d70…0dc0 00 2a 00 0a 00 50 43 48 34 52 45 54 00 0a 00 56 00 08 00 50 5c 52 45 54 00 0a 00 64 00 0a 00 50 5c 50 45 4e 44 20 00 0a 00 70 00 0a 00 50 5c 45 4a 45 43 54 00 0a 00 7e 00 10 00 50 53 50 43 48 4b 35 5c 50 52 4f 43 20 00 0a 00 8c 00 18 00 50 ┆ * PCH4RET V P RET d P PEND p P EJECT ~ PSPCHK5 PROC P┆
0x0dc0…0e10 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 0a 00 a0 00 06 00 50 2a 20 00 0a 00 bc 00 2a 00 50 2a 20 20 20 20 20 20 20 20 20 20 53 50 43 48 4b 35 20 2d 20 43 48 45 43 4b 20 4c 49 4e 45 20 4e 55 4d 42 45 52 20 00 0a 00 c6 ┆******************** P* * P* SPCHK5 - CHECK LINE NUMBER ┆
0x0e10…0e60 00 06 00 50 2a 20 00 0a 00 f4 00 18 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 0a 00 fe 00 18 00 50 5c 4d 4f 56 45 5c 53 50 42 49 4e 57 33 2c 43 42 49 4e 31 20 00 0a 01 1a 00 2a 00 50 5c 4d 4f 56 45 5c 47 53 57 42 ┆ P* P******************* P MOVE SPBINW3,CBIN1 * P MOVE GSWB┆
0x0e60…0eb0 43 44 33 2c 53 50 49 4e 50 55 54 5c 47 45 54 20 4c 49 4e 45 20 4e 55 4d 42 45 52 20 00 0a 01 36 00 32 00 50 20 43 42 47 20 47 53 57 42 43 44 33 2c 3d 44 27 39 36 27 2c 43 48 35 31 30 20 53 50 45 43 49 41 4c 20 46 55 4e 43 54 49 4f 4e 53 20 ┆CD3,SPINPUT GET LINE NUMBER 6 2 P CBG GSWBCD3,=D'96',CH510 SPECIAL FUNCTIONS ┆
0x0eb0…0f00 (11, 0, 398) 3f 20 00 0a 01 64 00 1e 00 50 20 43 42 45 20 47 53 57 42 43 44 33 2c 3d 44 27 39 31 27 2c 43 48 35 31 30 20 00 0b 00 0a 00 16 00 50 5c 4d 55 4c 5c 47 53 57 42 43 44 33 2c 3d 44 27 32 27 00 0b 00 2c 00 2e 00 50 5c 4d 4f 56 45 5c 47 53 57 42 ┆? d P CBE GSWBCD3,=D'91',CH510 P MUL GSWBCD3,=D'2' , . P MOVE GSWB┆
0x0f00…0f50 43 44 34 2c 43 56 4f 55 54 4f 50 5c 47 45 54 20 4e 4f 20 4f 46 20 4c 49 4e 45 53 2f 50 41 47 45 00 0b 00 46 00 18 00 50 5c 53 55 42 5c 47 53 57 42 43 44 34 2c 47 53 57 42 43 44 33 00 0b 00 78 00 2c 00 50 5c 43 42 4c 5c 47 53 57 42 43 44 34 ┆CD4,CVOUTOP GET NO OF LINES/PAGE F P SUB GSWBCD4,GSWBCD3 x , P CBL GSWBCD4┆
0x0f50…0fa0 2c 3d 44 27 30 27 2c 43 48 35 45 52 52 5c 4c 49 4e 45 20 4e 45 47 41 54 49 56 45 3f 00 0b 00 94 00 1a 00 50 5c 4d 4f 56 45 5c 47 53 57 42 49 4e 31 2c 47 53 57 42 43 44 34 20 00 0b 00 c4 00 20 00 50 5c 43 42 47 5c 47 53 57 42 49 4e 31 2c 43 ┆,=D'0',CH5ERR LINE NEGATIVE? P MOVE GSWBIN1,GSWBCD4 P CBG GSWBIN1,C┆
0x0fa0…0ff0 4d 41 58 4c 49 4e 2c 43 48 35 45 52 52 20 00 0b 00 e2 00 20 00 50 5c 43 42 4c 5c 47 53 57 42 49 4e 31 2c 43 4d 49 4e 4c 49 4e 2c 43 48 35 45 52 52 20 00 0b 01 06 00 08 00 50 5c 52 45 54 00 0b 01 2a 00 0a 00 50 43 48 35 45 52 52 00 0b 01 36 ┆MAXLIN,CH5ERR P CBL GSWBIN1,CMINLIN,CH5ERR P RET * PCH5ERR 6┆
0x0ff0…103e 00 18 00 50 5c 4d 4f 56 45 5c 53 50 42 49 4e 57 33 2c 43 42 49 4e 33 20 00 0b 01 44 00 18 00 50 5c 4d 4f 56 45 5c 53 50 42 49 4e 57 34 2c 3d 57 27 38 27 20 00 0b 01 60 00 08 00 50 5c 52 45 54 00 0b 01 7c 00 0a 00 50 43 48 35 31 30 20 ┆ P MOVE SPBINW3,CBIN3 D P MOVE SPBINW4,=W'8' ` P RET | PCH510 ┆
0x103e…108e (12, 0, 400) 00 0b 01 88 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 2c 47 53 57 42 43 44 33 20 00 0c 00 08 00 08 00 50 20 52 45 54 00 0c 00 26 00 0a 00 50 5c 50 45 4e 44 20 00 0c 00 32 00 0a 00 50 5c 45 4a 45 43 54 00 0c 00 40 00 10 00 50 53 50 ┆ P MOVE GSWBIN1,GSWBCD3 P RET & P PEND 2 P EJECT @ PSP┆
0x108e…10de 43 48 4b 36 5c 50 52 4f 43 20 00 0c 00 4e 00 18 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 0c 00 62 00 06 00 50 2a 20 00 0c 00 7e 00 42 00 50 2a 20 20 20 20 20 20 20 20 20 20 53 50 43 48 4b 36 20 2d 20 43 48 45 43 ┆CHK6 PROC N P******************** b P* ~ B P* SPCHK6 - CHEC┆
0x10de…112e 4b 20 54 48 45 20 53 50 43 48 4b 36 20 2d 20 43 48 45 43 4b 44 49 47 49 54 20 49 4e 20 4c 49 4e 45 20 4e 4f 2c 20 00 0c 00 88 00 18 00 50 2a 20 20 20 20 20 20 20 20 20 20 4b 4f 4e 54 4f 4b 4f 52 54 00 0c 00 ce 00 06 00 50 2a 20 00 0c 00 ea ┆K THE SPCHK6 - CHECKDIGIT IN LINE NO, P* KONTOKORT P* ┆
0x112e…117e 00 18 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 0c 00 f4 00 0e 00 50 5c 50 45 52 46 5c 4b 4b 43 48 00 0c 01 10 00 24 00 50 5c 4d 4f 56 45 5c 47 53 57 42 43 44 33 2c 53 50 49 4e 50 55 54 5c 47 45 54 20 44 49 47 49 ┆ P******************* P PERF KKCH $ P MOVE GSWBCD3,SPINPUT GET DIGI┆
0x117e…11ce 54 20 00 0c 01 22 00 18 00 50 5c 4d 4f 56 45 5c 53 50 42 49 4e 57 33 2c 43 42 49 4e 31 20 00 0c 01 4a 00 2e 00 50 5c 43 42 45 5c 47 53 57 42 43 44 33 2c 3d 44 27 30 27 2c 43 48 36 52 45 54 5c 4e 4f 20 43 48 45 43 4b 20 49 46 20 5a 45 52 4f ┆T " P MOVE SPBINW3,CBIN1 J . P CBE GSWBCD3,=D'0',CH6RET NO CHECK IF ZERO┆