|
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: 1536 (0x600)
Notes: FORM36, MEMBER_O
Names: »POP «
└─⟦b6618d966⟧ Bits:30009843 TYLIBR, POPLOAD, FMPGLIB, XMENU, FORIDA - Seebach Data Aps
└─⟦f46844993⟧
└─⟦this⟧ ».POP «
FormPointer36 {name=»POP «, f1=0x00, start=0x0002, length=0x04, f5=0x00, f6=0x00, f7=0x78, f8=0x80, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ COMMAND ╳␣␣␣␣␣␣␣␣␣␣␣␣S␣Y␣S␣T␣E␣M␣/␣3␣6␣␣␣␣␣␣␣␣␣␣␣╳ ╳INQUIRY╳ ␣␣ │
01│ ╳P␣R␣O␣G␣R␣A␣M␣M␣E␣R╳ ╳A␣N␣D╳ ╳O␣P␣E␣R␣A␣T␣O␣R╳ │
02│ ╳P␣R␣O␣D␣U␣C␣T␣I␣V␣I␣T␣Y╳ ╳A␣I␣D╳ │
03│ │
04│ Libraries 1. Display␣list␣of␣all␣libraries. │
05│ 2. Display␣members␣in␣current␣library. │
06│ 3. Prompt␣for␣name␣of␣library␣to␣display. │
07│ │
08│ Files 4. Display␣list␣of␣all␣data␣files. │
09│ 5. Prompt␣for␣name␣of␣file␣to␣display. │
10│ │
11│ Diskettes 6. Display␣list␣of␣files␣in␣Slot␣1. │
12│ 7. Display␣list␣of␣files␣in␣Magazine␣1. │
13│ 8. Prompt␣for␣location␣of␣diskette␣to␣display. │
14│ │
15│ Editor 9. Create␣or␣edit␣a␣source␣or␣procedure␣member. │
16│ 10. Print␣a␣source␣or␣procedure␣member. │
17│ │
18│ Tutorial 11. Display␣tutorial │
19│ │
20│ Ready␣for␣option␣number␣or␣command␣␣␣␣ ╳Cmd␣1-Resume␣job╳ Cmd␣3-Previous␣menu │
21│ ├┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴│
22│┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┤ │
23│ (c)␣1986␣IBM␣Corp. │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
0x000…018 Vector {FormPointer36 {name=»POP «, f1=0x00, start=0x0002, length=0x04, f5=0x00, f6=0x00, f7=0x78, f8=0x80, f9=0000000000000000}}
0x018…020 ff ff ff ff ff ff ff ff ┆ ┆
0x020…040 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
[…0xe…]
0x200…7db Form36 {
0x200…7db fh000 = 0x01 // 0x200 @0x0
0x200…7db fh00 = 2604 // 0x201 @0x1
0x200…7db fh01 = »YNN« // 0x203 @0x3
0x200…7db fh02 = 000000 // 0x206 @0x6
0x200…7db fh03 = »NNN« // 0x209 @0x9
0x200…7db fh04 = 0x0058 // 0x20c @0xc
0x200…7db fh05 = 0x032b // 0x20e @0xe
0x200…7db fh06 = 000080011800000000000000000000000000 // 0x210 @0x10
0x200…7db at0022 = 0xa000000f // 0x222 @0x22
0x200…7db at0026 = Form36LV {f00=0x50, f01=0x08, f22=001900024001} // 0x226 @0x26
0x200…7db at002e = Form36LV {f00=0x51, f01=0x12, f22=002800070201, f23=014500, f24=»N«, f25=00, f26=» «, f27=00, f28=»NYN«} // 0x22e @0x2e
0x200…7db at0040 = Form36LV {f00=0x51, f01=0x12, f22=02eb00100201, f23=152a00, f24=»N«, f25=00, f26=» «, f27=00, f28=»NYN«} // 0x240 @0x40
0x200…7db at0052 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x252 @0x52
0x200…7db panel = { // 0x258 @0x58
0x200…7db ┌────────────────────────────────────────────────────────────────────────────────┐
0x200…7db 00│ COMMAND ╳␣␣␣␣␣␣␣␣␣␣␣␣S␣Y␣S␣T␣E␣M␣/␣3␣6␣␣␣␣␣␣␣␣␣␣␣╳ ╳INQUIRY╳ ␣␣ │
0x200…7db 01│ ╳P␣R␣O␣G␣R␣A␣M␣M␣E␣R╳ ╳A␣N␣D╳ ╳O␣P␣E␣R␣A␣T␣O␣R╳ │
0x200…7db 02│ ╳P␣R␣O␣D␣U␣C␣T␣I␣V␣I␣T␣Y╳ ╳A␣I␣D╳ │
0x200…7db 03│ │
0x200…7db 04│ Libraries 1. Display␣list␣of␣all␣libraries. │
0x200…7db 05│ 2. Display␣members␣in␣current␣library. │
0x200…7db 06│ 3. Prompt␣for␣name␣of␣library␣to␣display. │
0x200…7db 07│ │
0x200…7db 08│ Files 4. Display␣list␣of␣all␣data␣files. │
0x200…7db 09│ 5. Prompt␣for␣name␣of␣file␣to␣display. │
0x200…7db 10│ │
0x200…7db 11│ Diskettes 6. Display␣list␣of␣files␣in␣Slot␣1. │
0x200…7db 12│ 7. Display␣list␣of␣files␣in␣Magazine␣1. │
0x200…7db 13│ 8. Prompt␣for␣location␣of␣diskette␣to␣display. │
0x200…7db 14│ │
0x200…7db 15│ Editor 9. Create␣or␣edit␣a␣source␣or␣procedure␣member. │
0x200…7db 16│ 10. Print␣a␣source␣or␣procedure␣member. │
0x200…7db 17│ │
0x200…7db 18│ Tutorial 11. Display␣tutorial │
0x200…7db 19│ │
0x200…7db 20│ Ready␣for␣option␣number␣or␣command␣␣␣␣ ╳Cmd␣1-Resume␣job╳ Cmd␣3-Previous␣menu │
0x200…7db 21│ ├┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴│
0x200…7db 22│┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┤ │
0x200…7db 23│ (c)␣1986␣IBM␣Corp. │
0x200…7db 24│ │
0x200…7db 25│ │
0x200…7db 26│ │
0x200…7db 27│ │
0x200…7db └────────────────────────────────────────────────────────────────────────────────┘
0x200…7db Panel5250 {
0x200…7db at0000 = ClearUnit {esc=04, cu=40} // 0x258 @0x0
0x200…7db at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x25a @0x2
0x200…7db at0006 = StartOfHeader {soh=01, len=0x03, extra=000001} // 0x25e @0x6
0x200…7db at000b = InsertCursor {ic=13, line=0x16, col=0x03} // 0x263 @0xb
0x200…7db at000e = SetBufferAddress {ic=11, line=0x16, col=0x02} // 0x266 @0xe
0x200…7db at0011 = StartField {sf=1d, ffw=0x5820, fcw=0x80ff, attr=0x20, len=0x0078} // 0x269 @0x11
0x200…7db at0019 = SetBufferAddress {ic=11, line=0x01, col=0x4e} // 0x271 @0x19
0x200…7db at001c = »␣␣« // 0x274 @0x1c
0x200…7db at001e = SetBufferAddress {ic=11, line=0x01, col=0x02} // 0x276 @0x1e
0x200…7db at0021 = »COMMAND« // 0x279 @0x21
0x200…7db at0028 = SetBufferAddress {ic=11, line=0x01, col=0x44} // 0x280 @0x28
0x200…7db at002b = Attribute {type=0x21} // 0x283 @0x2b
0x200…7db at002c = »INQUIRY« // 0x284 @0x2c
0x200…7db at0033 = Attribute {type=0x20} // 0x28b @0x33
0x200…7db at0034 = SetBufferAddress {ic=11, line=0x01, col=0x13} // 0x28c @0x34
0x200…7db at0037 = Attribute {type=0x22} // 0x28f @0x37
0x200…7db at0038 = »␣␣␣␣␣␣␣␣␣␣␣␣S␣Y␣S␣T␣E␣M␣/␣3␣6␣␣␣␣␣␣␣␣␣␣␣« // 0x290 @0x38
0x200…7db at0060 = Attribute {type=0x20} // 0x2b8 @0x60
0x200…7db at0061 = SetBufferAddress {ic=11, line=0x15, col=0x02} // 0x2b9 @0x61
0x200…7db at0064 = »Ready␣for␣option␣number␣or␣command␣␣␣␣« // 0x2bc @0x64
0x200…7db at008a = SetBufferAddress {ic=11, line=0x02, col=0x12} // 0x2e2 @0x8a
0x200…7db at008d = Attribute {type=0x22} // 0x2e5 @0x8d
0x200…7db at008e = »P␣R␣O␣G␣R␣A␣M␣M␣E␣R« // 0x2e6 @0x8e
0x200…7db at00a1 = Attribute {type=0x20} // 0x2f9 @0xa1
0x200…7db at00a2 = SetBufferAddress {ic=11, line=0x02, col=0x28} // 0x2fa @0xa2
0x200…7db at00a5 = Attribute {type=0x22} // 0x2fd @0xa5
0x200…7db at00a6 = »A␣N␣D« // 0x2fe @0xa6
0x200…7db at00ab = Attribute {type=0x20} // 0x303 @0xab
0x200…7db at00ac = SetBufferAddress {ic=11, line=0x02, col=0x30} // 0x304 @0xac
0x200…7db at00af = Attribute {type=0x22} // 0x307 @0xaf
0x200…7db at00b0 = »O␣P␣E␣R␣A␣T␣O␣R« // 0x308 @0xb0
0x200…7db at00bf = Attribute {type=0x20} // 0x317 @0xbf
0x200…7db at00c0 = SetBufferAddress {ic=11, line=0x03, col=0x18} // 0x318 @0xc0
0x200…7db at00c3 = Attribute {type=0x22} // 0x31b @0xc3
0x200…7db at00c4 = »P␣R␣O␣D␣U␣C␣T␣I␣V␣I␣T␣Y« // 0x31c @0xc4
0x200…7db at00db = Attribute {type=0x20} // 0x333 @0xdb
0x200…7db at00dc = SetBufferAddress {ic=11, line=0x03, col=0x32} // 0x334 @0xdc
0x200…7db at00df = Attribute {type=0x22} // 0x337 @0xdf
0x200…7db at00e0 = »A␣I␣D« // 0x338 @0xe0
0x200…7db at00e5 = Attribute {type=0x20} // 0x33d @0xe5
0x200…7db at00e6 = SetBufferAddress {ic=11, line=0x05, col=0x02} // 0x33e @0xe6
0x200…7db at00e9 = »Libraries« // 0x341 @0xe9
0x200…7db at00f2 = SetBufferAddress {ic=11, line=0x05, col=0x14} // 0x34a @0xf2
0x200…7db at00f5 = »1.« // 0x34d @0xf5
0x200…7db at00f7 = SetBufferAddress {ic=11, line=0x05, col=0x18} // 0x34f @0xf7
0x200…7db at00fa = »Display␣list␣of␣all␣libraries.« // 0x352 @0xfa
0x200…7db at0118 = SetBufferAddress {ic=11, line=0x06, col=0x14} // 0x370 @0x118
0x200…7db at011b = »2.« // 0x373 @0x11b
0x200…7db at011d = SetBufferAddress {ic=11, line=0x06, col=0x18} // 0x375 @0x11d
0x200…7db at0120 = »Display␣members␣in␣current␣library.« // 0x378 @0x120
0x200…7db at0143 = SetBufferAddress {ic=11, line=0x07, col=0x14} // 0x39b @0x143
0x200…7db at0146 = »3.« // 0x39e @0x146
0x200…7db at0148 = SetBufferAddress {ic=11, line=0x07, col=0x18} // 0x3a0 @0x148
0x200…7db at014b = »Prompt␣for␣name␣of␣library␣to␣display.« // 0x3a3 @0x14b
0x200…7db at0171 = SetBufferAddress {ic=11, line=0x09, col=0x02} // 0x3c9 @0x171
0x200…7db at0174 = »Files« // 0x3cc @0x174
0x200…7db at0179 = SetBufferAddress {ic=11, line=0x09, col=0x14} // 0x3d1 @0x179
0x200…7db at017c = »4.« // 0x3d4 @0x17c
0x200…7db at017e = SetBufferAddress {ic=11, line=0x09, col=0x18} // 0x3d6 @0x17e
0x200…7db at0181 = »Display␣list␣of␣all␣data␣files.« // 0x3d9 @0x181
0x200…7db at01a0 = SetBufferAddress {ic=11, line=0x0a, col=0x14} // 0x3f8 @0x1a0
0x200…7db at01a3 = »5.« // 0x3fb @0x1a3
0x200…7db at01a5 = SetBufferAddress {ic=11, line=0x0a, col=0x18} // 0x3fd @0x1a5
0x200…7db at01a8 = »Prompt␣for␣name␣of␣file␣to␣display.« // 0x400 @0x1a8
0x200…7db at01cb = SetBufferAddress {ic=11, line=0x0c, col=0x02} // 0x423 @0x1cb
0x200…7db at01ce = »Diskettes« // 0x426 @0x1ce
0x200…7db at01d7 = SetBufferAddress {ic=11, line=0x0c, col=0x14} // 0x42f @0x1d7
0x200…7db at01da = »6.« // 0x432 @0x1da
0x200…7db at01dc = SetBufferAddress {ic=11, line=0x0c, col=0x18} // 0x434 @0x1dc
0x200…7db at01df = »Display␣list␣of␣files␣in␣Slot␣1.« // 0x437 @0x1df
0x200…7db at01ff = SetBufferAddress {ic=11, line=0x0d, col=0x14} // 0x457 @0x1ff
0x200…7db at0202 = »7.« // 0x45a @0x202
0x200…7db at0204 = SetBufferAddress {ic=11, line=0x0d, col=0x18} // 0x45c @0x204
0x200…7db at0207 = »Display␣list␣of␣files␣in␣Magazine␣1.« // 0x45f @0x207
0x200…7db at022b = SetBufferAddress {ic=11, line=0x0e, col=0x14} // 0x483 @0x22b
0x200…7db at022e = »8.« // 0x486 @0x22e
0x200…7db at0230 = SetBufferAddress {ic=11, line=0x0e, col=0x18} // 0x488 @0x230
0x200…7db at0233 = »Prompt␣for␣location␣of␣diskette␣to␣display.« // 0x48b @0x233
0x200…7db at025e = SetBufferAddress {ic=11, line=0x10, col=0x02} // 0x4b6 @0x25e
0x200…7db at0261 = »Editor« // 0x4b9 @0x261
0x200…7db at0267 = SetBufferAddress {ic=11, line=0x10, col=0x14} // 0x4bf @0x267
0x200…7db at026a = »9.« // 0x4c2 @0x26a
0x200…7db at026c = SetBufferAddress {ic=11, line=0x10, col=0x18} // 0x4c4 @0x26c
0x200…7db at026f = »Create␣or␣edit␣a␣source␣or␣procedure␣member.« // 0x4c7 @0x26f
0x200…7db at029b = SetBufferAddress {ic=11, line=0x11, col=0x13} // 0x4f3 @0x29b
0x200…7db at029e = »10.« // 0x4f6 @0x29e
0x200…7db at02a1 = SetBufferAddress {ic=11, line=0x11, col=0x18} // 0x4f9 @0x2a1
0x200…7db at02a4 = »Print␣a␣source␣or␣procedure␣member.« // 0x4fc @0x2a4
0x200…7db at02c7 = SetBufferAddress {ic=11, line=0x13, col=0x02} // 0x51f @0x2c7
0x200…7db at02ca = »Tutorial« // 0x522 @0x2ca
0x200…7db at02d2 = SetBufferAddress {ic=11, line=0x13, col=0x13} // 0x52a @0x2d2
0x200…7db at02d5 = »11.« // 0x52d @0x2d5
0x200…7db at02d8 = SetBufferAddress {ic=11, line=0x13, col=0x18} // 0x530 @0x2d8
0x200…7db at02db = »Display␣tutorial« // 0x533 @0x2db
0x200…7db at02eb = SetBufferAddress {ic=11, line=0x15, col=0x29} // 0x543 @0x2eb
0x200…7db at02ee = Attribute {type=0x21} // 0x546 @0x2ee
0x200…7db at02ef = »Cmd␣1-Resume␣job« // 0x547 @0x2ef
0x200…7db at02ff = Attribute {type=0x20} // 0x557 @0x2ff
0x200…7db at0300 = SetBufferAddress {ic=11, line=0x15, col=0x3d} // 0x558 @0x300
0x200…7db at0303 = »Cmd␣3-Previous␣menu« // 0x55b @0x303
0x200…7db at0316 = SetBufferAddress {ic=11, line=0x18, col=0x3e} // 0x56e @0x316
0x200…7db at0319 = »(c)␣1986␣IBM␣Corp.« // 0x571 @0x319
0x200…7db }
0x200…7db }
0x200…7db }