|
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: 25500 (0x639c)
Notes: pts_type(SC)
Names: »FSMSPP.SC«
└─⟦f45ea3bc3⟧ Bits:30009713 Philips computer tape "WSM"
└─⟦this⟧ »WSM:CREA/FSMSPP.SC«
IDENT FSMSPP REL=2.3,851009,870155940230 *************************************************************** * * * LATEST UPDATE 850606 MADE BY CJ * * HISTORY= * 851009/CJ NO '+/-' ON LEFT SIDE ON NUMERIC FIELD - ONLY REL 3
0x0000…0032 (0, 0, 400) Head {h00=0x002e, h01=0x0050, text=» IDENT FSMSPP REL=2.3,851009,870155940230 «, t00=0x0000, t01=0x0004}
0x0032…003a Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0036}
0x003a…0082 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0000, t01=0x003e}
0x0082…008c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0086}
0x008c…0096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0090}
0x0096…00c0 Head {h00=0x0026, h01=0x0050, text=»* LATEST UPDATE 850606 MADE BY CJ«, t00=0x0000, t01=0x009a}
0x00c0…00ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c4}
0x00ca…00de Head {h00=0x0010, h01=0x0050, text=»* HISTORY= «, t00=0x0000, t01=0x00ce}
0x00de…0130 Head {h00=0x004e, h01=0x0050, text=»* 851009/CJ NO '+/-' ON LEFT SIDE ON NUMERIC FIELD - ONLY REL 3 «, t00=0x0000, t01=0x00e2}
0x0130…0134 Head {h00=0x0054, h01=0x0050}
0x0134…0138 Head {h00=0x2a20, h01=0x2020}
0x0138…0140 20 20 20 20 20 20 20 38 ┆ 8┆
0x0140…0190 35 30 36 30 36 2f 4a 45 20 20 43 48 45 43 4b 20 4f 56 46 4c 2d 45 4e 54 52 49 45 53 20 49 4e 20 41 54 54 41 42 20 27 44 49 53 50 4c 59 27 20 49 4e 53 20 43 48 52 53 20 46 49 4c 4c 45 44 20 4c 49 4e 45 20 00 00 01 34 00 3e 00 50 2a 20 20 20 ┆50606/JE CHECK OVFL-ENTRIES IN ATTAB 'DISPLY' INS CHRS FILLED LINE 4 > P* ┆
0x0190…01e0 (1, 0, 400) 20 20 20 20 20 20 20 38 35 30 32 30 31 2f 43 4a 20 20 27 2b 2f 2d 27 20 4f 4e 20 4c 45 46 54 20 53 49 44 45 20 4f 4e 20 4e 55 4d 45 52 49 43 20 46 49 45 4c 44 20 00 00 01 8c 00 30 00 50 2a 20 20 20 20 20 20 20 20 20 20 38 34 31 31 32 30 2f ┆ 850201/CJ '+/-' ON LEFT SIDE ON NUMERIC FIELD 0 P* 841120/┆
0x01e0…0230 43 4a 20 20 4d 55 4c 26 44 49 56 20 44 4f 4e 45 20 42 59 20 41 53 53 52 55 54 00 01 00 3e 00 30 00 50 2a 20 20 20 20 20 20 20 20 20 20 38 33 31 32 30 38 2f 43 4a 20 20 4d 4f 44 49 46 49 43 41 54 49 4f 4e 20 4f 46 20 50 4f 4c 49 43 45 00 01 ┆CJ MUL&DIV DONE BY ASSRUT > 0 P* 831208/CJ MODIFICATION OF POLICE ┆
0x0230…0280 00 72 00 48 00 50 2a 20 20 20 20 20 20 20 20 20 20 38 33 30 37 31 34 2f 43 4a 20 20 47 45 54 20 45 46 46 2e 20 46 4f 52 4d 41 54 20 53 49 5a 45 20 4a 55 53 54 20 41 46 54 45 52 20 4d 4f 44 44 45 4c 2e 20 50 48 41 53 45 20 00 01 00 a6 00 06 ┆ r H P* 830714/CJ GET EFF. FORMAT SIZE JUST AFTER MODDEL. PHASE ┆
0x0280…02d0 00 50 2a 20 00 01 00 f2 00 06 00 50 2a 20 00 01 00 fc 00 44 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 ┆ P* P* D P**********************************************************┆
0x02d0…0320 2a 2a 2a 2a 2a 20 00 01 01 06 00 10 00 50 5c 44 44 55 4d 5c 57 53 4d 44 44 56 00 01 01 4e 00 0a 00 50 5c 50 44 49 56 20 00 01 01 62 00 12 00 50 5c 45 4e 54 52 59 5c 46 53 4d 53 50 50 20 00 01 01 70 00 2a 00 50 5c 45 4e 54 52 59 5c 50 4f 4c ┆***** P DDUM WSMDDV N P PDIV b P ENTRY FSMSPP p * P ENTRY POL┆
0x0320…0370 (2, 0, 400) 49 43 45 5c 2a 2a 2a 50 4f 4f 4c 20 4c 49 4d 49 54 20 43 4f 4e 54 52 4f 4c 45 52 20 00 01 01 86 00 2c 00 50 5c 45 4e 54 52 59 5c 44 49 53 50 4c 59 5c 2a 2a 2a 44 49 53 50 4c 41 59 20 46 4f 52 4d 41 54 20 53 45 43 54 49 4f 4e 20 00 02 00 24 ┆ICE ***POOL LIMIT CONTROLER , P ENTRY DISPLY ***DISPLAY FORMAT SECTION $┆
0x0370…03c0 00 24 00 50 5c 45 4e 54 52 59 5c 43 55 52 53 45 54 5c 2a 2a 2a 43 55 52 53 4f 52 20 53 45 54 54 49 4e 47 20 00 02 00 54 00 30 00 50 5c 45 4e 54 52 59 5c 44 45 43 4f 52 53 5c 2a 2a 2a 44 45 43 4f 52 41 54 49 4f 4e 20 53 45 54 54 49 4e 47 2f ┆ $ P ENTRY CURSET ***CURSOR SETTING T 0 P ENTRY DECORS ***DECORATION SETTING/┆
0x03c0…0410 43 4c 45 41 52 49 4e 47 00 02 00 7c 00 2a 00 50 5c 45 4e 54 52 59 5c 50 49 43 50 4f 4c 5c 2a 2a 2a 50 49 43 54 55 52 20 50 4f 4f 4c 20 48 41 4e 44 4c 49 4e 47 20 00 02 00 b0 00 24 00 50 5c 45 58 54 5c 49 43 4c 45 41 52 5c 2d 2d 2d 41 53 53 ┆CLEARING | * P ENTRY PICPOL ***PICTUR POOL HANDLING $ P EXT ICLEAR ---ASS┆
0x0410…0460 52 55 54 3a 43 4c 45 41 52 20 49 54 45 4d 00 02 00 de 00 20 00 50 5c 45 58 54 5c 53 45 54 42 5c 2d 2d 2d 41 53 53 52 55 54 3a 53 45 54 20 42 49 54 20 00 02 01 06 00 22 00 50 5c 45 58 54 5c 54 45 53 54 42 5c 2d 2d 2d 41 53 53 52 55 54 3a 54 ┆RUT:CLEAR ITEM P EXT SETB ---ASSRUT:SET BIT " P EXT TESTB ---ASSRUT:T┆
0x0460…04b0 45 53 54 20 42 49 54 20 00 02 01 2a 00 28 00 50 5c 45 58 54 5c 45 4d 50 54 59 54 5c 2d 2d 2d 41 53 53 52 55 54 3a 43 48 45 43 4b 20 49 46 20 45 4d 50 54 59 00 02 01 50 00 22 00 50 5c 45 58 54 5c 57 58 44 49 56 5c 2d 2d 2d 41 53 53 52 55 54 ┆EST BIT * ( P EXT EMPTYT ---ASSRUT:CHECK IF EMPTY P " P EXT WXDIV ---ASSRUT┆
0x04b0…0500 (3, 0, 400) 3a 44 49 56 49 53 49 4f 4e 20 00 02 01 7c 00 06 00 50 2a 20 00 03 00 12 00 1e 00 50 42 4c 53 5c 45 51 55 5c 58 27 42 44 27 5c 42 4c 4f 43 4b 20 53 54 41 52 54 20 00 03 00 1c 00 1c 00 50 42 4c 45 5c 45 51 55 5c 58 27 42 45 27 5c 42 4c 4f 43 ┆:DIVISION | P* PBLS EQU X'BD' BLOCK START PBLE EQU X'BE' BLOC┆
0x0500…0550 4b 20 45 4e 44 20 00 03 00 3e 00 0a 00 50 5c 45 4a 45 43 54 00 03 00 5e 00 06 00 50 2a 20 00 03 00 6c 00 22 00 50 2a 20 20 20 20 20 53 54 4f 52 45 20 53 54 41 54 49 43 20 46 49 45 4c 44 20 43 4f 44 45 20 00 03 00 76 00 06 00 50 2a 20 00 03 ┆K END > P EJECT ^ P* l " P* STORE STATIC FIELD CODE v P* ┆
0x0550…05a0 00 9c 00 24 00 50 2a 20 20 20 20 20 4f 55 54 50 55 54 20 20 20 20 20 20 20 20 43 52 20 20 20 20 3d 20 30 20 4f 4b 00 03 00 a6 00 30 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 31 20 50 4f 4f 4c ┆ $ P* OUTPUT CR = 0 OK 0 P* = 1 POOL┆
0x05a0…05f0 20 4f 56 45 52 46 4c 4f 57 20 00 03 00 ce 00 06 00 50 2a 20 00 03 01 02 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 ┆ OVERFLOW P* L P****************************************************┆
0x05f0…0640 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 03 01 0c 00 10 00 50 46 53 4d 53 50 50 5c 50 52 4f 43 20 00 03 01 5c 00 3c 00 50 5c 4d 4f 56 45 5c 4c 53 54 52 36 41 2c 3d 58 27 30 30 46 42 46 43 46 44 46 45 46 46 27 5c 53 54 ┆******************** PFSMSPP PROC < P MOVE LSTR6A,=X'00FBFCFDFEFF' ST┆
0x0640…0690 (4, 0, 400) 41 54 49 43 20 46 49 45 4c 44 20 4f 42 4a 45 43 54 20 43 4f 44 45 53 20 00 03 01 70 00 2a 00 50 5c 4d 4f 56 45 5c 4c 53 54 52 34 41 2c 3d 58 27 32 30 30 30 27 5c 4d 41 54 43 48 49 4e 47 20 53 54 52 49 4e 47 20 00 04 00 20 00 1e 00 50 5c 4d ┆ATIC FIELD OBJECT CODES p * P MOVE LSTR4A,=X'2000' MATCHING STRING P M┆
0x0690…06e0 4f 56 45 5c 4c 42 49 4e 33 2c 57 30 5c 57 4f 52 4b 49 54 45 4d 3a 3d 30 00 04 00 4e 00 20 00 50 5c 4d 4f 56 45 5c 4c 42 49 4e 37 2c 57 31 5c 44 59 4e 20 53 45 51 2e 4e 4f 3a 3d 31 00 04 00 70 00 24 00 50 5c 4d 4f 56 45 5c 4c 42 49 4e 31 32 ┆OVE LBIN3,W0 WORKITEM:=0 N P MOVE LBIN7,W1 DYN SEQ.NO:=1 p $ P MOVE LBIN12┆
0x06e0…0730 2c 57 31 5c 4c 49 4e 45 2d 43 4f 55 4e 54 45 52 3a 2d 31 20 00 04 00 94 00 2a 00 50 5c 4d 4f 56 45 5c 4c 42 49 4e 31 31 2c 57 30 5c 41 54 54 52 2d 54 41 42 4c 45 2d 50 4f 49 4e 54 45 52 3a 2d 30 20 00 04 00 bc 00 22 00 50 5c 4d 4f 56 45 5c ┆,W1 LINE-COUNTER:-1 * P MOVE LBIN11,W0 ATTR-TABLE-POINTER:-0 " P MOVE ┆
0x0730…0780 4c 42 49 4e 31 34 2c 57 30 5c 45 46 46 2e 43 4f 4c 53 49 5a 45 3a 3d 30 00 04 00 ea 00 22 00 50 5c 4d 4f 56 45 5c 4c 42 49 4e 31 33 2c 57 30 5c 45 46 46 2e 52 4f 57 53 49 5a 45 3a 3d 30 00 04 01 10 00 2a 00 50 5c 50 45 52 46 5c 45 46 53 49 ┆LBIN14,W0 EFF.COLSIZE:=0 " P MOVE LBIN13,W0 EFF.ROWSIZE:=0 * P PERF EFSI┆
0x0780…07d0 5a 45 5c 2a 2a 2a 45 46 46 45 43 54 49 56 45 20 43 4f 4c 55 4d 4e 20 53 49 5a 45 20 00 04 01 36 00 2c 00 50 5c 53 45 54 5c 4c 42 4f 4f 4c 33 5c 54 52 55 45 3d 4f 42 4a 45 43 54 20 53 50 4c 49 54 20 41 54 20 50 4f 4f 4c 45 4e 44 00 04 01 64 ┆ZE ***EFFECTIVE COLUMN SIZE 6 , P SET LBOOL3 TRUE=OBJECT SPLIT AT POOLEND d┆
0x07d0…0820 (5, 0, 400) 00 32 00 50 5c 53 45 54 5c 56 42 4f 4f 4c 38 5c 54 52 55 45 3d 43 4f 4d 50 55 4c 53 41 52 59 20 50 4f 4f 4c 2d 44 45 4c 49 4d 49 54 45 52 20 46 46 20 00 05 00 04 00 2e 00 50 5c 43 41 4c 4c 5c 45 4d 50 54 59 54 2c 47 42 43 44 33 49 28 57 31 ┆ 2 P SET VBOOL8 TRUE=COMPULSARY POOL-DELIMITER FF . P CALL EMPTYT,GBCD3I(W1┆
0x0820…0870 30 29 5c 2d 2d 2d 43 48 45 43 4b 20 49 46 20 45 4d 50 54 59 00 05 00 3a 00 1e 00 50 5c 42 4e 4f 4b 5c 53 54 46 31 30 30 5c 4e 4f 20 48 45 41 44 4c 49 4e 45 53 20 00 05 00 6c 00 2e 00 50 5c 4d 4f 56 45 5c 4c 42 49 4e 32 2c 47 42 43 44 33 49 ┆0) ---CHECK IF EMPTY : P BNOK STF100 NO HEADLINES l . P MOVE LBIN2,GBCD3I┆
0x0870…08c0 28 57 31 30 29 5c 43 4f 4e 56 45 52 54 20 54 4f 20 42 49 4e 41 52 59 20 00 05 00 8e 00 2c 00 50 5c 43 42 45 5c 4c 42 49 4e 32 2c 57 30 2c 53 54 46 31 30 30 5c 4a 4d 50 20 49 46 20 4e 4f 20 48 45 41 44 4c 49 4e 45 53 00 05 00 c0 00 3c 00 50 ┆(W10) CONVERT TO BINARY , P CBE LBIN2,W0,STF100 JMP IF NO HEADLINES < P┆
0x08c0…0910 5c 58 43 4f 50 59 5c 4c 53 54 52 38 31 2c 57 30 2c 57 31 2c 4c 53 54 52 36 41 2c 57 32 5c 53 54 4f 52 45 20 4e 55 4d 42 20 4f 46 20 48 4c 49 4e 45 53 20 58 27 46 43 27 00 05 00 f0 00 2c 00 50 5c 58 43 4f 50 59 5c 4c 53 54 52 38 31 2c 57 31 ┆ XCOPY LSTR81,W0,W1,LSTR6A,W2 STORE NUMB OF HLINES X'FC' , P XCOPY LSTR81,W1┆
0x0910…0960 2c 57 31 2c 4c 42 49 4e 32 2c 57 31 5c 53 54 4f 52 45 20 4e 55 4d 42 20 00 05 01 30 00 2c 00 50 5c 4d 4f 56 45 5c 4c 42 49 4e 32 2c 57 32 5c 4e 55 4d 42 20 4f 46 20 43 48 41 52 53 20 54 4f 20 43 4f 4e 54 52 4f 4c 20 00 05 01 60 00 44 00 50 ┆,W1,LBIN2,W1 STORE NUMB 0 , P MOVE LBIN2,W2 NUMB OF CHARS TO CONTROL ` D P┆
0x0960…09b0 (6, 0, 400) 5c 50 45 52 46 5c 50 4f 4c 49 43 45 2c 4c 42 49 4e 32 2c 4c 42 4f 4f 4c 33 2c 56 42 4f 4f 4c 38 2c 4c 53 54 52 38 31 5c 2a 2a 2a 50 4f 4f 4c 2d 4c 49 4d 49 54 2d 43 4f 4e 54 52 4f 4c 45 52 20 00 05 01 90 00 24 00 50 5c 42 47 5c 53 54 46 39 ┆ PERF POLICE,LBIN2,LBOOL3,VBOOL8,LSTR81 ***POOL-LIMIT-CONTROLER $ P BG STF9┆
0x09b0…0a00 39 39 5c 4a 55 4d 50 20 49 46 20 50 4f 4f 4c 20 4f 56 45 52 46 4c 4f 57 00 06 00 48 00 44 00 50 5c 58 43 4f 50 59 5c 42 50 4f 4f 4c 28 47 42 49 4e 34 29 2c 47 42 49 4e 35 2c 4c 42 49 4e 32 2c 4c 53 54 52 38 31 2c 57 30 5c 53 54 4f 52 45 20 ┆99 JUMP IF POOL OVERFLOW H D P XCOPY BPOOL(GBIN4),GBIN5,LBIN2,LSTR81,W0 STORE ┆
0x0a00…0a50 4e 55 4d 42 20 4f 46 20 48 2d 4c 49 4e 45 53 20 00 06 00 70 00 28 00 50 5c 41 44 44 5c 47 42 49 4e 35 2c 4c 42 49 4e 32 5c 41 44 4a 55 53 54 20 50 4f 4f 4c 2d 50 4f 49 4e 54 45 52 00 06 00 b8 00 0a 00 50 5c 45 4a 45 43 54 00 06 00 e4 00 0a ┆NUMB OF H-LINES p ( P ADD GBIN5,LBIN2 ADJUST POOL-POINTER P EJECT ┆
0x0a50…0aa0 00 50 53 54 46 31 30 30 00 06 00 f2 00 2a 00 50 5c 43 4d 50 5c 4c 42 49 4e 31 31 2c 4c 41 42 49 4e 5c 43 48 45 43 4b 20 49 46 20 50 4f 49 4e 54 45 52 20 4f 4b 20 00 06 01 00 00 24 00 50 5c 42 4e 4c 5c 53 54 46 39 30 30 5c 4a 55 4d 50 20 49 ┆ PSTF100 * P CMP LBIN11,LABIN CHECK IF POINTER OK $ P BNL STF900 JUMP I┆
0x0aa0…0af0 46 20 4f 55 54 20 4f 46 20 53 49 5a 45 20 00 06 01 2e 00 30 00 50 5c 58 43 4f 50 59 5c 4c 42 49 4e 35 2c 57 31 2c 57 31 2c 41 54 54 41 42 2c 4c 42 49 4e 31 31 5c 53 54 4f 52 45 20 52 4f 57 20 4e 4f 00 06 01 56 00 32 00 50 5c 43 42 4e 45 5c ┆F OUT OF SIZE . 0 P XCOPY LBIN5,W1,W1,ATTAB,LBIN11 STORE ROW NO V 2 P CBNE ┆
0x0af0…0b40 (7, 0, 400) 4c 42 49 4e 35 2c 57 30 2c 53 54 46 31 35 30 5c 4a 55 4d 50 20 49 46 20 4e 4f 54 20 45 2d 4f 2d 53 45 43 54 49 4f 4e 20 00 06 01 8a 00 24 00 50 5c 42 5c 53 54 46 39 30 30 5c 4a 55 4d 50 20 49 46 20 45 4e 44 2d 4f 46 2d 53 45 43 54 49 4f 4e ┆LBIN5,W0,STF150 JUMP IF NOT E-O-SECTION $ P B STF900 JUMP IF END-OF-SECTION┆
0x0b40…0b90 00 07 00 30 00 0a 00 50 53 54 46 31 35 30 00 07 00 58 00 2a 00 50 5c 4d 4f 56 45 5c 4c 42 49 4e 31 33 2c 4c 42 49 4e 35 5c 53 41 56 45 20 45 46 46 53 49 5a 45 20 52 4f 57 20 4e 4f 00 07 00 66 00 32 00 50 5c 43 42 4e 4c 5c 4c 42 49 4e 31 32 ┆ 0 PSTF150 X * P MOVE LBIN13,LBIN5 SAVE EFFSIZE ROW NO f 2 P CBNL LBIN12┆
0x0b90…0be0 2c 4c 42 49 4e 35 2c 53 54 46 31 36 30 5c 4a 55 4d 50 20 49 46 20 4e 4f 54 20 4e 45 57 20 4c 49 4e 45 00 07 00 94 00 1e 00 50 5c 42 5c 53 54 46 38 30 30 5c 4a 55 4d 50 20 49 46 20 4e 45 57 20 4c 49 4e 45 00 07 00 ca 00 0a 00 50 53 54 46 31 ┆,LBIN5,STF160 JUMP IF NOT NEW LINE P B STF800 JUMP IF NEW LINE PSTF1┆
0x0be0…0c30 36 30 00 07 00 ec 00 28 00 50 5c 41 44 44 5c 4c 42 49 4e 31 31 2c 57 31 5c 41 44 4a 55 53 54 20 54 41 42 4c 45 2d 50 4f 49 4e 54 45 52 20 00 07 00 fa 00 30 00 50 5c 58 43 4f 50 59 5c 4c 42 49 4e 36 2c 57 31 2c 57 31 2c 41 54 54 41 42 2c 4c ┆60 ( P ADD LBIN11,W1 ADJUST TABLE-POINTER 0 P XCOPY LBIN6,W1,W1,ATTAB,L┆
0x0c30…0c80 42 49 4e 31 31 5c 53 54 4f 52 45 20 43 4f 4c 2e 4e 4f 00 07 01 26 00 28 00 50 5c 41 44 44 5c 4c 42 49 4e 31 31 2c 57 31 5c 41 44 4a 55 53 54 20 54 41 42 4c 45 2d 50 4f 49 4e 54 45 52 20 00 07 01 5a 00 2e 00 50 5c 43 42 47 5c 4c 42 49 4e 36 ┆BIN11 STORE COL.NO & ( P ADD LBIN11,W1 ADJUST TABLE-POINTER Z . P CBG LBIN6┆
0x0c80…0cd0 (8, 0, 400) 2c 4c 42 49 4e 39 2c 53 54 46 32 30 30 5c 4a 4d 50 20 49 46 20 4f 56 46 4c 20 45 4e 54 52 59 20 00 07 01 86 00 1e 00 50 5c 4d 4f 56 45 5c 4c 42 49 4e 32 2c 57 30 5c 43 4c 45 41 52 20 46 49 52 53 54 00 08 00 28 00 40 00 50 5c 58 43 4f 50 59 ┆,LBIN9,STF200 JMP IF OVFL ENTRY P MOVE LBIN2,W0 CLEAR FIRST ( @ P XCOPY┆
0x0cd0…0d20 5c 4c 42 49 4e 32 2c 57 31 2c 57 31 2c 41 54 54 41 42 2c 4c 42 49 4e 31 31 5c 53 54 4f 52 45 20 53 45 51 2e 4e 4f 2f 53 54 41 54 49 43 20 46 2e 2d 43 4f 44 45 20 00 08 00 4a 00 32 00 50 5c 43 42 45 5c 4c 42 49 4e 32 2c 3d 58 27 46 46 27 2c ┆ LBIN2,W1,W1,ATTAB,LBIN11 STORE SEQ.NO/STATIC F.-CODE J 2 P CBE LBIN2,=X'FF',┆
0x0d20…0d70 53 54 46 34 30 30 5c 4a 55 4d 50 20 49 46 20 53 54 41 54 49 43 20 46 49 45 4c 44 20 00 08 00 8e 00 40 00 50 5c 58 43 4f 50 59 5c 4c 53 54 52 38 31 2c 57 30 2c 57 31 2c 4c 53 54 52 36 41 2c 57 31 5c 4c 4f 41 44 20 44 59 4e 20 46 49 45 4c 44 ┆STF400 JUMP IF STATIC FIELD @ P XCOPY LSTR81,W0,W1,LSTR6A,W1 LOAD DYN FIELD┆
0x0d70…0dc0 20 4f 42 2e 2d 43 4f 44 45 20 58 27 46 42 27 20 00 08 00 c4 00 2c 00 50 5c 58 43 4f 50 59 5c 4c 53 54 52 38 31 2c 57 31 2c 57 31 2c 4c 42 49 4e 37 2c 57 31 5c 4c 4f 41 44 20 53 45 51 2e 4e 4f 00 08 01 08 00 2c 00 50 5c 4d 4f 56 45 5c 4c 42 ┆ OB.-CODE X'FB' , P XCOPY LSTR81,W1,W1,LBIN7,W1 LOAD SEQ.NO , P MOVE LB┆
0x0dc0…0e10 49 4e 32 2c 57 32 5c 4e 55 4d 42 20 4f 46 20 43 48 41 52 53 20 54 4f 20 43 4f 4e 54 52 4f 4c 20 00 08 01 38 00 44 00 50 5c 50 45 52 46 5c 50 4f 4c 49 43 45 2c 4c 42 49 4e 32 2c 4c 42 4f 4f 4c 33 2c 56 42 4f 4f 4c 38 2c 4c 53 54 52 38 31 5c ┆IN2,W2 NUMB OF CHARS TO CONTROL 8 D P PERF POLICE,LBIN2,LBOOL3,VBOOL8,LSTR81 ┆
0x0e10…0e60 (9, 0, 400) 2a 2a 2a 50 4f 4f 4c 2d 4c 49 4d 49 54 2d 43 4f 4e 54 52 4f 4c 45 52 20 00 08 01 68 00 24 00 50 5c 42 47 5c 53 54 46 39 39 39 5c 4a 55 4d 50 20 49 46 20 50 4f 4f 4c 20 4f 56 45 52 46 4c 4f 57 00 09 00 20 00 42 00 50 5c 58 43 4f 50 59 5c 42 ┆***POOL-LIMIT-CONTROLER h $ P BG STF999 JUMP IF POOL OVERFLOW B P XCOPY B┆
0x0e60…0eb0 50 4f 4f 4c 28 47 42 49 4e 34 29 2c 47 42 49 4e 35 2c 4c 42 49 4e 32 2c 4c 53 54 52 38 31 2c 57 30 5c 53 54 4f 52 45 20 44 59 4e 41 4d 49 43 20 46 49 45 4c 44 20 00 09 00 48 00 22 00 50 5c 41 44 44 5c 4c 42 49 4e 37 2c 57 31 5c 49 4e 43 52 ┆POOL(GBIN4),GBIN5,LBIN2,LSTR81,W0 STORE DYNAMIC FIELD H " P ADD LBIN7,W1 INCR┆
0x0eb0…0f00 45 4d 45 4e 54 20 53 45 51 2e 4e 4f 00 09 00 8e 00 28 00 50 5c 41 44 44 5c 47 42 49 4e 35 2c 4c 42 49 4e 32 5c 41 44 4a 55 53 54 20 50 4f 4f 4c 2d 50 4f 49 4e 54 45 52 00 09 00 b4 00 0a 00 50 53 54 46 32 30 30 00 09 00 e0 00 28 00 50 5c 41 ┆EMENT SEQ.NO ( P ADD GBIN5,LBIN2 ADJUST POOL-POINTER PSTF200 ( P A┆
0x0f00…0f50 44 44 5c 4c 42 49 4e 31 31 2c 57 32 5c 41 44 4a 55 53 54 20 54 41 42 4c 45 2d 50 4f 49 4e 54 45 52 20 00 09 00 ee 00 14 00 50 5c 42 5c 53 54 46 31 30 30 5c 47 4f 20 4f 4e 20 00 09 01 1a 00 0a 00 50 5c 45 4a 45 43 54 00 09 01 32 00 06 00 50 ┆DD LBIN11,W2 ADJUST TABLE-POINTER P B STF100 GO ON P EJECT 2 P┆
0x0f50…0fa0 2a 20 00 09 01 40 00 22 00 50 2a 20 20 20 20 53 54 41 54 49 43 20 46 49 45 4c 44 20 4f 42 4a 45 43 54 20 43 4f 44 45 20 00 09 01 4a 00 20 00 50 2a 20 20 20 20 20 20 20 20 2d 43 4f 4d 50 52 45 53 53 45 44 20 53 50 41 43 45 53 20 00 09 01 70 ┆* @ " P* STATIC FIELD OBJECT CODE J P* -COMPRESSED SPACES p┆
0x0fa0…0ff0 (10, 0, 400) 00 18 00 50 2a 20 20 20 20 20 20 20 20 2d 43 48 41 52 41 43 54 45 52 53 00 0a 00 04 00 06 00 50 2a 20 00 0a 00 20 00 0a 00 50 53 54 46 34 30 30 00 0a 00 2a 00 28 00 50 5c 41 44 44 5c 4c 42 49 4e 31 31 2c 57 31 5c 41 44 4a 55 53 54 20 54 41 ┆ P* -CHARACTERS P* PSTF400 * ( P ADD LBIN11,W1 ADJUST TA┆
0x0ff0…1040 42 4c 45 2d 50 4f 49 4e 54 45 52 20 00 0a 00 38 00 30 00 50 5c 4d 4f 56 45 5c 4c 42 49 4e 32 2c 57 31 5c 4e 55 4d 42 20 4f 46 20 43 48 41 52 41 43 54 45 52 53 20 54 4f 20 43 4f 4e 54 52 4f 4c 00 0a 00 64 00 44 00 50 5c 50 45 52 46 5c 50 4f ┆BLE-POINTER 8 0 P MOVE LBIN2,W1 NUMB OF CHARACTERS TO CONTROL d D P PERF PO┆
0x1040…1090 4c 49 43 45 2c 4c 42 49 4e 32 2c 4c 42 4f 4f 4c 33 2c 56 42 4f 4f 4c 38 2c 4c 53 54 52 38 31 5c 2a 2a 2a 50 4f 4f 4c 2d 4c 49 4d 49 54 2d 43 4f 4e 54 52 4f 4c 45 52 20 00 0a 00 98 00 24 00 50 5c 42 47 5c 53 54 46 39 39 39 5c 4a 55 4d 50 20 ┆LICE,LBIN2,LBOOL3,VBOOL8,LSTR81 ***POOL-LIMIT-CONTROLER $ P BG STF999 JUMP ┆
0x1090…10e0 49 46 20 50 4f 4f 4c 20 4f 56 45 52 46 4c 4f 57 00 0a 00 e0 00 3e 00 50 5c 58 43 4f 50 59 5c 42 50 4f 4f 4c 28 47 42 49 4e 34 29 2c 47 42 49 4e 35 2c 57 31 2c 41 54 54 41 42 2c 4c 42 49 4e 31 31 5c 53 54 4f 52 45 20 41 54 54 52 49 42 55 54 ┆IF POOL OVERFLOW > P XCOPY BPOOL(GBIN4),GBIN5,W1,ATTAB,LBIN11 STORE ATTRIBUT┆
0x10e0…1130 45 20 00 0a 01 08 00 28 00 50 5c 41 44 44 5c 47 42 49 4e 35 2c 4c 42 49 4e 32 5c 41 44 4a 55 53 54 20 50 4f 4f 4c 2d 50 4f 49 4e 54 45 52 00 0a 01 4a 00 28 00 50 5c 41 44 44 5c 4c 42 49 4e 31 31 2c 57 31 5c 41 44 4a 55 53 54 20 54 41 42 4c ┆E ( P ADD GBIN5,LBIN2 ADJUST POOL-POINTER J ( P ADD LBIN11,W1 ADJUST TABL┆
0x1130…1138 (11, 0, 398) 45 2d 50 4f 49 4e 54 45 ┆E-POINTE┆
0x1138…539c […elided…]
0x539c…53c0 45 20 50 4f 49 4e 54 45 52 20 00 35 00 bc 00 32 00 50 5c 43 42 45 5c 4c 42 49 4e 31 31 2c 4c 41 42 49 4e 2c ┆E POINTER 5 2 P CBE LBIN11,LABIN,┆
0x53c0…5410 50 49 43 31 30 30 5c 4a 55 4d 50 20 49 46 20 45 4e 44 20 4f 46 20 54 41 42 4c 45 20 00 35 00 e8 00 34 00 50 5c 58 43 4f 50 59 5c 4c 42 49 4e 31 2c 57 31 2c 57 31 2c 41 54 54 41 42 2c 4c 42 49 4e 31 31 5c 47 45 54 20 4e 45 58 54 20 52 4f 57 ┆PIC100 JUMP IF END OF TABLE 5 4 P XCOPY LBIN1,W1,W1,ATTAB,LBIN11 GET NEXT ROW┆
0x5410…5456 20 4e 4f 20 00 35 01 1e 00 28 00 50 5c 41 44 44 5c 4c 42 49 4e 31 31 2c 57 31 5c 41 44 4a 55 53 54 20 54 41 42 4c 45 20 50 4f 49 4e 54 45 52 20 00 35 01 56 00 2c 00 50 5c 43 42 45 5c 4c 42 49 4e 31 2c 57 30 2c ┆ NO 5 ( P ADD LBIN11,W1 ADJUST TABLE POINTER 5 V , P CBE LBIN1,W0,┆
0x5456…54a6 (54, 0, 400) 50 49 43 31 30 30 5c 4a 4d 50 20 49 46 20 45 2d 4f 2d 54 20 46 4f 55 4e 44 20 00 35 01 82 00 30 00 50 5c 43 42 47 5c 4c 42 49 4e 31 2c 4c 42 49 4e 35 2c 50 49 43 31 30 30 5c 4a 4d 50 20 49 46 20 4e 45 58 54 20 47 52 45 41 54 45 52 20 00 36 ┆PIC100 JMP IF E-O-T FOUND 5 0 P CBG LBIN1,LBIN5,PIC100 JMP IF NEXT GREATER 6┆
0x54a6…54f6 00 22 00 32 00 50 5c 43 42 45 5c 4c 42 49 4e 31 31 2c 4c 41 42 49 4e 2c 50 49 43 31 30 30 5c 4a 55 4d 50 20 49 46 20 45 4e 44 20 4f 46 20 54 41 42 4c 45 20 00 36 00 56 00 36 00 50 5c 58 43 4f 50 59 5c 4c 42 49 4e 31 2c 57 31 2c 57 31 2c 41 ┆ " 2 P CBE LBIN11,LABIN,PIC100 JUMP IF END OF TABLE 6 V 6 P XCOPY LBIN1,W1,W1,A┆
0x54f6…5546 54 54 41 42 2c 4c 42 49 4e 31 31 5c 4e 45 58 54 20 43 4f 4c 20 3d 20 45 4e 44 20 50 4f 53 00 36 00 8c 00 20 00 50 5c 53 55 42 5c 4c 42 49 4e 31 2c 57 31 5c 41 44 4a 55 53 54 20 45 4e 44 20 50 4f 53 00 36 00 c6 00 0e 00 50 5c 42 5c 50 49 43 ┆TTAB,LBIN11 NEXT COL = END POS 6 P SUB LBIN1,W1 ADJUST END POS 6 P B PIC┆
0x5546…5596 31 32 30 20 00 36 00 ea 00 0a 00 50 50 49 43 31 30 30 00 36 00 fc 00 2e 00 50 2a 20 20 20 53 45 41 52 43 48 20 31 53 54 20 58 27 30 30 27 20 54 4f 20 46 49 4e 44 20 45 4e 44 20 50 4f 53 49 54 49 4f 4e 20 00 36 01 0a 00 2a 00 50 5c 4d 4f 56 ┆120 6 PPIC100 6 . P* SEARCH 1ST X'00' TO FIND END POSITION 6 * P MOV┆
0x5596…55e6 45 5c 4c 42 49 4e 31 2c 4c 42 49 4e 31 33 5c 4c 4f 41 44 20 53 54 41 52 54 20 50 4f 53 49 54 49 4f 4e 00 36 01 3c 00 2c 00 50 5c 4d 4f 56 45 5c 4c 42 49 4e 32 2c 4c 42 49 4e 39 5c 4c 4f 41 44 20 4d 41 58 20 43 4f 4c 55 4d 4e 20 49 4e 20 52 ┆E LBIN1,LBIN13 LOAD START POSITION 6 < , P MOVE LBIN2,LBIN9 LOAD MAX COLUMN IN R┆
0x55e6…5636 (55, 0, 400) 4f 57 00 36 01 6a 00 2a 00 50 5c 53 55 42 5c 4c 42 49 4e 32 2c 4c 42 49 4e 31 5c 43 41 4c 43 20 4d 41 54 43 48 49 4e 47 20 4c 45 4e 47 54 48 20 00 37 00 0a 00 3e 00 50 5c 4d 41 54 43 48 5c 47 56 44 55 52 28 4c 42 49 4e 35 29 2c 4c 42 49 4e ┆OW 6 j * P SUB LBIN2,LBIN1 CALC MATCHING LENGTH 7 > P MATCH GVDUR(LBIN5),LBIN┆
0x5636…5686 31 2c 4c 42 49 4e 32 2c 4c 53 54 52 39 41 2c 57 33 2c 57 31 5c 53 45 41 52 43 48 20 58 27 30 30 27 20 00 37 00 38 00 10 00 50 5c 42 4f 4b 5c 50 49 43 31 32 30 20 00 37 00 7a 00 2c 00 50 5c 4d 4f 56 45 5c 4c 42 49 4e 31 2c 4c 42 49 4e 39 5c ┆1,LBIN2,LSTR9A,W3,W1 SEARCH X'00' 7 8 P BOK PIC120 7 z , P MOVE LBIN1,LBIN9 ┆
0x5686…56d6 45 4e 44 20 50 4f 53 20 3a 3d 20 4d 41 58 20 43 4f 4c 20 50 4f 53 00 37 00 8e 00 0a 00 50 5c 45 4a 45 43 54 00 37 00 be 00 0a 00 50 50 49 43 31 32 30 00 37 00 cc 00 22 00 50 5c 4d 4f 56 45 5c 4c 42 49 4e 31 38 2c 4c 42 49 4e 31 5c 4c 4f 41 ┆END POS := MAX COL POS 7 P EJECT 7 PPIC120 7 " P MOVE LBIN18,LBIN1 LOA┆
0x56d6…5726 44 20 45 4e 44 50 4f 53 00 37 00 da 00 2a 00 50 5c 53 55 42 5c 4c 42 49 4e 31 38 2c 4c 42 49 4e 31 33 5c 43 41 4c 43 20 50 49 43 54 55 52 45 20 53 54 52 49 4e 47 00 37 01 00 00 40 00 50 5c 4d 41 54 43 48 5c 4c 53 54 52 39 41 2c 4c 42 49 4e ┆D ENDPOS 7 * P SUB LBIN18,LBIN13 CALC PICTURE STRING 7 @ P MATCH LSTR9A,LBIN┆
0x5726…5776 31 35 2c 57 33 2c 47 56 44 55 52 28 4c 42 49 4e 35 29 2c 4c 42 49 4e 31 33 2c 57 31 5c 4d 41 54 43 48 20 31 53 54 20 50 4f 53 00 37 01 2e 00 2a 00 50 5c 42 4e 4f 4b 5c 50 49 43 32 30 30 5c 4e 4f 20 41 4c 50 48 41 20 53 49 47 4e 20 47 4f 20 ┆15,W3,GVDUR(LBIN5),LBIN13,W1 MATCH 1ST POS 7 . * P BNOK PIC200 NO ALPHA SIGN GO ┆
0x5776…57c6 (56, 0, 400) 4e 55 4d 45 52 49 43 20 00 37 01 72 00 06 00 50 2a 20 00 38 00 10 00 1e 00 50 2a 20 20 20 20 41 4c 50 48 41 4e 55 4d 45 52 49 43 20 46 49 45 4c 44 20 3f 20 00 38 00 1a 00 06 00 50 2a 20 00 38 00 3c 00 34 00 50 5c 58 43 4f 50 59 5c 4c 53 54 ┆NUMERIC 7 r P* 8 P* ALPHANUMERIC FIELD ? 8 P* 8 < 4 P XCOPY LST┆
0x57c6…5816 52 31 2c 57 30 2c 57 31 2c 4c 53 54 52 39 41 2c 4c 42 49 4e 31 35 5c 4c 4f 41 44 20 46 4f 55 4e 44 20 53 49 47 4e 00 38 00 46 00 32 00 50 5c 4d 4f 56 45 5c 4c 53 54 52 38 31 2c 4c 53 54 52 31 5c 4c 4f 41 44 20 42 55 46 46 45 52 20 57 49 54 ┆R1,W0,W1,LSTR9A,LBIN15 LOAD FOUND SIGN 8 F 2 P MOVE LSTR81,LSTR1 LOAD BUFFER WIT┆
0x5816…5866 48 20 4d 55 4c 54 20 53 49 47 4e 53 00 38 00 7e 00 3a 00 50 5c 4d 41 54 43 48 5c 4c 53 54 52 38 31 2c 4c 42 49 4e 31 34 2c 4c 42 49 4e 31 38 2c 47 56 44 55 52 28 4c 42 49 4e 35 29 2c 4c 42 49 4e 31 33 2c 4c 42 49 4e 31 38 00 38 00 b4 00 2a ┆H MULT SIGNS 8 ~ : P MATCH LSTR81,LBIN14,LBIN18,GVDUR(LBIN5),LBIN13,LBIN18 8 *┆
0x5866…58b6 00 50 5c 42 4e 4f 4b 5c 50 49 43 32 30 30 5c 4e 4f 54 20 53 41 4d 45 20 53 49 47 4e 20 47 4f 20 4e 55 4d 45 52 49 43 20 00 38 00 f2 00 34 00 50 5c 4d 4f 56 45 5c 4c 42 49 4e 31 34 2c 4c 42 49 4e 31 38 5c 44 41 54 41 2d 4c 45 4e 47 54 48 20 ┆ P BNOK PIC200 NOT SAME SIGN GO NUMERIC 8 4 P MOVE LBIN14,LBIN18 DATA-LENGTH ┆
0x58b6…5906 3d 20 50 49 43 54 55 52 45 20 53 54 52 47 20 4c 00 38 01 20 00 32 00 50 5c 4d 4f 56 45 5c 4c 42 49 4e 31 39 2c 57 31 5c 4e 55 4d 42 45 52 20 4f 46 20 4c 49 4e 45 53 20 4d 55 4c 54 20 46 49 45 4c 44 3a 3d 31 20 00 38 01 58 00 22 00 50 5c 53 ┆= PICTURE STRG L 8 2 P MOVE LBIN19,W1 NUMBER OF LINES MULT FIELD:=1 8 X " P S┆
0x5906…5956 (57, 0, 400) 45 54 5c 4c 42 4f 4f 4c 35 5c 54 52 55 45 3d 3e 41 4c 50 48 41 4e 55 4d 45 52 49 43 00 38 01 8e 00 0e 00 50 5c 42 5c 50 49 43 39 39 30 20 00 39 00 24 00 0a 00 50 5c 45 4a 45 43 54 00 39 00 36 00 06 00 50 2a 20 00 39 00 44 00 16 00 50 2a 20 ┆ET LBOOL5 TRUE=>ALPHANUMERIC 8 P B PIC990 9 $ P EJECT 9 6 P* 9 D P* ┆
0x5956…59a6 20 20 20 4e 55 4d 45 52 49 43 20 46 49 45 4c 44 00 39 00 4e 00 06 00 50 2a 20 00 39 00 68 00 0a 00 50 50 49 43 32 30 30 00 39 00 72 00 2a 00 50 5c 53 55 42 5c 4c 42 49 4e 31 2c 57 31 5c 41 44 4a 55 53 54 20 54 4f 20 47 45 54 20 4c 41 53 54 ┆ NUMERIC FIELD 9 N P* 9 h PPIC200 9 r * P SUB LBIN1,W1 ADJUST TO GET LAST┆
0x59a6…59f6 20 43 48 41 52 20 00 39 00 80 00 32 00 50 5c 4d 4f 56 45 5c 4c 53 54 52 39 41 2c 3d 58 27 33 39 35 41 32 44 32 42 32 41 32 33 32 34 32 45 32 43 27 5c 39 5a 2d 2b 23 2a 24 2e 2c 20 00 39 00 ae 00 1e 00 50 5c 4d 4f 56 45 5c 4c 42 49 4e 32 2c ┆ CHAR 9 2 P MOVE LSTR9A,=X'395A2D2B2A23242E2C' 9Z-+#*$., 9 P MOVE LBIN2,┆
0x59f6…5a46 57 32 5c 57 4f 52 4b 49 54 45 4d 3a 3d 32 00 39 00 e4 00 40 00 50 5c 4d 41 54 43 48 5c 4c 53 54 52 39 41 2c 4c 42 49 4e 32 2c 57 32 2c 47 56 44 55 52 28 4c 42 49 4e 35 29 2c 4c 42 49 4e 31 2c 57 31 5c 4c 41 53 54 20 50 4f 53 3d 28 2d 29 28 ┆W2 WORKITEM:=2 9 @ P MATCH LSTR9A,LBIN2,W2,GVDUR(LBIN5),LBIN1,W1 LAST POS=(-)(┆
0x5a46…5a96 2b 29 00 39 01 06 00 4a 00 50 2a 2a 20 2d 20 53 49 47 4e 20 4f 4e 20 4c 45 46 54 20 53 49 44 45 20 54 4f 20 4e 55 4d 20 46 49 45 4c 44 20 4e 4f 54 20 41 43 43 45 50 54 45 44 20 49 4e 20 52 45 4c 20 32 2e 33 20 38 35 31 30 30 39 20 2a 2a 20 ┆+) 9 J P** - SIGN ON LEFT SIDE TO NUM FIELD NOT ACCEPTED IN REL 2.3 851009 ** ┆
0x5a96…5ae6 (58, 0, 398) 00 39 01 4a 00 20 00 50 2a 5c 42 4f 4b 5c 50 49 43 32 30 35 5c 20 2b 20 4f 52 20 2d 20 20 2d 3e 20 4f 4b 20 00 3a 00 08 00 20 00 50 2a 5c 4d 4f 56 45 5c 4c 42 49 4e 32 2c 57 32 5c 57 4f 52 4b 49 54 45 4d 3a 3d 32 20 00 3a 00 2c 00 44 00 50 ┆ 9 J P* BOK PIC205 + OR - -> OK : P* MOVE LBIN2,W2 WORKITEM:=2 : , D P┆
0x5ae6…5b36 2a 5c 4d 41 54 43 48 5c 4c 53 54 52 39 41 2c 4c 42 49 4e 32 2c 57 32 2c 47 56 44 55 52 28 4c 42 49 4e 35 29 2c 4c 42 49 4e 31 33 2c 57 31 5c 46 49 52 53 54 20 50 4f 53 3d 28 2d 29 28 2b 29 20 00 3a 00 50 00 1c 00 50 5c 42 4e 4f 4b 5c 50 49 ┆* MATCH LSTR9A,LBIN2,W2,GVDUR(LBIN5),LBIN13,W1 FIRST POS=(-)(+) : P P BNOK PI┆
0x5b36…5b86 43 32 31 30 5c 4e 4f 54 20 2b 20 4f 52 20 2d 20 00 3a 00 98 00 0c 00 50 2a 50 49 43 32 30 35 20 00 3a 00 b8 00 2c 00 50 5c 53 45 54 5c 4c 42 4f 4f 4c 36 5c 54 52 55 45 3d 3e 4d 49 4e 55 53 20 45 4f 49 2d 4b 45 59 20 41 4c 4c 4f 57 45 44 20 ┆C210 NOT + OR - : P*PIC205 : , P SET LBOOL6 TRUE=>MINUS EOI-KEY ALLOWED ┆
0x5b86…5bd6 00 3a 00 c8 00 0a 00 50 50 49 43 32 31 30 00 3a 00 f8 00 40 00 50 5c 58 43 4f 50 59 5c 4c 53 54 52 38 31 2c 57 30 2c 4c 42 49 4e 31 38 2c 47 56 44 55 52 28 4c 42 49 4e 35 29 2c 4c 42 49 4e 31 33 5c 4c 4f 41 44 20 50 49 43 54 20 53 54 52 49 ┆ : PPIC210 : @ P XCOPY LSTR81,W0,LBIN18,GVDUR(LBIN5),LBIN13 LOAD PICT STRI┆
0x5bd6…5c24 4e 47 00 3a 01 06 00 44 00 50 5c 4d 41 54 43 48 5c 50 49 43 54 55 52 2c 4c 42 49 4e 31 39 2c 50 4c 42 49 4e 2c 4c 53 54 52 38 31 2c 57 30 2c 4c 42 49 4e 31 38 5c 53 45 41 52 43 20 50 49 43 53 54 52 20 53 54 4f 52 45 44 20 00 3a 01 4a ┆NG : D P MATCH PICTUR,LBIN19,PLBIN,LSTR81,W0,LBIN18 SEARC PICSTR STORED : J┆
0x5c24…5c74 (59, 0, 400) 00 2e 00 50 5c 42 4f 4b 5c 50 49 43 32 32 30 5c 50 49 43 54 55 52 20 53 54 52 49 4e 47 20 46 4f 55 4e 44 20 49 4e 20 50 2d 50 4f 4f 4c 20 00 3b 00 04 00 2a 00 50 5c 4d 4f 56 45 5c 4c 42 49 4e 31 39 2c 4c 42 49 4e 31 38 5c 4c 4f 41 44 20 43 ┆ . P BOK PIC220 PICTUR STRING FOUND IN P-POOL ; * P MOVE LBIN19,LBIN18 LOAD C┆
0x5c74…5cc4 55 52 52 45 4e 54 20 53 49 5a 45 20 00 3b 00 36 00 28 00 50 5c 41 44 44 5c 4c 42 49 4e 31 39 2c 4c 42 49 4e 36 5c 41 44 44 20 41 43 54 55 41 4c 20 50 4f 49 4e 54 45 52 00 3b 00 64 00 2a 00 50 5c 43 4d 50 5c 4c 42 49 4e 31 39 2c 50 4c 42 49 ┆URRENT SIZE ; 6 ( P ADD LBIN19,LBIN6 ADD ACTUAL POINTER ; d * P CMP LBIN19,PLBI┆
0x5cc4…5d14 4e 5c 43 48 45 43 4b 20 49 46 20 50 4f 49 4e 54 45 52 20 4f 4b 20 00 3b 00 90 00 22 00 50 5c 42 47 5c 50 49 43 39 39 39 5c 4a 55 4d 50 20 49 46 20 4f 55 54 20 4f 46 20 53 49 5a 45 00 3b 00 be 00 3e 00 50 5c 58 43 4f 50 59 5c 50 49 43 54 55 ┆N CHECK IF POINTER OK ; " P BG PIC999 JUMP IF OUT OF SIZE ; > P XCOPY PICTU┆
0x5d14…5d64 52 2c 4c 42 49 4e 36 2c 4c 42 49 4e 31 38 2c 4c 53 54 52 38 31 2c 57 30 5c 53 54 4f 52 45 20 4e 45 57 20 50 49 43 2d 53 54 52 49 4e 47 20 00 3b 00 e4 00 34 00 50 5c 4d 4f 56 45 5c 4c 42 49 4e 31 39 2c 4c 42 49 4e 36 5c 53 41 56 45 20 44 49 ┆R,LBIN6,LBIN18,LSTR81,W0 STORE NEW PIC-STRING ; 4 P MOVE LBIN19,LBIN6 SAVE DI┆
0x5d64…5db4 53 50 4c 2e 20 54 4f 20 50 49 43 54 55 52 45 20 53 54 52 49 4e 47 00 3b 01 26 00 32 00 50 5c 41 44 44 5c 4c 42 49 4e 36 2c 4c 42 49 4e 31 38 5c 41 44 4a 55 53 54 20 50 49 43 54 55 52 45 20 41 52 45 41 20 50 4f 49 4e 54 45 52 20 00 3b 01 5e ┆SPL. TO PICTURE STRING ; & 2 P ADD LBIN6,LBIN18 ADJUST PICTURE AREA POINTER ; ^┆
0x5db4…5e04 (60, 0, 400) 00 0a 00 50 5c 45 4a 45 43 54 00 3c 00 04 00 0a 00 50 50 49 43 32 32 30 00 3c 00 12 00 34 00 50 5c 43 42 45 5c 47 53 54 52 31 49 28 57 32 33 29 2c 3d 43 27 2e 27 2c 50 49 43 32 33 30 5c 4a 55 4d 50 20 49 46 20 44 45 43 49 4d 41 4c 3d 2e 20 ┆ P EJECT < PPIC220 < 4 P CBE GSTR1I(W23),=C'.',PIC230 JUMP IF DECIMAL=. ┆
0x5e04…5e54 00 3c 00 20 00 38 00 50 5c 49 4e 53 52 54 5c 4c 53 54 52 39 41 2c 57 37 2c 57 31 2c 47 53 54 52 31 49 28 57 32 33 29 2c 57 30 5c 41 44 4a 55 53 54 20 43 48 41 52 41 43 54 45 52 2d 00 3c 00 58 00 26 00 50 5c 5c 5c 2d 53 54 52 49 4e 47 20 46 ┆ < 8 P INSRT LSTR9A,W7,W1,GSTR1I(W23),W0 ADJUST CHARACTER- < X & P -STRING F┆
0x5e54…5ea4 4f 52 20 50 52 4f 50 45 52 20 44 45 43 49 4d 41 4c 20 50 4f 53 20 00 3c 00 94 00 0a 00 50 50 49 43 32 33 30 00 3c 00 be 00 1e 00 50 5c 4d 4d 4f 56 45 5c 4c 42 49 4e 32 2c 5c 43 4f 55 4e 54 45 52 3a 3d 30 5c 43 00 3c 00 cc 00 1e 00 50 5c 5c ┆OR PROPER DECIMAL POS < PPIC230 < P MMOVE LBIN2, COUNTER:=0 C < P ┆
0x5ea4…5ef4 4c 42 49 4e 31 34 2c 5c 44 41 54 41 20 4c 45 4e 47 54 48 3a 3d 30 5c 43 00 3c 00 ee 00 28 00 50 5c 5c 4c 42 49 4e 31 35 2c 57 30 5c 4e 55 4d 42 20 44 45 43 3a 53 2f 45 43 48 4f 2d 54 59 50 45 3a 3d 30 20 00 3c 01 10 00 2e 00 50 5c 43 4c 45 ┆LBIN14, DATA LENGTH:=0 C < ( P LBIN15,W0 NUMB DEC:S/ECHO-TYPE:=0 < . P CLE┆
0x5ef4…5f44 41 52 5c 4c 42 4f 4f 4c 37 5c 46 41 4c 53 45 20 4e 4f 20 44 45 43 49 4d 41 4c 20 43 48 41 52 20 46 4f 55 4e 44 20 00 3c 01 3c 00 0a 00 50 50 49 43 32 34 30 00 3c 01 6e 00 26 00 50 5c 4d 4f 56 45 5c 4c 42 49 4e 31 2c 57 30 5c 4d 41 54 43 48 ┆AR LBOOL7 FALSE NO DECIMAL CHAR FOUND < < PPIC240 < n & P MOVE LBIN1,W0 MATCH┆
0x5f44…5f94 (61, 0, 400) 49 4e 47 50 4f 49 4e 54 45 52 3a 3d 30 20 00 3c 01 7c 00 40 00 50 5c 4d 41 54 43 48 5c 4c 53 54 52 39 41 2c 4c 42 49 4e 31 2c 57 39 2c 4c 53 54 52 38 31 2c 4c 42 49 4e 32 2c 57 31 5c 53 45 41 52 43 48 20 4e 55 4d 45 52 49 43 20 43 48 41 52 ┆INGPOINTER:=0 < | @ P MATCH LSTR9A,LBIN1,W9,LSTR81,LBIN2,W1 SEARCH NUMERIC CHAR┆
0x5f94…5fe4 53 20 00 3d 00 16 00 28 00 50 5c 42 4e 4f 4b 5c 50 49 43 34 30 30 5c 46 49 4c 4c 20 49 4e 20 43 48 41 52 41 43 54 45 52 20 46 4f 55 4e 44 00 3d 00 5a 00 2a 00 50 5c 43 42 45 5c 4c 42 49 4e 31 2c 57 30 2c 50 49 43 33 30 30 5c 4a 55 4d 50 20 ┆S = ( P BNOK PIC400 FILL IN CHARACTER FOUND = Z * P CBE LBIN1,W0,PIC300 JUMP ┆
0x5fe4…6034 49 46 20 27 39 27 20 46 4f 55 4e 44 00 3d 00 86 00 22 00 50 5c 49 42 5c 4c 42 49 4e 31 2c 50 49 43 33 30 30 2c 50 49 43 34 30 30 2c 5c 5a 20 2d 5c 43 00 3d 00 b4 00 24 00 50 5c 5c 50 49 43 34 30 30 2c 50 49 43 33 30 30 2c 50 49 43 33 30 30 ┆IF '9' FOUND = " P IB LBIN1,PIC300,PIC400, Z - C = $ P PIC400,PIC300,PIC300┆
0x6034…6084 2c 5c 2b 23 20 2a 20 24 5c 43 00 3d 00 da 00 2a 00 50 5c 5c 50 49 43 33 30 30 2c 50 49 43 33 36 30 2c 50 49 43 34 30 30 5c 44 45 43 49 4d 41 4c 20 50 45 52 49 4f 44 20 00 3d 01 02 00 0a 00 50 5c 45 4a 45 43 54 00 3d 01 30 00 06 00 50 2a 20 ┆, +# * $ C = * P PIC300,PIC360,PIC400 DECIMAL PERIOD = P EJECT = 0 P* ┆
0x6084…60d4 00 3d 01 3e 00 18 00 50 2a 20 20 20 39 20 5a 20 2a 20 24 20 50 49 43 54 55 52 45 20 00 3d 01 48 00 06 00 50 2a 20 00 3d 01 64 00 0a 00 50 50 49 43 33 30 30 00 3d 01 6e 00 28 00 50 5c 41 44 44 5c 4c 42 49 4e 31 34 2c 57 31 5c 49 4e 43 52 45 ┆ = > P* 9 Z * $ PICTURE = H P* = d PPIC300 = n ( P ADD LBIN14,W1 INCRE┆
0x60d4…6124 (62, 0, 400) 4d 45 4e 54 20 44 41 54 41 2d 4c 45 4e 47 54 48 00 3d 01 7c 00 2e 00 50 5c 54 42 46 5c 4c 42 4f 4f 4c 37 2c 50 49 43 34 30 30 5c 4a 4d 50 20 49 46 20 4e 4f 20 44 45 43 49 4d 41 4c 20 46 4f 55 4e 44 00 3e 00 18 00 2e 00 50 5c 41 44 44 5c 4c ┆MENT DATA-LENGTH = | . P TBF LBOOL7,PIC400 JMP IF NO DECIMAL FOUND > . P ADD L┆
0x6124…6174 42 49 4e 31 35 2c 57 31 5c 49 4e 43 52 45 4d 45 4e 54 20 4e 55 4d 42 20 4f 46 20 44 45 43 49 4d 41 4c 53 20 00 3e 00 4a 00 0e 00 50 5c 42 5c 50 49 43 34 30 30 20 00 3e 00 7c 00 06 00 50 2a 20 00 3e 00 8e 00 20 00 50 2a 20 20 20 44 45 43 49 ┆BIN15,W1 INCREMENT NUMB OF DECIMALS > J P B PIC400 > | P* > P* DECI┆
0x6174…61c4 4d 41 4c 20 43 48 41 52 41 43 54 45 52 20 46 4f 55 4e 44 20 00 3e 00 98 00 06 00 50 2a 20 00 3e 00 bc 00 0a 00 50 50 49 43 33 36 30 00 3e 00 c6 00 28 00 50 5c 41 44 44 5c 4c 42 49 4e 31 34 2c 57 31 5c 49 4e 52 45 4d 45 4e 54 20 44 41 54 41 ┆MAL CHARACTER FOUND > P* > PPIC360 > ( P ADD LBIN14,W1 INREMENT DATA┆
0x61c4…6214 2d 4c 45 4e 47 54 48 20 00 3e 00 d4 00 28 00 50 5c 53 45 54 5c 4c 42 4f 4f 4c 37 5c 54 52 55 45 20 44 45 43 49 4d 41 4c 20 43 48 41 52 20 46 4f 55 4e 44 20 00 3e 01 00 00 0e 00 50 5c 42 5c 50 49 43 34 30 30 20 00 3e 01 2c 00 06 00 50 2a 20 ┆-LENGTH > ( P SET LBOOL7 TRUE DECIMAL CHAR FOUND > P B PIC400 > , P* ┆
0x6214…6264 00 3e 01 3e 00 24 00 50 2a 20 20 20 50 45 52 49 4f 44 20 2b 20 2d 20 4f 54 48 45 52 20 43 48 41 52 41 43 54 45 52 53 20 00 3e 01 48 00 06 00 50 2a 20 00 3e 01 70 00 0a 00 50 50 49 43 34 30 30 00 3e 01 7a 00 24 00 50 5c 41 44 44 5c 4c 42 49 ┆ > > $ P* PERIOD + - OTHER CHARACTERS > H P* > p PPIC400 > z $ P ADD LBI┆
0x6264…62b4 (63, 2, 304) 4e 32 2c 57 31 5c 43 4f 55 4e 54 45 52 3a 3d 43 4f 55 4e 54 45 52 2b 31 00 3e 01 88 00 32 00 50 5c 43 42 45 5c 4c 42 49 4e 32 2c 4c 42 49 4e 31 38 2c 50 49 43 39 38 30 5c 4a 4d 50 20 49 46 20 50 49 43 2d 53 54 52 47 20 46 4f 55 4e 44 00 3f ┆N2,W1 COUNTER:=COUNTER+1 > 2 P CBE LBIN2,LBIN18,PIC980 JMP IF PIC-STRG FOUND ?┆
0x62b4…6304 00 20 00 14 00 50 5c 42 5c 50 49 43 32 34 30 5c 47 4f 20 4f 4e 20 00 3f 00 56 00 0a 00 50 50 49 43 39 38 30 00 3f 00 6e 00 28 00 50 5c 41 44 44 5c 4c 42 49 4e 31 34 2c 57 31 5c 41 44 4a 55 53 54 20 46 4f 52 20 53 49 47 4e 20 42 59 54 45 20 ┆ P B PIC240 GO ON ? V PPIC980 ? n ( P ADD LBIN14,W1 ADJUST FOR SIGN BYTE ┆
0x6304…6354 00 3f 00 7c 00 0a 00 50 50 49 43 39 39 30 00 3f 00 a8 00 22 00 50 5c 53 55 42 5c 4c 42 49 4e 31 31 2c 57 35 5c 41 44 4a 55 53 54 20 50 4f 49 4e 54 45 52 20 00 3f 00 b6 00 18 00 50 5c 43 4d 50 5c 57 30 2c 57 30 5c 43 52 3a 3d 30 20 4f 4b 20 ┆ ? | PPIC990 ? " P SUB LBIN11,W5 ADJUST POINTER ? P CMP W0,W0 CR:=0 OK ┆
0x6354…6394 00 3f 00 dc 00 0a 00 50 50 49 43 39 39 39 00 3f 00 f8 00 08 00 50 5c 52 45 54 00 3f 01 06 00 0a 00 50 5c 50 45 4e 44 20 00 3f 01 12 00 08 00 50 5c 45 4e 44 00 3f 01 20 40 04 00 00 00 3f 01 2c ┆ ? PPIC999 ? P RET ? P PEND ? P END ? @ ? ,┆
0x6394…639c (64, 1, 8) 20 04 00 00 00 40 00 04 ┆ @ ┆