github.com/pkimpel.retro-b5500
1
0
Fork 0
mirror of https://github.com/pkimpel/retro-b5500.git synced 2026-02-14 04:04:29 +00:00
Code Releases Activity
Files
release-1.02
pkimpel.retro-b5500/tools/COLDSTART-XIII.card
Paul Kimpel f1fe18dab3 Commit release 1.02: 
1. Move project from Google Code to GitHub (https://github.com/pkimpel/retro-b5500/). Update links and help pages; convert wiki pages to GitHub's MarkDown format.
2. Implement emulator-hosted memory dump to a tape image that can be saved and input into the B5500 DUMP/ANALYZE utility for analysis. Activated by clicking the NOT READY button on the Console.
3. Fix bad assignments to Processor X register in arithmetic ops (affected only SyllableDebugger script).
4. Remove IndexedDB.openDatabase() version parameter so the B5500ColdLoader and tools/ scripts will work in non-Firefox browsers.
5. Add a "?db" query string parameter to the tools/scripts so these scripts can open disk subsystems other than B5500DiskUnit.
6. Correct pre-allocated file locations and ESU card in tools/COLDSTART-XIII.card.
7. Implement new double-click mechanism to copy and clear the contents of card punch, datacom terminal, and line-printer output areas to a temporary window for subsequent copying or saving.
8. Correct handling of Ctrl-B (break), Ctrl-D (disconnect request), Ctrl-E (WRU), Ctrl-L (clear input buffer), and Ctrl-Q (alternate end-of-message) in B5500DatacomUnit.
9. Implement reporting of Model IB (slow, bulk) disk in B5500DiskUnit readInterrogate.
10. Implement detection of browser IndexedDB quota-exceeded errors in B5500DiskUnit (primarily to handle the fixed 2GB limit for off-line storage in Firefox).
11. Correct problem when line printer exhausted paper and FORM FEED triple-click did not clear the condition.
12. Eliminate BOT marker sensed in result for tape drive Write Interrogate operation -- Mark XIII and XV MCPs treat this as an error and will not purge blank tapes because of it.
13. Fix double-click of SPO INPUT REQUEST button either sending a duplicate interrupt to the system or the second click moving focus from the SPO input box.
14. Further tuning of delay-deviation adjustment mechanism in B5500SetCallback.js.
15. Reinstate ability of SPO to wrap long outputs to additional lines (apparently lost with new SPO input mechanism in 1.00).
16. Commit preliminary COOLSTART-XIII.card and MCPTAPEDISK-XIII.card decks.
2015-06-14 19:06:27 -07:00

246 lines
18 KiB
Plaintext
Raw Permalink Blame History

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 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
View Git Blame Copy Permalink