|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/36 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/36 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1024 (0x400)
Notes: MEMBER_P, Member_Text
Names: »LIBRE «
└─⟦7f4ab32d0⟧ Bits:30009823 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 11 Created 19950301 Level 01 Seq 001 of 011
└─⟦3adc66155⟧
└─⟦this⟧ ».LIBRE «
// IF ?9F'?2?'?/S GOTO EDIT ?2F'T'? // IF ?2?/M GOTO EDIT ?2F'T'? // IF ?2?/G GOTO EDIT ?2F'R'? // IFF ?2?/R IFF ?2?/C IFF ?2?/F IFF ?2?/P IFF ?2?/A IFF ?2?/T IFF ?2?/V IFF ?2?/O IF ?2F'S'?/ // TAG EDIT FSEDIT ?1?,?2?,?3? // ATTR PRIORITY-NO // IF SWITCH1-1 RETURN // IFF ?9?/R IFF ?9?/C IFF ?9?/V IFF ?9?/A IFF ?9?/F IFF ?9?/M IFF ?9?/U IFF ?9?/G RETURN // IFF ?9?/U GOTO COMPILE // LOCAL OFFSET-52,DATA-' ' // LOCAL OFFSET-52,DATA-'?1?' // IFF ?L'57,1'?/ GOTO SUBSTR ?8F'6'? // IFF ?L'56,1'?/ GOTO SUBSTR ?8F'5'? // IFF ?L'55,1'?/ GOTO SUBSTR ?8F'4'? // IFF ?L'54,1'?/ GOTO SUBSTR ?8F'3'? // IFF ?L'53,1'?/ GOTO SUBSTR ?8F'2'? // IFF ?L'52,1'?/ GOTO SUBSTR ?8F'1'? // RETURN // TAG SUBSTR // IF ?1F'?L'52,?8?'?'?/ // TAG COMPILE // IF SWITCH8-1 LIBRC ?1?,?9?,?3?
0x000…001 0xa3
0x001…024 »// IF ?9F'?2?'?/S GOTO EDIT ?2F'T'?«
0x024…025 0x55
0x025…026 0x85
0x026…02b »// IF«
0x02b…02c 0x07
0x02c…02d 0x97
0x02d…044 »?2?/M GOTO EDIT ?2F'T'?«
0x044…045 0x55
0x045…046 0x85
0x046…04b »// IF«
0x04b…04c 0x07
0x04c…04d 0x97
0x04d…064 »?2?/G GOTO EDIT ?2F'R'?«
0x064…065 0x55
0x065…066 0xde
0x066…0c4 »// IFF ?2?/R IFF ?2?/C IFF ?2?/F IFF ?2?/P IFF ?2?/A IFF ?2?/T IFF ?2?/V IFF ?2?/O IF ?2F'S'?/«
0x0c4…0c5 0x1a
0x0c5…0c6 0x8b
0x0c6…0d1 »// TAG EDIT«
0x0d1…0d2 0x6d
0x0d2…0d3 0x92
0x0d3…0e5 »FSEDIT ?1?,?2?,?3?«
0x0e5…0e6 0x66
0x0e6…0e7 0x93
0x0e7…0fa »// ATTR PRIORITY-NO«
0x0fa…0fb 0x65
0x0fb…0fc 0x96
0x0fc…112 »// IF SWITCH1-1 RETURN«
0x112…113 0x62
0x113…114 0xd9
0x114…16d »// IFF ?9?/R IFF ?9?/C IFF ?9?/V IFF ?9?/A IFF ?9?/F IFF ?9?/M IFF ?9?/U IFF ?9?/G RETURN«
0x16d…16e 0x1f
0x16e…16f 0x99
0x16f…188 »// IFF ?9?/U GOTO COMPILE«
0x188…189 0x5f
0x189…18a 0x99
0x18a…1a3 »// LOCAL OFFSET-52,DATA-'«
0x1a3…1a4 0x08
0x1a4…1a5 0x81
0x1a5…1a6 »'«
0x1a6…1a7 0x56
0x1a7…1a8 0x9d
0x1a8…1c5 »// LOCAL OFFSET-52,DATA-'?1?'«
0x1c5…1c6 0x5b
0x1c6…1c7 0xa5
0x1c7…1ec »// IFF ?L'57,1'?/ GOTO SUBSTR ?8F'6'?«
0x1ec…1ed 0x53
0x1ed…1ee 0xa5
0x1ee…213 »// IFF ?L'56,1'?/ GOTO SUBSTR ?8F'5'?«
0x213…214 0x53
0x214…215 0xa5
0x215…23a »// IFF ?L'55,1'?/ GOTO SUBSTR ?8F'4'?«
0x23a…23b 0x53
0x23b…23c 0xa5
0x23c…261 »// IFF ?L'54,1'?/ GOTO SUBSTR ?8F'3'?«
0x261…262 0x53
0x262…263 0xa5
0x263…288 »// IFF ?L'53,1'?/ GOTO SUBSTR ?8F'2'?«
0x288…289 0x53
0x289…28a 0xa5
0x28a…2af »// IFF ?L'52,1'?/ GOTO SUBSTR ?8F'1'?«
0x2af…2b0 0x53
0x2b0…2b1 0x89
0x2b1…2ba »// RETURN«
0x2ba…2bb 0x6f
0x2bb…2bc 0x8d
0x2bc…2c9 »// TAG SUBSTR«
0x2c9…2ca 0x6b
0x2ca…2cb 0x98
0x2cb…2e3 »// IF ?1F'?L'52,?8?'?'?/«
0x2e3…2e4 0x60
0x2e4…2e5 0x8e
0x2e5…2f3 »// TAG COMPILE«
0x2f3…2f4 0x6a
0x2f4…2f5 0xa1
0x2f5…316 »// IF SWITCH8-1 LIBRC ?1?,?9?,?3?«
0x316…317 0x57
0x317…318 0x00
0x318…320 00 00 00 00 00 00 00 00 ┆␣␣␣␣␣␣␣␣┆
0x320…340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆
[…0x6…]