mirror of
https://github.com/pkimpel/retro-b5500.git
synced 2026-02-13 11:44:33 +00:00
356fb5584e
1. Alter method of writing disk sectors to IndexedDB, to avoid dragging along the entire 16KB IO Unit buffer area and unintentionally inflating host disk usage by 30-60X (ouch). This was causing Quota Exceeded errors in recent versions of Firefox. 2. Add onabort traps in B5500DiskUnit to catch QuotaExceeded errors. 3. Modify delay-deviation adjustment mechanism in B5500SetCallback to avoid oscillating between positive and negative cumulative deviations. 4. Correct tape reel angular motion in B5500MagTapeDrive, especially during reverse tape movement. 5. Fix bug with reporting memory parity error during tape I/O, should that ever occur. 6. Reset CPA Algol Glyphs option in default system configuration template. 7. Allow tools/B5500LibMaintDecoder to examine an entire .bcd tape image file instead of just the first 64KB. 8. Add USE SAVEPBT to default options in tools/COLDSTART-XIII deck. 9. Eliminate extraneous "schema update successful" alert when altering a disk subsystem configuration. 10. Commit minor corrections to source/B65ESPOL/SOURCE.alg_m from Richard Fehlinger.
247 lines
18 KiB
Plaintext
247 lines
18 KiB
Plaintext
14M90+KI$|#0|00MM)290+JI"000000D4*342L05000V10JI18JI0)0)000S0QKI000W0HKI000,08KI000]=/1V082I08JI0417+E0M16+E[)|/EV+EBV+E}V+E?V*)*/}V000M16+E:)B/1VB),/4V4J1>50JI
|
|
00000000049DJA9YSI001J F2900SI8Y4A4(0)0)08/I00000?/I|0000+/I7Y000 +A2( B01000160
|
|
000000000U+A2(0)0Y+A2(000!+A2(001|0000000Q/IPBT0RSMSG000AUTOUNLDRNALL00001000170
|
|
00000000CODEOLAYCOREST00DATAOLAYHALT0000REMOTE00CEMESS00BATCHZIPNOBATCH001000200
|
|
00000000000000000000000000000000000000000000000000000000MOD3IOS00000000001000210
|
|
00000000OPTN0000~000000000000000000000000000000000000000000000000000000001000220
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000230
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000240
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000250
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000260
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000270
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000300
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000310
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000320
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000330
|
|
00000000Q00000000000000000000000000000000000000000000000000000000000000001000340
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000350
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000360
|
|
0000000000000000000000000000000000000000Q ?0006SQ :0006]Q W0007@Q ?0008101000370
|
|
00000000Q }0008:" 60008&" ?0008K= 80008;]T(0003(= .0009}= 2000#]= I0008W01000400
|
|
00000000= &0009R= @000#5= 7000#+= 6000#G= G000#(= #000#U] B0000B400?AJ0401000410
|
|
000000008I8&4A1Y9-JA#H+A001J0?11884A4J8#MJ8!000000001*|$|50R108#831J1!S)01000420
|
|
00000000#/#V8U4A8#1!11884A8#8+4A8#1Y11884A8#831J1YS)#/#V8 4A8#2|11884A8#01000430
|
|
00000000831J1YS)#/#V944A8#2|11884A8#831J&8S)#/#V904A8#&811884A8#831J1YS)01000440
|
|
00000000#/#V984A8#2|11884A8#8?4A8#2|11884A008H4AD98#831J0QS)#/#V8Y4A8#8|01000450
|
|
000000004A4J8K>B0)#<4J8K0Q11MJ2!%-104J9U+A#O8M8A+E11KI0&SIE-KI7HKIMQKI2Y01000460
|
|
00000000SIA?KI2!SI+!KI4|SI5 KI1+SI30KI0QSI0)0)0)4J089"001J>F0)#<DI|):N0001000470
|
|
00000000ME04AIDI|):N0D1I400?AJ>+KI0)0)0)2|00|0007|0000004J#S8#8|4A5MJI4J01000500
|
|
000000003U#>008X4J#$8E4A008W0+2E008W04KE2:0&2I008X048E4A14/I7YJI4J#$8&4A01000510
|
|
000000008<1?118D4A8MJI0+8T0+8X4J#$8E8A8E4A9DJI4J3U#>1?8T},0)+E4J#$31}]0)01000520
|
|
00000000H1}]0)41318E4A1?8S+20)KE0HBI1?8T+20)8E4A1-KI0)0)00000800000000+001000530
|
|
00000000000002001?8S+F0)2E0H2I1?8T+F0)8E4A:DJI0)00000700088T4J#$8E4A54KI01000540
|
|
000000004J#$8Q4A8$04KE8$0 2E2:1:2YAI4J34#>4J#$9?JA4J34#>4J#$8-4A8$04319S01000550
|
|
000000009>119?JA8;0+Y100ME8;6+Y1004E8;I0Y100ME2:4:8$0?1E4:08BI9>04119?JA01000560
|
|
000000008;6+Y1]|419>119?JA4J9}048TMJ2*8W104J3-#>C|JI4J9Y+A#O9HJA9.302E0D01000570
|
|
000000002I9.2|319HJA0HKI304J#$319HJA9.004E4&AI049|JA080UKI0)0)0)009K2)1/01000600
|
|
00000000;V9|JA9O04119M8A9.2E0?AI008T008S9K2:8E4A4DJI000USI0)0)0)004J008L01000610
|
|
00000000##9|JA9K0&JE5+AI4J8K9K1 8.319O119@MJ3*2L0H8!0 7}2L0"104J9O01000620
|
|
0000000000ME0?2I3404SI3Q#>9O04119M8A042E0UAI8<00KE0DBI4J0H9"001JD60)#<6?01000630
|
|
00000000/I0)0)0)7|0000000M974J#$8E4A4J20#>0|974J#$8E4A4J3Q#>0?979>9>Q)+/01000640
|
|
00000000BV4J#$S)2/#V8I8E4A0+97008E4A0M969&JA4J3-#>0424KI8#8|4A4J8KEO0)#<01000650
|
|
000000004J9U+A#O00ME7+AI8#8|4A0M9O11974J#$8E4A4J3-#>9O04119M8A9<2E0MAI9O01000660
|
|
0000000010KI0)0)2|00|0000M9O1197008E4A9O04119M8A1+2E0?AI0097448E4A0&970|01000670
|
|
00000000969<4104318E4A8.08118H4A4J8F8.08H13194+A#K8.1YME0U2I4J8F98+A#K8F01000700
|
|
0000000010118D4A008H4AO-JI0+8SG>0)KE0H2I0+8TG>0)8E4A108T0!8E4A8<00KE0HBI01000710
|
|
000000004J0H9"001JGB0)#<9D/I0)0)000000G&7|000000048X8<8E4A008W0+2E008W0401000720
|
|
00000000KE2:0D2I008X048E4A4J008U+A#K1 8.319@4 8E4A1U8.319@008E4A0)0)0)0)01000730
|
|
00000000000?KI8.04118H8A008W0431JE0?BI4J8<8.318 +A#K1DJI389&JA9<8<008W3101000740
|
|
00000000KE10BI4J9<94+AMJ2B8W109<8<008W319<319&KA3!1E0DBI4J94+A001JI60)#<01000750
|
|
000000000DSI0)0)1|007Y004J94+A001JI<0)9<Y)L/6V#<3!119&JA3!JI0)0)1|00000001000760
|
|
000000004J8<041194+AMJ2B8W104J94+A001JI]0)#<4J8F98+A#K000+SI0)0)1J.00H0001000770
|
|
000000008.8T008E4A8.04118H8A1U2E0?AI4J009"001J.;0)#<009DJA4J8B.S0)#<9F0801001000
|
|
000000004E0DBI4J8B10MJ2*D5100DSI7|0000002|05|0004J#0+A10MJ2*}510000?AJ0001001010
|
|
0000000008AJ.0/I0000BI00000000000000000~0000000%0000001.0000001Y0000002G01001020
|
|
000000000000002V0000003D0000003T0000004A0000004 0000005>00000000FILE000001001030
|
|
00000000FENCE000STOP0000ESU00000USE00000DATE0000TYPE0000OPTN0000DIRECTOR01001040
|
|
00000000DRCTRYTPSYSTEMS0~000000000000000DRA00000DRB00000BOJ00000EOJ0000001001050
|
|
00000000OPEN0000TERMNATEDATE0000TIME0000ONEBREAKAUTOPRNTCLEARWRSDISCONDC01001060
|
|
00000000CMPLFILECLOSE000ERRORMSGRET00000LIBMSG00SCHEDMSGSECMSG00DSKTOG0001001070
|
|
00000000RELTOG00PBDREL00CHECK000DISKMSG0DISKLOG0LIBERR00PBDONLY0SAVEPBT001001100
|
|
00000000RSMSG000AUTOUNLDRNALL000CODEOLAYCOREST00DATAOLAYHALT0000REMOTE0001001110
|
|
00000000CEMESS00BATCHZIPNOBATCH0000000000000000000000000000000000000000001001120
|
|
0000000000000000MOD3IOS000000000OPTN0000~000000000000000000000000000000001001130
|
|
0000000000000000DIRECTRY BUILT~ INCORRECT CARD~0 ERROR ~ DIRECTOR01001140
|
|
00000000YTOP NOT SET~ LOADER LOADED ALREADY~ 4J041{4A1{0008M9290?JI0)01001150
|
|
00000000J)#N00ME0 1I1 0UMJ142*35102&JI0)0S1?JI0)0W1&JI0)0,1-JI0)0]1!JI0)01001160
|
|
00000000R|00PY204J8410MJ2*14+$!5!50R10D93*1L0H3:2*8I1|~D2N0K8P248>2?3*1L01001170
|
|
000000000/1N}{5J00142*351*5I0; D2N1I4{"D}N1IA$1I1|"D6N2:241!0 0OBP0R0K}P01001200
|
|
00000000A<@NA$1I1|A<1N2P0O5P0R>{2P1I1K4J2:142B150000PY20004J008L##044E0801001210
|
|
000000002I#BKI0)Y64J8KMJ1*1H367>1/1N1K3J10082I#BKI4(1N2P00Y#Y61JY44AY7M901001220
|
|
000000004J#.|44A|6Q)@N004E0&2I9F1:141I089DJAY#001E4+2I|6K)8N004E3U2I|6N)01001230
|
|
000000008N|63)DN0HME4:Y#831J+A20ME4:182IY#831J008E4AY#0411831J008E4A48JI01001240
|
|
000000001MKI|6N)8N|63)DN0QME4:Y#831J+A00ME4:082I0DKI4JY6#F5UJI4(00Y63)DN01001250
|
|
00000000Y44AY61YME0?2I/61MKIY60QME0?2I/214KIY60HME0?2I ]0MKIY60+ME0?2I ,01001260
|
|
0000000004KI ,|44A4J|60+9"MJ2B5I3"104J0+9"001J ;#<Y60QME0QBIDI|):N00ME0&01001270
|
|
000000001IDI|):N0D1I1QKI00000SPO00000CRA00000DKA00000DRA00000XXX7|00000001001300
|
|
0000000000SI4(G000Y4+A001:1JY44AY#1)?N|48A0+2IY#MIY84A4JY#Y4+A|:MJ2B8W1001001310
|
|
00000000|60&BI4JY4+A F9;S)#/#V9;1U111YH1Y)L/6V#<2!KI0)0)1|<1|8004JY4+A ;01001320
|
|
00000000#<8>831JY4+A831J+A8E4A4J8> K#<0)8>4JY4+A|:MJ3*8I8>5$ /1N1K0R3J1001001330
|
|
000000000?2I4J B#F4(0)0)1|<108001|<1|8001|00000000008K831J+A008:001:ME0401001340
|
|
00000000BI0 0DKI004J008L##|84A|#0 ME0?2I0 0&KI004J8KY4+A|##6|44A|62(1YH101001350
|
|
000000000000004J008L##|84A0)004J|#8KMJ2L0}1?1*462L0X10|44A|62(2I004J0M8%01001360
|
|
00000000|7MJ2*4I146>4$333$1~2N1U1P12130R0R10|62(9B0Q2I4J0M9"001J/##<000?01001370
|
|
000000001I4J048%0M8,8)CN4J#;8Y+A1JMJ3*2L05104J8Y+A001J W#<008,008E4)4/-V01001400
|
|
00000000004E2?1I8Y+A8!4A6!8Y+A1J8Y4A008%048E4A049+JA4J8Y+A001J F#<8!+A8Y01001410
|
|
000000004A4(0)0)7|0000002|#0|0001|007Y004J8.9@9 +AMJ2*1I7"1!0/1I7"9!0 RE01001420
|
|
00000000MOVED~108.9@0 8E4A4J9 +A001J ##<4(0)0)0)7|00000000#,KI|62(MJ2*1I01001430
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001001440
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001001450
|
|
00000000=000000#04*)H/}VY6044A4("000000:2*14"$"50R004J0O4J70100S0|JI000001000011
|
|
DRCTRYTP 2000 % START OF DIRECTORY AREA
|
|
DIRECT 3604 % END OF DIRECTORY AREA
|
|
ESU 2 % MAX NUMBER OF EUS
|
|
DATE 05/10/85 % CURRENT SYSTEM DATE
|
|
SYSTEMS = 1 % MUST BE 1 (FOR NOW)
|
|
FENCE = 16384 % USED BY TSMCP ONLY
|
|
FILE DIRCTRY/DISK, 1|1600, 999 % DIRECTORY ENTRY FOR DIRECTORY
|
|
2004
|
|
FILE SYSTEM/LOG, 1|5000, 999 % RESERVE SPACE FOR LOG
|
|
3609
|
|
FILE MCP/DISK, 1|1500, 999 % RESERVE SPACE FOR MCP CODE
|
|
8610
|
|
FILE DMPAREA/DISK, 1|100, 999 % RESERVE SPACE FOR MEM DUMP
|
|
10110
|
|
FILE RESERVE/DISK, 1|2000, 999 % RESERVE FOR NO-USER-DISK EVENT
|
|
10210
|
|
TYPE BOJ % PRINT BOJ MESSAGES
|
|
TYPE EOJ % PRINT EOJ MESSAGES
|
|
TYPE OPEN % PRINT FILE OPEN MESSAGES
|
|
USE TERMNATE % REMOVE TASKS FROM MEMORY AT EOJ (NORMALLY SET)
|
|
TYPE TIME % REQUIRE TIME TO BE ENTERED AT SPO AFTER HALT/LOAD
|
|
USE ONEBREAK % WRITE ALL BREAKOUTS TO A SINGLE TAPE
|
|
USE AUTOPRNT % PRINT BACKUP (SPOOLED) FILES BY DEFAULT
|
|
USE CLEARWRS % CLEAR WRITE-READY STATUS ON DATACOM STATIONS
|
|
TYPE CLOSE % PRINT FILE CLOSE MESSAGES
|
|
TYPE RET % PRINT TAPE VOLUME-RETENTION MESSAGES
|
|
TYPE LIBMSG % PRINT DUMP/LOAD/REMOVED, ETC. MESSAGES
|
|
TYPE SCHEDMSG % PRINT MESSAGE WHEN TASKS ARE SCHEDULED
|
|
TYPE SECMSG % PRINT FILE SECURITY MAINTENANCE MESSAGES
|
|
USE DSKTOG % PREVENT USER ACCESS BELOW USER DISK AREA
|
|
USE RELTOG % PREVENT USE OF ALGOL RELEASE ON DISK FILES
|
|
TYPE PBDREL % PRINT BACKUP FILE RELEASE MESSAGES IF NOT AUTOPRNT
|
|
TYPE DISKMSG % PRINT ALL DISK I/O RETRY MESSAGES
|
|
TYPE DISKLOG % DISK LOGGING(TSMCP ONLY)
|
|
TYPE LIBERR % PRINT LIB/MAINT ERROR MESSAGES (TSMCP ONLY)
|
|
USE PBDONLY % ASSIGN ALL PRINTER/PUNCH FILES TO BACKUP (SPOOLED)
|
|
USE SAVEPBT % REWIND AND SAVE PRINTER-BACKUP TAPES WHEN RELEASED
|
|
USE RSMSG % PRINT MESSAGE FOR FILE-ACCESSED FLAG CHANGES
|
|
USE RNALL % RUN ALL PSEUDO-READER DECKS (SHARED SYSTEMS ONLY)
|
|
USE COREST % LOG MEMORY USAGE STATS (STATISTICS ONLY)
|
|
USE HALT % HALT SYSTEM WHEN HALT-RECOMMENDED ERRORS OCCUR
|
|
USE CEMESS % PRINT LIB/MAINT MESSAGES FOR CANDE TASKS (TSMCP ONLY)
|
|
USE BATCHZIP % ZIP DECKS TO RUN UNDER BATCH CONTROL (TSMCP ONLY)
|
|
USE MOD3IOS % ASSUME WE HAVE MODEL-III I/O CONTROL UNITS (WE DO)
|
|
000000007|SI000000000000298>7HBI04/I0000000000000?/I00000+/I00000 +A2(0001000160
|
|
000000000U+A2(000Y+A2(000!+A2(00000000000Q/I0000000000000 /I00000U/I000001000170
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000200
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000210
|
|
00000000000000005&SI000000000000000000000000000000000000000000000000000001000220
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000230
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000240
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000250
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000260
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000270
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000300
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000310
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000320
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000330
|
|
00000000Q0000000000000000000000000000000= 20003X] B0000B= 70003Z= ?0004001000340
|
|
00000000400?AJ2H831J2H831J+A9#0)118E8A831J008E4A292H831J+A9>0)2E0DBI2H8301000350
|
|
000000001J008E4A0M/I0)0)0000010000000700048?JA8++A6+1J831J"!S)#/#V884A2401000360
|
|
00000000831J88+A*)HN8E4A24831J+A831J208E4A28831J0U8E4A4J>K0)24831J+A-E8.01000370
|
|
0000000000ME4!2I2D831J048#4)8N8E4A24831J+A831J>O0)2D831J+A!)Q/2V8E4A4J>$01000400
|
|
000000000)24831J+A-E8.0R24831J+A831J>;0)2D831J+A!)Q/2V8E4A4J>$0)24831J+A01000410
|
|
00000000-E8.0R28831J28831J+A2D831J+A0D41118E4A24831J+A831J008E4A2+831J4J01000420
|
|
0000000024831J+A>S0)1J8.8E4A2+831J+A00ME0DAI04831J088#8E4A2?831J048#8E4A01000430
|
|
0000000028831J+A8#834A8204831J+AJE0|BI2H831J>W0)8E4A2&831J>,0)8E4A2|831J01000440
|
|
00000000>]0)8E4A4J}20)8.0R000?1I20831J4M8E4A4J}60)2H831J+A2:8<20831J0Q8E01000450
|
|
000000004A4J}#0)2H831J+A2:8<20831J008E4A4J}>0)2H831J+A2:8<2H831J2H831J+A01000460
|
|
0000000020118E4A0U831J}B0)8E4A0Y831J}F0)8E4A0!831J}.0)8E4A820831834A822D01000470
|
|
00000000831J+A!)D/2V2?831J+A!)B/2V834A040?AJ0008AJ0U831JKI0414BI0DJI0)0)01000500
|
|
000000001|0|0000000000| 1|010000000000 1|00|800INVALID ADDRESS FOR MCP~01000510
|
|
000000007|00000O1|00PYK(1|00PY4%1|00J+0}4J2.10MJ2*14*$"5~50R10D9008FKI|601000520
|
|
000000002(00000000Y7M92+831J4J8B8E4A2+831J+AJ)CN|44A|60D4:00ME1|1I|62(0001000530
|
|
000000004J8220831J+A11Y6*)HNMJ2B148W10Y6831J+A5)8N0&2IY60 Z)3/5VY44A2+8301000540
|
|
000000001J4JY68.8E4A2+831J+A00ME101I4(000000000000000000000000000000000001000550
|
|
00000000=000000#04*)H/}VY6044A4("000000:2*14"$"50R004J0O4J70100S0|JI000001000011
|
|
STOP
|
|
%% THIS EXTRA CARD MUST BE HERE %%
|
|
14M90+KI$|#0|00MM)290+JI"000000D4*342L05000V10JI18JI0)0)000S0QKI000W0HKI000,08KI000]=/1V082I08JI0417+E0M16+E[)|/EV+EBV+E}V+E?V*)*/}V000M16+E:)B/1VB),/4V4J1>50JI
|
|
000000008YSI8D4A008T008E2900SI+A001J ]0008/I8F080?/I0?8]0+/I8F040 +A2(8]01000160
|
|
000000000U+A2(8T0Y+A2(4A0!+A2(001J B009>0Q/I831J0Y8,8E4A0 /I0)0)0U/I080001000170
|
|
000000001|0|0000000040001|00|8002B8W104(000009A 00000000000000000000000001000200
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000210
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000220
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000230
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000240
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000250
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000260
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000270
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000300
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000310
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000320
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000330
|
|
00000000Q00000000000000000000000000000000000000000000000000000000000000001000340
|
|
000000000000000000000000000000000000000000000000Q <0003WQ +0004DQ 50004M01000350
|
|
00000000= 200082= 60005-= &0005+= ?0004R= C0004V= 800058= 60005S= F0005Y01000360
|
|
00000000= :0006>= 70006[= N0006K= H00077= L0007~] B0000B90+A0D1J831J"!S)01000370
|
|
00000000#/#V8-4A8-+A001J8|4A8K#O0)118M4A8O#O0)11831J]|S)#/#V8 4A400?AJ4J01000400
|
|
000000009;041?KI000000+64J00@20)8$Z)3/5V@60)9>0R8$08118Q8A1!2E0DAI041+SI01000410
|
|
00000000000K000000000Q008-+A041J8$Z)3/5V8?4A4J8>?O0)?$0)9>K)CN00ME282I0401000420
|
|
000000008{+A?;0)|:8I001:ME8:088{+A088]8:001:ME4:0?8{+A?S0)8:001:ME4:1:1+01000430
|
|
000000002I4J8>?W0)?,0)9>0R8$08118Q8A1!2E18AI005|1I4J049F4J8>?O0)009>0R0401000440
|
|
000000003 KI0)0)0}"5|00000006Q000LABEL 0FILE000000K000000000Q008$8;008]01000450
|
|
000000008:001:ME8$04118;048]8:001:ME4:1:0DBI8$8;0 ME0?2I4J08968$08118Q8A01000460
|
|
00000000|02E0MAI4J8$04119F4J8>>20)009>0R4J9S0M8;04311YH104118+4A040DSI0)01000470
|
|
000000000}"5|0004J8>}>0)009>0R4J9B8$04118Q8A8B2E0+AI4J8>}B0)009>0R8#1M2I01000500
|
|
000000004J0?8"0H8%MJ}>D! TO DEFAULT ADDRESS=2*8W1!0~9}8#104J0?964J8U+A1001000510
|
|
00000000MJ2*D510000?AJ0008AJ>8/I0}"5|000000K00000000BI004J041{4A1{0008M901000520
|
|
00000000290?JI0)J)#N00ME0 1I1 0UMJ142*35102&JI0)0S1?JI0)0W1&JI0)0,1-JI0)01000530
|
|
000000000]1!JI0)R|00PY204J8410MJ2*14+$!5!50R10D900000000000000000000000001000540
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001000550
|
|
0000000000000000000000000000000000000000DISK FAILURE~000TAPE FAILURE~00001000560
|
|
00000000NO MCP FILE~0000MCP FILE LOADED~NOT IN DIRCTORY~LOADER ON DISK~ 01000570
|
|
00000000CRA FAILURE~ 00000000000000000MCP 0DISK 0SYSTEM 0000000001000600
|
|
0000000000000000000000Y>Y#2:Y84AY@M94J92|84A|#Y61:4:|?4A|>K)CN004E0+BI|>01000610
|
|
00000000N)8N1:08BI4JY#|@9#1:0&AI|#|44A|62(DISK~ 0000/#|44A4J8K|6009>0R8O01000620
|
|
00000000831J8K831J+A8E4A4J8O|604=)|/1V009>0R0)8K4J8OMJ3*8I8>3$S$ /1N1K0R01000630
|
|
000000000R3J100U2I|#0411|84A|#0D2E3H1I4J00964J?08KMJ2B8%104(0)0)1;413 0001000640
|
|
0000000000040+SI4J8> F .9>L)#N08AI|60411|48AY62E0+AI4(0)0001|0000000600001000650
|
|
000000000000Y6Q)@N004E082I042(Y6M)9N4-2IY63)DN0-BI041&KI4J8> K O9>0RY74J01000660
|
|
0000000000Y# <9>8E8AM)9N004E3Y2I|#0411|88A0D2E0&AI2+KI0)0003|0000000600001000670
|
|
000000000418KI0)Y74J00Y# O9>8E8AM)9N004E1|2I|#0411|88A0D2E0DAI4JY63)DN0Q01000700
|
|
00000000ME0?2I0H0?KIY#9)?N96|62(000020004J08Y6418%001J B009>0RY60?ME0D1I01000710
|
|
000000004(0)0)0)7|000000004J0M8T|7MJ2*4I146>4$333$1~2N1U1P12130R0R10|62(01000720
|
|
00000000008<0?2I4J0D964J048T0M8S8)CN4J9.8 +A1JMJ3*2L0510DI|):N0DBI4J8 +A01000730
|
|
00000000001J # >9>0R0UKI2|#0|00000003000008T0 8E4A008S008E4)4/-V004E3M1I01000740
|
|
000000008K|44A8 +A6!1J8|4A048&4A8K831J048E4A4J9B|68|4A4(0)004J8$0+8"MJ2*01000750
|
|
000000001>"$ D2N1I2P0O1P0R/D3N1I?{FP=D2N6{BP7$ D3N1!0 @P/D3N1!0 6P=D3N1!01000760
|
|
000000000 1P1"0R4:108Q4A4(8T0 8E4J9KY60|2I088"0+8]8E4A0YKI008"0+8]8E4A4J01000770
|
|
000000009K048"0+8]8E4A4(00008T008E4A4J8 +A001J S009>0R088S|4JA0)0)0)|60+01001000
|
|
00000000110?KI8B10118+4A044Y2I4J8C8 +AMJ2*8W104J8 +A001J >009>0R0038KI0)01001010
|
|
000000001|00|8001|00K000(!8F318S4 8:001:ME0?2I4J0+96(!8F318S008]8:001:ME01001020
|
|
000000000 2I<08F318S048]8:001:4E0-2I8F08118D8A1 2E0-AI5HJI0?8".!8F0!413101001030
|
|
000000008S8E8A00ME888A0D2I0?8" B8E4A4J0?8]0Y8%MJ2B8W104(000009A DI|):N4+01001040
|
|
000000002I8 +A001J8Q4A4J8 +A001J ]/29>0R008T+A008:001:ME04BI4J9<4J9K0+8]01001050
|
|
00000000 S8:001:ME0?2I4J009O0+8] $8:001:ME0?2I4J049ODI|):N00ME0+8] <8:0001001060
|
|
000000001:ME2:4+1I4J9$4(2|#0|000000030000FILE 0TAPE 0STOP 0-8{0?8]01001070
|
|
000000008E4A0D8{+E+AMI8E4A4J8B1 8F3108H1118-+AMJ2B8W104J8-+A001J/<009>0R01001100
|
|
00000000008T208E4A048T008E4A4J8 +A001J/B/B9>0R048S4)8N8D4A0-8F0D41118D4A01001110
|
|
00000000008T008E4A4J8 +A001J ]009>0R8F08118T0?8]8E4A8F04118T048]8E4A8F8T01001120
|
|
00000000008]8E4A4J8 +A001J B009>0R8K831J0Y8,8E4A4(0)0)0)1|<108001|0|000001001130
|
|
00000000000040001|00|800009WKI|62(4A0D8{0000000000000000000000000000000001001140
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001001150
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001001160
|
|
00000000000000000000000000000000000000000000000000000000000000000000000001001170
|
|
00000000=000000#04*)H/}VY6044A4("000000:2*14"$"50R004J0O4J70100S0|JI000001000011
|
|
TAPE = SYSTEM
|
|
FILE = MCP/DISK
|
|
STOP
|
|
?ADD FROM SYSTEM INT/DISK, PRNPBT/DISK, LDCNTRL/DISK -
|
|
,ALGOL/DISK -
|
|
,XALGOL/DISK -
|
|
,FORTRAN/DISK -
|
|
,COBOL/DISK -
|
|
,LOGOUT/DISK
|
|
?END |