IMD 1.16: 7/09/2007 11:29:46 SOFTECH MICROSYSTEMS UCSD p-System CPM40D.B CP/M READABLE BOOTER  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H SYSTEM.INTERP Can't find SYSTEM.INTERP M~# xY*9##~y y>{>2NŠ#N+ "! >Ӆ{*c"y2|g@2V*y*}"x*|ʿ΅>2z*c}o|g"F">2V:{F*m"xͼ*xMDz:oOp:pOu:{m͑p͌ʅ!z5ɅF:V*}*c"}:{¿*}*DM*m xʿ~#ò@*> >2{""""}"""}"g*}!*a*a*_Ņs#r#`i_ ~# x,*cMD!{2v:aGOW_RetS;_~+ͼʡ#o&N<µw#~6Bև3ۇև!ty*ST   O ~@# *Q:U :U2U7"Q"Sկ2U!XJ@ɯ2U!͜ͼ:Uc:UM;z!iq#6Ņq"}y @OSͼXʽO͎Orõ@OGͼJO͎Or> ._$-'*]d!Ņ>ŅÛ͛O ͛5> =5=Éy2,ÛÛÛ!Û:,=>$Ó':,҉*Y@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  PASBOOT BAK#PASBOOT PRN9 PASBOOT ASM# PASBOOT HEXHE UCSD PASCAL (TM) DISTRIBUTION DISK ; SECBOOT EQU 8200H ;BOOTSTRAP RUNS HERE INTERP$BASE EQU 0100H ;FIRST LOC USED BY TH1-JAN-80 DLB OPTIONS ADDED FOR USING DDT ; 5-DEC-80 SCK IV.0 modifications ; TRUE EQU 0FFFFH ;VALUE OF TRUE FALSE EQU PASBOOT COMSAMBOOT ASMeE INTERPRETER LOW$MEMORY EQU 0100H ;LOWEST AVAILABLE RAM LOCATION TRACKS EQU 77 ;NUMBER OF TRACKS PER DISK SECTORS EQU 26NOT TRUE ;VALUE OF FALSE ; DDT EQU FALSE ;DEBUGGING WITH DDT ? ; RELEASE EQU 'A' ;CURRENT RELEASE VERSION EQU '1' ;CU ;NUMBER OF SECTORS PER TRACK BYTES EQU 128 ;NUMBER OF BYTES PER SECTOR INTERLEAVE EQU 2 ;INTERLEAVING FACTOR (N X 1) FIRRRENT VERSION NUMBER ; BOOT EQU 0H ;LOCATION OF CP/M BOOT VECTOR BDOS EQU 5H ;CP/M ENTRY VECTOR TPA EQU 100H ;START OF; ; THIS PROGRAM READS IN THE SECONDARY BOOTSTRAP FROM TRACK 0, ; SECTORS 3-18 OF THE UCSD PASCAL (TM) DISTRIBUTION DISK, LOST$TRACK EQU 1 ;FIRST INTERLEAVED TRACK SKEW EQU 6 ;TRACK-TO-TRACK SKEW MAX$SECTORS EQU 26 ;MAXIMUM NUMBER OF SECTORS IN T USER AREA ; RDCON EQU 1 ;BDOS READ CONSOLE ROUTINE WRBUF EQU 9 ;BDOS WRITE BUFFER ROUTINE ; ; THE FOLLOWING REFER TO TADS ; UP THE STACK AND THEN EXECUTES THE SECONDARY BOOTSTRAP. ; ; 19-NOV-79 DLB ORIGINAL CREATION FROM OLD BOOTSTRAPS ; 1 ABLE MAX$BYTES EQU 128 ; MAXIMUM NUMBER OF BYTES PER SECTOR ; CR EQU 0DH LF EQU 0AH EOM EQU '$' ; ORG TPA ; MAIN: 17 ; FOR 17 SECTORS RR$LP: PUSH B ;SAVE BUFFER ADDRESS PUSH D ;SAVE SECTORS TO READ AND COUNT CALL SETDMA MVI C,0 ;SK PUSH H PUSH D ;TOP OF AVAILABLE RAM LXI H,LOW$MEMORY ;BOTTOM OF AVAILABLE RAM PUSH H LHLD BOOT+1 ;SBIOS ADDRESS ('[',RELEASE,VERSION,']',CR,LF,EOM DISK$MSG: DB CR,LF,'INSERT PASCAL DISK INTO DRIVE A, ' DB 'THEN TYPE ',EOM READIUNORTHODOX BIOSES DAD D ;MUST BE A WORD BOUNDARY ENDIF SPHL ;RESET THE STACK XCHG ;SAVE TOP OF AVAILABLE RAM LXI -REG) MVI E,21H-03H JMP BIOS ; SETDMA: ;SET DATA TRANSFER ADDRESS (BC-REG) MVI E,24H-03H JMP BIOS ; READ: ;REA ;LET'S BOOT UCSD PASCAL ; LXI D,VERSION$MSG ;TELL HIM WHICH VERSION THIS IS CALL MESSAGE$OUT ; CALL REQUEST$DISK ;GETSET FOR TRACK 0 CALL SETTRK POP B ;GET SECTOR BACK INTO C PUSH B ;SAVE ACROSS CALL CALL SETSEC MVI C,0 ;SELECT THE JMP WBOOT) PUSH H LXI H,INTERP$BASE ;STARTING ADDRESS OF THE INTERPRETER PUSH H ; JMP SECBOOT ;ENTER 'SECBOOT' ; REQNG$MSG: DB CR,LF,'READING SECONDARY BOOTSTRAP',EOM BOOTING$MSG: DB CR,LF,'BOOTING TO UCSD PASCAL',CR,LF,EOM ; END START H,MAX$BYTES ;MAXIMUM NUMBER OF BYTES PER SECTOR PUSH H LXI H,MAX$SECTORS ;MAXIMUM NUMBER OF SECTORS IN TABLE PUSH H LXI D A SECTOR TO THE DATA AREA MVI E,27H-03H ; ; JUMP TO THE CBIOS VECTOR WHOSE OFFSET IS IN E AND WHOSE ; BASE ADDRESS IS AT PASCAL DISK IN DRIVE A ; LXI D,READING$MSG ;TELL HIM WE'RE READING THE BOOTSTRAP CALL MESSAGE$OUT CALL READ$BOOT ;READ IDRIVE CALL SELDSK CALL READ ;AND READ THE DATA POP D POP B LXI H,BYTES ;ADVANCE BUFFER ADDRESS DAD B MOV B,H MUEST$DISK: ;ASK FOR PASCAL DISK LXI D,DISK$MSG CALL MESSAGE$OUT RD$LOOP: ;THEN WAIT FOR A CR MVI C,RDCON CALL BDOS  H,SKEW ;TRACK-TO-TRACK SKEW PUSH H LXI H,FIRST$TRACK ;FIRST INTERLEAVED TRACK PUSH H LXI H,INTERLEAVE ;INTERLEAVING FAC (BOOT+1). CBIOS ROUTINE WILL DO THE ; RETURN ; BIOS: MVI D,0 LHLD BOOT+1 DAD D PCHL ; ; OUTPUT THE MESSAGE POINTN THE BOOTSTRAP ; LXI D,BOOTING$MSG ;TELL HIM WE'RE GOING TO BOOT NOW CALL MESSAGE$OUT ; IF DDT LHLD BDOS+1 ;GET CURROV C,L INR E ;ADVANCE SECTOR COUNT DCR D ;ALL SECTORS IN ? JNZ RR$LP RET ;LEAVE, WHEN DONE ; SELDSK: ;SELECT DI CPI CR JNZ RD$LOOP RET ; READ$BOOT: LXI B,SECBOOT ;READ 'SECBOOT' HERE MVI E,3 ;SECBOOT STARTS ON SECTOR 3 MVI D,TOR PUSH H LXI H,BYTES ;BYTES PER SECTOR PUSH H LXI H,SECTORS ;SECTORS PER TRACK PUSH H LXI H,TRACKS ;TRACKS PER DIED TO BY DE ; MESSAGE$OUT: MVI C,WRBUF JMP BDOS ; VERSION$MSG: DB CR,LF,LF,'UCSD PASCAL (IV.0) BOOTER VERSION ' DB ENT TOP OF RAM IF DDT IN ENDIF IF NOT DDT LHLD BOOT+1 ;GET CURRENT TOP OF AVAILABLE RAM+3 LXI D,-3-14 ;LEAVE ROOM FOR SK (C-REG) MVI E,1BH-03H JMP BIOS ; SETTRK: ;SET TRACK (C-REG) MVI E,1EH-03H JMP BIOS ; SETSEC: ;SET SECTOR (C ADS ; UP THE STACK AND THEN EXECUTES THE SECONDARY BOOTSTRAP. ; ; 19-NOV-79 DLB ORIGINAL CREATION FROM OLD BOOTSTRAPS ; 1 ;DEBUGGING WITH DDT ? ; 0041 = RELEASE EQU 'A' ;CURRENT RELEASE 0031 = VERSION EQU '1' ABLE MAX$BYTES EQU 128 ; MAXIMUM NUMBER OF BYTES PER SECTOR ; CR EQU 0DH LF EQU 0AH EOM EQU '$' ; ORG TPA ; MAIN: S 3-18 OF THE UCSD PASCAL (TM) DISTRIBUTION DISK, LOADS ; UP THE STACK AND THEN EXECUTES THE SECONDARY BOOTSTRAHE UCSD PASCAL (TM) DISTRIBUTION DISK ; SECBOOT EQU 8200H ;BOOTSTRAP RUNS HERE INTERP$BASE EQU 0100H ;FIRST LOC USED BY TH1-JAN-80 DLB OPTIONS ADDED FOR USING DDT ; 5-DEC-80 SCK IV.0 modifications ; TRUE EQU 0FFFFH ;VALUE OF TRUE FALSE EQU  ;CURRENT VERSION NUMBER ; 0000 = BOOT EQU 0H ;LOCATION OF CP/M BOOT VECTOR 0005 = BDOS  ;LET'S BOOT UCSD PASCAL ; LXI D,VERSION$MSG ;TELL HIM WHICH VERSION THIS IS CALL MESSAGE$OUT ; CALL REQUEST$DISK ;GETP. ; ; 19-NOV-79 DLB ORIGINAL CREATION FROM OLD BOOTSTRAPS ; 11-JAN-80 DLBE INTERPRETER LOW$MEMORY EQU 0100H ;LOWEST AVAILABLE RAM LOCATION TRACKS EQU 77 ;NUMBER OF TRACKS PER DISK SECTORS EQU 26NOT TRUE ;VALUE OF FALSE ; DDT EQU FALSE ;DEBUGGING WITH DDT ? ; RELEASE EQU 'A' ;CURRENT RELEASE VERSION EQU '1' ;CUEQU 5H ;CP/M ENTRY VECTOR 0100 = TPA EQU 100H ;START OF USER AREA ; 0001 = RDCON EQU 1  PASCAL DISK IN DRIVE A ; LXI D,READING$MSG ;TELL HIM WE'RE READING THE BOOTSTRAP CALL MESSAGE$OUT CALL READ$BOOT ;READ I OPTIONS ADDED FOR USING DDT ; 5-DEC-80 SCK IV.0 modifications ; FFFF = TRUE EQU ;NUMBER OF SECTORS PER TRACK BYTES EQU 128 ;NUMBER OF BYTES PER SECTOR INTERLEAVE EQU 1 ;INTERLEAVING FACTOR (N X 1) FIRRRENT VERSION NUMBER ; BOOT EQU 0H ;LOCATION OF CP/M BOOT VECTOR BDOS EQU 5H ;CP/M ENTRY VECTOR TPA EQU 100H ;START OF; ; THIS PROGRAM READS IN THE SECONDARY BOOTSTRAP FROM TRACK 0, ; SECTORS 3-18 OF THE UCSD PASCAL (TM) DISTRIBUTION DISK, LON THE BOOTSTRAP ; LXI D,BOOTING$MSG ;TELL HIM WE'RE GOING TO BOOT NOW CALL MESSAGE$OUT ; IF DDT LHLD BDOS+1 ;GET CURR 0FFFFH ;VALUE OF TRUE 0000 = FALSE EQU NOT TRUE ;VALUE OF FALSE ; 0000 = DDT EQU FALSE ST$TRACK EQU 1 ;FIRST INTERLEAVED TRACK SKEW EQU 0 ;TRACK-TO-TRACK SKEW MAX$SECTORS EQU 26 ;MAXIMUM NUMBER OF SECTORS IN T ; ; THIS PROGRAM READS IN THE SECONDARY BOOTSTRAP FROM TRACK 0, ; SECTOR USER AREA ; RDCON EQU 1 ;BDOS READ CONSOLE ROUTINE WRBUF EQU 9 ;BDOS WRITE BUFFER ROUTINE ; ; THE FOLLOWING REFER TO T ENT TOP OF RAM IF DDT IN ENDIF IF NOT DDT LHLD BOOT+1 ;GET CURRENT TOP OF AVAILABLE RAM+3 LXI D,-3-14 ;LEAVE ROOM FOR SK (C-REG) MVI E,1BH-03H JMP BIOS ; SETTRK: ;SET TRACK (C-REG) MVI E,1EH-03H JMP BIOS ; SETSEC: ;SET SECTOR (C17 ; FOR 17 SECTORS RR$LP: PUSH B ;SAVE BUFFER ADDRESS PUSH D ;SAVE SECTORS TO READ AND COUNT CALL SETDMA MVI C,0 ;SK PUSH H PUSH D ;TOP OF AVAILABLE RAM LXI H,LOW$MEMORY ;BOTTOM OF AVAILABLE RAM PUSH H LHLD BOOT+1 ;SBIOS ADDRESS ('[',RELEASE,VERSION,']',CR,LF,EOM DISK$MSG: DB CR,LF,'INSERT PASCAL DISK INTO DRIVE A, ' DB 'THEN TYPE ',EOM READIUNORTHODOX BIOSES DAD D ;MUST BE A WORD BOUNDARY ENDIF SPHL ;RESET THE STACK XCHG ;SAVE TOP OF AVAILABLE RAM LXI -REG) MVI E,21H-03H JMP BIOS ; SETDMA: ;SET DATA TRANSFER ADDRESS (BC-REG) MVI E,24H-03H JMP BIOS ; READ: ;REASET FOR TRACK 0 CALL SETTRK POP B ;GET SECTOR BACK INTO C PUSH B ;SAVE ACROSS CALL CALL SETSEC MVI C,0 ;SELECT THE JMP WBOOT) PUSH H LXI H,INTERP$BASE ;STARTING ADDRESS OF THE INTERPRETER PUSH H ; JMP SECBOOT ;ENTER 'SECBOOT' ; REQNG$MSG: DB CR,LF,'READING SECONDARY BOOTSTRAP',EOM BOOTING$MSG: DB CR,LF,'BOOTING TO UCSD PASCAL',CR,LF,EOM ; END START H,MAX$BYTES ;MAXIMUM NUMBER OF BYTES PER SECTOR PUSH H LXI H,MAX$SECTORS ;MAXIMUM NUMBER OF SECTORS IN TABLE PUSH H LXI D A SECTOR TO THE DATA AREA MVI E,27H-03H ; ; JUMP TO THE CBIOS VECTOR WHOSE OFFSET IS IN E AND WHOSE ; BASE ADDRESS IS ATDRIVE CALL SELDSK CALL READ ;AND READ THE DATA POP D POP B LXI H,BYTES ;ADVANCE BUFFER ADDRESS DAD B MOV B,H MUEST$DISK: ;ASK FOR PASCAL DISK LXI D,DISK$MSG CALL MESSAGE$OUT RD$LOOP: ;THEN WAIT FOR A CR MVI C,RDCON CALL BDOS  H,SKEW ;TRACK-TO-TRACK SKEW PUSH H LXI H,FIRST$TRACK ;FIRST INTERLEAVED TRACK PUSH H LXI H,INTERLEAVE ;INTERLEAVING FAC (BOOT+1). CBIOS ROUTINE WILL DO THE ; RETURN ; BIOS: MVI D,0 LHLD BOOT+1 DAD D PCHL ; ; OUTPUT THE MESSAGE POINTOV C,L INR E ;ADVANCE SECTOR COUNT DCR D ;ALL SECTORS IN ? JNZ RR$LP RET ;LEAVE, WHEN DONE ; SELDSK: ;SELECT DI CPI CR JNZ RD$LOOP RET ; READ$BOOT: LXI B,SECBOOT ;READ 'SECBOOT' HERE MVI E,3 ;SECBOOT STARTS ON SECTOR 3 MVI D,TOR PUSH H LXI H,BYTES ;BYTES PER SECTOR PUSH H LXI H,SECTORS ;SECTORS PER TRACK PUSH H LXI H,TRACKS ;TRACKS PER DIED TO BY DE ; MESSAGE$OUT: MVI C,WRBUF JMP BDOS ; VERSION$MSG: DB CR,LF,LF,'UCSD PASCAL (IV.0) BOOTER VERSION ' DB   ;BDOS READ CONSOLE ROUTINE 0009 = WRBUF EQU 9 ;BDOS WRITE BUFFER ROUTINE ; ; THE  ; IF DDT LHLD BDOS+1 ;GET CURRENT TOP OF RAM IF DDT IN ENDIF ; 0100 11B001 LXI D,VERSION$MSG ;TELL HIM WHICH VERSION THIS IS 0103 CDAB01 CALL MESSAGE$OUT ; 01 0142 210001 LXI H,LOW$MEMORY ;BOTTOM OF AVAILABLE RAM 0145 E5 PUSH H 0146 2A0100 LHLD BOOT+1 ;SBIOS ADDRE FACTOR (N X 1) 0001 = FIRST$TRACK EQU 1 ;FIRST INTERLEAVED TRACK 0000 = SKEW EQU 0 ;TRACK-TO-TRACK SKEW 0129 210000 LXI H,SKEW ;TRACK-TO-TRACK SKEW 012C E5 PUSH H 012D 210100 LXI H,FIRST$TRACK ;FIRST INTERLEAVEDFOLLOWING REFER TO THE UCSD PASCAL (TM) DISTRIBUTION DISK ; 8200 = SECBOOT EQU 8200H ;BOOTSTRAP RUN IF NOT DDT 0118 2A0100 LHLD BOOT+1 ;GET CURRENT TOP OF AVAILABLE RAM+3 011B 11EFFF LXI D,-3-14 ;LEAVE ROOM 06 CD5101 CALL REQUEST$DISK ;GET PASCAL DISK IN DRIVE A ; 0109 111302 LXI D,READING$MSG ;TELL HIM WE'SS (JMP WBOOT) 0149 E5 PUSH H 014A 210001 LXI H,INTERP$BASE ;STARTING ADDRESS OF THE INTERPRETER 014D E5  001A = MAX$SECTORS EQU 26 ;MAXIMUM NUMBER OF SECTORS IN TABLE 0080 = MAX$BYTES EQU 128 ; MAXIMUM NUMBER OF TRACK 0130 E5 PUSH H 0131 210100 LXI H,INTERLEAVE ;INTERLEAVING FACTOR 0134 E5 PUSH H 0135 218000 S HERE 0100 = INTERP$BASE EQU 0100H ;FIRST LOC USED BY THE INTERPRETER 0100 = LOW$MEMORY EQU 0100H ;LOWESTFOR UNORTHODOX BIOSES 011E 19 DAD D ;MUST BE A WORD BOUNDARY ENDIF 011F F9 SPHL ;RESET RE READING THE BOOTSTRAP 010C CDAB01 CALL MESSAGE$OUT 010F CD6201 CALL READ$BOOT ;READ IN THE BOOTSTRAP  PUSH H ; 014E C30082 JMP SECBOOT ;ENTER 'SECBOOT' ; REQUEST$DISK:  BYTES PER SECTOR ; 000D = CR EQU 0DH 000A = LF EQU 0AH 0024 = EOM EQU '$'  LXI H,BYTES ;BYTES PER SECTOR 0138 E5 PUSH H 0139 211A00 LXI H,SECTORS ;SECTORS PER TRACK 013C E5  AVAILABLE RAM LOCATION 004D = TRACKS EQU 77 ;NUMBER OF TRACKS PER DISK 001A = SECTORS EQU 26 ;NUMBER OFTHE STACK 0120 EB XCHG ;SAVE TOP OF AVAILABLE RAM 0121 218000 LXI H,MAX$BYTES ;MAXIMUM NUMBER OF BYTES PER SEC ; 0112 113102 LXI D,BOOTING$MSG ;TELL HIM WE'RE GOING TO BOOT NOW 0115 CDAB01 CALL MESSAGE$OUT  ;ASK FOR PASCAL DISK 0151 11DD01 LXI D,DISK$MSG 0154 CDAB01 CALL MESSAGE$OUT RD$LOOP: ;THEN WAIT ; 0100 ORG TPA ; MAIN: ;LET'S BOOT UCSD PASCAL PUSH H 013D 214D00 LXI H,TRACKS ;TRACKS PER DISK 0140 E5 PUSH H 0141 D5 PUSH D ;TOP OF AVAILABLE RAM  SECTORS PER TRACK 0080 = BYTES EQU 128 ;NUMBER OF BYTES PER SECTOR 0001 = INTERLEAVE EQU 1 ;INTERLEAVINGTOR 0124 E5 PUSH H 0125 211A00 LXI H,MAX$SECTORS ;MAXIMUM NUMBER OF SECTORS IN TABLE 0128 E5 PUSH H   FOR A CR 0157 0E01 MVI C,RDCON 0159 CD0500 CALL BDOS 015C FE0D CPI CR 015E C25701 JNZ RD$LOOP 0163A401 JMP BIOS ; READ: ;READ A SECTOR TO THE DATA AREA 01A2 1E24 MVI E,27H-03H  WHEN DONE ; SELDSK: ;SELECT DISK (C-REG) 018E 1E18 MVI E,1BH-03H 0190 C3A401 :1001000011B001CDAB01CD5101111302CDAB01CD29 :100110006201113102CDAB012A010011EFFF19F983 :10012000EB218000E5211A00E5210000E5210 PUSH B ;SAVE ACROSS CALL 0175 CD9801 CALL SETSEC 0178 0E00 MVI C,0 ;SELECT THE DRIVE 017A CD8E01 CALL JMP BDOS ; VERSION$MSG: 01B0 0D0A0A5543 DB CR,LF,LF,'UCSD PASCAL (IV.0) BOOTER VERSION ' 1 C9 RET ; READ$BOOT: 0162 010082 LXI B,SECBOOT ;READ 'SECBOOT' HERE 0165 1E03 ; ; JUMP TO THE CBIOS VECTOR WHOSE OFFSET IS IN E AND WHOSE ; BASE ADDRESS I JMP BIOS ; SETTRK: ;SET TRACK (C-REG) 0193 1E1B MVI E,1EH-03H 0195 C3A401 JM10016 :10013000E5210100E5218000E5211A00E5214D00BF :10014000E5D5210001E52A0100E5210001E5C30014 :100150008211DD01CDAB010E01CD05 SELDSK 017D CDA201 CALL READ ;AND READ THE DATA 0180 D1 POP D 0181 C1 POP B 0182 218000 LXI H, 01D6 5B41315D0D DB '[',RELEASE,VERSION,']',CR,LF,EOM DISK$MSG: 01DD 0D0A494E53 DB CR,LF,'INSERT PASCAL DISK  MVI E,3 ;SECBOOT STARTS ON SECTOR 3 0167 1611 MVI D,17 ; FOR 17 SECTORS RR$LP: 0169 C5 S AT (BOOT+1). CBIOS ROUTINE WILL DO THE ; RETURN ; BIOS: 01A4 1600 P BIOS ; SETSEC: ;SET SECTOR (C-REG) 0198 1E1E MVI E,21H-03H 019A C3A401 JMP 00FE0DC257B0 :1001600001C90100821E031611C5D5CD9D010E00E7 :10017000CD9301C1C5CD98010E00CD8E01CDA20158 :10018000D1C121800009444BYTES ;ADVANCE BUFFER ADDRESS 0185 09 DAD B 0186 44 MOV B,H 0187 4D MOV C,L 0188 1C INRINTO DRIVE A, ' 0200 5448454E20 DB 'THEN TYPE ',EOM READING$MSG: 0213 0D0A524541 DB CR,LF,'READING  PUSH B ;SAVE BUFFER ADDRESS 016A D5 PUSH D ;SAVE SECTORS TO READ AND COUNT 016B CD9D01 CALL SETDMA 016E 0MVI D,0 01A6 2A0100 LHLD BOOT+1 01A9 19 DAD D 01AA E9 PCHL ; ; OUTPBIOS ; SETDMA: ;SET DATA TRANSFER ADDRESS (BC-REG) 019D 1E21 MVI E,24H-03H 019F CD1C15C26901C91E1846 :10019000C3A4011E1BC3A4011E1EC3A4011E21C3B0 :1001A000A4011E2416002A010019E90E09C3050046 :1001B0000D0A0A55 E ;ADVANCE SECTOR COUNT 0189 15 DCR D ;ALL SECTORS IN ? 018A C26901 JNZ RR$LP 018D C9 RET ;LEAVE,SECONDARY BOOTSTRAP',EOM BOOTING$MSG: 0231 0D0A424F4F DB CR,LF,'BOOTING TO UCSD PASCAL',CR,LF,EOM E00 MVI C,0 ;SET FOR TRACK 0 0170 CD9301 CALL SETTRK 0173 C1 POP B ;GET SECTOR BACK INTO C 0174 C5 UT THE MESSAGE POINTED TO BY DE ; MESSAGE$OUT: 01AB 0E09 MVI C,WRBUF 01AD C30500  4353442050415343414C2028D3 :1001C00049562E302920424F4F5445522020564543 :1001D0005253494F4E205B41315D0D0A240D0A49AF :1001E0004! DMiäää!ä$*  UCSD PASCAL (IV.0) BOOTER VERSION [A1] $ INSERT PASCAL DISK INTO DRIVE A, E534552542050415343414C20444953AF :1001F0004B20494E544F20445249564520412C2013 :100200005448454E2054595045203C52455455526F :10 ; FOR YOUR SYSTEM, SET THE APPROPRIATE PARAMETERS DESCRIBING YOUR ; DISK ENVIRONMENT AND FINALLY WRITE A VERY LOW LEVEL DISK R10016 :10013000E5210100E5218000E5211A00E5214D00BF :10014000E5D5210001E52A0100E5210001E5C30014 :100150008211DD01CDAB010E01CD05E534552542050415343414C20444953AF :1001F0004B20494E544F20445249564520412C2013 :100200005448454E2054595045203C52455455526F :10THEN TYPE $ READING SECONDARY BOOTSTRAP$ BOOTING TO UCSD PASCAL $0210004E3E240D0A52454144494E472053454322 :100220004F4E4441525920424F4F54535452415023 :10023000240D0A424F4F54494E4720544F205543EAD ; ROUTINE TO ALLOW READING IN THE SECONDARY BOOTSTRAP AND YOUR ; CBIOS OFF THE DISK AND INTO RAM. ; THE PROGRAM 'CPMBOO00FE0DC257B0 :1001600001C90100821E031611C5D5CD9D010E00E7 :10017000CD9301C1C5CD98010E00CD8E01CDA20158 :10018000D1C1218000094440210004E3E240D0A52454144494E472053454322 :100220004F4E4441525920424F4F54535452415023 :10023000240D0A424F4F54494E4720544F205543F6 :0C02400053442050415343414C0D0A240C :0000000000 T' ON THE UCSD PASCAL DISTRIBUTION DISK WILL ; THEN USE THIS PROGRAM AND YOUR CBIOS TO GENERATE AN AUTOMATICALLY ; BOOTING UCSD1C15C26901C91E1846 :10019000C3A4011E1BC3A4011E1EC3A4011E21C3B0 :1001A000A4011E2416002A010019E90E09C3050046 :1001B0000D0A0A55; ; THIS PROGRAM IS A SKELETAL OUTLINE FOR A 128-BYTE PRIMARY ; BOOTSTRAP FOR AUTOMATICALLY BOOTING TO UCSD PASCAL (TM). ; F6 :0C02400053442050415343414C0D0A240C :0000000000 ͫQͫb1ͫ*!!!!!!!!M!*!ͫ W͓͎͘͢͝D PASCAL SYSTEM. ; BOOT EQU 8200H ; SECONDARY BOOTSTRAP LOADED HERE MSIZE EQU 64 ; MEMORY SIZE FOR ASSEMBLY BIAS EQU (MSIZ4353442050415343414C2028D3 :1001C00049562E302920424F4F5445522020564543 :1001D0005253494F4E205B41315D0D0A240D0A49AF :1001E0004 SET THE CORRECT ORIGIN FOR THIS PROGRAM FOR YOUR SYSTEM, SET ; 'MSIZE' FOR THE APPROPRIATE NUMBER OF KILOBYTES OF RAM MEMORY  ; 024C END START   E*1024)-01900H CBIOS EQU 1500H+BIAS ; ORIGIN POINT CPMB EQU 0000H+BIAS ; BASE OF CCP SECNUM EQU 16 ; SECONDARY BOOTSTRAP IS BOOT) PUSH D PUSH H ; STARTING ADDRESS OF INTERPRETER MVI A,0C3H ; PUT IN JMP TO SECONDARY BOOTSTRAP STA CPMB LXI H, SECTOR CALL READIT ; READ IN SECONDARY BOOTSTRAP LXI H,26 ; MAXIMUM NUMBER OF SECTORS IN TABLE PUSH H LXI H,6 ; TR16 SECTORS LONG SECSEC EQU 3 ; SECONDARY BOOTSTRAP ON THIS SECTOR BIOSNUM EQU 8 ; CBIOS IS 8 SECTORS LONG BIOSSEC EQU 19 ;BOOT SHLD CPMB+1 JMP CBIOS ; ENTER COLD BOOT ; ; READIT MUST READ THE NUMBER OF SECTORS SPECIFIED IN THE D ; REG, STARACK-TO-TRACK SKEW PUSH H LXI H,1 ; FIRST INTERLEAVED TRACK PUSH H LXI H,2 ; 2:1 INTERLEAVING PUSH H LXI H,128 ; B CBIOS IS ON THIS SECTOR ORG STARTING$ADDRESS ; WHATEVER IS RIGHT FOR YOUR SYSTEM PBOOT LXI H,CBIOS ; CBIOS GOES HERE TING AT THE SECTOR SPECIFIED IN THE E REG, INTO THE ; MEMORY LOCATION SPECIFIED IN THE HL PAIR. ; READIT ; ; PUT YOUR CODEYTES PER SECTOR PUSH H LXI H,26 ; SECTORS PER TRACK PUSH H LXI H,77 ; TRACKS PER DISK PUSH H LXI H,CBIOS-2 ; TOP OSPHL ; RESET THE STACK LXI D,(BIOSNUM SHL 8)+BIOSSEC ; D - # OF SECTORS TO READ ; E - STARTING SECTOR CALL READIT ;  IN HERE ; RET END F MEMORY (MUST BE WORD BOUNDARY) PUSH H LXI H,0100H ; BOTTOM OF MEMORY PUSH H LXI D,CBIOS+3 ; START OF THE SBIOS (JMP WREAD IN CBIOS LXI H,BOOT ; LOAD BOOT BASE ADDRESS LXI D,(SECNUM SHL 8)+SECSEC ;D - # OF SECTORS TO READ ; E - STARTING                    M!9~#&|=|'|$||:G!|DM||* ^*H SYSTEM.INTERP Can't find SYSTEM.INTERP M~# xY*9##~y y>{>2NŠ#N+ "! Ý>͏{ʬ*c"y2|͉ͬ2V*5*}"x*|{Ҋ>2z*c}o|g"">2V:{*m"x*xMD͘:oO͎:pO͓:{)͢,͝A!z5|ͧ…:VY*}*c"}ͫ:{{*}*DM*m x{~#nͱ*> |>|2{""""}"""}"͉*}!م*aم*aم*_مÁs#r#`i_ ~# x*cMD!Ԇ{2v:aGOW_!0< 0w!e *k:J!:vGE:aOԆz"s!_:q{2o:s<æ:g?о2o!:i=Â"q*s0^*q:aOԆ,}2p7:s p_hͺb*]مͿU!ممÁ>ÁˈĈĈĈ Ĉ ĈĈĈĈĈĈĈ!Ĉ$Ĉ'Ĉ*Ĉ> ɯ*YS@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ M!9~#( !ͩ!":2O0'${2z!uͺ×2!ͺ>ހ>ހ*:=T*!ź{́!ͩø22:O:<2̀22: GO:=O:<2! /<:,2ckI*! :w/#==*! :Ž/#TT!!#p!+ͺ!:x́!Eý!3ͺ*#"!ex́y!ṕ!Júͺ y ¬~ʁ#Oû݁w݁#w#Ɛ'@' :: =H**WritingReading track , sector Bad data transfer on track , sector Disk is not on line Testing disk Insert blank disks into all drives then hit the key. Error count = Test complete YY:r4  ap 4 ap j0 )) zv%y%)l%k.Dz(x B d;/ryZ&  Mq+$2  ? J A W ff< O z b  i , WWWWWW8 GK WWWWMyq x  3 2 WW  jWWWWWzm#Ììôäè  Ý WWWWWWWWWWWWCopyright (c) 1979, 1980 by the Regents of the University of California>2&!6>o>ڱ͛***.Ì.Ì.Ì.Ì.Ìi`"Z*MD.Ì. Ì. Ì. Ì*MD. Ì. Ì.Ì.Ì.Ó"D*"F.&"H*"B!>Ý*MDÝo& o&ڧ%^,V!<~# c!|2>2!" !P ?*MDÝo& o&ڧ%^,V o&Ý o gÝ!Ý_*^,VÝB_*Ý2_*s,rÝ@ *Ý@ *^,VÝ@ *s,rÝƢ_*^,VÝ@ *Ý@ *^,VÝ@ *s,rÝN @ TP \|YÝY^,VÝYs,rÝ@ Ýs,rÝ^,VÝ_^,VÝ@ ^,VÝ@ MD{=Ă )Ý 2*@ i`"::BKxʐ~#~# )BKxʐ~# _"*^,V&o)>o>g)9|R}b!9|a}i`" 2@ * _>'I:£:£ +^-V=—Ý +V-^=¥Ý@ **}o|gÝi`" ʝo&>'I})+V-^=Ý o&)9^,Vs,r#=Ý^Ý{wÝ _ i`"K ) o&E=oÐi`"CK^,VxdGjS]isszW{_i! ~_,~WÐi`"y! N#Fo{_zW}ڮo`ALbS\µo{_zWyOxG-µ{_zWy/w,x/wÐ??  ^,V@ ^,VÝs,rÝÝN Ýz>!Dm*^,VÝmz^!a*s,rͦÝ*!9s,r#*s,r#,#*yx*s,r#:w*~2+V-^"^,V#""^,V#"^,V"^,V"^,V-" *~2##^#V*"+F-N* MD+-+V-^""+V-^ÝÝÝp @ i`")DMp ~i`"O"^,V#{=ʪ i`"N,F"^,V^,V{<ʳ *MDí ^,V***MD {ozgÝ}o|gÝ}/o|/gÝ}/o&Ý#Ý+Ý|4 ÝÝMD͝ ÝMD͝ ÝMD͂ Ýᯕo>gÝ}o|gÝz] }|a y y zr {zz z i`"yHґ )Š y‡ ɯ«   x  {/oz/g {/_z/W7yoxgɯO>Gz + {/_z/W}o|g#ɯo>g o>g`i<) MD!xGyO){_zW3 4 # }H |[ !Ý}[ |H !Ýzs }|[ H [ H d |H [ }H [ Á ͼ ʬ !Ðͼ ڬ œ !Ðͼ ڜ ì ">22  * :2 #  * :2 #@ i`"BK* x:) }' +* ###:< {:   _W _ *^,V=U ɯO>Gi`"E#)9~"##f ҂ GOxʕ {w#zw#ˆ yʤ Gw#w#œ *Ðf ҳ Gx {/w#z/w#¸ *Ðf x {w#zw# *ÐO!9Ax w#w# *H+~+~ Ði`"E#)9N,#Y"!9xA AOy/<[ G{\ Q *Ð xʄ ] ,] #r ڌ 믑OE _ xʯ /] ,/] #› ڸ _ E _ ?믑OÖ i`"xo!o{zcyoxgyGM{o zg{2&&o>'k^#V;7=6x!{ G{_#zWxXS:w,w# Ð]#)9N,F#! EyoxgyGMEy_!O~h&###)y9,9EHÝ @ aOxGÝZuZÝ}Z|ZÝ}u|uZ o g MDÝҘÝ@ i`"*N,F#^,V#:xAOzS_|{zÐx}o|g)N,F:xAO* MDÝ"2/<_*^,V*^,V#>v:D>('rI>('>2:o&:2**yoxg*KB*!>('r*}=ʎi`"uÐi`"!" Ii`"!" I*!9""Ýi`"!"P i`"!"N " I**_^,V"^,V#""^,V#"^,V"^,V-{=*"^,V-" ~2##^#V*"> *"*"^,V!^,V->w,4-*!9r-s+V-^**{_zWs,r*̓*^,V,#4,4i`" o8 U͛*i`"oi`" 6 _!i|#4}4^#V{=4i`">o8 U͛*i`" o8N " U͛*i`""""rʡ:ڛ͛*Uä8***i`"*^,V*z{"8̓+V-^s,r@ "*" "}2|&}/<2)*^#V*+F+N*)9* MDÝ*MD **MD **MD **Av8][fW"կ=ڝ * i`"N ~# Ð*MDʬ Ü ڬ œ ì ڜ ì " )* 5*i`"*N2GKAyX#O: ^ s# iiÐ^ y~# ~# ŠŠÐ ^ y»+~ +~ ¶¶Ð}o|gÐ6^ {# {+ 6x)^ {# {+ **y_",#^,V""",#^,Vzʫ-+~-ʫ=ʉ=ʒ=ʀ*MD!ͮd*d_*^,V^,VͮdÐ:=+V-^_>W"+F-Ny+V-^*:w#:w  "%()++++AND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO ELSE END EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INTERFAC3LABEL MOD 'NOT &OF OR (PACKED +PROCEDURPROCESS 8PROGRAM !RECORD -REPEAT SET *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR WHILE WITH !)""""*> #wB*^#V**`b w_ʍ`s A}[ڇ0:ґ#wd*7{_zW*s#r*~<"}½|*,#! *ó*,#w#Ð*,#6,6ÐAO* N#Fi` ))6* """*J#.!**s#rÐc*^#V{=$!<* ^#V{=$!<zÝ!~=,ʔ#…>6,s#r,wr-sÝ~,V-^s,rÝ-m* s,r^,V*=r-s*ÛÝ,#~=, -+V-^s,r;V-^xs,r!6,6*="*,#;!6=2}=c,#:+bV-^MDI-s,r-y=q} |^,V6-6 !6m*̓**=x""ͦ*~=#*~_!^,VÝ>20Ð> > !>mÐ!""}">">"!">"!> > >!"""""m#^#V#~#"20*w*s#r*s#rÐ!">î!s!sw*"*4!!!O:O:ʮʮ*******_n$12**:Ez4>1>`>zy O:7::7q:4w#z+4q#:pP|1£:k!0!s>+|zN#ʝy!| ͹=Ï:±y±|͹|>y : >:G:2:/G:2:G:2:/G:2*_n$&,ë!ú!Ø!!2"<"/"B"ù""""""""^"^"a"l"twz}ÀMͻ"""">>{*"y2ͻ""2*g *"*|Ҽ>2*}o|g"4">2:4*"8!*MD":O":O":["^"s!5ʮ"·4:‹**" :­**DM* xʭ~#à"*> î>î2""""""""ͻ"*! * *  * ós#r#`i ~# x *MD!!{2:GOW_@ S b A <; b w!; *:| !:Gw :O!z"!:ʣ {2:< :?о2!:= ô "*b ^*:O!,}27: â" ͚"!ʔ"* "ʇ"! ó>ó"""" " """""""!"$"'"*"> ɯ*8! y SYSTEM.PASCALCan't find SYSTEM.PASCAL  H_?#"4}o|!#ʄ#"#!&"! s#r# •#[*!/#j ͛&!"0"6"2>222!"8!O#͛&!ͦ&!"!ͦ&*4*!!!*##~$ $> $>2#N/$#N+ "#M$#?$c$*" 6$!#>ô&*4*!!*^#V:#ƒ$zS_"*~2#«$>*^#Vs+r##=Ÿ$* ^#V:#¿$zS_"k#*##~#++%""!*4*+V+^*^#V!9*!9*s#r+++"*## $*^#V"##65,5 ^#V#N#Fo>g)9*s#r*4)!*!!9""*"^#V"^#V#N#Fo>g)9"*s#r*4*!)* ~&*&&{++&z &*&++&=%&V#^r+s*^#V+"* ~2##^#V*"*+V+^*##"*"DMq,p#,#,#,#",#0q,p-*k#"!"!"*"!">2ZÐ~# y›&s#r# y©&Oʹ&  m`WRMD74+'$!~{wqda[NKHB>71*&!{voj^TOIF<92.*&#~yvrnj_UQMC3/&"   tqmgdYVMGB<92.&" qgc`\VSPJGC@:63-' |xtolifc^[XUPKHEB?:70*!|yvspid\SID:2)" |ska]ZWPLGB?<741$ ~wsolh^XMC=6&ytmiaYVQ?94-#   | u p j g b Y U L > 5 #    } y s i [ Q > 8 4 . + % !      } x u q n g ` Y T M F A 8 1 +  } w t p m f _ [ X Q I = 1 , $     ~ r n e ^ X U K E B ? 6 0   pkh_\YVPKB?<960,)%"tqgb_XJE@/' rolg]SN1.%zwspmjaZWNKH?<930-%|yvpli^[XPB=:62.+(! @=:741.+(%"~|zxvtrpnljhfdb`^\ZXVTRPNLJHFDB@><:86420.,*(&$"   ~|zxvtrpnljhfdb`^\ZXVTRPNLJHFDB@><:86420.,*(&$"  'hdqnL2 vkgda\ wna\YVSNKHC@;52)$  }ukhe_YROD<95-# ~zrTLD<4,$ {"h"_"P"I"@":"3"0"$""""""!!!!D!=!j\VKD=fc`]"""""w"t"q"m"e"b"Y"T"L"F"C"="7"-"(" """" "!!!!!!!!!!!!!!!!!!!!!!!~!z!w!j!b!Z!R!G!A!4!0!,!%!! !!! } z t m h c _ Y U Q L H E = 4 1 - % "    {xtqngc`YSNG@852/,'$ ~{xuroliZWTQNKHEB?<9630-##""""""""""""""""""&&&&&&&&&|&y&v&h&c&T&Q&N&G&@&=&8&0&(&%&&%%%%%%%%%%%%%}%v%j%d%?%4%)%&%%%%$$$$$$$$$$$$t$h$d$U$N$4$ $$###################o#&&&p&&& &&%%%%%1%$$$$$$$~$z$a$\$Y$K$H$B$;$*$!$$$$##########~#S# ARYq. SYSTEM.PASCALQSYSTEM. !P ?KM.COMPILER\ + SYSTEM.FILER \+\ SYSTEM.EDITOR\\SYSTEM.ASSMBLER, B FILERPROBUFF1 BUFF2 NONBUFF1NONBUFF2NONBUFF3   g(FILERPROFILERPROFILERPROFILERPROFILERPRO'hSTANLEY8&l0/&4-@l4ABUFF1 9:f3rfӘrpq fq mj%%ql"i!00if!uhpq "!j$lqBB#131|1Jq1#v Fv :uvv vq q1qvqp qrpq q 6%% h p6 % 6 % k # 6 6 q uipq !q #fv 6 % q"fv՜6/%0/0 ć/0ʇ/0 0 D /Drpq % %//6 w/w/6w/qfrfr:qih:>H$(aq4`qiꆀ肀9Ԙ?86>`-r;`**: w*6w*r`q ))*)@*  dʇ<++.w+Aw+6w+*<@`r @:9q `r?fh`蘀w`Bw`w`Iw`Bw`Jw`Zw`Kw`w`Lw`@Z.FB98v q q .M:qNv v :u.v Sv q -UYqZ q B@,肀Z[9^8膀wp.ZFq9ha&  F88dw.wewhq iv sv 8 |v 8~   v Y  րPut in Insert destination disk:TransferrTo whereeTransferrblockss# of blocks to transferTransferr *SYSTEM.WRK... *SYSTEM.WRK..,:.,Save as  ? Save asTEXTTCODEETEXTT*.CODEOld code removed, Text file saved & CODEECode file savedSTX !  BUFF2 ] Hq `qil $k#00k1#$ppK$$#mj"%?1"pp)!ibq"v "v&v v"j$#l$ Ԏ!v*v vq5 h վ0v v  v v 4 F@ "x#x  0 01#x ppq 1!x ppq  ԕ"!x #!xq;?@q@LM5 y q q q v`W ( )-$5) .x5) y ..5) ) 5 o `\ 5 ( )-5) .y'..g.xo) ߚFv _v v,ev vʖ րmBad block scan ofScan forrblockssScan for how many blockssBlock  is bad bad blocksMoving SYSTEM.PASCALCrunchhFrom end of disk, blockStarting at block #forward back : cruncheddPlease re-boottBKk TNONBUFF1b+%+Jqq+;q 2|;qvJv :u+ %+v++!"h * *) ) H7v  v v = "v"vG&r qh c5 (rpq 5c-,+*)(5 y'i:5 i : %+!n,q]2|;-q v .u--5, .5, y.x.y.x('('.v .v (v. v-u/. w/v -u.  vHՀ=L.xv. vv /.w/v v 1.xv u/.w/v ? !վ:Ֆ5, y5 -v/u5 v"v =&v 'v/v 6v )v8v <v *v>v pq b b vrpq rHvDv vh1 1p"1Frh1 O1i!K81v!| Lv Nv !v :uv1Ov @v :uvWv <v :uv  ր_ < UNUSED >>Dir listing off#1:ListtWritingfilee filess, blocks usedd,  unused, in largest Vols on-line: # Root vol is - Prefix is - EVD tVNONBUFF2*`-rqq_`Әrpq `q ))****`rpq qFv :uZv v v肀 z`r*q Q.   v 'v v :u.v 98 v v C.$&%&3`-r98q'v q p 4v7@qAJqKTq)).w)Uw)Xq  4q\v `r4.e&fgh`w`hw`.w`w`q>?h`.w`w` iv v z kmqF.Z.j"hq i!"0.c"wcn.c"wc! q ."w..t,ux&{~h!} v v `piHqqv q  i!gqv v v q膀:肀 蘀ww蘀DqFv v q ԀbcF D3Jq3`ppq cv v BfHqqv SvvSRRvvvRR5R5 5 RSSRCqvSRdVVd VqVVqv q pap pT USRdVVdv Vv1dVp1dVpp 1dVppddv vkv vVq5RV5 yHUV5aayćTTTMɢ5 q aTVaTVćVUVV!ayqv  v v q pqYʁbcDZ aydVVdaVeeyWexXfTTf1Z TeyOTx0ȇeeyOTxćTT5 TW5T yTTWT5r VVyqv fi   ցMakee made not named Workfile is (not saved)) No workfileThrow away current workfile ? *SYSTEM.WRK.TEXTT*SYSTEM.WRK.CODEE*SYSTEM.LST.TEXTT.BACKRemoveeWorkfile clearedd:& Get.TEXT.CODE.TEXTText .CODECode No file loaded Zero dir ofDuplicate dir ? Are thereblks on the diskk# of blocks on the diskNew vol name ? : : correct ? : zeroeddExamine blocks onBlock-range ? Fix them ? Block may be okk is badMark bad blocks ?? (files will be removed !)) (Y/N) BAD.xxxxx.BADBad blocks markedGZC NX  NONBUFF3fM`-rqz:նRV--Vw-w-(:--(w-zAw-(**q\`Әrpq `q )qq%)-- dʇ- -Zq-Z`rpq zծDq>q ,  35p5 F35pp+, +q 3F@Jz3@F1z5 D15r as>D+>asOv Dv-u?Dw?v -uD vX  րVChangeeChange to whatt:Changee:RemoveeRemoveeremovedUpdate directory ? %Date set: <1..31>--<00..99> Today is New date ? : The date is CRN<w ["  FILERPRO s$s ,s b b i!!@?i!Hi!h !00h vv p0` ` !p";Ě`v a z aAh j`! jiFjzb(VRӂ(J N!  p*.1`ڇ0`"(1Z`#(T`-(K`5(B`>(9`E(0`N('`W(`^(`f( `p(րx0`(`(`(`(`(`(`(x`(o`(f`(]`(T`(K`(B`(9`(0`('`(`(`( `+(ց80``(wP1w(1 pɡUv 1v'[v 0v`v /p17vf 4,p4Yivvw sp35r p h !6! !!} ! a! z ! ! aA h! w!bp(/-a+h5Q5 *Gv  u5 v uv cv  h)5  ;av hv )vv )x*jv p0>5,ov Fv tv  p"[pBia(waw/wa(ih !  0ȇ  h e{ e1e0 e-h-$ raearh a h O}v  v v ev v -erh e p b)g/3J5$5 ih !b  5r h( B6E)C`-r`6rpGpG)2)v  u6v v  G `rp `rF av :uv &h P(ha  v v av v 8!!ڭpp *+w:w@v :u: <v v &P v  #" !8h7Zh'hhhցB &P  v   v  v pb(bFZar o` ` BFFr5+1 1p"p1|ZZ5r   s 5Cx hr iaVwawa wa(Y+;Y+v  u v v vv4,p4YF  ` 5 ` p`  ?+D(FCxձB2|2BA: vBJN 5  h )j5 *ʆj*F!j*j!**:*<ʆ ʆ h< BCCxĆ!@3JNCx5 4Y5Cx CCx< Cx)) )ʑCxսBաa) )jw az[zpbh  :堡H Rw w z!w a0w b?w (): J) Cxʆʋ? ? E T *pTi *T-h $$=$?$"+*aTwa(*Tw*w*aTwav &P v ,'v v v ց ", vvv v p- * *pi=ׄ肁Nטv =E v # v v v v ,pTT#p*蘄WTwWPTww;?%* :%T*#T* #***w炁WWwWwW($%UU*S*#p`*P**Ȉ*Up`U*U`Up*P=%TT*?%TT*0F%:  #*T# \:H)WWRwWwW> #WW䘀(wW昀AwW( S1NF3J肁HSS:Ә@ ӘDGC7K*I`P7VjӐ"1JFH"肁H*Rzb"L >,rZJF%h`Fw`w`Zw` nyv vMih !_ Q5 j v v "v "v "xv"yvv h5P5 ih !65 y#x'"# Ċ5 x#xʆ ʊ h" #5 Ė_M肂jkc'wc+Kwc>owcQwcd,s4j ki!#e!l$pO! mh %E$ 3 qv !vyv  v{v h!i474 4t 4 74 t74 ^74 Hl Non-Wild) carddIll file/vol nameIll change (Vol file) nameBad dest for files founddCakuMWku expected I/O error # Filer error # ? (Y/N)  ? Invalid #Destroy : ? [*****]# Put : in unit  ?  -->  - C1*,  : ? :not proccessedd ...too long < file name scan string vol name  - char. max >>- Illegal formatt what filee what vol ? *::: Remove olddFile(s) endangered: Directory'Filer: G(et, S(ave, W(hat, N(ew, L(dir,$ R(em, C(hng, T(rans, D(ate, Q(uit, $B(ad-blks, E(xt-dir, K(rnch, M(ake, $P(refix, V(ols, X(amine, Z(ero [C.8]]xBWarning units  &  have the same name&buff1,buff2,nonbuff1,nonbuff2,nonbuff33buff1buff2nonbuff11nonbuff22nonbuff33Prefix titles byy Prefix is BZHvHvHHvSYSTEM.WRK.TEXTSYSTEM.WRK.CODE0???JanFebMarAprMayJunJulAugSepOctNovDec?????????? Bad CodeTextInfoDataGrafFotoo4FHANDLER,FILERPROG,HEAPOPS,EXTRAIO,PASCALIO,STRINGOPP!SCREENOP,OSUTIL,FILEOPS,EXTRAHEAP4FHANDLER,FILERPROG,HEAPOPS,EXTRAIO,PASCALIO,STRINGOPP!SCREENOP,OSUTIL,FILEOPS,EXTRAHEAPVaf$ {2 9EeGuf^R n %EXTRAHEAHEAPOPS STRINGOPPASCALIOEXTRAIO SCREENOPFILEOPS  BUFF2 h Ht `til $k#k#$ppN$$#mj"%B"pp)!ibt"u "u&u u"j$#l$ Ԅ!u*u ut h 0u u  u u 4 F@ "x#x   #x ppt !x ppt  ԋ"!x #!xt;?@t@LM y t t t u`W ( )-*) .x) y..) ) њ o `\  ( )-) .y'..g.xo) ݚFu _u u,eu uʖBad block scan ofScan forrblockssScan for how many blockssBlock  is bad bad blocksMoving SYSTEM.PASCALCrunchhFrom end of disk, blockStarting at block #forward back : cruncheddPlease re-boottp fPASCALIOFHANDLERSCREENOPFILEOPS   s (,.X1256Y:<=>"KERNEL PRINTERRINITIALIGETCMD FILEOPS PASCALIOEXTRAIO SOFTOPS HEAPOPS EXTRAHEAPERMHEAPSCREENOPSEGSCINICONCURREOSUTIL USERPROG  WAKERNEL KERNEL KERNEL ( (  SCREENOPKERNEL T IV.0 [a.3]GOTOXY ~^^h```^&^&`___^%^%_^$ a ^ ha ^ h^$(^! a ` p a `^!p `h2`,a ^a ^!a a ``p ``ha _ p _ha p` | KERNEL 8ĭĖk2jl"n& o&|;$& l#ihm!%#!z&z!z&z! & -!h!i%-'yj"2ұ$(x)V0 )p*p#i#k!n& o2!'y2&&{'y 'x'x'y''((x& &)(xԻ 7 F ,{+(k+Mmc,l$%$e,,$%jb2ih!. ! .xx.xf. !h/.xx. p.. .y ..zĊ..z/yi!2ҕ ' . .x/z. p.//xh 2 +Mb*!!{!2! 2 ą2 !ą2 ! !27iFj"{k#l'm%zn!!& (`!!!& %z.EM"& MM& `M%z.& `*%z.!!& '`'zĖZ +0 ((n((xm`( U }{zo zo' ))|% #=!);V 7 V! *z*z|"d**z*z|Ċ d*ր))|(%(&q w'ނ  "xh`i```!" Ės )(x(0(xi!0(!0(!xh (! xok#'(! #0#k(0(xk(#0(#xl$%#k(#0(#xm% (%0(%0$l(0(xj"7("x/("0("0"j("xok#'("0"j#kɖ )`*Pp"``p` `p+a#`!" lb$a#`"!  h mb$a#`"! mb$a#`"! mb$a#`"! m| c j) c-j) 'h ) i( !! c"!0"j) h cp )`*P``p+!p"  `p`0,⼃` j af" # a ) % 1h==%R`ppc.//'Ċ2.Ɩ *+o' p m)`p%'`m%4. / 'p4 ((x2(x(% a"#zh x! p#za3a/p !!# aW u;s2^;P^^p`pszVoFm^LP^^pa! 4V6&0c6%#%%{Ć<Ę69j"9 ""j+p'@0xl`0m%n%&&)&(&'U%%U 0$ċ8aą;"0 m%%x}{zn&&|'s&&|Ċ7t0z@'pvU V ' '! 4166 +p e% hb"{y)xk"i!n&&|! "i&&|! &|(&{#! l&yi$̖ 6 =E E6 E  E s6 Ezxrxrppp"EԞ `b(#l$m n%&y%&z&&z%$ %}ĆJ'('߆Jޖ PN5N(RN5N';EEw+E \twaiting:: Type  to continuee Put volume in unit Segment not found: !Exec err not in main task--REBOOT*STACK OVERFLOW** Exec err # po= o==+ ib?<ylXN_5*** CONCURREEXTRAHEAEXTRAIO PASCALIO HEAPOPS STRINGOP REALOPS COMMANDIDEBUGGERFILEOPS SCREENOP  PRINTERR` yh {zl|j$zxxx"xie(ee(^e(Te"(Je.(@e6(6e?(,eG("eR(e`(eh(eo(ey(e(e(e(xe(oe(fe(]e(Te(Ke(Be(9e(0e('e(e(e( e(ցe( Ke(Be,(9e7(0e?('eG(eS(eY( eh(ցop ep p $pp "p p !p Unknown run-time errorrValue range errorNo proc in seg-tableeExit from uncalled procStack overflowwInteger overflowwDivide by zerooNIL pointer referenceProgram interrupted by userSystem IO error unknown causeparity error (CRC))illegal unit ##illegal IO requesttdata-com timeouttvol went off-linefile lost in dirr bad file nameno room on voll vol not foundfile not foundd dup dir entryfile already open file not openbad input formattring buffer overfloww write protect illegal blockillegal bufferrWak& u IO error: Unimplemented instructionFloating point errorrString overflowProgrammed HALTIllegal heap operationn BreakpointtIncompatible real number size Set too largeSegment  Proc# Offset# rINITIALI~`PZrZ`raoc*`lp0~~B~G~Hć~I~%O ~" ~" ʆT~"ȆT~"pZrp"OĆO ĆOdĆOĆO'ĆZ 000ʖ~ `d&p"p &`6Ć   ! ) 04xpprqh q, rr8r 0ćr hqh q rr| p"pյ rծr0|  0z!@ra9ar!rs33sj 0z3pڠRattr t43  tar퇁3 ap3pr33 h"$<@@rh- Ap D- MQUY]`M8ą;ą:ą9Ć;Ć:Ćh y xĖ<Ć8 8r; ` ; r: ` : r9 ` 9 r;Ć:Ći! !yr! !xr@$(*r*8&d.` '  e  &  *`r%*ć%x'* &**r*h   ĭ$3 f g &h @  @ @ yi    xr   0, 0 0ĖS 8ryrxr;r:r`{;`r:`r$`9`r@;Ć:Ć9ĆĆĆĖ #`````````` ` ` ` ` ``$9""9!"W"ć""?8V:=q $tq  $դ!՜q @       D# # -`# -#     $*SYSTEM.MISCINFOO:SYSTEM.ASSMBLERR:SYSTEM.COMPILERR:SYSTEM.EDITORR :SYSTEM.FILER:SYSTEM.LINKERR*SYSTEM.STARTUPCan't find system diskkCONSOLESYSTERMGRAPHICPRINTERREMINREMOUTT:*SYSTEM.WRK.TEXTT*SYSTEM.WRK.CODEECONSOLE::SYSTERM:: *USERLIB.TEXT???JanFebMarAprMayJunJulAugSepOctNovDec?????????REALOPS  Welcome , toU.C.S.D. p-System IV.00Current date is System re-initializedk"{z   GETCMD  # k p;)`*P`P p+WW3h3L |3 z  z  yi!xkj"#ն!l$"xm%zn$"xՕ"$$xx $"Ċ}%y!x&x&|&& %&Ċ:0&y)& o&'x 'x'yĊ0'  'y'y'y 'x%" $" $""jDa!xh3h 4TĘ5Lh 4 yi!k##xxj"#"x!4 #" |hȖ9j"i!h!{"! k#x#y#y #xą2!#y2a i!"Ϙpih ! ׁj"k## h{daF"ih !"  " " Aa hޖ;hx@rp )Tx @    rp )$@ @    )x   o n *& (p( (' k #ձ#j" "pi "! !"k)Պ"!i ""j!" "pl"$j!" !pl!$i!"m%m%E* + " %p %ȇ *  ${ hB ,  )d d{*d+APddd h * +Ĉ* +* h{xrX!xh!````!x! Ė8``xտ՟```x ``x```x ``x`p`+`݇W```y_ՂIPbaćbxbĈbxׁ,`h*a+--x+-xha aP{ a*a+Pxarp++ՑaaJՁRa aUa aaTx--aP -XU -rp++'*a+--aP -[U -P+ս,-x.-. ć-.ć-a-`ć-x -z.++-{,-z pp+, +6a .++ //aP /^Y /P//c /a` /P<*a+*p ՂlP--u -aX -P+bxa*a+,Ćxr+cb#h#x '#xׁi!j"x"yxh ##xĊ l8jaa&'x j'x'xh"[!ׁk#l%$ %$ %$` %$p x%$瀀 % $瀐 % #'Ė di h 2! ! x! x3!x3 !  ! x ! xj"zk""###"zf"z # %# $## # ## Ą  #Ċ#Ė %& ih! !p d c pgtczgjbxp)c g((6c~W h   p h!ibg'& o322'2zo'2|22Ֆjokc"3#'159ɠ9ɇ; o' #kc"3'"j'"dԯ"dS ! p p  ȭ]] ] U ]_ ]P`>> ՂP >f &C&D<le$$f`>ՂP%4xx 4x x]i!] !!iia >pia"HQ!#H!ia"H! x23222{ 22{ć2o &xkh%x&x4:&xl$$xxh %xkh$ x$ %xxĊ%xkE&xxli!$:&x!x! $&x!xj"y&x&x4 %#"ykc%k!i#o ׬PهՂP 5bcbcfh b lh bbbcf 5Ղ$|| |^ |՘l7&   j4||Thć|Tx^WYL``zƹ` `|`ᇊ`.`zx0W`zuW3``O`}}z~~|ᰇ~x)( e~ ~ ՂP`ep`|`{Yd}cc}F*c+~~*+ ~   cc|Txy5_|Tx___|T_xć|TxٖRS cj"ղS -1`ar ՞9999FF|YF9rJF0| :GGF G G1 G:S :cj9"Ԍ"S : 1 "TSj     Ջ  4`           `  ```. $` `    ``ȇ y`rp ` ċ y    ` 퇁 #퇁    $&  8`r, մ6 `  `@Վ`0,~A`  %`  ` B`  ``.` `  $ `  C  xrpH  $ ć ć ć yr8r0 yr8rh z {q  y Na x   x VB   0 a  a^ & a  a ĭj *t=a 0 e k   = ᇁ= `Ȅ` ``p``tm t p  ۄK. v   *  h Uq  ia  ay a  a-z    u,qhq   -t,t't"  ց ԡ t;ą;ą:ą9ą9Ć;Ć:Ėijaq jj0,,ć,ć,Ě?,,+ ,X ,z ,,qh?q     kgb]j4Tx  #    ւ*jREALOPS.TEXT.TEXTLibrary File is not a Textfilee*SYSTEM.LIBRARY(Too many libraries in library text file..*SYSTEM.LIBRARY*SYSTEM.LIBRARY.CODE.code.CODE.CODE not codeBad block #0 in Illegal file nameNo file *** REALOPS  Unit not founddUnable to allocate global dataaUnable to allocate global dataaNo program in Linking....Must L(ink firsttREALOPS REALOPSREALOPSUnable to load segment on heappWarning: library not found.: Cannot find Assembling... Compiling....:AssembleeCompile what text? .TEXT Can't find :SYSTEM.SWAPDISK*SYSTEM.WRK.CODE[*]To what codefile? $$.CODE[*]] Can't open SYSTEM.WRK.CODESYSTEM.WRK.CODE.CODEExecute what filee? redirection error.CODE: Running....1Monitor: B(egin, E(nd, A(bort, S(uspend, R(esume & no monitor openAS pi="" pi= po=*SYSTEM.STARTUP+Command: E(dit, R(un, F(ile, C(omp, L(ink, -X(ecute, A(ssem, D(ebug) , H(alt, I(nitialize, "U(ser restart, M(onitor [IV.0 B2r]]z3$ Linking.... U not allowed Restarting... XTfx D  .% : vU FILEOPS V.[PZYXćW]i!.-.!j" .!v" .!"aA!i˄.Չ.*Z@.v .vi!ZZ<!.v!Z.d!vd.!vZ" .vi!!i.i!!Y.d!vd.!v.k#_.vh k# Fki.!j"Zk# XXx "0!i! #! .!*Xk#]#Yq.YdYvdP.WĊN.WĊ>.WĊ..WĊ.WĊ.WĖ\`!!!!`Ȗqa%xMjh "?! k####l $$$$ $$  hh Ɂڡl$ p Ɂڡl$Վa`p  ,  ɡl$epp  l$Nćykj:"ppl# "p:$a p$!Ė l$m)n$|$w)$|p$xi!$| o'y'y $::i'x%% '%'թ''''MՉi'&~h 'G$| (((y(x( ( (  ɀd i $|  h!+'k:$)$|#p$xi:$!&'&'b' p! !!&"&$ $:  'ji)m)#)>jhm)%Zj" )%0h%m%)"" #ڡi(!塤 !jh) j" h" "X |Nnj&|)&| dcp#&| ,j"!!j !)&| jpj"('h n&| )&j" h" "2 n &)&&||'|d'x p Znih # !## j"%$"  ɀdi n hЖ# i$!jh "# # h#! %!!Ė# i!$jh "# # h#$ % !!Ė!"h #   #i jhmTl"k### y# x#k"" y $%% i<k#"# x# y#i"k#k! " y"i"Mi!9! yn&o ʄ ʄʄ df! !R#h      "!!ᰠ x ! Ċ! Ċ !!ĖR "i!!!!!!h !!!հ ! !!Ċ!!!!! h! !!!"~! = ! ! p !"! !#!!!!p! !#!!p !!&!!!#p! !#!!p!!!!!Ċ!Ė ?BPě6߇D߇D ċLf de 9f`i! ċ!ćć !ć fć|ć|| ՜ A jA" *  ċ  " r"  ċc%m $% j"%) " yx yćyx" j"ċG " ! X | ċ ćć%ʇ& ćʇʇ ʇAĊćՈ!ć"ćA  Ċ ćSćAI#p =   p  #xp #xpDAćĊ|{DućDxĊćDޛ6ޖD 8 6'ߚ'l$$x9xՄ$^$m%O&2$$%  dn$$ $!$"$#$!$!p'$%  ɀd&$ b$ ċik!" #"! x%x"! y%yk!i#ċ!i&&"!  ɀd!" %" h ! " !!i"!  ɀd%  ɀd % D%$D % D % "! %%x$$% $ $ $"! $ $ " &$$ '$Ě8 'ޛ6ޖ !ߚ!h ! | {!u !ޖ\&ߚ&}&k#l%#$#|`%#|%#|%#|@%#|@@i%#| % #| j"j!i$y$xh! ! "$  i$ j##### #!Ċ###!# # #!!#~#"<#"## = # # p # ##$x#ppg!#"0# = # # p # ##$x!pp*####{##!#!"Ċ &ޖb:[].TEXT.CODE.BACK.INFO.GRAF.FOTOjN/; p+EXTRAHEA HEAPOPS STRINGOPPASCALIOEXTRAIO SCREENOPOSUTIL  PASCALIO i(m%n&ս% % drċjh $ "$ x&x$ y&yj h"Ċu $ $ k$ xk&y#& K$ o'#' % $r p-%%%{%&#& &  d i     zi ޖ1    yi ޖizćxȋ>kxx x k  kćd   jjdd)!yxx wȊ)"p?ڡw#! ۚ, #p|*dć Ā xȇȇ ath!i0!!! !!x!|sh !!x!|h Ė   ޖ!!{! !x!{!Ċ!!ޖ7  y  {  Ċ z  ޖ%%{%%y$ȊU% j$%xh" h#k$`ct% %$ #si %$ #"i$ !%y $$Ȋ%%y%{%%ޖ ,`u+`uĖ 6` ppO   `s% =   p  `p !!h 8  ! x |s" = p x |p !ޖ##Q!E! #! p-##"!s # = # # p # "!pĊ #ޖb+ ߇ykbh  hp> to continueeD5 zqlPvsdH<`RGOTOXY PASCALIOEXTRAIO STRINGOP SEGSCINI=J f*f*J UJ "ȆJ !ʖl"$!  Q f*f*Q " ʆQ "ȆQ !ʖ"/!   ap!klh $   hQ#-ĆJ#Ćf)D#lf:m%#%%#&%%%$%$%$%ʆf*#-# #l$$$$$$$$ #%l$ $$ $ $ $$$$ QJlG$G$xȊGȆG$$GmeGseseG sef*f* YȆA pA#"ȆA A Ȇ`k###f:#f:##ĆZ`q   ]M8-! hCONCURRE `b par! !o' " ()y()z(){(,sk((,p((++(+' ' (}( d!m*ěLd*f-&-!ĚNNLޖLњNNJޛL``ߖLߚNLޛJߛLߊLޖa uEXTRAHEAHEAPOPS  OSUTIL l,c-Pc/Bhcjcic0i c! c 0i h"-!/!/.& %Ph&n& % PP% Phkli!$,&O!xj#"k# h% "0&O!xn!i# %P% Ȗ-0/߇/{/t/x /thjd /xd k/  h d`ar0k  #j #Zj"/t"/{/ć/ dZڡ d .dP0 xĖ/( -327688- 0(t8 PASCALIOEXTRAIO SCREENOP . !USERPROG."xh`i```!" Ė  )(x((xi!0(!(!xh (! xok#'(! ##k((xk(#(#xl$%#k(#(#xm% (%(%$l((xj"7("x/("(""j("xok#'(""j#kɖ x`aĈ! !l$m%'%%%%&% $ b(!kj%(b !xh!````!x! Ėt``xտ՟```x ``x```x ``x`p`+`݇W```"lcc$&mi!%c!!i譅cchcccdcׁY pcׁli!$cׁmc94!x4!xz eĈ!4!xċ%`!ըcĈ#n&&&&&& %!y& %!xY& e%`!& %瀐!xĊ& && &%瀀!bĈ"n&#&&Ĉc!"!icׁh cխc p :`!!!!`Ȗa%xMjh "?! k# # # #l $ $ $ $ $ $ h s4xz dph UdUpU yU y U U XXUX  XX݇UX xYh ećedćeU  ᥁TTnWWn0aׁ WgWxWWcn[[n`a[ׁopWWp:o Wo瀀WɥTo`Wo Wfo瀐Wxćfgĭh o瀐Wzo瀐WzqVVqVćVVᇅoWzVVxp4xćxx{Ċ6fgqVVq4VćVVᅁ4cqZZqaZׁrsVVsVWZ[hr`V#r瀐Va[ׁ WhhzZVxSr瀀VSćSćSfSzr VSzr瀀VćSz ećSS{ćVV(ZZ[WxTĄ[WxToWqqyqxY`qy_o瀐Wy^^mdn`p``^q]]qBr\\rEi\n_xć___dn`p``_\\i">[WxyxbmVV[WxybpcrZZrՄsVVsiaZׁ ViI[WxymZVxĄZVxZVx{ćVVZZr]]WW[[5T33Lsv 0ĆFj"{k"#"{""{#####x`a "{! !i!iM"z!Ė 3h i! z&i! |h! *p  z229Fj7k2l$ m#Mx$ $M$ x$x$ $ p$$$${%2%2Ė: Jh   00Ė p"4ą4xz7aĆPPRWFa ;UV=4T` yyє Too many dicts in SYSTEMM SYSTEM.PASCALKERNEL USERPROGKERNEL *** GOTOXY missing unit GOTOXY==I / STRINGOPM````p`ȖaaaDh a ph aapaȖ```pȖ?"!*#"!h #"Ȋ #"!#" p##!Ȗ,/--1Wji-hc! 6! !"-!pi!  -!cpc!1!iŖ0r`) ***  SMALLCOMD6543x1:17W!xh!!xx`u!xh       p!6645jR4/4`t 4y  h4z43 r r4  ap 4 ap j0 s&vi==pi=.J$ U*** PERMHEAPPASCALIOEXTRAIO COMMANDI COMMANDIh+1 u _ u `Pu u `A*-r+*-pć*+s*`spu *r*+1,h!ssp u `rDĆĆĆĆ:ĆĆĘ:v# $x$v:#j`"r " # #p$xi!$ Ċ !x!xi! vޖ pv`` 0"!xh x"!xxA! xs" x!xx!x!x r "!xxĖX0[P]ZYxk0}b-rab-p"!s"0Ysp"ld0Pwd'UwdYsp+ZY Z#xYxx Yx"#"Ċbr]ZY v\<@p  [ [ ii/W[h=W hi?hWW ""WW h, ! Ȋ !!iWW ""ԯ!ȭWX ґ ґ "*"!  A)`+P҈.҂+,҂,-`P* -P.[݄۬͛<@ZччZ`-(ъ℀.02345UWՁ WWWXX ⼃6 XXX =խU `:(чч VXW^VWXZYYZDY SS; SaASSYWVYYVvXXUՇU "  d`XW`ZYYZ=[WYSSC SaAS`YSȇYYXWyU `K(<@@LݖS ] file already openWrite to what file? can't open filecan't close filee.text   PIIPOOIOPL  *USERLIB.TEXTi=o=pi=po=i=""pi=""qG bW#d*** STRINGOPSMALLCOMPASCALIOEXTRAIO FILEOPS PERMHEAP 0 !REALOPS %` y{ p=)+` *` +a` ```s 0g1Pdjigh 3g-n&g+kk# g#Zڡdd g#0#kg#.# 2#kg#Z"jdd g#0# g#Z&ddg#eg#E# =#kg#-n&g#+#k# g#Zڡ! g#0i#k&!i!"j" dd"p dd"p 3d2698߇8{8s8x 8shjkl 8xȄ m8  h"`at" "j# #k0mfZ":ff ff #ff "ff%e%E" jf%.#" kf%fl$8s$8{8ć8 Zڡ  塠 ȇ7P9 xĖ8'o  &-Ȋ& hc p cp  hc p !  hc p cp '' ccp ' cc' p cp hccp mj"%ci&"!0cc!p "j' `&&&.j G&"E"j &"-"j h c &" d0"j &" 0"j&" 0&"Ȋ^ '&& p& .&'  p&' Ȋ2&& p&0&.& 0p& '  p&'Ȗ b *)xl$ղ)$xk#զ)$#xm%՘)xՃ $#ph%rg xni &xggp  &xi&n&! xgg xp gg xp g&n`&ph%m b"y{p h (@(( "*<@ `-TIہI1r ^["**!**!**!****-******-**-******-0*""$""**0**!0*""$0""****!-**!'}2$""**"":¹fü͞""k:":*:*""k: "#:*{**X2**:=C""0$""****!""-'"$^*3:3""0{3""*"*"!")-$*KB$****!""*- :u ****-**3Ë **-**!:*""| }» 3}ց2_}o""*"*">2****!"":= :o:3**""*"*">2o&$:<OYP$****!"":=O ****!| }¿ >2 3>2}ց2.( ͬ *&$**1 :gͬ ** *&$* *:g  ͘͝  Nu3!: 7 , #   t i e W 7 ~ p m j _ 5 2 '    nO+}rc`M?,) }o^SPEB7S> 3 / &     { w p l Z P K H E B ? ; 3 /       z v s f b [ W S O L G D @ = 9 . * #    zvqgcVRKGDA<8$! yu\XTPHD<51zvrkgZVLH>:3/U R O c ` ] q n k  | y SCREENOPPASCALIOEXTRAIO  EFGL"STRINGOPGOTOXY SMALLCOMCOMMANDIREALOPS    ( 2 M!9~#&|=|'|$||:G!|DM||* ^*H SYSTEM.INTERP Can't find SYSTEM.INTERP M~# xY*9##~y y>{>2NŠ#N+ "! >Ӆ{*c"y2|g@2V*y*}"x*|ʿ΅>2z*c}o|g"F">2V:{F*m"xͼ*xMDz:oOp:pOu:{m͑p͌ʅ!z5ɅF:V*}*c"}:{¿*}*DM*m xʿ~#ò@*> >2{""""}"""}"g*}!*a*a*_Ņs#r#`i_ ~# x,*cMD!{2v:aGOW_RetS;_~+ͼʡ#o&N<µw#~6Bև3ۇև!ty*ST   O ~@# *Q:U :U2U7"Q"Sկ2U!XJ@ɯ2U!͜ͼ:Uc:UM;z!iq#6Ņq"}y @OSͼXʽO͎Orõ@OGͼJO͎Or> ._$-'*]d!Ņ>ŅÛ͛O ͛5> =5=Éy2,ÛÛÛ!Û:,=>$Ó':,҉*Y@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@3 4 d;/ryZ&  Mq+$2  ? J A W ff< O z b  i , WWWWWW8 GK WWWWMyq x  3 2 WW  jWWWWWz;$Ììôäè  Ý WWWWWWWWWWWWCopyright (c) 1979, 1980 by the Regents of the University of California>2&!6>o>ڱ͛***.Ì.Ì.Ì.Ì.Ìi`"Z*MD.Ì. Ì. Ì. Ì*MD. Ì. Ì.Ì.Ì.Ó"D*"F.&"H*"B!>Ý*MDÝo& o&ڧ%^,V!<~# c!|2>2!" !P ?*MDÝo& o&ڧ%^,V o&Ý o gÝ!Ý_*^,VÝB_*Ý2_*s,rÝ@ *Ý@ *^,VÝ@ *s,rÝƢ_*^,VÝ@ *Ý@ *^,VÝ@ *s,rÝN @ TP \|YÝY^,VÝYs,rÝ@ Ýs,rÝ^,VÝ_^,VÝ@ ^,VÝ@ MD{=Ă )Ý 2*@ i`"::BKxʐ~#~# )BKxʐ~# _"*^,V&o)>o>g)9|R}b!9|a}i`" 2@ * _>'I:£:£ +^-V=—Ý +V-^=¥Ý@ **}o|gÝi`" ʝo&>'I})+V-^=Ý o&)9^,Vs,r#=Ý^Ý{wÝ _ i`"K ) o&E=oÐi`"CK^,VxdGjS]isszW{_i! ~_,~WÐi`"y! N#Fo{_zW}ڮo`ALbS\µo{_zWyOxG-µ{_zWy/w,x/wÐ??  ^,V@ ^,VÝs,rÝÝN Ýz>!Dm*^,VÝmz^!a*s,rͦÝ*!9s,r#*s,r#,#*yx*s,r#:w*~2+V-^"^,V#""^,V#"^,V"^,V"^,V-" *~2##^#V*"+F-N* MD+-+V-^""+V-^ÝÝÝp @ i`")DMp ~i`"O"^,V#{=ʪ i`"N,F"^,V^,V{<ʳ *MDí ^,V***MD {ozgÝ}o|gÝ}/o|/gÝ}/o&Ý#Ý+Ý|4 ÝÝMD͝ ÝMD͝ ÝMD͂ Ýᯕo>gÝ}o|gÝz] }|a y y zr {zz z i`"yHґ )Š y‡ ɯ«   x  {/oz/g {/_z/W7yoxgɯO>Gz + {/_z/W}o|g#ɯo>g o>g`i<) MD!xGyO){_zW3 4 # }H |[ !Ý}[ |H !Ýzs }|[ H [ H d |H [ }H [ Á ͼ ʬ !Ðͼ ڬ œ !Ðͼ ڜ ì ">22  * :2 #  * :2 #@ i`"BK* x:) }' +* ###:< {:   _W _ *^,V=U ɯO>Gi`"E#)9~"##f ҂ GOxʕ {w#zw#ˆ yʤ Gw#w#œ *Ðf ҳ Gx {/w#z/w#¸ *Ðf x {w#zw# *ÐO!9Ax w#w# *H+~+~ Ði`"E#)9N,#Y"!9xA AOy/<[ G{\ Q *Ð xʄ ] ,] #r ڌ 믑OE _ xʯ /] ,/] #› ڸ _ E _ ?믑OÖ i`"xo!o{zcyoxgyGM{o5 zg{2&&o>'k^#V;7=6x!{ G{_#zWxXS:w,w# Ð]#)9N,F#! EyoxgyGMEy_!O~h&###)y9,9EHÝ @ aOxGÝZuZÝ}Z|ZÝ}u|uZ o g MDÝҘÝ@ i`"*N,F#^,V#:xAOzS_|{zÐx}o|g)N,F:xAO* MDÝ"2/<_*^,V*^,V#>v:D>('rI>('>2:o&:2**yoxg*KB*!>('r*}=ʎi`"uÐi`"!" Ii`"!" I*!9""Ýi`"!"P i`"!"N " I**_^,V"^,V#""^,V#"^,V"^,V-{=*"^,V-" ~2##^#V*"> *"*"^,V!^,V->w,4-*!9r-s+V-^**{_zWs,r*̓*^,V,#4,4i`" o8 U͛*i`"oi`" 6 _!i|#4}4^#V{=4i`">o8 U͛*i`" o8N " U͛*i`""""rʡ:ڛ͛*Uä8***i`"*^,V*z{"8̓+V-^s,r@ "*" "}2|&}/<2)*^#V*+F+N*)9* MDÝ*MD **MD **MD **Av8][fW"կ=ڝ * i`"N ~# Ð*MDʬ Ü ڬ œ ì ڜ ì " )* 5*i`"*N2GKAyX#O: ^ s# iiÐ^ y~# ~# ŠŠÐ ^ y»+~ +~ ¶¶Ð}o|gÐ6^ {# {+ 6x)^ {# {+ **y_",#^,V""",#^,Vzʫ-+~-ʫ=ʉ=ʒ=ʀ*MD!ͮd*d_*^,V^,VͮdÐ:=+V-^_>W"+F-Ny+V-^*:w#:w  "%()++++AND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO ELSE END EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INTERFAC3LABEL MOD 'NOT &OF OR (PACKED +PROCEDURPROCESS 8PROGRAM !RECORD -REPEAT SET *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR WHILE WITH !)""""*> #wB*^#V**`b w_ʍ`s A}[ڇ0:ґ#wd*7{_zW*s#r*~<"}½|*,#! *ó*,#w#Ð*,#6,6ÐAO* N#Fi` ))6* """*J#.!**s#rÐc*^#V{=$!<* ^#V{=$!<zÝ!~=,ʔ#…>6,s#r,wr-sÝ~,V-^s,rÝ-m* s,r^,V*=r-s*ÛÝ,#~=, -+V-^s,r;V-^xs,r!6,6*="*,#;!6=2}=c,#:+bV-^MDI-s,r-y=q} |^,V6-6 !6m*̓**=x""ͦ*~=#*~_!^,VÝ>20Ð> > !>mÐ!""}">">"!">"!> > >!"""""m#^#V#~#"20*w*s#r*s#rÐ!">î!s!sw*"*4!!!O:O:ʮʮ*******_n$12**:Ez4>1>`>zy O:7::7q:4w#z+4q#:pP|1£:k!0!s>+|zN#ʝy!| ͹=Ï:±y±|͹|>y : >:G:2:/G:2:G:2:/G:2*_n$&,s""W"×""#"#  """"Ï#Ï#Ö#Ó######twz}ÀM=͙#r#ͱ#r#>> {"*"y2͙#r#2*ͫ *"*| >2*}o|g"x">2:x*"!*MDͬ#:O͢#:Oͧ#:ʟ#â;#ʷ!5ͱ#x:**"!!6:**DM* x~#r#*> >2""""""""͙#*!O *O *O *O s#r#`i ~# x^ *MD!J!{2:GOW_ڄ  ͦ … < ͦ w! *: !:G» :OJ!z"!: {2:<!:?о2!:=! "*ͦ ^*:OJ!,}27:m#͑!~+!!#o&N `#V _#ͱ"Y#*O ͖#L#!O O >##O #g#> o#g#o#û#y2^####!#:^#o#>$#':^#һ#* SYSTEM.PASCALCan't find SYSTEM.PASCAL  H_?#"4}o|!#R$"[$!'"! s#r# c$[*!#j i'!"0"6"2>222!"8!$i'!t'!"!t'*4*!!!*##~$ $>$>2#N$#N+ "#%# %1%*" %!#>Â'*4*!!*^#V:#Q%zS_"*~2#y%>*^#Vs+r##=m%* ^#V:#%zS_"9$*##~#+%""!*4*+V+^*^#V!9*!9*s#r+++"*## ™%*^#V"##65,5 ^#V#N#Fo>g)9*s#r*4)!*!!9""*"^#V"^#V#N#Fo>g)9"*s#r*4*!)* ~&*&&{++&z&*&++&=&&V#^r+s*^#V+"* ~2##^#V*"*+V+^*##"*"DMq,p#,#,#,#",#0q,p-*9$"!"!"*"!">2ZÐ~# yi's#r# yw'OʹÓ'  m`WRMD74+'$!7 ~{wqda[NKHB>71*&!{voj^TOIF<92.*&#~yvrnj_UQMC3/&"  tqmgdYVMGB<92.&" qgc`\VSPJGC@:63-' |xtolifc^[XUPKHEB?:70*!|yvspid\SID:2)" |ska]ZWPLGB?<741$ ~wsolh^XMC=6&ytmiaYVQ?94-#  | u p j g b Y U L > 5 #     } y s i [ Q > 8 4 . + % !     } x u q n g ` Y T M F A 8 1 +  } w t p m f _ [ X Q I = 1 , $     ~ r n e ^ X U K E B ? 6 0   pkh_\YVPKB?<960,)%"tqgb_XJE@/' rolg]SN1.%zwspmjaZWNKH?<930-%|yvpli^[XPB=:62.+(! @=:741.+(%"~|zxvtrpnljhfdb`^\ZXVTRPNLJHFDB@><:86420.,*(&$"   ~|zxvtrpnljhfdb`^\ZXVTRPNLJHFDB@><:86420.,*(&$"  'hdqnL2 vkgda\ wna\YVSNKHC@;52)$  }ukhe_YROD<95-# ~zrTLD<4,$ @#-#$####""""""""""o"!!!- *'fc`]\#W#S#O#D#<#9#6#2#*#'#### ###"""""""""""""""""""""{"x"u"l"i"f"c"^"Z"S"L"I"D"@"="9"6")"!""""""!!!!!!!!!!!!!x!t!p!i!Y!Q!H!E!A!'&&&&&&&&&%%%%%w%f%b%L%H%/%*%'%%%% %$$$$$$$$$}$t$j$Y$V$O$L$!$8 ARYq. SYSTEM.PASCALQSYSTEM. !P ?KM.COMPILER\ + SYSTEM.FILER \+\ SYSTEM.EDITOR\\SYSTEM.ASSMBLER, B FILERPROBUFF1 BUFF2 NONBUFF1NONBUFF2NONBUFF3   g(FILERPROFILERPROFILERPROFILERPROFILERPRO'hSTANLEY8&l0/&4-@l4ABUFF1 9:f3rfӘrpq fq mj%%ql"i!00if!uhpq "!j$lqBB#131|1Jq1#v Fv :uvv vq q1qvqp qrpq q 6%% h p6 % 6 % k # 6 6 q uipq !q #fv 6 % q"fv՜6/%0/0 ć/0ʇ/0 0 D /Drpq % %//6 w/w/6w/qfrfr:qih:>H$(aq4`qiꆀ肀9Ԙ?86>`-r;`**: w*6w*r`q ))*)@*  dʇ<++.w+Aw+6w+*<@`r @:9q `r?fh`蘀w`Bw`w`Iw`Bw`Jw`Zw`Kw`w`Lw`@Z.FB98v q q .M:qNv v :u.v Sv q -UYqZ q B@,肀Z[9^8膀wp.ZFq9ha&  F88dw.wewhq iv sv 8 |v 8~   v Y  րPut in Insert destination disk:TransferrTo whereeTransferrblockss# of blocks to transferTransferr *SYSTEM.WRK... *SYSTEM.WRK..,:.,Save as  ? Save asTEXTTCODEETEXTT*.CODEOld code removed, Text file saved & CODEECode file savedSTX !9 BUFF2 ] Hq `qil $k#00k1#$ppK$$#mj"%?1"pp)!ibq"v "v&v v"j$#l$ Ԏ!v*v vq5 h վ0v v  v v 4 F@ "x#x  0 01#x ppq 1!x ppq  ԕ"!x #!xq;?@q@LM5 y q q q v`W ( )-$5) .x5) y ..5) ) 5 o `\ 5 ( )-5) .y'..g.xo) ߚFv _v v,ev vʖ րmBad block scan ofScan forrblockssScan for how many blockssBlock  is bad bad blocksMoving SYSTEM.PASCALCrunchhFrom end of disk, blockStarting at block #forward back : cruncheddPlease re-boottBKk TNONBUFF1b+%+Jqq+;q 2|;qvJv :u+ %+v++!"h * *) ) H7v  v v = "v"vG&r qh c5 (rpq 5c-,+*)(5 y'i:5 i : %+!n,q]2|;-q v .u--5, .5, y.x.y.x('('.v .v (v. v-u/. w/v -u.  vHՀ=L.xv. vv /.w/v v 1.xv u/.w/v ? !վ:Ֆ5, y5 -v/u5 v"v =&v 'v/v 6v )v8v <v *v>v pq b b vrpq rHvDv vh1 1p"1Frh1 O1i!K81v!| Lv Nv !v :uv1Ov @v :uvWv <v :uv  ր_ < UNUSED >>Dir listing off#1:ListtWritingfilee filess, blocks usedd,  unused, in largest Vols on-line: # Root vol is - Prefix is - EVD tVNONBUFF2*`-rqq_`Әrpq `q ))****`rpq qFv :uZv v v肀 z`r*q Q.   v 'v v :u.v 98 v v C.$&%&3`-r98q'v q p 4v7@qAJqKTq)).w)Uw)Xq  4q\v `r4.e&fgh`w`hw`.w`w`q>?h`.w`w` iv v z kmqF.Z.j"hq i!"0.c"wcn.c"wc: q ."w..t,ux&{~h!} v v `piHqqv q  i!gqv v v q膀:肀 蘀ww蘀DqFv v q ԀbcF D3Jq3`ppq cv v BfHqqv SvvSRRvvvRR5R5 5 RSSRCqvSRdVVd VqVVqv q pap pT USRdVVdv Vv1dVp1dVpp 1dVppddv vkv vVq5RV5 yHUV5aayćTTTMɢ5 q aTVaTVćVUVV!ayqv  v v q pqYʁbcDZ aydVVdaVeeyWexXfTTf1Z TeyOTx0ȇeeyOTxćTT5 TW5T yTTWT5r VVyqv fi   ցMakee made not named Workfile is (not saved)) No workfileThrow away current workfile ? *SYSTEM.WRK.TEXTT*SYSTEM.WRK.CODEE*SYSTEM.LST.TEXTT.BACKRemoveeWorkfile clearedd:& Get.TEXT.CODE.TEXTText .CODECode No file loaded Zero dir ofDuplicate dir ? Are thereblks on the diskk# of blocks on the diskNew vol name ? : : correct ? : zeroeddExamine blocks onBlock-range ? Fix them ? Block may be okk is badMark bad blocks ?? (files will be removed !)) (Y/N) BAD.xxxxx.BADBad blocks markedGZC NX  NONBUFF3fM`-rqz:նRV--Vw-w-(:--(w-zAw-(**q\`Әrpq `q )qq%)-- dʇ- -Zq-Z`rpq zծDq>q ,  35p5 F35pp+, +q 3F@Jz3@F1z5 D15r as>D+>asOv Dv-u?Dw?v -uD vX  րVChangeeChange to whatt:Changee:RemoveeRemoveeremovedUpdate directory ? %Date set: <1..31>--<00..99> Today is New date ? : The date is CRN<w [;  FILERPRO s$s ,s b b i!!@?i!Hi!h !00h vv p0` ` !p";Ě`v a z aAh j`! jiFjzb(VRӂ(J N!  p*.1`ڇ0`"(1Z`#(T`-(K`5(B`>(9`E(0`N('`W(`^(`f( `p(րx0`(`(`(`(`(`(`(x`(o`(f`(]`(T`(K`(B`(9`(0`('`(`(`( `+(ց80``(wP1w(1 pɡUv 1v'[v 0v`v /p17vf 4,p4Yivvw sp35r p h !6! !!} ! a! z ! ! aA h! w!bp(/-a+h5Q5 *Gv  u5 v uv cv  h)5  ;av hv )vv )x*jv p0>5,ov Fv tv  p"[pBia(waw/wa(ih !  0ȇ  h e{ e1e0 e-h-$ raearh a h O}v  v v ev v -erh e p b)g/3J5$5 ih !b  5r h( B6E)C`-r`6rpGpG)2)v  u6v v  G `rp `rF av :uv &h P(ha  v v av v 8!!ڭpp *+w:w@v :u: <v v &P v  #" !8h7Zh'hhhցB &P  v   v  v pb(bFZar o` ` BFFr5+1 1p"p1|ZZ5r   s 5Cx hr iaVwawa wa(Y+;Y+v  u v v vv4,p4YF  ` 5 ` p`  ?+D(FCxձB2|2BA: vBJN 5  h )j5 *ʆj*F!j*j!**:*<ʆ ʆ h< BCCxĆ!@3JNCx5 4Y5Cx CCx< Cx)) )ʑCxսBաa) )jw az[zpbh  :堡H Rw w z!w a0w b?w (): J) Cxʆʋ? ? E T *pTi *T-h $$=$?$"+*aTwa(*Tw*w*aTwav &P v ,'v v v ց ", vvv v p- * *pi=ׄ肁Nטv =E v < v v v v ,pTT#p*蘄WTwWPTww;?%* :%T*#T* #***w炁WWwWwW($%UU*S*#p`*P**Ȉ*Up`U*U`Up*P=%TT*?%TT*0F%:  #*T# \:H)WWRwWwW> #WW䘀(wW昀AwW( S1NF3J肁HSS:Ә@ ӘDGC7K*I`P7VjӐ"1JFH"肁H*Rzb"L >,rZJF%h`Fw`w`Zw` nyv vMih !_ Q5 j v v "v "v "xv"yvv h5P5 ih !65 y#x'"# Ċ5 x#xʆ ʊ h" #5 Ė_M肂jkc'wc+Kwc>owcQwcd,s4j ki!#e!l$pO! mh %E$ 3 qv !vyv  v{v h!i474 4t 4 74 t74 ^74 Hl Non-Wild) carddIll file/vol nameIll change (Vol file) nameBad dest for files founddCakuMWku expected I/O error # Filer error # ? (Y/N)  ? Invalid #Destroy : ? [*****]# Put : in unit  ?  -->  - C1*,  : ? :not proccessedd ...too long < file name scan string vol name  - char. max >>- Illegal formatt what filee what vol ? *::: Remove olddFile(s) endangered: Directory'Filer: G(et, S(ave, W(hat, N(ew, L(dir,$ R(em, C(hng, T(rans, D(ate, Q(uit, $B(ad-blks, E(xt-dir, K(rnch, M(ake, $P(refix, V(ols, X(amine, Z(ero [C.8]]xBWarning units  &  have the same name&buff1,buff2,nonbuff1,nonbuff2,nonbuff33buff1buff2nonbuff11nonbuff22nonbuff33Prefix titles byy Prefix is BZHvHvHHvSYSTEM.WRK.TEXTSYSTEM.WRK.CODE0???JanFebMarAprMayJunJulAugSepOctNovDec?????????? Bad CodeTextInfoDataGrafFotoo4FHANDLER,FILERPROG,HEAPOPS,EXTRAIO,PASCALIO,STRINGOPP!SCREENOP,OSUTIL,FILEOPS,EXTRAHEAP4FHANDLER,FILERPROG,HEAPOPS,EXTRAIO,PASCALIO,STRINGOPP!SCREENOP,OSUTIL,FILEOPS,EXTRAHEAPVaf= {2 9EeGuf^R n %EXTRAHEAHEAPOPS STRINGOPPASCALIOEXTRAIO SCREENOPFILEOPS  BUFF2 h Ht `til $k#k#$ppN$$#mj"%B"pp)!ibt"u "u&u u"j$#l$ Ԅ!u*u ut h 0u u  u u 4 F@ "x#x   #x ppt !x ppt  ԋ"!x #!xt;?@t@LM y t t t u`W ( )-*) .x) y..) ) њ o `\  ( )-) .y'..g.xo) ݚFu _u u,eu uʖBad block scan ofScan forrblockssScan for how many blockssBlock  is bad bad blocksMoving SYSTEM.PASCALCrunchhFrom end of disk, blockStarting at block #forward back : cruncheddPlease re-boottp fPASCALIOFHANDLERSCREENOPFILEOPS   s (,.X1256Y:<=>"KERNEL PRINTERRINITIALIGETCMD FILEOPS PASCALIOEXTRAIO SOFTOPS HEAPOPS EXTRAHEAPERMHEAPSCREENOPSEGSCINICONCURREOSUTIL USERPROG  WAKERNEL KERNEL KERNEL ( (  SCREENOPKERNEL T IV.0 [a.3]GOTOXY ~^^h```^&^&`___^%^%_^$ a ^ ha ^ h^$(^! a ` p a `^!p `h2`,a ^a ^!a a ``p ``ha _ p _ha p` | KERNEL 8ĭĖk2jl"n& o&|;$& l#ihm!%#!z&z!z&z! & -!h!i%-'yj"2ұ$(x)V0 )p*p#i#k!n& o2!'y2&&{'y 'x'x'y''((x& &)(xԻ 7 F ,{+(k+Mmc,l$%$e,,$%jb2ih!. ! .xx.xf. !h/.xx. p.. .y ..zĊ..z/yi!2ҕ ' . .x/z. p.//xh 2 +Mb*!!{!2! 2 ą2 !ą2 ! !27iFj"{k#l'm%zn!!& (`!!!& %z.EM"& MM& `M%z.& `*%z.!!& '`'zĖZ +0 ((n((xm`( U }{zo zo' ))|> #=!);V 7 V! *z*z|"d**z*z|Ċ d*ր))|(%(&q w'ނ  "xh`i```!" Ės )(x(0(xi!0(!0(!xh (! xok#'(! #0#k(0(xk(#0(#xl$%#k(#0(#xm% (%0(%0$l(0(xj"7("x/("0("0"j("xok#'("0"j#kɖ )`*Pp"``p` `p+a#`!" lb$a#`"!  h mb$a#`"! mb$a#`"! mb$a#`"! m| c j) c-j) 'h ) i( !! c"!0"j) h cp )`*P``p+!p"  `p`0,⼃` j af" # a ) % 1h==%R`ppc.//'Ċ2.Ɩ *+o' p m)`p%'`m%4. / 'p4 ((x2(x(% a"#zh x! p#za3a/p !!# aW u;s2^;P^^p`pszVoFm^LP^^pa! 4V6&0c6%#%%{Ć<Ę69j"9 ""j+p'@0xl`0m%n%&&)&(&'U%%U 0$ċ8aą;"0 m%%x}{zn&&|'s&&|Ċ7t0z@'pvU V ' '! 4166 +p e% hb"{y)xk"i!n&&|! "i&&|! &|(&{#! l&yi$̖ 6 =E E6 E  E s6 Ezxrxrppp"EԞ `b(#l$m n%&y%&z&&z%$ %}ĆJ'('߆Jޖ PN5N(RN5N';EEw+E \twaiting:: Type  to continuee Put volume in unit Segment not found: !Exec err not in main task--REBOOT*STACK OVERFLOW** Exec err # po= o==+ ib?<ylXN_5*** CONCURREEXTRAHEAEXTRAIO PASCALIO HEAPOPS STRINGOP REALOPS COMMANDIDEBUGGERFILEOPS SCREENOP  PRINTERR` yh {zl|j$zxxx"xie(ee(^e(Te"(Je.(@e6(6e?(,eG("eR(e`(eh(eo(ey(e(e(e(xe(oe(fe(]e(Te(Ke(Be(9e(0e('e(e(e( e(ցe( Ke(Be,(9e7(0e?('eG(eS(eY( eh(ցop ep p $pp "p p !p Unknown run-time errorrValue range errorNo proc in seg-tableeExit from uncalled procStack overflowwInteger overflowwDivide by zerooNIL pointer referenceProgram interrupted by userSystem IO error unknown causeparity error (CRC))illegal unit ##illegal IO requesttdata-com timeouttvol went off-linefile lost in dirr bad file nameno room on voll vol not foundfile not foundd dup dir entryfile already open file not openbad input formattring buffer overfloww write protect illegal blockillegal bufferrWak? u IO error: Unimplemented instructionFloating point errorrString overflowProgrammed HALTIllegal heap operationn BreakpointtIncompatible real number size Set too largeSegment  Proc# Offset# rINITIALI~`PZrZ`raoc*`lp0~~B~G~Hć~I~%O ~" ~" ʆT~"ȆT~"pZrp"OĆO ĆOdĆOĆO'ĆZ 000ʖ~ `d&p"p &`6Ć   ! ) 04xpprqh q, rr8r 0ćr hqh q rr| p"pյ rծr0|  0z!@ra9ar!rs33sj 0z3pڠRattr t43  tar퇁3 ap3pr33 h"$<@@rh- Ap D- MQUY]`M8ą;ą:ą9Ć;Ć:Ćh y xĖ<Ć8 8r; ` ; r: ` : r9 ` 9 r;Ć:Ći! !yr! !xr@$(*r*8&d.` '  e  &  *`r%*ć%x'* &**r*h   ĭ$3 f g &h @  @ @ yi    xr   0, 0 0ĖS 8ryrxr;r:r`{;`r:`r$`9`r@;Ć:Ć9ĆĆĆĖ #`````````` ` ` ` ` ``$9""9!"W"ć""?8V:=q $tq  $դ!՜q @       D# # -`# -#     $*SYSTEM.MISCINFOO:SYSTEM.ASSMBLERR:SYSTEM.COMPILERR:SYSTEM.EDITORR :SYSTEM.FILER:SYSTEM.LINKERR*SYSTEM.STARTUPCan't find system diskkCONSOLESYSTERMGRAPHICPRINTERREMINREMOUTT:*SYSTEM.WRK.TEXTT*SYSTEM.WRK.CODEECONSOLE::SYSTERM:: *USERLIB.TEXT???JanFebMarAprMayJunJulAugSepOctNovDec?????????REALOPS  Welcome , toU.C.S.D. p-System IV.00Current date is System re-initializedk"{z   GETCMD  # k p;)`*P`P p+WW3h3L |3 z  z  yi!xkj"#ն!l$"xm%zn$"xՕ"$$xx $"Ċ}%y!x&x&|&& %&Ċ:0&y)& o&'x 'x'yĊ0@  'y'y'y 'x%" $" $""jDa!xh3h 4TĘ5Lh 4 yi!k##xxj"#"x!4 #" |hȖ9j"i!h!{"! k#x#y#y #xą2!#y2a i!"Ϙpih ! ׁj"k## h{daF"ih !"  " " Aa hޖ;hx@rp )Tx @    rp )$@ @    )x   o n *& (p( (' k #ձ#j" "pi "! !"k)Պ"!i ""j!" "pl"$j!" !pl!$i!"m%m%E* + " %p %ȇ *  ${ hB ,  )d d{*d+APddd h * +Ĉ* +* h{xrX!xh!````!x! Ė8``xտ՟```x ``x```x ``x`p`+`݇W```y_ՂIPbaćbxbĈbxׁ,`h*a+--x+-xha aP{ a*a+Pxarp++ՑaaJՁRa aUa aaTx--aP -XU -rp++'*a+--aP -[U -P+ս,-x.-. ć-.ć-a-`ć-x -z.++-{,-z pp+, +6a .++ //aP /^Y /P//c /a` /P<*a+*p ՂlP--u -aX -P+bxa*a+,Ćxr+cb#h#x '#xׁi!j"x"yxh ##xĊ l8jaa&'x j'x'xh"[!ׁk#l%$ %$ %$` %$p x%$瀀 % $瀐 % #'Ė di h 2! ! x! x3!x3 !  ! x ! xj"zk""###"zf"z # %# $## # ## Ą  #Ċ#Ė %& ih! !p d c pgtczgjbxp)c g((6c~W h   p h!ibg'& o322'2zo'2|22Ֆjokc"3#'159ɠ9ɇ; o' #kc"3'"j'"dԯ"dS ! p p  ȭ]] ] U ]_ ]P`>> ՂP >f &C&D<le$$f`>ՂP%4xx 4x x]i!] !!iia >pia"HQ!#H!ia"H! x23222{ 22{ć2o &xkh%x&x4:&xl$$xxh %xkh$ x$ %xxĊ%xkE&xxli!$:&x!x! $&x!xj"y&x&x4 %#"ykc%k!i#o ׬PهՂP 5bcbcfh b lh bbbcf 5Ղ$|| |^ |՘l7&   j4||Thć|Tx^WYL``zƹ` `|`ᇊ`.`zx0W`zuW3``O`}}z~~|ᰇ~x)A e~ ~ ՂP`ep`|`{Yd}cc}F*c+~~*+ ~   cc|Txy5_|Tx___|T_xć|TxٖRS cj"ղS -1`ar ՞9999FF|YF9rJF0| :GGF G G1 G:S :cj9"Ԍ"S : 1 "TSj     Ջ  4`           `  ```. $` `    ``ȇ y`rp ` ċ y    ` 퇁 #퇁    $&  8`r, մ6 `  `@Վ`0,~A`  %`  ` B`  ``.` `  $ `  C  xrpH  $ ć ć ć yr8r0 yr8rh z {q  y Na x   x VB   0 a  a^ & a  a ĭj *t=a 0 e k   = ᇁ= `Ȅ` ``p``tm t p  ۄK. v   *  h Uq  ia  ay a  a-z    u,qhq   -t,t't"  ց ԡ t;ą;ą:ą9ą9Ć;Ć:Ėijaq jj0,,ć,ć,Ě?,,+ ,X ,z ,,qh?q     kgb]j4Tx  #    ւ*jREALOPS.TEXT.TEXTLibrary File is not a Textfilee*SYSTEM.LIBRARY(Too many libraries in library text file..*SYSTEM.LIBRARY*SYSTEM.LIBRARY.CODE.code.CODE.CODE not codeBad block #0 in Illegal file nameNo file *** REALOPS  Unit not founddUnable to allocate global dataaUnable to allocate global dataaNo program in Linking....Must L(ink firsttREALOPS REALOPSREALOPSUnable to load segment on heappWarning: library not found.: Cannot find Assembling... Compiling....:AssembleeCompile what text? .TEXT Can't find :SYSTEM.SWAPDISK*SYSTEM.WRK.CODE[*]To what codefile? $$.CODE[*]] Can't open SYSTEM.WRK.CODESYSTEM.WRK.CODE.CODEExecute what filee? redirection error.CODE: Running....1Monitor: B(egin, E(nd, A(bort, S(uspend, R(esume & no monitor openAS pi="" pi= po=*SYSTEM.STARTUP+Command: E(dit, R(un, F(ile, C(omp, L(ink, -X(ecute, A(ssem, D(ebugB , H(alt, I(nitialize, "U(ser restart, M(onitor [IV.0 B2r]]z3$ Linking.... U not allowed Restarting... XTfx D  .% : vU FILEOPS V.[PZYXćW]i!.-.!j" .!v" .!"aA!i˄.Չ.*Z@.v .vi!ZZ<!.v!Z.d!vd.!vZ" .vi!!i.i!!Y.d!vd.!v.k#_.vh k# Fki.!j"Zk# XXx "0!i! #! .!*Xk#]#Yq.YdYvdP.WĊN.WĊ>.WĊ..WĊ.WĊ.WĖ\`!!!!`Ȗqa%xMjh "?! k####l $$$$ $$  hh Ɂڡl$ p Ɂڡl$Վa`p  ,  ɡl$epp  l$Nćykj:"ppl# "p:$a p$!Ė l$m)n$|$w)$|p$xi!$| o'y'y $::i'x%% '%'թ''''MՉi'&~h 'G$| (((y(x( ( (  ɀd i $|  h!+'k:$)$|#p$xi:$!&'&'b' p! !!&"&$ $:  'ji)m)#)>jhm)%Zj" )%0h%m%)"" #ڡi(!塤 !jh) j" h" "X |Nnj&|)&| dcp#&| ,j"!!j !)&| jpj"('h n&| )&j" h" "2 n &)&&||'|d'x p Znih # !## j"%$"  ɀdi n hЖ# i$!jh "# # h#! %!!Ė# i!$jh "# # h#$ % !!Ė!"h #   #i jhmTl"k### y# x#k"" y $%% i<k#"# x# y#i"k#k! " y"i"Mi!9! yn&o ʄ ʄʄ df! !R#h      "!!ᰠ x ! Ċ! Ċ !!ĖR "i!!!!!!h !!!հ ! !!Ċ!!!!! h! !!!"~! = ! ! p !"! !#!!!!p! !#!!p !!&!!!#p! !#!!p!!!!!Ċ!Ė ?BPě6߇D߇D ċLf de 9f`i! ċ!ćć !ć fć|ć|| ՜ A jA" C  ċ  " r"  ċc%m $% j"%) " yx yćyx" j"ċG " ! X | ċ ćć%ʇ& ćʇʇ ʇAĊćՈ!ć"ćA  Ċ ćSćAI#p =   p  #xp #xpDAćĊ|{DućDxĊćDޛ6ޖD 8 6'ߚ'l$$x9xՄ$^$m%O&2$$%  dn$$ $!$"$#$!$!p'$%  ɀd&$ b$ ċik!" #"! x%x"! y%yk!i#ċ!i&&"!  ɀd!" %" h ! " !!i"!  ɀd%  ɀd % D%$D % D % "! %%x$$% $ $ $"! $ $ " &$$ '$Ě8 'ޛ6ޖ !ߚ!h ! | {!u !ޖ\&ߚ&}&k#l%#$#|`%#|%#|%#|@%#|@@i%#| % #| j"j!i$y$xh! ! "$  i$ j##### #!Ċ###!# # #!!#~#"<#"## = # # p # ##$x#ppg!#"0# = # # p # ##$x!pp*####{##!#!"Ċ &ޖb:[].TEXT.CODE.BACK.INFO.GRAF.FOTOjN/; p+EXTRAHEA HEAPOPS STRINGOPPASCALIOEXTRAIO SCREENOPOSUTIL  PASCALIO i(m%n&ս% % drċjh $ "$ x&x$ y&yj h"Ċu $ $ k$ xk&y#& K$ o'#' % $r p-%%%{%&#& &  d i     zi ޖ1    yi ޖizćxȋ>kxx x k  kćd   jjdd)!yxx wȊ)"p?ڡw#! ۚ, #p|*dć Ā xȇȇ ath!i0!!! !!x!|sh !!x!|h Ė   ޖ!!{! !x!{!Ċ!!ޖ7  y  {  Ċ z  ޖ%%{%%y$ȊU% j$%xh" h#k$`ct% %$ #si %$ #"i$ !%y $$Ȋ%%y%{%%ޖ ,`u+`uĖ 6` ppO   `s% =   p  `p !!h 8  ! x |s" = p x |p !ޖ##Q!E! #! p-##"!s # = # # p # "!pĊ #ޖbD ߇ykbh  hp> to continueeD5 zqlPvsdH<`RGOTOXY PASCALIOEXTRAIO STRINGOP SEGSCINI=J f*f*J UJ "ȆJ !ʖl"$!  Q f*f*Q " ʆQ "ȆQ !ʖ"/!   ap!klh $   hQ#-ĆJ#Ćf)D#lf:m%#%%#&%%%$%$%$%ʆf*#-# #l$$$$$$$$ #%l$ $$ $ $ $$$$ QJlG$G$xȊGȆG$$GmeGseseG sef*f* YȆA pA#"ȆA A Ȇ`k###f:#f:##ĆZ`q   ]M8-! hCONCURRE `b par! !o' " ()y()z(){(,sk((,p((++(+' ' (}( d!m*ěLd*f-&-!ĚNNLޖLњNNJޛL``ߖLߚNLޛJߛLߊLޖa uEXTRAHEAHEAPOPS  OSUTIL l,c-Pc/Bhcjcic0i c! c 0i h"-!/!/.& %Ph&n& % PP% Phkli!$,&O!xj#"k# h% "0&O!xn!i# %P% Ȗ-0/߇/{/t/x /thjd /xd k/  h d`ar0k  #j #Zj"/t"/{/ć/ dZڡ d .dP0 xĖ/( -327688- 0(t8 PASCALIOEXTRAIO SCREENOP G !USERPROG."xh`i```!" Ė  )(x((xi!0(!(!xh (! xok#'(! ##k((xk(#(#xl$%#k(#(#xm% (%(%$l((xj"7("x/("(""j("xok#'(""j#kɖ x`aĈ! !l$m%'%%%%&% $ b(!kj%(b !xh!````!x! Ėt``xտ՟```x ``x```x ``x`p`+`݇W```"lcc$&mi!%c!!i譅cchcccdcׁY pcׁli!$cׁmc94!x4!xz eĈ!4!xċ%`!ըcĈ#n&&&&&& %!y& %!xY& e%`!& %瀐!xĊ& && &%瀀!bĈ"n&#&&Ĉc!"!icׁh cխc p :`!!!!`Ȗa%xMjh "?! k# # # #l $ $ $ $ $ $ h s4xz dph UdUpU yU y U U XXUX  XX݇UX xYh ećedćeU  ᥁TTnWWn0aׁ WgWxWWcn[[n`a[ׁopWWp:o Wo瀀WɥTo`Wo Wfo瀐Wxćfgĭh o瀐Wzo瀐WzqVVqVćVVᇅoWzVVxp4xćxx{Ċ6fgqVVq4VćVVᅁ4cqZZqaZׁrsVVsVWZ[hr`V#r瀐Va[ׁ WhhzZVxSr瀀VSćSćSfSzr VSzr瀀VćSz ećSS{ćVV(ZZ[WxTĄ[WxToWqqyqxY`qy_o瀐Wy^^mdn`p``^q]]qBr\\rEi\n_xć___dn`p``_\\i">[WxyxbmVV[WxybpcrZZrՄsVVsiaZׁ ViI[WxymZVxĄZVxZVx{ćVVZZr]]WW[[5T33Lsv 0ĆFj"{k"#"{""{#####x`a "{! !i!iM"z!Ė 3h i! z&i! |h! *p  z229Fj7k2l$ m#Mx$ $M$ x$x$ $ p$$$${%2%2Ė: Jh   00Ė p"4ą4xz7aĆPPRWFa ;UV=4T` yyє Too many dicts in SYSTEMM SYSTEM.PASCALKERNEL USERPROGKERNEL *** GOTOXY missing unit GOTOXY==I H STRINGOPM````p`ȖaaaDh a ph aapaȖ```pȖ?"!*#"!h #"Ȋ #"!#" p##!Ȗ,/--1Wji-hc! 6! !"-!pi!  -!cpc!1!iŖ0r`) ***  SMALLCOMD6543x1:17W!xh!!xx`u!xh       p!6645jR4/4`t 4y  h4z43 r r4  ap 4 ap j0 s&vi==pi=.J$ U*** PERMHEAPPASCALIOEXTRAIO COMMANDI COMMANDIh+1 u _ u `Pu u `A*-r+*-pć*+s*`spu *r*+1,h!ssp u `rDĆĆĆĆ:ĆĆĘ:v# $x$v:#j`"r " # #p$xi!$ Ċ !x!xi! vޖ pv`` 0"!xh x"!xxA! xs" x!xx!x!x r "!xxĖX0[P]ZYxk0}b-rab-p"!s"0Ysp"ld0Pwd'UwdYsp+ZY Z#xYxx Yx"#"Ċbr]ZY v\<@p  [ [ ii/W[h=W hi?hWW ""WW h, ! Ȋ !!iWW ""ԯ!ȭWX ґ ґ "*"!  A)`+P҈.҂+,҂,-`P* -P.[݄۬͛<@ZччZ`-(ъ℀.02345UWՁ WWWXX ⼃6 XXX =խU `:(чч VXW^VWXZYYZDY SS; SaASSYWVYYVvXXUՇU "  d`XW`ZYYZ=[WYSSC SaAS`YSȇYYXWyU `K(<@@LݖS ] file already openWrite to what file? can't open filecan't close filee.text   PIIPOOIOPL  *USERLIB.TEXTi=o=pi=po=i=""pi=""qG bW#d*** STRINGOPSMALLCOMPASCALIOEXTRAIO FILEOPS PERMHEAP I !REALOPS %` y{ p=)+` *` +a` ```s 0g1Pdjigh 3g-n&g+kk# g#Zڡdd g#0#kg#.# 2#kg#Z"jdd g#0# g#Z&ddg#eg#E# =#kg#-n&g#+#k# g#Zڡ! g#0i#k&!i!"j" dd"p dd"p 3d2698߇8{8s8x 8shjkl 8xȄ m8  h"`at" "j# #k0mfZ":ff ff #ff "ff%e%E" jf%.#" kf%fl$8s$8{8ć8 Zڡ  塠 ȇ7P9 xĖ8'o  &-Ȋ& hc p cp  hc p !  hc p cp '' ccp ' cc' p cp hccp mj"%ci&"!0cc!p "j' `&&&.j G&"E"j &"-"j h c &" d0"j &" 0"j&" 0&"Ȋ^ '&& p& .&'  p&' Ȋ2&& p&0&.& 0p& '  p&'Ȗ b *)xl$ղ)$xk#զ)$#xm%՘)xՃ $#ph%rg xni &xggp  &xi&n&! xgg xp gg xp g&n`&ph%m b"y{p h (@(( "*<@ `-TIہI1r ^["**!**!**!****-******-**-******-0*""$""**0**!0*""$0""****!-**!'}2$""**"":¹fü͞""k:":*:*""k: "#:*{**X2**:=C""0$""****!""-'"$^*3:3""0{3""*"*"!")-$*KB$****!""*- :u ****-**3Ë **-**!:*""| }» 3}ց2_}o""*"*">2****!"":= :o:3**""*"*">2o&$:<OYP$****!"":=O ****!| }¿ >2 3>2}ց2.( ͬ *&$**J :gͬ ** *&$* *:g  ͘͝  Nu3!: 7 , #   t i e W 7 ~ p m j _ 5 2 '    nO+}rc`M?,) }o^SPEB7S> 3 / &     { w p l Z P K H E B ? ; 3 /       z v s f b [ W S O L G D @ = 9 . * #    zvqgcVRKGDA<8$! yu\XTPHD<51zvrkgZVLH>:3/U R O c ` ] q n k  | y SCREENOPPASCALIOEXTRAIO  EFGL"STRINGOPGOTOXY SMALLCOMCOMMANDIREALOPS    ( K L