RetroBrew HBIOS v2.9.1, 2019-06-03 ZETA Z80 @ 16.000MHz 0 MEM W/S, 1 I/O W/S 512KB ROM, 512KB RAM UART0: IO=0x68 16550A MODE=38400,8,N,1 DSRTC: MODE=STD Sat 2000-01-01 00:16:13 CHARGE=OFF MD: UNITS=2 ROMDISK=384KB RAMDISK=384KB FD: IO=0x36 UNITS=2 PPP: IO=0x60 NOT PRESENT Unit Device Type Capacity/Mode ---------- ---------- ---------------- -------------------- Disk 0 MD1: RAM Disk 384KB,LBA Disk 1 MD0: ROM Disk 384KB,LBA Disk 2 FD0: Floppy Disk 3.5",DS/HD,CHS Disk 3 FD1: Floppy Disk 3.5",DS/HD,CHS Char 0 UART0: RS-232 38400,8,N,1 ZETA Boot Loader ROM: (M)onitor (C)P/M (Z)-System (F)orth (B)ASIC (T)-BASIC Disk: (0)MD1 (1)MD0 (2)FD0 (3)FD1 Boot Selection? Z Loading ZSDOS v1.1... CBIOS v2.9.1 [WBW] Configuring Drives... A:=MD1:0 B:=MD0:0 C:=FD0:0 D:=FD1:0 3719 Disk Buffer Bytes Free ZSDOS v1.1, 54.0K TPA B>dir | ASM .COM | CLRDIR .COM | COPY .CFG | COPY .COM | DDT .COM | DDTZ .COM | DIF .COM | DUMP .COM | ED .COM | FA16 .CFG | FDISK80 .COM | FILEATTR.COM | FILEDATE.CFG | FILEDATE.COM | FLASH .COM | INITDIR .CFG | INITDIR .COM | LDDS .COM | LDP2D .COM | LINK .COM | LOAD .COM | MBASIC .COM | NULU .COM | PIP .COM | PUTDS .COM | RELOG .COM | RMAC .COM | STAT .COM | SUBMIT .COM | SUPERSUB.COM | TD .CFG | TD .COM | UNARC .COM | XSUB .COM | ZAP .COM | ZCAL .COM | ZCNFG .COM | ZCNFG24 .CFG | ZDE .COM | ZPATH .COM | ZSCONFIG.COM | ZXD .CFG | ZXD .COM | ASSIGN .COM | FDU .COM | FORMAT .COM | MODE .COM | OSLDR .COM | RTC .COM | SURVEY .COM | SYSCOPY .COM | SYSGEN .COM | TALK .COM | TIMER .COM | XM .COM | INTTEST .COM | CPM .SYS | ZSYS .SYS B>fdu Floppy Disk Utility (FDU) v5.3, 28-Sep-2018 [HBIOS] Copyright (C) 2018, Wayne Warthen, GNU GPL v3 SELECT FLOPPY DISK CONTROLLER: (0) Exit (1) Disk IO ECB Board (2) Disk IO 3 ECB Board (3) Zeta SBC Onboard FDC (4) Zeta 2 SBC Onboard FDC (5) Dual IDE ECB Board (6) N8 Onboard FDC (7) RC2014 SMC (SMB) (8) RC2014 WDC (SMB) (9) SmallZ80 Expansion === OPTION ===> ZETA ===== ZETA ============<< FDU MAIN MENU >>====================== (S)ETUP: UNIT=00 MEDIA=720KB MODE=POLL TRACE=00 ---------------------------------------------------------------- (R)EAD (W)RITE (F)ORMAT (V)ERIFY (I)NIT BUFFER (D)UMP BUFFER FDC (C)MDS E(X)IT === OPTION ===> SETUP ENTER UNIT [00-03] (00):  00: 3.5" 720KB - 9 SECTORS, 2 SIDES, 80 TRACKS, DOUBLE DENSITY 01: 3.5" 1.44MB - 18 SECTORS, 2 SIDES, 80 TRACKS, HIGH DENSITY 02: 5.25" 320KB - 8 SECTORS, 2 SIDES, 40 TRACKS, DOUBLE DENSITY 03: 5.25" 360KB - 9 SECTORS, 2 SIDES, 40 TRACKS, DOUBLE DENSITY 04: 5.25" 1.2MB - 15 SECTORS, 2 SIDES, 80 TRACKS, HIGH DENSITY 05: 8" 1.11MB - 15 SECTORS, 2 SIDES, 77 TRACKS, DOUBLE DENSITY ENTER MEDIA [00-05] (00): 01 00: POLLING (RECOMMENDED) 01: INTERRUPT (!!! READ MANUAL !!!) 02: FAST INTERRUPT (!!! READ MANUAL !!!) 03: INT/WAIT (!!! READ MANUAL !!!) 04: DRQ/WAIT (!!! NOT YET IMPLEMENTED!!!) ENTER MODE [00-04] (00):  ENTER TRACE LEVEL [00-01] (00): 01 ===== ZETA ============<< FDU MAIN MENU >>====================== (S)ETUP: UNIT=00 MEDIA=1.44MB MODE=POLL TRACE=01 ---------------------------------------------------------------- (R)EAD (W)RITE (F)ORMAT (V)ERIFY (I)NIT BUFFER (D)UMP BUFFER FDC (C)MDS E(X)IT === OPTION ===> FORMAT (T)RACK, (D)ISK ===> DISK ENTER INTERLEAVE [01-12] (02): 12 RESET DRIVE... SENSE INTERRUPT: 08 --> C0 00 DC=01 [DISK CHANGE] SENSE INTERRUPT: 08 --> C1 00 DC=01 [DISK CHANGE] SENSE INTERRUPT: 08 --> C2 00 DC=01 [DISK CHANGE] SENSE INTERRUPT: 08 --> C3 00 DC=01 [DISK CHANGE] SENSE INTERRUPT: 08 --> 80 DC=01 [INVALID COMMAND] SPECIFY: 03 D0 11 --> DC=01 [OK] RECALIBRATE: 07 00 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 80 DC=01 [INVALID COMMAND] SENSE INTERRUPT: 08 --> 80 DC=01 [INVALID COMMAND] SENSE INTERRUPT: 08 --> 80 DC=01 [INVALID COMMAND] SENSE INTERRUPT: 08 --> 80 DC=01 [INVALID COMMAND] SENSE INTERRUPT: 08 --> 80 DC=01 [INVALID COMMAND] SENSE INTERRUPT: 08 --> 80 DC=01 [INVALID COMMAND] SENSE INTERRUPT: 08 --> 80 DC=01 [INVALID COMMAND] SENSE INTERRUPT: 08 --> 80 DC=01 [INVALID COMMAND] SENSE INTERRUPT: 08 --> 80 DC=01 [INVALID COMMAND] SENSE INTERRUPT: 08 --> 80 DC=01 [INVALID COMMAND] SENSE INTERRUPT: 08 --> 80 DC=01 [INVALID COMMAND] SENSE INTERRUPT: 08 --> 80 DC=01 [INVALID COMMAND] SENSE INTERRUPT: 08 --> 80 DC=01 [INVALID COMMAND] SENSE INTERRUPT: 08 --> 80 DC=01 [INVALID COMMAND] SENSE INTERRUPT: 08 --> 80 DC=01 [INVALID COMMAND] SENSE INTERRUPT: 08 --> 80 DC=01 [INVALID COMMAND] SENSE INTERRUPT: 08 --> 80 DC=01 [INVALID COMMAND] SENSE INTERRUPT: 08 --> 70 00 DC=01 [ABNORMAL TERMINATION] RECALIBRATE: 07 00 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 00 DC=01 [OK] PROGRESS: TRACK=00 HEAD=00 SECTOR=01 FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 4B 04 12 02 DC=01 [OK] PROGRESS: TRACK=00 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 4B 04 12 02 DC=01 [OK] PROGRESS: TRACK=01 HEAD=00 SECTOR=01 SEEK: 0F 00 01 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 01 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 01 04 12 02 DC=01 [OK] PROGRESS: TRACK=01 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 01 04 12 02 DC=01 [OK] PROGRESS: TRACK=02 HEAD=00 SECTOR=01 SEEK: 0F 00 02 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 02 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 02 04 12 02 DC=01 [OK] PROGRESS: TRACK=02 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 02 04 12 02 DC=01 [OK] PROGRESS: TRACK=03 HEAD=00 SECTOR=01 SEEK: 0F 00 03 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 03 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 03 04 12 02 DC=01 [OK] PROGRESS: TRACK=03 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 03 04 12 02 DC=01 [OK] PROGRESS: TRACK=04 HEAD=00 SECTOR=01 SEEK: 0F 00 04 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 04 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 04 04 12 02 DC=01 [OK] PROGRESS: TRACK=04 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 04 04 12 02 DC=01 [OK] PROGRESS: TRACK=05 HEAD=00 SECTOR=01 SEEK: 0F 00 05 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 05 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 05 04 12 02 DC=01 [OK] PROGRESS: TRACK=05 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 05 04 12 02 DC=01 [OK] PROGRESS: TRACK=06 HEAD=00 SECTOR=01 SEEK: 0F 00 06 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 06 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 06 04 12 02 DC=01 [OK] PROGRESS: TRACK=06 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 06 04 12 02 DC=01 [OK] PROGRESS: TRACK=07 HEAD=00 SECTOR=01 SEEK: 0F 00 07 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 07 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 07 04 12 02 DC=01 [OK] PROGRESS: TRACK=07 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 07 04 12 02 DC=01 [OK] PROGRESS: TRACK=08 HEAD=00 SECTOR=01 SEEK: 0F 00 08 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 08 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 08 04 12 02 DC=01 [OK] PROGRESS: TRACK=08 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 08 04 12 02 DC=01 [OK] PROGRESS: TRACK=09 HEAD=00 SECTOR=01 SEEK: 0F 00 09 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 09 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 09 04 12 02 DC=01 [OK] PROGRESS: TRACK=09 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 09 04 12 02 DC=01 [OK] PROGRESS: TRACK=0A HEAD=00 SECTOR=01 SEEK: 0F 00 0A --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 0A DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 0A 04 12 02 DC=01 [OK] PROGRESS: TRACK=0A HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 0A 04 12 02 DC=01 [OK] PROGRESS: TRACK=0B HEAD=00 SECTOR=01 SEEK: 0F 00 0B --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 0B DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 0B 04 12 02 DC=01 [OK] PROGRESS: TRACK=0B HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 0B 04 12 02 DC=01 [OK] PROGRESS: TRACK=0C HEAD=00 SECTOR=01 SEEK: 0F 00 0C --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 0C DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 0C 04 12 02 DC=01 [OK] PROGRESS: TRACK=0C HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 0C 04 12 02 DC=01 [OK] PROGRESS: TRACK=0D HEAD=00 SECTOR=01 SEEK: 0F 00 0D --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 0D DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 0D 04 12 02 DC=01 [OK] PROGRESS: TRACK=0D HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 0D 04 12 02 DC=01 [OK] PROGRESS: TRACK=0E HEAD=00 SECTOR=01 SEEK: 0F 00 0E --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 0E DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 0E 04 12 02 DC=01 [OK] PROGRESS: TRACK=0E HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 0E 04 12 02 DC=01 [OK] PROGRESS: TRACK=0F HEAD=00 SECTOR=01 SEEK: 0F 00 0F --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 0F DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 0F 04 12 02 DC=01 [OK] PROGRESS: TRACK=0F HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 0F 04 12 02 DC=01 [OK] PROGRESS: TRACK=10 HEAD=00 SECTOR=01 SEEK: 0F 00 10 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 10 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 10 04 12 02 DC=01 [OK] PROGRESS: TRACK=10 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 10 04 12 02 DC=01 [OK] PROGRESS: TRACK=11 HEAD=00 SECTOR=01 SEEK: 0F 00 11 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 11 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 11 04 12 02 DC=01 [OK] PROGRESS: TRACK=11 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 11 04 12 02 DC=01 [OK] PROGRESS: TRACK=12 HEAD=00 SECTOR=01 SEEK: 0F 00 12 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 12 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 12 04 12 02 DC=01 [OK] PROGRESS: TRACK=12 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 12 04 12 02 DC=01 [OK] PROGRESS: TRACK=13 HEAD=00 SECTOR=01 SEEK: 0F 00 13 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 13 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 13 04 12 02 DC=01 [OK] PROGRESS: TRACK=13 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 13 04 12 02 DC=01 [OK] PROGRESS: TRACK=14 HEAD=00 SECTOR=01 SEEK: 0F 00 14 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 14 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 14 04 12 02 DC=01 [OK] PROGRESS: TRACK=14 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 14 04 12 02 DC=01 [OK] PROGRESS: TRACK=15 HEAD=00 SECTOR=01 SEEK: 0F 00 15 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 15 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 15 04 12 02 DC=01 [OK] PROGRESS: TRACK=15 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 15 04 12 02 DC=01 [OK] PROGRESS: TRACK=16 HEAD=00 SECTOR=01 SEEK: 0F 00 16 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 16 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 16 04 12 02 DC=01 [OK] PROGRESS: TRACK=16 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 16 04 12 02 DC=01 [OK] PROGRESS: TRACK=17 HEAD=00 SECTOR=01 SEEK: 0F 00 17 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 17 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 17 04 12 02 DC=01 [OK] PROGRESS: TRACK=17 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 17 04 12 02 DC=01 [OK] PROGRESS: TRACK=18 HEAD=00 SECTOR=01 SEEK: 0F 00 18 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 18 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 18 04 12 02 DC=01 [OK] PROGRESS: TRACK=18 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 18 04 12 02 DC=01 [OK] PROGRESS: TRACK=19 HEAD=00 SECTOR=01 SEEK: 0F 00 19 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 19 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 19 04 12 02 DC=01 [OK] PROGRESS: TRACK=19 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 19 04 12 02 DC=01 [OK] PROGRESS: TRACK=1A HEAD=00 SECTOR=01 SEEK: 0F 00 1A --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 1A DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 1A 04 12 02 DC=01 [OK] PROGRESS: TRACK=1A HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 1A 04 12 02 DC=01 [OK] PROGRESS: TRACK=1B HEAD=00 SECTOR=01 SEEK: 0F 00 1B --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 1B DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 1B 04 12 02 DC=01 [OK] PROGRESS: TRACK=1B HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 1B 04 12 02 DC=01 [OK] PROGRESS: TRACK=1C HEAD=00 SECTOR=01 SEEK: 0F 00 1C --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 1C DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 1C 04 12 02 DC=01 [OK] PROGRESS: TRACK=1C HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 1C 04 12 02 DC=01 [OK] PROGRESS: TRACK=1D HEAD=00 SECTOR=01 SEEK: 0F 00 1D --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 1D DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 1D 04 12 02 DC=01 [OK] PROGRESS: TRACK=1D HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 1D 04 12 02 DC=01 [OK] PROGRESS: TRACK=1E HEAD=00 SECTOR=01 SEEK: 0F 00 1E --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 1E DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 1E 04 12 02 DC=01 [OK] PROGRESS: TRACK=1E HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 1E 04 12 02 DC=01 [OK] PROGRESS: TRACK=1F HEAD=00 SECTOR=01 SEEK: 0F 00 1F --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 1F DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 1F 04 12 02 DC=01 [OK] PROGRESS: TRACK=1F HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 1F 04 12 02 DC=01 [OK] PROGRESS: TRACK=20 HEAD=00 SECTOR=01 SEEK: 0F 00 20 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 20 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 20 04 12 02 DC=01 [OK] PROGRESS: TRACK=20 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 20 04 12 02 DC=01 [OK] PROGRESS: TRACK=21 HEAD=00 SECTOR=01 SEEK: 0F 00 21 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 21 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 21 04 12 02 DC=01 [OK] PROGRESS: TRACK=21 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 21 04 12 02 DC=01 [OK] PROGRESS: TRACK=22 HEAD=00 SECTOR=01 SEEK: 0F 00 22 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 22 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 22 04 12 02 DC=01 [OK] PROGRESS: TRACK=22 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 22 04 12 02 DC=01 [OK] PROGRESS: TRACK=23 HEAD=00 SECTOR=01 SEEK: 0F 00 23 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 23 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 23 04 12 02 DC=01 [OK] PROGRESS: TRACK=23 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 23 04 12 02 DC=01 [OK] PROGRESS: TRACK=24 HEAD=00 SECTOR=01 SEEK: 0F 00 24 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 24 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 24 04 12 02 DC=01 [OK] PROGRESS: TRACK=24 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 24 04 12 02 DC=01 [OK] PROGRESS: TRACK=25 HEAD=00 SECTOR=01 SEEK: 0F 00 25 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 25 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 25 04 12 02 DC=01 [OK] PROGRESS: TRACK=25 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 25 04 12 02 DC=01 [OK] PROGRESS: TRACK=26 HEAD=00 SECTOR=01 SEEK: 0F 00 26 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 26 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 26 04 12 02 DC=01 [OK] PROGRESS: TRACK=26 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 26 04 12 02 DC=01 [OK] PROGRESS: TRACK=27 HEAD=00 SECTOR=01 SEEK: 0F 00 27 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 27 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 27 04 12 02 DC=01 [OK] PROGRESS: TRACK=27 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 27 04 12 02 DC=01 [OK] PROGRESS: TRACK=28 HEAD=00 SECTOR=01 SEEK: 0F 00 28 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 28 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 28 04 12 02 DC=01 [OK] PROGRESS: TRACK=28 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 28 04 12 02 DC=01 [OK] PROGRESS: TRACK=29 HEAD=00 SECTOR=01 SEEK: 0F 00 29 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 29 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 29 04 12 02 DC=01 [OK] PROGRESS: TRACK=29 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 29 04 12 02 DC=01 [OK] PROGRESS: TRACK=2A HEAD=00 SECTOR=01 SEEK: 0F 00 2A --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 2A DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 2A 04 12 02 DC=01 [OK] PROGRESS: TRACK=2A HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 2A 04 12 02 DC=01 [OK] PROGRESS: TRACK=2B HEAD=00 SECTOR=01 SEEK: 0F 00 2B --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 2B DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 2B 04 12 02 DC=01 [OK] PROGRESS: TRACK=2B HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 2B 04 12 02 DC=01 [OK] PROGRESS: TRACK=2C HEAD=00 SECTOR=01 SEEK: 0F 00 2C --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 2C DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 2C 04 12 02 DC=01 [OK] PROGRESS: TRACK=2C HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 2C 04 12 02 DC=01 [OK] PROGRESS: TRACK=2D HEAD=00 SECTOR=01 SEEK: 0F 00 2D --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 2D DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 2D 04 12 02 DC=01 [OK] PROGRESS: TRACK=2D HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 2D 04 12 02 DC=01 [OK] PROGRESS: TRACK=2E HEAD=00 SECTOR=01 SEEK: 0F 00 2E --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 2E DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 2E 04 12 02 DC=01 [OK] PROGRESS: TRACK=2E HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 2E 04 12 02 DC=01 [OK] PROGRESS: TRACK=2F HEAD=00 SECTOR=01 SEEK: 0F 00 2F --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 2F DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 2F 04 12 02 DC=01 [OK] PROGRESS: TRACK=2F HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 2F 04 12 02 DC=01 [OK] PROGRESS: TRACK=30 HEAD=00 SECTOR=01 SEEK: 0F 00 30 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 30 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 30 04 12 02 DC=01 [OK] PROGRESS: TRACK=30 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 30 04 12 02 DC=01 [OK] PROGRESS: TRACK=31 HEAD=00 SECTOR=01 SEEK: 0F 00 31 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 31 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 31 04 12 02 DC=01 [OK] PROGRESS: TRACK=31 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 31 04 12 02 DC=01 [OK] PROGRESS: TRACK=32 HEAD=00 SECTOR=01 SEEK: 0F 00 32 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 32 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 32 04 12 02 DC=01 [OK] PROGRESS: TRACK=32 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 32 04 12 02 DC=01 [OK] PROGRESS: TRACK=33 HEAD=00 SECTOR=01 SEEK: 0F 00 33 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 33 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 33 04 12 02 DC=01 [OK] PROGRESS: TRACK=33 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 33 04 12 02 DC=01 [OK] PROGRESS: TRACK=34 HEAD=00 SECTOR=01 SEEK: 0F 00 34 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 34 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 34 04 12 02 DC=01 [OK] PROGRESS: TRACK=34 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 34 04 12 02 DC=01 [OK] PROGRESS: TRACK=35 HEAD=00 SECTOR=01 SEEK: 0F 00 35 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 35 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 35 04 12 02 DC=01 [OK] PROGRESS: TRACK=35 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 35 04 12 02 DC=01 [OK] PROGRESS: TRACK=36 HEAD=00 SECTOR=01 SEEK: 0F 00 36 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 36 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 36 04 12 02 DC=01 [OK] PROGRESS: TRACK=36 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 36 04 12 02 DC=01 [OK] PROGRESS: TRACK=37 HEAD=00 SECTOR=01 SEEK: 0F 00 37 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 37 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 37 04 12 02 DC=01 [OK] PROGRESS: TRACK=37 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 37 04 12 02 DC=01 [OK] PROGRESS: TRACK=38 HEAD=00 SECTOR=01 SEEK: 0F 00 38 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 38 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 38 04 12 02 DC=01 [OK] PROGRESS: TRACK=38 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 38 04 12 02 DC=01 [OK] PROGRESS: TRACK=39 HEAD=00 SECTOR=01 SEEK: 0F 00 39 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 39 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 39 04 12 02 DC=01 [OK] PROGRESS: TRACK=39 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 39 04 12 02 DC=01 [OK] PROGRESS: TRACK=3A HEAD=00 SECTOR=01 SEEK: 0F 00 3A --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 3A DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 3A 04 12 02 DC=01 [OK] PROGRESS: TRACK=3A HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 3A 04 12 02 DC=01 [OK] PROGRESS: TRACK=3B HEAD=00 SECTOR=01 SEEK: 0F 00 3B --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 3B DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 3B 04 12 02 DC=01 [OK] PROGRESS: TRACK=3B HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 3B 04 12 02 DC=01 [OK] PROGRESS: TRACK=3C HEAD=00 SECTOR=01 SEEK: 0F 00 3C --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 3C DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 3C 04 12 02 DC=01 [OK] PROGRESS: TRACK=3C HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 3C 04 12 02 DC=01 [OK] PROGRESS: TRACK=3D HEAD=00 SECTOR=01 SEEK: 0F 00 3D --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 3D DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 3D 04 12 02 DC=01 [OK] PROGRESS: TRACK=3D HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 3D 04 12 02 DC=01 [OK] PROGRESS: TRACK=3E HEAD=00 SECTOR=01 SEEK: 0F 00 3E --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 3E DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 3E 04 12 02 DC=01 [OK] PROGRESS: TRACK=3E HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 3E 04 12 02 DC=01 [OK] PROGRESS: TRACK=3F HEAD=00 SECTOR=01 SEEK: 0F 00 3F --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 3F DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 3F 04 12 02 DC=01 [OK] PROGRESS: TRACK=3F HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 3F 04 12 02 DC=01 [OK] PROGRESS: TRACK=40 HEAD=00 SECTOR=01 SEEK: 0F 00 40 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 40 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 40 04 12 02 DC=01 [OK] PROGRESS: TRACK=40 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 40 04 12 02 DC=01 [OK] PROGRESS: TRACK=41 HEAD=00 SECTOR=01 SEEK: 0F 00 41 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 41 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 41 04 12 02 DC=01 [OK] PROGRESS: TRACK=41 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 41 04 12 02 DC=01 [OK] PROGRESS: TRACK=42 HEAD=00 SECTOR=01 SEEK: 0F 00 42 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 42 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 42 04 12 02 DC=01 [OK] PROGRESS: TRACK=42 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 42 04 12 02 DC=01 [OK] PROGRESS: TRACK=43 HEAD=00 SECTOR=01 SEEK: 0F 00 43 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 43 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 43 04 12 02 DC=01 [OK] PROGRESS: TRACK=43 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 43 04 12 02 DC=01 [OK] PROGRESS: TRACK=44 HEAD=00 SECTOR=01 SEEK: 0F 00 44 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 44 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 44 04 12 02 DC=01 [OK] PROGRESS: TRACK=44 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 44 04 12 02 DC=01 [OK] PROGRESS: TRACK=45 HEAD=00 SECTOR=01 SEEK: 0F 00 45 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 45 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 45 04 12 02 DC=01 [OK] PROGRESS: TRACK=45 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 45 04 12 02 DC=01 [OK] PROGRESS: TRACK=46 HEAD=00 SECTOR=01 SEEK: 0F 00 46 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 46 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 46 04 12 02 DC=01 [OK] PROGRESS: TRACK=46 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 46 04 12 02 DC=01 [OK] PROGRESS: TRACK=47 HEAD=00 SECTOR=01 SEEK: 0F 00 47 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 47 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 47 04 12 02 DC=01 [OK] PROGRESS: TRACK=47 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 47 04 12 02 DC=01 [OK] PROGRESS: TRACK=48 HEAD=00 SECTOR=01 SEEK: 0F 00 48 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 48 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 48 04 12 02 DC=01 [OK] PROGRESS: TRACK=48 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 48 04 12 02 DC=01 [OK] PROGRESS: TRACK=49 HEAD=00 SECTOR=01 SEEK: 0F 00 49 --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 49 DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 49 04 12 02 DC=01 [OK] PROGRESS: TRACK=49 HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 49 04 12 02 DC=01 [OK] PROGRESS: TRACK=4A HEAD=00 SECTOR=01 SEEK: 0F 00 4A --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 4A DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 4A 04 12 02 DC=01 [OK] PROGRESS: TRACK=4A HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 4A 04 12 02 DC=01 [OK] PROGRESS: TRACK=4B HEAD=00 SECTOR=01 SEEK: 0F 00 4B --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 4B DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 4B 04 12 02 DC=01 [OK] PROGRESS: TRACK=4B HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 4B 04 12 02 DC=01 [OK] PROGRESS: TRACK=4C HEAD=00 SECTOR=01 SEEK: 0F 00 4C --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 4C DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 4C 04 12 02 DC=01 [OK] PROGRESS: TRACK=4C HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 4C 04 12 02 DC=01 [OK] PROGRESS: TRACK=4D HEAD=00 SECTOR=01 SEEK: 0F 00 4D --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 4D DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 4D 04 12 02 DC=01 [OK] PROGRESS: TRACK=4D HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 4D 04 12 02 DC=01 [OK] PROGRESS: TRACK=4E HEAD=00 SECTOR=01 SEEK: 0F 00 4E --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 4E DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 4E 04 12 02 DC=01 [OK] PROGRESS: TRACK=4E HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 4E 04 12 02 DC=01 [OK] PROGRESS: TRACK=4F HEAD=00 SECTOR=01 SEEK: 0F 00 4F --> DC=01 [OK] SENSE INTERRUPT: 08 --> 20 4F DC=01 [OK] FORMAT TRACK: 4D 00 02 12 6C E5 --> 00 00 00 4F 04 12 02 DC=01 [OK] PROGRESS: TRACK=4F HEAD=01 SECTOR=01 FORMAT TRACK: 4D 04 02 12 6C E5 --> 04 00 00 4F 04 12 02 DC=01 [OK] ===== ZETA ============<< FDU MAIN MENU >>====================== (S)ETUP: UNIT=00 MEDIA=1.44MB MODE=POLL TRACE=01 ---------------------------------------------------------------- (R)EAD (W)RITE (F)ORMAT (V)ERIFY (I)NIT BUFFER (D)UMP BUFFER FDC (C)MDS E(X)IT === OPTION ===> EXIT B>dir c: No File B>dir | ASM .COM | CLRDIR .COM | COPY .CFG | COPY .COM | DDT .COM | DDTZ .COM | DIF .COM | DUMP .COM | ED .COM | FA16 .CFG | FDISK80 .COM | FILEATTR.COM | FILEDATE.CFG | FILEDATE.COM | FLASH .COM | INITDIR .CFG | INITDIR .COM | LDDS .COM | LDP2D .COM | LINK .COM | LOAD .COM | MBASIC .COM | NULU .COM | PIP .COM | PUTDS .COM | RELOG .COM | RMAC .COM | STAT .COM | SUBMIT .COM | SUPERSUB.COM | TD .CFG | TD .COM | UNARC .COM | XSUB .COM | ZAP .COM | ZCAL .COM | ZCNFG .COM | ZCNFG24 .CFG | ZDE .COM | ZPATH .COM | ZSCONFIG.COM | ZXD .CFG | ZXD .COM | ASSIGN .COM | FDU .COM | FORMAT .COM | MODE .COM | OSLDR .COM | RTC .COM | SURVEY .COM | SYSCOPY .COM | SYSGEN .COM | TALK .COM | TIMER .COM | XM .COM | INTTEST .COM | CPM .SYS | ZSYS .SYS B>sysgen ROMWBW SYSGEN VER 2.0 SOURCE DRIVE NAME (OR RETURN TO SKIP): b SOURCE ON B:, THEN TYPE RETURN NON-SYSTEM DISK ERROR SOURCE DRIVE NAME (OR RETURN TO SKIP): b SOURCE ON B:, THEN TYPE RETURNz B>sysgen c: = zsys.sys ROMWBW SYSGEN VER 2.0 SOURCE DRIVE NAME (OR RETURN TO SKIP): DESTINATION DRIVE NAME (OR RETURN TO REBOOT): c DESTINATION ON C:, THEN TYPE RETURN FUNCTION COMPLETE DESTINATION DRIVE NAME (OR RETURN TO REBOOT): B>dir c: No File B> RetroBrew HBIOS v2.9.1, 2019-06-03 ZETA Z80 @ 15.992MHz 0 MEM W/S, 1 I/O W/S 512KB ROM, 512KB RAM UART0: IO=0x68 16550A MODE=38400,8,N,1 DSRTC: MODE=STD Sat 2000-01-01 00:20:19 CHARGE=OFF MD: UNITS=2 ROMDISK=384KB RAMDISK=384KB FD: IO=0x36 UNITS=2 PPP: IO=0x60 NOT PRESENT Unit Device Type Capacity/Mode ---------- ---------- ---------------- -------------------- Disk 0 MD1: RAM Disk 384KB,LBA Disk 1 MD0: ROM Disk 384KB,LBA Disk 2 FD0: Floppy Disk 3.5",DS/HD,CHS Disk 3 FD1: Floppy Disk 3.5",DS/HD,CHS Char 0 UART0: RS-232 38400,8,N,1 ZETA Boot Loader ROM: (M)onitor (C)P/M (Z)-System (F)orth (B)ASIC (T)-BASIC Disk: (0)MD1 (1)MD0 (2)FD0 (3)FD1 Boot Selection? 2 Booting Disk Unit 02... Reading disk information... Disk not bootable! ROM: (M)onitor (C)P/M (Z)-System (F)orth (B)ASIC (T)-BASIC Disk: (0)MD1 (1)MD0 (2)FD0 (3)FD1 Boot Selection? 2 Booting Disk Unit 02... Reading disk information... Disk not bootable! ROM: (M)onitor (C)P/M (Z)-System (F)orth (B)ASIC (T)-BASIC Disk: (0)MD1 (1)MD0 (2)FD0 (3)FD1 Boot Selection? Z Loading ZSDOS v1.1... CBIOS v2.9.1 [WBW] Configuring Drives... A:=MD1:0 B:=MD0:0 C:=FD0:0 D:=FD1:0 3719 Disk Buffer Bytes Free ZSDOS v1.1, 54.0K TPA B>dir | ASM .COM | CLRDIR .COM | COPY .CFG | COPY .COM | DDT .COM | DDTZ .COM | DIF .COM | DUMP .COM | ED .COM | FA16 .CFG | FDISK80 .COM | FILEATTR.COM | FILEDATE.CFG | FILEDATE.COM | FLASH .COM | INITDIR .CFG | INITDIR .COM | LDDS .COM | LDP2D .COM | LINK .COM | LOAD .COM | MBASIC .COM | NULU .COM | PIP .COM | PUTDS .COM | RELOG .COM | RMAC .COM | STAT .COM | SUBMIT .COM | SUPERSUB.COM | TD .CFG | TD .COM | UNARC .COM | XSUB .COM | ZAP .COM | ZCAL .COM | ZCNFG .COM | ZCNFG24 .CFG | ZDE .COM | ZPATH .COM | ZSCONFIG.COM | ZXD .CFG | ZXD .COM | ASSIGN .COM | FDU .COM | FORMAT .COM | MODE .COM | OSLDR .COM | RTC .COM | SURVEY .COM | SYSCOPY .COM | SYSGEN .COM | TALK .COM | TIMER .COM | XM .COM | INTTEST .COM | CPM .SYS | ZSYS .SYS B>dir | ASM .COM | CLRDIR .COM | COPY .CFG | COPY .COM | DDT .COM | DDTZ .COM | DIF .COM | DUMP .COM | ED .COM | FA16 .CFG | FDISK80 .COM | FILEATTR.COM | FILEDATE.CFG | FILEDATE.COM | FLASH .COM | INITDIR .CFG | INITDIR .COM | LDDS .COM | LDP2D .COM | LINK .COM | LOAD .COM | MBASIC .COM | NULU .COM | PIP .COM | PUTDS .COM | RELOG .COM | RMAC .COM | STAT .COM | SUBMIT .COM | SUPERSUB.COM | TD .CFG | TD .COM | UNARC .COM | XSUB .COM | ZAP .COM | ZCAL .COM | ZCNFG .COM | ZCNFG24 .CFG | ZDE .COM | ZPATH .COM | ZSCONFIG.COM | ZXD .CFG | ZXD .COM | ASSIGN .COM | FDU .COM | FORMAT .COM | MODE .COM | OSLDR .COM | RTC .COM | SURVEY .COM | SYSCOPY .COM | SYSGEN .COM | TALK .COM | TIMER .COM | XM .COM | INTTEST .COM | CPM .SYS | ZSYS .SYS B>syscopy Usage: SYSCOPY [=] B>syscopy c: = b: Transfer system image from B: to C: (Y/N)? Y Reading image... Non-system disk error B>dir | ASM .COM | CLRDIR .COM | COPY .CFG | COPY .COM | DDT .COM | DDTZ .COM | DIF .COM | DUMP .COM | ED .COM | FA16 .CFG | FDISK80 .COM | FILEATTR.COM | FILEDATE.CFG | FILEDATE.COM | FLASH .COM | INITDIR .CFG | INITDIR .COM | LDDS .COM | LDP2D .COM | LINK .COM | LOAD .COM | MBASIC .COM | NULU .COM | PIP .COM | PUTDS .COM | RELOG .COM | RMAC .COM | STAT .COM | SUBMIT .COM | SUPERSUB.COM | TD .CFG | TD .COM | UNARC .COM | XSUB .COM | ZAP .COM | ZCAL .COM | ZCNFG .COM | ZCNFG24 .CFG | ZDE .COM | ZPATH .COM | ZSCONFIG.COM | ZXD .CFG | ZXD .COM | ASSIGN .COM | FDU .COM | FORMAT .COM | MODE .COM | OSLDR .COM | RTC .COM | SURVEY .COM | SYSCOPY .COM | SYSGEN .COM | TALK .COM | TIMER .COM | XM .COM | INTTEST .COM | CPM .SYS | ZSYS .SYS B>survey *** System Survey (December 17) *** Drive A: 24K bytes in 0 files with 360K bytes remaining Drive B: 380K bytes in 58 files with 4K bytes remaining Memory map: 0 8 16 24 32 40 48 56 64 | | | | | | | | | TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTCCCBBBBBBB T=TPA C=CPM B=BIOS or unassigned R=ROM or bad BIOS at E603 iobyte 94 drive 01 BDOS at D806 65535 Bytes RAM 0 Bytes ROM 55302 Bytes in TPA 0 Bytes Empty 65535 Total Active Bytes Active I/O ports: 30 31 32 33 34 35 36 37 38 39 3A 3B 3C 3D 3E 3F 60 61 62 63 64 65 66 67 68 69 6A 6B 6C 6D 6E 6F 32 Ports active B>dir | ASM .COM | CLRDIR .COM | COPY .CFG | COPY .COM | DDT .COM | DDTZ .COM | DIF .COM | DUMP .COM | ED .COM | FA16 .CFG | FDISK80 .COM | FILEATTR.COM | FILEDATE.CFG | FILEDATE.COM | FLASH .COM | INITDIR .CFG | INITDIR .COM | LDDS .COM | LDP2D .COM | LINK .COM | LOAD .COM | MBASIC .COM | NULU .COM | PIP .COM | PUTDS .COM | RELOG .COM | RMAC .COM | STAT .COM | SUBMIT .COM | SUPERSUB.COM | TD .CFG | TD .COM | UNARC .COM | XSUB .COM | ZAP .COM | ZCAL .COM | ZCNFG .COM | ZCNFG24 .CFG | ZDE .COM | ZPATH .COM | ZSCONFIG.COM | ZXD .CFG | ZXD .COM | ASSIGN .COM | FDU .COM | FORMAT .COM | MODE .COM | OSLDR .COM | RTC .COM | SURVEY .COM | SYSCOPY .COM | SYSGEN .COM | TALK .COM | TIMER .COM | XM .COM | INTTEST .COM | CPM .SYS | ZSYS .SYS B>rtc Start RTC Program RomWBW HBIOS, SBC/Zeta RTC Latch Port 0x70 RTC: Version 1.2 Commands: E)xit T)ime st(A)rt S)et R)aw L)oop C)harge N)ocharge D)elay I)nit G)et P)ut B)oot H)elp RTC>r Raw read Loop. Press SPACE BAR for next. 23:52 c RTC>h RTC: Version 1.2 Commands: E)xit T)ime st(A)rt S)et R)aw L)oop C)harge N)ocharge D)elay I)nit G)et P)ut B)oot H)elp RTC>s Set RTC time. RTC>s Set RTC time. RTC>t Current time: 18-11-08 00:00:06-05 RTC>t Current time: 18-11-08 00:00:09-05 RTC>t Current time: 18-11-08 00:00:10-05 RTC>r Raw read Loop. Press SPACE BAR for next. 00:14 00:15 00:16 00:16 00:17 00:17 00:17 00:17 RTC>d Testing bit delay. Successful test is ~43 sec. Start clock and press space bar. Test complete. Stop clock. RTC>x RTC>h RTC: Version 1.2 Commands: E)xit T)ime st(A)rt S)et R)aw L)oop C)harge N)ocharge D)elay I)nit G)et P)ut B)oot H)elp RTC>e B>dir | ASM .COM | CLRDIR .COM | COPY .CFG | COPY .COM | DDT .COM | DDTZ .COM | DIF .COM | DUMP .COM | ED .COM | FA16 .CFG | FDISK80 .COM | FILEATTR.COM | FILEDATE.CFG | FILEDATE.COM | FLASH .COM | INITDIR .CFG | INITDIR .COM | LDDS .COM | LDP2D .COM | LINK .COM | LOAD .COM | MBASIC .COM | NULU .COM | PIP .COM | PUTDS .COM | RELOG .COM | RMAC .COM | STAT .COM | SUBMIT .COM | SUPERSUB.COM | TD .CFG | TD .COM | UNARC .COM | XSUB .COM | ZAP .COM | ZCAL .COM | ZCNFG .COM | ZCNFG24 .CFG | ZDE .COM | ZPATH .COM | ZSCONFIG.COM | ZXD .CFG | ZXD .COM | ASSIGN .COM | FDU .COM | FORMAT .COM | MODE .COM | OSLDR .COM | RTC .COM | SURVEY .COM | SYSCOPY .COM | SYSGEN .COM | TALK .COM | TIMER .COM | XM .COM | INTTEST .COM | CPM .SYS | ZSYS .SYS B>mbasc ic BASIC-80 Rev. 5.21 [CP/M Version] Copyright 1977-1981 (C) by Microsoft Created: 28-Jul-81 29752 Bytes free Ok PRINT 4*ATN(1) 3.14159 Ok SYSTEM B>DUMP PIP.COM 0000 C3 CE 04 C9 00 00 C9 00 00 1A 00 00 00 00 00 00 0010 28 49 4E 50 3A 2F 4F 55 54 3A 53 50 41 43 45 29 0020 28 49 4E 50 3A 2F 4F 55 54 3A 53 50 41 43 45 29 0030 28 49 4E 50 3A 2F 4F 55 54 3A 53 50 41 43 45 29 0040 28 49 4E 50 3A 2F 4F 55 54 3A 53 50 41 43 45 29 0050 28 49 4E 50 3A 2F 4F 55 54 3A 53 50 41 43 45 29 0060 28 49 4E 50 3A 2F 4F 55 54 3A 53 50 41 43 45 29 0070 28 49 4E 50 3A 2F 4F 55 54 3A 53 50 41 43 45 29 0080 28 49 4E 50 3A 2F 4F 55 54 3A 53 50 41 43 45 29 0090 28 49 4E 50 3A 2F 4F 55 54 3A 53 50 41 43 45 29 00A0 28 49 4E 50 3A 2F 4F 55 54 3A 53 50 41 43 45 29 00B0 28 49 4E 50 3A 2F 4F 55 54 3A 53 50 41 43 45 29 00C0 28 49 4E 50 3A 2F 4F 55 54 3A 53 50 41 43 45 29 00D0 28 49 4E 50 3A 2F 4F 55 54 3A 53 50 41 43 45 29 00E0 28 49 4E 50 3A 2F 4F 55 54 3A 53 50 41 43 45 29 00F0 28 49 4E 50 3A 2F 4F 55 54 3A 53 50 41 43 45 29 0100 20 20 20 43 4F 50 59 52 49 47 48 54 20 28 43 29 0110 20 31 39 37 39 2C 20 44 49 47 49 54 41 4C 20 52 0120 45 53 45 41 52 43 48 2C 20 20 50 49 50 20 56 45 0130 52 53 20 31 2E 35 03 01 06 01 00 24 24 24 20 20 0140 20 20 20 53 55 42 00 00 00 20 3D 2E 3A 2C 3C 3E 0150 0D 5F 5B 5D 49 4E 50 49 52 44 50 54 52 55 52 31 0160 55 52 32 52 44 52 4F 55 54 4C 50 54 55 4C 31 50 0170 52 4E 4C 53 54 50 54 50 55 50 31 55 50 32 50 55 0180 4E 54 54 59 43 52 54 55 43 31 43 4F 4E 4E 55 4C 0190 45 4F 46 00 44 49 53 4B 20 52 45 41 44 20 45 52 01A0 52 4F 52 24 44 49 53 4B 20 57 52 49 54 45 20 45 01B0 52 52 4F 52 24 56 45 52 49 46 59 20 45 52 52 4F 01C0 52 24 4E 4F 54 20 41 20 43 48 41 52 41 43 54 45 01D0 52 20 53 49 4E 4B 24 52 45 41 44 45 52 20 53 54 01E0 4F 50 50 49 4E 47 0D 0A 24 4E 4F 54 20 41 20 43 01F0 48 41 52 41 43 54 45 52 20 53 4F 55 52 43 45 24 0200 41 42 4F 52 54 45 44 24 42 41 44 20 50 41 52 41 0210 4D 45 54 45 52 24 49 4E 56 41 4C 49 44 20 55 53 0220 45 52 20 4E 55 4D 42 45 52 24 52 45 43 4F 52 44 0230 20 54 4F 4F 20 4C 4F 4E 47 24 49 4E 56 41 4C 49 0240 44 20 44 49 47 49 54 24 45 4E 44 20 4F 46 20 46 0250 49 4C 45 2C 20 43 54 4C 2D 5A 3F 24 43 48 45 43 0260 4B 53 55 4D 20 45 52 52 4F 52 24 43 4F 52 52 45 0270 43 54 20 45 52 52 4F 52 2C 20 54 59 50 45 20 52 0280 45 54 55 52 4E 20 4F 52 20 43 54 4C 2D 5A 24 49 0290 4E 56 41 4C 49 44 20 46 4F 52 4D 41 54 24 48 45 02A0 58 24 24 24 24 4E 4F 20 44 49 52 45 43 54 4F 52 02B0 59 20 53 50 41 43 45 24 4E 4F 20 46 49 4C 45 24 02C0 43 4F 4D 24 53 54 41 52 54 20 4E 4F 54 20 46 4F 02D0 55 4E 44 24 51 55 49 54 20 4E 4F 54 20 46 4F 55 02E0 4E 44 24 43 41 4E 4E 4F 54 20 43 4C 4F 53 45 20 02F0 44 45 53 54 49 4E 41 54 49 4F 4E 20 46 49 4C 45 0300 24 44 45 53 54 49 4E 41 54 49 4F 4E 20 49 53 20 0310 52 2F 4F 2C 20 44 45 4C 45 54 45 20 28 59 2F 4E 0320 29 3F 24 2A 2A 4E 4F 54 20 44 45 4C 45 54 45 44 0330 2A 2A 24 24 24 24 24 24 24 4E 4F 54 20 46 4F 55 0340 4E 44 24 43 4F 50 59 49 4E 47 20 2D 24 52 45 51 0350 55 49 52 45 53 20 43 50 2F 4D 20 32 2E 30 20 4F 0360 52 20 4E 45 57 45 52 20 46 4F 52 20 4F 50 45 52 0370 41 54 49 4F 4E 2E 24 55 4E 52 45 43 4F 47 4E 49 0380 5A 45 44 20 44 45 53 54 49 4E 41 54 49 4F 4E 24 0390 43 41 4E 4E 4F 54 20 57 52 49 54 45 24 49 4E 56 03A0 41 4C 49 44 20 50 49 50 20 46 4F 52 4D 41 54 24 03B0 43 41 4E 4E 4F 54 20 52 45 41 44 24 49 4E 56 41 03C0 4C 49 44 20 53 45 50 41 52 41 54 4F 52 24 31 F2 03D0 1D 01 80 00 C5 1E 80 01 CC 1E CD 18 0A 3A CC 1E 03E0 D6 00 D6 01 9F 32 A5 1E CD 4C 08 EB 3E 20 CD 84 03F0 1D D2 FD 04 01 4D 04 CD 39 08 CD 00 00 CD 16 09 0400 32 C0 1E 11 00 00 0E 19 CD 05 00 32 FC 1D 31 F2 0410 1D CD 40 1A 3A C0 1E 32 C1 1E 21 6F 1F 36 00 2B 0420 36 00 2B 36 00 21 A6 1E 36 01 23 36 00 21 F3 1D 0430 36 00 23 36 FE 3A A5 1E 1F D2 47 05 0E 2A CD 1C 0440 08 CD 6F 09 CD 2E 08 21 4E 1F 36 FF 3A CC 1E FE 0450 00 C2 5E 05 2A FC 1D 4D CD 5E 08 CD 00 00 21 4B 0460 1E 36 00 21 03 1E 36 00 21 A4 1E 36 00 2B 36 00 0470 01 27 1E CD 20 12 3A A9 1E FE 03 C2 81 05 C3 24 0480 06 3A A9 1E FE 04 C2 C3 05 3A 94 1F 3D 32 4B 1E 0490 CD 0C 1D 01 06 1E CD 20 12 3A A9 1E FE 02 CA A4 04A0 05 CD 5C 18 3A F5 1D 1F D2 B7 05 01 5C 00 CD EE 04B0 1C CD 78 1B C3 C0 05 01 27 1E CD EE 1C CD B2 1A 04C0 C3 DB 07 3A A9 1E D6 02 C6 FF 9F 21 F5 1D B6 1F 04D0 D2 D6 05 CD 5C 18 CD A2 1C CD 0C 1D 01 06 1E CD 04E0 20 12 3A A9 1E FE 04 C2 05 06 CD 88 1C CD C6 1C 04F0 01 27 1E C5 1E 21 01 06 1E CD 18 0A CD DF 1C CD 0500 B2 1A C3 DB 07 3A A9 1E FE 02 C2 24 06 CD 11 12 0510 3A A8 1E FE 0D CA 1B 06 C3 24 06 CD 88 1C CD B2 0520 1A C3 DB 07 21 4E 1F 36 FF 01 27 1E CD 20 12 3A 0530 A9 1E D6 02 9F 21 F5 1D B6 1F D2 43 06 01 77 04 0540 CD AF 09 21 05 1E 36 00 3A A9 1E FE 02 C2 5E 06 0550 CD A2 1C CD 63 18 21 A8 1E 36 FF C3 7B 06 3A A8 0560 1E D6 13 9F 2F F5 3E 05 21 A8 1E 96 9F 2F C1 48 0570 B1 1F D2 7B 06 01 90 04 CD AF 09 3A A8 1E 3C 32 0580 A3 1E FE 0F C2 8A 06 CD CF 15 01 06 1E CD 20 12 0590 3A A9 1E D6 01 C6 FF 9F F5 3A A8 1E D6 3D C6 FF 05A0 9F C1 48 B1 1F D2 AE 06 01 9D 04 CD AF 09 21 A7 05B0 1F 36 01 3A A7 1F 1F D2 BE 07 3A C0 1E 32 C1 1E 05C0 01 06 1E CD 20 12 21 04 1E 36 00 3A A9 1E D6 02 05D0 D6 01 9F F5 3A F5 1D 2F C1 48 A1 1F D2 ED 06 CD 05E0 88 1C CD BE 18 21 A8 1E 36 FF C3 13 07 3A A9 1E 05F0 D6 03 C6 FF 9F F5 3E 0A 21 A8 1E 96 9F 2F F5 3E 0600 05 96 9F C1 48 A1 C1 48 B1 1F D2 13 07 01 B0 04 0610 CD AF 09 3A 5E 1F 21 04 1E B6 77 3A A8 1E 3C 32 0620 A4 1E 3A A8 1E FE 13 C2 30 07 CD CF 15 C3 7D 07 0630 3A A8 1E FE 14 C2 40 07 0E 1A CD 45 0E C3 7D 07 0640 3A A8 1E D6 05 9F 21 05 1E A6 1F D2 53 07 21 57 0650 1F 36 01 3A A3 1E FE 0A C2 7A 07 21 5D 1F 36 01 0660 3A 63 1F FE 00 C2 6D 07 21 63 1F 36 08 3A 5F 1F 0670 FE 00 C2 7A 07 21 5F 1F 36 01 CD 6C 1A CD 12 19 0680 01 06 1E CD 20 12 3A A9 1E D6 01 C6 FF 9F F5 3A 0690 A8 1E D6 2C C6 FF 9F F5 3A A8 1E D6 0D C6 FF 9F 06A0 C1 48 A1 C1 48 B1 1F D2 B0 07 01 BC 04 CD AF 09 06B0 3A A8 1E D6 0D C6 FF 9F 32 A7 1F C3 B3 06 3A A3 06C0 1E FE 0F C2 CE 07 0E 1A CD 45 0E CD CF 15 3A A3 06D0 1E FE 00 C2 DB 07 0E 00 CD 31 19 3A A5 1E 32 CC 06E0 1E C3 14 05 FB 76 21 F2 1D 71 21 F2 07 E5 2A 38 06F0 02 E9 C9 21 FB 07 E5 2A 36 02 E9 3A 09 01 C9 3E 0700 FA CD A6 1D 3E FA CD A6 1D C9 11 00 00 0E 03 CD 0710 05 00 C9 11 00 00 0E 01 CD 05 00 C9 21 AB 1E 71 0720 3A AB 1E E6 7F 5F 16 00 0E 02 CD 05 00 C9 0E 0D 0730 CD 1C 08 0E 0A CD 1C 08 C9 21 AD 1E 70 2B 71 CD 0740 2E 08 2A AC 1E EB 0E 09 CD 05 00 C9 11 00 00 0E 0750 0C CD 05 00 C9 11 00 00 0E 0D CD 05 00 C9 21 AF 0760 1E 71 2A AF 1E 26 00 EB 0E 0E CD 05 00 C9 21 B1 0770 1E 70 2B 71 2A B0 1E EB 0E 0F CD 05 00 32 AE 1E 0780 C9 21 B3 1E 70 2B 71 2A B2 1E EB 0E 10 CD 05 00 0790 32 AE 1E C9 21 B5 1E 70 2B 71 2A B4 1E EB 0E 11 07A0 CD 05 00 32 AE 1E C9 11 00 00 0E 12 CD 05 00 32 07B0 AE 1E C9 21 B7 1E 70 2B 71 2A B6 1E EB 0E 13 CD 07C0 05 00 C9 21 B9 1E 70 2B 71 2A B8 1E EB 0E 14 CD 07D0 05 00 C9 21 BB 1E 70 2B 71 2A BA 1E EB 0E 15 CD 07E0 05 00 C9 21 BD 1E 70 2B 71 2A BC 1E EB 0E 16 CD 07F0 05 00 32 AE 1E C9 21 BF 1E 70 2B 71 2A BE 1E EB 0800 0E 17 CD 05 00 C9 21 C3 1E 70 2B 71 2A C2 1E EB 0810 0E 1E CD 05 00 C9 11 FF 00 0E 20 CD 05 00 C9 21 0820 C4 1E 71 2A C4 1E 26 00 EB 0E 20 CD 05 00 C9 2A 0830 C0 1E 4D CD 1F 09 C9 2A C1 1E 4D CD 1F 09 C9 21 0840 C6 1E 70 2B 71 2A C5 1E EB 0E 21 CD 05 00 C9 21 0850 C8 1E 70 2B 71 2A C7 1E EB 0E 22 CD 05 00 C9 21 0860 CA 1E 70 2B 71 2A C9 1E EB 0E 24 CD 05 00 C9 21 0870 CB 1E 36 80 11 CB 1E 0E 0A CD 05 00 C9 11 00 00 0880 0E 0B CD 05 00 C9 21 6B 1F 70 2B 71 2A 6A 1F EB 0890 0E 1A CD 05 00 C9 3E 0C D3 01 3E 08 D3 01 DB 01 08A0 07 07 07 1F DA AA 09 C3 9E 09 DB 03 E6 7F C9 21 08B0 71 1F 70 2B 71 CD 2F 09 2A 70 1F 44 4D CD 39 08 08C0 0E 3A CD 1C 08 0E 20 CD 1C 08 3A 4D 1F 32 72 1F 08D0 3A 4E 1F 21 72 1F BE DA F8 09 21 CC 1E 3A 72 1F 08E0 BE D2 F1 09 2A 72 1F 26 00 01 CD 1E 09 4E CD 1C 08F0 08 21 72 1F 34 C2 D0 09 21 CC 1E 36 00 01 3A 02 0900 CD 94 08 3A AE 1E FE FF CA 11 0A 01 3A 02 CD B3 0910 08 CD 2E 08 C3 0E 05 C9 21 77 1F 73 2B 70 2B 71 0920 2B D1 C1 70 2B 71 D5 3A 77 1F 3D 32 77 1F FE FF 0930 CA 4E 0A 2A 73 1F E5 2A 75 1F C1 0A 77 2A 73 1F 0940 23 22 73 1F 2A 75 1F 23 22 75 1F C3 27 0A C9 21 0950 00 00 22 9D 1E 2A 03 1E 4D CD 5E 08 CD 37 09 21 0960 78 1F 36 00 3A FB 1D 21 78 1F BE DA BE 0A 2A 9D 0970 1E EB 2A 01 1E 19 44 4D CD 86 09 01 06 1E CD C3 0980 08 32 79 1F FE 00 CA AD 0A 3A 79 1F FE 01 CA 97 0990 0A 01 94 02 CD AF 09 2A 9D 1E 22 9F 1E EB 2A 01 09A0 1E 19 36 1A 3A FB 1D 32 78 1F C3 B7 0A 11 80 00 09B0 2A 9D 1E 19 22 9D 1E 21 78 1F 34 C2 64 0A 21 00 09C0 00 22 9D 1E CD 2F 09 C9 0E 07 21 A1 1E CD 6A 1D 09D0 7D 3D 32 7C 1F FE FF C2 DB 0A C9 21 00 00 22 A1 09E0 1E 2A 4B 1E 4D CD 5E 08 01 27 1E CD 5F 09 21 7A 09F0 1F 36 00 3A 7C 1F 21 7A 1F BE DA 31 0B 2A A1 1E 0A00 01 CA 1F 09 22 7D 1F 2A 7D 1F 44 4D CD 86 09 01 0A10 27 1E CD D3 08 FE 00 CA 20 0B 01 A4 02 CD AF 09 0A20 11 80 00 2A A1 1E 19 22 A1 1E 21 7A 1F 34 C2 F3 0A30 0A 3A 65 1F 1F D2 C9 0B 21 00 00 22 A1 1E 01 80 0A40 00 CD 86 09 21 7A 1F 36 00 3A 7C 1F 21 7A 1F BE 0A50 DA C0 0B 01 27 1E CD 3F 09 D6 00 D6 01 9F 32 7F 0A60 1F 2A 48 1E 23 22 48 1E 21 7B 1F 36 00 3A 7B 1F 0A70 D6 80 9F 21 7F 1F A6 1F D2 A2 0B 2A 7B 1F 26 00 0A80 01 80 00 09 3A 7B 1F 11 A1 1E E5 CD 34 1D 01 CA 0A90 1F 09 C1 0A 96 D6 01 9F 32 7F 1F 21 7B 1F 34 C3 0AA0 6D 0B 11 80 00 2A A1 1E 19 22 A1 1E 3A 7F 1F 1F 0AB0 DA B9 0B 01 B5 02 CD AF 09 21 7A 1F 34 C2 49 0B 0AC0 01 27 1E CD D3 08 32 7F 1F 21 00 00 22 A1 1E C9 0AD0 21 80 1F 71 3A 80 1F FE 20 DA F4 0B 21 F3 1D 34 0AE0 3E 00 21 53 1F BE D2 F4 0B 3A 53 1F 21 F3 1D BE 0AF0 D2 F4 0B C9 3A 03 00 32 81 1F 2A A3 1E 4D 06 00 0B00 21 DD 0C 09 09 5E 23 56 EB E9 01 FF 1D 11 A1 1E 0B10 CD 8E 1D DA 19 0C CD C8 0A 2A A1 1E 01 CA 1F 09 0B20 3A 80 1F 77 2A A1 1E 23 22 A1 1E C3 05 0D C3 3D 0B30 0C C3 3D 0C C3 3D 0C C3 3D 0C C3 3D 0C 01 C2 02 0B40 CD AF 09 C3 05 0D 2A 80 1F 4D CD E6 07 C3 05 0D 0B50 21 03 00 36 80 C3 71 0C C3 05 0D 21 03 00 36 C0 0B60 C3 71 0C C3 05 0D 21 03 00 36 80 C3 71 0C C3 05 0B70 0D 2A 80 1F 26 00 EB 0E 05 CD 05 00 C3 05 0D 21 0B80 03 00 36 10 C3 A0 0C C3 05 0D 21 03 00 36 20 C3 0B90 A0 0C C3 05 0D 21 03 00 36 30 C3 A0 0C C3 05 0D 0BA0 2A 80 1F 26 00 EB 0E 04 CD 05 00 C3 05 0D 21 03 0BB0 00 36 00 C3 CF 0C C3 05 0D 21 03 00 36 01 C3 CF 0BC0 0C C3 05 0D 21 03 00 36 03 C3 CF 0C C3 05 0D 2A 0BD0 80 1F 26 00 EB 0E 02 CD 05 00 C3 05 0D 0A 0C 2E 0BE0 0C 31 0C 34 0C 37 0C 3A 0C 3D 0C 46 0C 50 0C 5B 0BF0 0C 66 0C 71 0C 7F 0C 8A 0C 95 0C A0 0C AE 0C B9 0C00 0C C4 0C CF 0C 3A 81 1F 32 03 00 C9 21 82 1F 71 0C10 3A 82 1F FE 09 CA 22 0D 2A 82 1F 4D CD D0 0B C3 0C20 6E 0D 3A 63 1F FE 00 C2 34 0D 2A 82 1F 4D CD D0 0C30 0B C3 6E 0D 3A F3 1D 32 83 1F 21 63 1F 3A 83 1F 0C40 BE DA 51 0D 21 63 1F 3A 83 1F 96 32 83 1F C3 3A 0C50 0D 21 83 1F 3A 63 1F 96 77 3E 00 21 83 1F BE D2 0C60 6E 0D 21 83 1F 35 0E 20 CD D0 0B C3 59 0D 3A 82 0C70 1F FE 0D C2 7B 0D 21 F3 1D 36 00 C9 21 84 1F 71 0C80 3A 84 1F D6 00 D6 01 9F 21 6C 1F A6 77 1F D2 99 0C90 0D 0E 20 CD 0C 0D C3 A2 0D 3A 84 1F C6 30 4F CD 0CA0 0C 0D C9 21 85 1F 71 3A 85 1F E6 F8 1F 1F 1F 1F 0CB0 4F CD 7C 0D 3A 85 1F E6 0F 4F CD 7C 0D C9 21 86 0CC0 1F 36 01 3A 5D 1F D6 01 D6 01 9F 32 6C 1F 3A 6F 0CD0 1F 86 27 32 6F 1F 3A 6E 1F CE 00 27 32 6E 1F 3A 0CE0 6D 1F CE 00 27 32 6D 1F 2A 6D 1F 4D CD A3 0D 2A 0CF0 6E 1F 4D CD A3 0D 2A 6F 1F 4D CD A3 0D 3A 5D 1F 0D00 FE 01 C2 12 0E 0E 3A CD 0C 0D 0E 20 CD 0C 0D C3 0D10 17 0E 0E 09 CD 0C 0D C9 2A A1 1E 7D E6 7F 32 89 0D20 1F 11 80 FF CD 44 1D 22 87 1F CD C8 0A 2A 87 1F 0D30 01 CA 1F 09 E5 2A 89 1F EB CD 18 0A 2A 89 1F 26 0D40 00 22 A1 1E C9 21 8A 1F 71 3A 55 1F 1F D2 59 0E 0D50 3A 8A 1F FE 0C C2 59 0E C9 3A A6 1E 1F D2 A9 0E 0D60 3A 8A 1F FE 0C CA A9 0E 3A 5F 1F 32 8B 1F FE 00 0D70 CA 98 0E 3A 8B 1F FE 01 C2 80 0E 21 8B 1F 36 3C 0D80 3A F4 1D 3C 32 F4 1D 21 8B 1F BE DA 98 0E 21 F4 0D90 1D 36 00 0E 0C CD 0C 0D 3E 00 21 5D 1F BE D2 A4 0DA0 0E CD BE 0D 21 A6 1E 36 00 3A 51 1F 1F D2 CC 0E 0DB0 3A 8A 1F D6 13 D6 01 9F F5 3A A3 1E D6 00 D6 01 0DC0 9F C1 48 A1 1F D2 CC 0E CD 18 0E C9 3A 8A 1F FE 0DD0 0C C2 D9 0E 21 F4 1D 36 00 2A 8A 1F 4D CD 0C 0D 0DE0 3A 8A 1F FE 0A C2 ED 0E 21 A6 1E 36 01 C9 21 8C 0DF0 1F 71 3A 8C 1F D6 61 9F 2F F5 3E 7A 21 8C 1F 96 0E00 9F 2F C1 48 A1 1F D2 11 0F 3A 8C 1F E6 5F 32 8C 0E10 1F 3A 8C 1F C9 21 8D 1F 71 3A 8D 1F D6 41 9F 2F 0E20 F5 3E 5A 21 8D 1F 96 9F 2F C1 48 A1 1F D2 38 0F 0E30 3A 8D 1F F6 20 32 8D 1F 3A 8D 1F C9 3A A4 1E 3D 0E40 4F 3E 05 B9 DA 6D 0F 3A 57 1F 21 51 1F B6 F5 CD 0E50 7D 09 C1 48 A1 1F D2 6D 0F CD 13 08 FE 1A C2 64 0E60 0F 3E 1A C9 01 D7 02 CD 39 08 3E 13 C9 21 90 1F 0E70 36 01 3A 03 00 32 8E 1F 2A A4 1E 4D 06 00 21 45 0E80 10 09 09 5E 23 56 EB E9 01 FD 1D 11 9D 1E CD 8E 0E90 1D DA 97 0F CD 4F 0A 2A 9D 1E EB 2A 01 1E 19 7E 0EA0 32 8F 1F 2A 9D 1E 23 22 9D 1E C3 6D 10 CD F3 07 0EB0 32 8F 1F C3 6D 10 CD 96 09 32 8F 1F C3 6D 10 21 0EC0 03 00 36 04 C3 E0 0F C3 6D 10 21 03 00 36 08 C3 0ED0 E0 0F C3 6D 10 21 03 00 36 0C C3 E0 0F C3 6D 10 0EE0 11 00 00 0E 03 CD 05 00 E6 7F 32 8F 1F C3 6D 10 0EF0 C3 08 10 C3 08 10 C3 08 10 C3 08 10 C3 08 10 C3 0F00 08 10 C3 08 10 C3 08 10 01 E9 02 CD AF 09 C3 6D 0F10 10 21 03 00 36 00 C3 32 10 C3 6D 10 21 03 00 36 0F20 01 C3 32 10 C3 6D 10 21 03 00 36 03 C3 32 10 C3 0F30 6D 10 21 90 1F 36 00 11 00 00 0E 01 CD 05 00 32 0F40 8F 1F C3 6D 10 88 0F AD 0F B6 0F BF 0F CA 0F D5 0F50 0F E0 0F F0 0F F3 0F F6 0F F9 0F FC 0F FF 0F 02 0F60 10 05 10 08 10 11 10 1C 10 27 10 32 10 3A 8E 1F 0F70 32 03 00 3A 54 1F 1F D2 92 10 3A A3 1E 32 8E 1F 0F80 21 A3 1E 36 13 2A 8F 1F 4D CD 45 0E 3A 8E 1F 32 0F90 A3 1E 3A 90 1F 1F D2 DC 10 3A 04 1E 1F D2 B2 10 0FA0 3A A7 1E 3C 32 A7 1E D6 00 D6 01 9F 32 90 1F C3 0FB0 BD 10 3A 8F 1F D6 0A D6 01 9F 32 90 1F 3A 90 1F 0FC0 1F D2 DC 10 CD 7D 09 1F D2 DC 10 CD 13 08 FE 1A 0FD0 C2 D6 10 3E 1A C9 01 00 03 CD AF 09 3A 69 1F 1F 0FE0 D2 EB 10 3A 8F 1F E6 7F 32 8F 1F 3A 64 1F 1F D2 0FF0 FA 10 2A 8F 1F 4D CD EE 0E C9 3A 5B 1F 1F D2 09 1000 11 2A 8F 1F 4D CD 15 0F C9 3A 8F 1F C9 3E 00 21 1010 FA 1D BE D2 28 11 3A FA 1D 3D 32 FA 1D FE 01 C2 1020 25 11 3E 0A C9 3E 1A C9 3E 00 21 F8 1D BE D2 46 1030 11 21 F8 1D 35 2B 4E 06 00 21 CD 1E 09 7E 32 91 1040 1F 21 F7 1D 34 C9 CD 3C 0F 32 91 1F FE 1A C2 54 1050 11 3E 1A C9 3E 00 21 62 1F BE D2 7D 11 2A 62 1F 1060 4D CD AD 11 1F D2 7A 11 3A 62 1F 32 F7 1D 21 62 1070 1F 36 00 3A F9 1D 3C 32 F8 1D C3 A9 11 3E 00 21 1080 60 1F BE D2 A5 11 2A 60 1F 4D CD AD 11 1F D2 9E 1090 11 21 60 1F 36 00 21 FA 1D 36 02 3E 0D C9 3A 91 10A0 1F C9 C3 A9 11 3A 91 1F C9 C3 28 11 C9 21 92 1F 10B0 71 3A F9 1D 21 92 1F 86 77 4F 06 00 21 CD 1E 09 10C0 7E 32 93 1F FE 1A C2 D9 11 2A 92 1F 26 00 01 CD 10D0 1E 09 3A 91 1F 77 3E 01 C9 21 91 1F 3A 93 1F BE 10E0 C2 EA 11 21 F9 1D 34 C3 EF 11 21 F9 1D 36 00 3E 10F0 00 C9 3A 4E 1F 3C 32 4E 1F 21 CC 1E BE DA 03 12 1100 3E 0D C9 2A 4E 1F 26 00 01 CD 1E 09 4E CD EE 0E 1110 C9 CD F2 11 32 A8 1E FE 20 C2 1F 12 C3 11 12 C9 1120 21 96 1F 70 2B 71 21 F5 1D 36 00 21 A9 1E 36 00 1130 2B 36 20 21 AA 1E 36 00 3A AA 1E FE 20 D2 53 12 1140 3A AA 1E FE 0B C2 4D 12 21 A8 1E 36 00 CD 67 14 1150 C3 38 12 CD 11 12 3A 4E 1F 32 4D 1F 2A A8 1E 4D 1160 CD 38 14 1F D2 70 12 CD C1 15 21 A9 1E 36 01 C9 1170 21 94 1F 36 00 21 97 1F 36 00 3E 19 21 97 1F BE 1180 DA 95 12 2A 97 1F 26 00 01 50 1F 09 36 00 21 97 1190 1F 34 C2 7A 12 21 F6 1D 36 00 21 F8 1D 36 00 23 11A0 36 00 23 36 00 21 AA 1E 36 00 2A A8 1E 4D CD 38 11B0 14 1F DA DA 12 3A AA 1E FE 08 DA BE 12 C9 3A A8 11C0 1E FE 2A C2 CE 12 0E 08 CD 87 14 C3 D1 12 CD 67 11D0 14 CD F2 11 32 A8 1E C3 AA 12 3A A8 1E FE 3A C2 11E0 BF 13 3A 94 1F FE 00 CA EB 12 C9 3A AA 1E FE 01 11F0 C2 2C 13 0E 01 CD A1 14 D6 41 3C 32 94 1F 4F 3E 1200 1A B9 D2 06 13 C9 CD 11 12 2A A8 1E 4D CD 38 14 B>^C B>DIR | ASM .COM | CLRDIR .COM | COPY .CFG | COPY .COM | DDT .COM | DDTZ .COM | DIF .COM | DUMP .COM | ED .COM | FA16 .CFG | FDISK80 .COM | FILEATTR.COM | FILEDATE.CFG | FILEDATE.COM | FLASH .COM | INITDIR .CFG | INITDIR .COM | LDDS .COM | LDP2D .COM | LINK .COM | LOAD .COM | MBASIC .COM | NULU .COM | PIP .COM | PUTDS .COM | RELOG .COM | RMAC .COM | STAT .COM | SUBMIT .COM | SUPERSUB.COM | TD .CFG | TD .COM | UNARC .COM | XSUB .COM | ZAP .COM | ZCAL .COM | ZCNFG .COM | ZCNFG24 .CFG | ZDE .COM | ZPATH .COM | ZSCONFIG.COM | ZXD .CFG | ZXD .COM | ASSIGN .COM | FDU .COM | FORMAT .COM | MODE .COM | OSLDR .COM | RTC .COM | SURVEY .COM | SYSCOPY .COM | SYSGEN .COM | TALK .COM | TIMER .COM | XM .COM | INTTEST .COM | CPM .SYS | ZSYS .SYS B>TYPE FA16.CFG GtgA@ Q jDX!DR"4DS#YL 1`PPPD@P4pPW PRPPSPA0P  FILEATTR Configuration (Page 1 of 2) Q Operate quietly........XXX X Page screen output.....XXX R Always show results....XXX S Default screen lines...XXX B>STAT FA16.CFG Recs Bytes Ext Acc 24 4k 1 R/W B:FA16.CFG Bytes Remaining On B: 4k B>TYPE FA16.CFG GtgA@ Q jDX!DR"4DS#YL 1`PPPD@P4pPW PRPPSPA0P  FILEATTR Configuration (Page 1 of 2) Q Operate quietly........XXX X Page screen output.....XXX R Always show results....XXX S Default screen lines...XXX  FILEATTR Configuration (Page 2 of 2) Attribute Defaults 1 F1 attribute.............XXXXXXXXXXX P Public attribute.........XXXXXXXXXXX D No Date attribute........XXXXXXXXXXX 4 F4 attribute.............XXXXXXXXXXX W Wheel Protect attribute..XXXXXXXXXXX R Read Only attribute......XXXXXXXXXXX S System attribute.........XXXXXXXXXXX A Archive attribute........XXXXXXXXXXX Yes NoLeave As-Is Turn On Turn Off Option Q -- If the ZCPR quiet flag is set, FILEATTR will always default to quiet mode. To make quiet mode the default at all times, even when running under CP/M, set this configuration option to "Yes". Whatever is selected here can be toggled with the command line "Q" option. Option X -- A "Yes" will cause FILEATTR to page screen output by default. A "No" will default to continuous scrolling. The chosen default can be toggled with the command line "X" option. Screen paging is always turned off in quiet mode. Option R -- As distributed, FILEATTR prints nothing to the screen when it is operating in quiet mode. If this configuration option is "Yes", the results summary line that gives the number of matching files found and the number of attributes changed will be printed even in quiet mode. Option S -- Enter the number of lines on your video display screen. Under ZCPR 3.3 and higher, the number of screen lines for paging is obtained from the environment descriptor. This configuration parameter is used only if running under CP/M. Attribute Configuration Options As distributed, FILEATTR will not change any file attribute unless explicitly commanded to do so by a command line option. To configure FILEATTR to turn a file attribute ON or OFF by default, toggle the appropriate configuration selection. For example, to make FILEATTR set all matching files to Public by default, change the "Public attribute" setting to "Turn On". Then FILEATTR will set the specified files to Public unless the /NP command line option is given (which would cause the files to be set to Private). Since there is no command which tells FILEATTR not to change an attribute, however, the program will now insist on turning the Public attribute either on (default) or off (through the /NP option). Most users will have neither need nor desire to change the configuration default as distributed which will "Leave As-Is" all matching files. B>DIR | ASM .COM | CLRDIR .COM | COPY .CFG | COPY .COM | DDT .COM | DDTZ .COM | DIF .COM | DUMP .COM | ED .COM | FA16 .CFG | FDISK80 .COM | FILEATTR.COM | FILEDATE.CFG | FILEDATE.COM | FLASH .COM | INITDIR .CFG | INITDIR .COM | LDDS .COM | LDP2D .COM | LINK .COM | LOAD .COM | MBASIC .COM | NULU .COM | PIP .COM | PUTDS .COM | RELOG .COM | RMAC .COM | STAT .COM | SUBMIT .COM | SUPERSUB.COM | TD .CFG | TD .COM | UNARC .COM | XSUB .COM | ZAP .COM | ZCAL .COM | ZCNFG .COM | ZCNFG24 .CFG | ZDE .COM | ZPATH .COM | ZSCONFIG.COM | ZXD .CFG | ZXD .COM | ASSIGN .COM | FDU .COM | FORMAT .COM | MODE .COM | OSLDR .COM | RTC .COM | SURVEY .COM | SYSCOPY .COM | SYSGEN .COM | TALK .COM | TIMER .COM | XM .COM | INTTEST .COM | CPM .SYS | ZSYS .SYS B>ZSCONFIG ZSCONFIG V1.0 Copyright (C) 1988 Harold F. Bower/Cameron W. Cotrill ...Configuring ZSDOS Ver 1.1 No Z3 Environment Found 1 - Public Files : YES 2 - Pub/Path Write Enable : NO 3 - Read-Only Vector : YES 4 - Fast Fixed Disk Log : YES 5 - Disk Change Warning : NO 6 - Path w/o System Attr : YES 7 - DOS Search Path : Enabled - Internal 8 - Wheel Byte Protect : Disabled..Assumed ON T - Time Routine (Clock) : Disabled A - Stamp Last Access Time : Disabled C - Stamp Create Time : Disabled M - Stamp Modify Time : Disabled G - Get Date/Time Stamp : Disabled S - Set Date/Time Stamp : Disabled Entry to Change ("X" to EXIT) : X Returning to system ... B>DOR  IR | ASM .COM | CLRDIR .COM | COPY .CFG | COPY .COM | DDT .COM | DDTZ .COM | DIF .COM | DUMP .COM | ED .COM | FA16 .CFG | FDISK80 .COM | FILEATTR.COM | FILEDATE.CFG | FILEDATE.COM | FLASH .COM | INITDIR .CFG | INITDIR .COM | LDDS .COM | LDP2D .COM | LINK .COM | LOAD .COM | MBASIC .COM | NULU .COM | PIP .COM | PUTDS .COM | RELOG .COM | RMAC .COM | STAT .COM | SUBMIT .COM | SUPERSUB.COM | TD .CFG | TD .COM | UNARC .COM | XSUB .COM | ZAP .COM | ZCAL .COM | ZCNFG .COM | ZCNFG24 .CFG | ZDE .COM | ZPATH .COM | ZSCONFIG.COM | ZXD .CFG | ZXD .COM | ASSIGN .COM | FDU .COM | FORMAT .COM | MODE .COM | OSLDR .COM | RTC .COM | SURVEY .COM | SYSCOPY .COM | SYSGEN .COM | TALK .COM | TIMER .COM | XM .COM | INTTEST .COM | CPM .SYS | ZSYS .SYS B>dir c: | HUNT .COM | HUNT .DOC | MONOPLY .BAS | MONSTER .BAS | MONSTER .DOC | NUKETANK.H19 | PACMAN .DOC | PACMAN95.COM | ROSE .BAS | STAR .BAS | STAR .COM | STARWARS.BAS | TCTCTO .LSP | TVIGAMMO.BAS | WORDPUZL.BAS | ZILCH .BAS | MBASIC .COM B> c: C>type hunt.doc HUNT.OBJ is a new game that works with ADM3's or SOROC terminals. I won't provide any more information or it might spoil the fun. C>hunt  MAY I HAVE PLEASE HAVE A THREE DIGIT RANDOM NUMBER123  WELCOME TO CRAWL STOCKING MAZE LEVEL 1 LEVEL 2 LEVEL 3 LEVEL 4 LEVEL 5 LEVEL 6 LEVEL 7 LEVEL 8 LEVEL 9 LEVEL 10 LEVEL 11 LEVEL 12 LEVEL 13 LEVEL 14 LEVEL 155 CURRENT WEIGHT6 GOLD PIECES5/ 06, 10 )FOR SALE:! OBJECT PRICE WEIGHT" A ROPE 10 4# B WATER PISTOL 4 0$ C COLT 45 10 4% D SWORD 12 6& E BATTLE AXE 6 7' F KNIFE 5 2( G MACE 3 0) H PEPPER 2 0* I CROSS STAKE 10 2+ VYOU HAVE:3 WHAT DO YOU WISH TO BUY('Z' FOR NOTHING) 3 THAT IS NOT A VIABLE OBJECT 3 WHAT DO YOU WISH TO BUY('Z' FOR NOTHING) 3 THAT IS NOT A VIABLE OBJECT 3 WHAT DO YOU WISH TO BUY('Z' FOR NOTHING) 3 THAT IS NOT A VIABLE OBJECT 3 WHAT DO YOU WISH TO BUY('Z' FOR NOTHING) 3 THAT IS NOT A VIABLE OBJECT 3 WHAT DO YOU WISH TO BUY('Z' FOR NOTHING) 3 THAT IS NOT A VIABLE OBJECT 3 WHAT DO YOU WISH TO BUY('Z' FOR NOTHING) 3 THAT IS NOT A VIABLE OBJECT 3 WHAT DO YOU WISH TO BUY('Z' FOR NOTHING) 3 THAT IS NOT A VIABLE OBJECT 3 WHAT DO YOU WISH TO BUY('Z' FOR NOTHING) 3 THAT IS NOT A VIABLE OBJECT 3 WHAT DO YOU WISH TO BUY('Z' FOR NOTHING)  C>dir | HUNT .COM | HUNT .DOC | MONOPLY .BAS | MONSTER .BAS | MONSTER .DOC | NUKETANK.H19 | PACMAN .DOC | PACMAN95.COM | ROSE .BAS | STAR .BAS | STAR .COM | STARWARS.BAS | TCTCTO .LSP | TVIGAMMO.BAS | WORDPUZL.BAS | ZILCH .BAS | MBASIC .COM C>type tctctp o.lsp (PROGN (LISPXPRIN1 (QUOTE "TIC TAC TOE") T) (LISPXPRIN1 (QUOTE " IN LISP 1-28-73") T) (LISPXTERPRI T)) (DEFINEQ (TTT [LAMBDA (LS MV) (COND ((XWIN LS) (PRINT (QUOTE (X WINS))) T) ((OWIN LS) (PRINT (QUOTE (O WINS))) T) ((TIE LS) (PRINT (QUOTE (TIE))) T) (T (SETQ N (MOVE LS MV)) (SETQ BOARD (CHANGE LS MV N)) (COND ((EQ MV (QUOTE O)) (PM BOARD))) (TTT BOARD (REV MV) N]) (XWIN [LAMBDA (LS) (COND ((LESSP (COUNT (CX LS)) 3) NIL) ((EQ15 (CX LS]) (OWIN [LAMBDA (LS) (COND ((LESSP (COUNT (CO LS)) 3) NIL) ((EQ15 (CO LS]) (TIE [LAMBDA (LS) (COND ((NULL (CAV LS)) T]) (MATRIX [LAMBDA (LS) (CADDDR LS]) (CX [LAMBDA (LS) (CAR LS]) (CO [LAMBDA (LS) (CADR LS]) (CAV [LAMBDA (LS) (CADDR LS]) (EQ15 [LAMBDA (LS) (COND ((LESSP (COUNT LS) 3) NIL) ((EQL15 LS) T) ((EQ15 (CDR LS]) (EQL15 [LAMBDA (LS) (COND ((LESSP (COUNT LS) 3) NIL) ((EQUAL15 (CAR LS) (SMPRS (CDR LS]) (EQUAL15 [LAMBDA (I Y) (COND ((NULL Y) NIL) ((EQ 15 (IPLUS I (CAR Y))) T) ((EQUAL15 I (CDR Y]) (SMPRS [LAMBDA (X) (COND ((EQ (COUNT X) 2) (SMPRS1 (CAR X) (CDR X))) ((APPEND (SMPRS1 (CAR X) (CDR X)) (SMPRS (CDR X]) (SMPRS1 [LAMBDA (J Y) (COND [(NULL (CDR Y)) (LIST (IPLUS J (CAR Y] ((CONS (IPLUS J (CAR Y)) (SMPRS1 J (CDR Y]) (PM [LAMBDA (LS) (COND (T (PRINT (QUOTE (- 1 2 3))) [PRINT (CONS (QUOTE A) (LA (MATRIX LS] [PRINT (CONS (QUOTE B) (LB (MATRIX LS] [PRINT (CONS (QUOTE C) (LC (MATRIX LS] (TERPRI NIL) (TERPRI NIL) (TERPRI NIL) (TERPRI NIL) T]) (LA [LAMBDA (LS) (LIST (CAR LS) (CADR LS) (CADDR LS]) (LB [LAMBDA (LS) (LA (CDDDR LS]) (LC [LAMBDA (LS) (LA (CDDDR (CDDDR LS]) (MTH [LAMBDA (X J) (CAR (NTH X J]) (REV [LAMBDA (MV) (COND ((EQ MV (QUOTE X)) (QUOTE O)) ((QUOTE X]) (MOVE [LAMBDA (LS MV) (COND ((EQ MV (QUOTE X)) (GETMV LS)) ((LOOK1 (CAV LS) (CO LS))) ((LOOK1 (CAV LS) (CX LS))) ((MTH (CAV LS) (RAND 1 (COUNT (CAV LS]) (CHANGE [LAMBDA (LS MV N) (LIST (COND ((EQ MV (QUOTE X)) (INSERT N (CX LS))) ((CX LS))) (COND ((EQ MV (QUOTE O)) (INSERT N (CO LS))) ((CO LS))) (REMOVE N (CAV LS)) (MAKE (MATRIX LS) (TRANS N) MV]) (INSERT [LAMBDA (J X) (SORT (CONS J X]) (DELN [LAMBDA (X J) (COND ((EQ J 1) (CDR X)) ((CONS (CAR X) (DELN (CDR X) (SUB1 J]) (MAKE [LAMBDA (LS N ATOM) (COND ((EQ N 1) (CONS ATOM (CDR LS))) ((CONS (CAR LS) (MAKE (CDR LS) (SUB1 N) ATOM]) (GETMV [LAMBDA (LS) (COND ((SETQ N (READ)) (COND ((MEMB (DECODE N) (CAV LS)) (DECODE N)) ((PRINT (QUOTE (THAT SQUARE IS ALREADY FILLED))) (GETMV LS]) (DECODE [LAMBDA (N) (COND ((SETQ N1 (CAR N)) (SETQ N2 (CADR N)) (COND ((EQ N1 (QUOTE A)) (COND ((EQ N2 1) 6) ((EQ N2 2) 1) ((EQ N2 3) 8))) ((EQ N1 (QUOTE B)) (COND ((EQ N2 1) 7) ((EQ N2 2) 5) ((EQ N2 3) 3))) ((EQ N1 (QUOTE C)) (COND ((EQ N2 1) 2) ((EQ N2 2) 9) ((EQ N2 3) 4]) (TRANS [LAMBDA (N) (COND ((EQ N 1) 2) ((EQ N 2) 7) ((EQ N 3) 6) ((EQ N 4) 9) ((EQ N 5) 5) ((EQ N 6) 1) ((EQ N 7) 4) ((EQ N 8) 3) ((EQ N 9) 8]) (TX [LAMBDA (LS) (TTT (QUOTE (NIL NIL (1 2 3 4 5 6 7 8 9) (* * * * * * * * *) )) (QUOTE X]) (TO [LAMBDA (LS) (TTT (QUOTE (NIL NIL (1 2 3 4 5 6 7 8 9) (* * * * * * * * *) )) (QUOTE O]) (LOOK1 [LAMBDA (X Y) (COND ((NULL X) NIL) ((EQ15 (CONS (CAR X) Y)) (CAR X)) ((LOOK1 (CDR X) Y]) (INST [LAMBDA (LS) (PROGN (PRIN1 " THIS IS AN EXTREMELY INEFFICIENT PROGRAM FOR PLAYING TIC TAC TOE. HOWEVER, THE INEFFICIENCY IS JUSTIFIED BY THE FACT THAT IT PLAYS VERY POORLY, ALLOWING YOU TO BEAT IT OFTEN. TO HAVE THE COMPUTER MOVE FIRST, TYPE TO). THE BOARD WILL THEN BE PRINTED WITH AN O SHOWING THE COMPUTERS FIRST MOVE. TO ENTER YOUR MOVE, USE ALGEBRAIC NOTATION ENCLOSED IN PARENTHESES. THAT IS, TYPE (B 2) TO PLAY IN THE MIDDLE, (A 1) FOR THE UPPER LEFT CORNER, ETC. TO MAKE THE FIRST MOVE TYPE TX). AFTER THE CARRIAGE RETURN, ENTER YOUR MOVE.") (TERPRI NIL) T]) ) (LISPXPRINT (QUOTE TCTCTOFNS) T) (RPAQQ TCTCTOFNS (TTT XWIN OWIN TIE MATRIX CX CO CAV EQ15 EQL15 EQUAL15 SMPRS SMPRS1 PM LA LB LC MTH REV MOVE CHANGE INSERT DELN MAKE GETMV DECODE TRANS TX TO LOOK1 INST)) STOP C>  dir | HUNT .COM | HUNT .DOC | MONOPLY .BAS | MONSTER .BAS | MONSTER .DOC | NUKETANK.H19 | PACMAN .DOC | PACMAN95.COM | ROSE .BAS | STAR .BAS | STAR .COM | STARWARS.BAS | TCTCTO .LSP | TVIGAMMO.BAS | WORDPUZL.BAS | ZILCH .BAS | MBASIC .COM C>type monster.bas 10 ' **** MONSTER COMBAT **** 20 ' Written by Lee Chapel 6/15/80 ( BYTE DEC.,1980 Pp.288-290 ) 30 ' Entered, Converted to Mbasic and Enhanced By Steven C. Rich 40 ' (313)358-3494 50 ' 60 ' NOTE: The Graphics used are for use on a Heath H-19 terminal. I 70 ' have broken out the commands so that they can you can convert 80 ' this program for other terminals. I suggest strongly that anyone 90 ' using graphics in their programs do the same. 100 ' 110 RANDOMIZE:' REMOVE OR CHANGE IF USING MBASIC VERSION BEFORE 5.0 120 ' ********************* H-19 TERMINAL COMMANDS ************************* 130 E$=CHR$(27):' ESCAPE CHARACTER (Used for alaphics in their programs do the same. 100 ' 110 RANDOMIZE:' REMOVE OR CHANGE IF USING MBASIC VERSION BEFORE 5.0 120 ' ********************* H-19 TERMINAL COMMANDS ************************* 130 E$=CHR$(27):' ESCAPE CHARACTER (Used for alHOME 190 EP$=E$+"J":' ERASE TO END OF PAGE 200 'NOTE: The H-19 uses the following scheme for direct cursor addressing: 210 ' Location= (CHR$(Line number+31));(CHR$(Column number+31)) C>mbasic monster BASIC-85 Rev. 5.29 [CP/M Version] Copyright 1985-1986 ¤ by Microsoft Created: 28-Jul-85 29752 Bytes free Random number seed (-32768 to 32767)? 0 NOTE:The instructions for this game are in MONSTER.DOC. MONSTER COMBAT !H}| = YOUR POSITION #Hr_ = TREE (YOU MUST GO AROUND THEM) %Hii = FIELD 'UNW N NE (Wy`x )UW a^a E *Wx`y +USW S SE iiiiiiiiiiiiiiiiiiiiii iiiiiir_iiiiiiiiiir_ii iir_iiiiiiiiiiiiiir_ii iiiir_iiiiiiiiiiiiiiii iiii}|r_r_r_r_iiiiiiii iir_iiiir_iiiiiiiiiiii iiiiiiiiiiiir_r_r_iiii iiiiiiiiiir_iiiiiiiiii iir_r_iiiir_iiiiiiiiii iir_r_iiiir_r_iir_r_ii iiiiiiiiiiiiiiiiiiiiii YOUR COMBAT STRENGTH IS 725 A CYCLOPS IS GUARDING 50 SILVER COINS DO YOU WANT TO (F)IGHT, (R)UN, OR (B)RIBE ? !H}| = YOUR POSITION #Hr_ = TREE (YOU MUST GO AROUND THEM) %Hii = FIELD 'UNW N NE (Wy`x )UW a^a E *Wx`y +USW S SE iiiiiiiiiiiiiiiiiiiiii iiiiiir_iiiiiiiiiir_ii iir_iiiiiiiiiiiiiir_ii iiiir_iiiiiiiiiiiiiiii iiiiiir_r_r_r_iiiiiiii iir_}|iir_iiiiiiiiiiii iiiiiiiiiiiir_r_r_iiii iiiiiiiiiir_iiiiiiiiii iir_r_iiiir_iiiiiiiiii iir_r_iiiir_r_iir_r_ii iiiiiiiiiiiiiiiiiiiiii YOUR COMBAT STRENGTH IS 725 THERE IS NOTHING TO BE FOUND HERE YOU HAVE 0 TREASURE POINTS WHAT DIRECTION (HIT 1 TO RESET DISPLAY)? 1 MONSTER COMBAT !H}| = YOUR POSITION #Hr_ = TREE (YOU MUST GO AROUND THEM) %Hii = FIELD 'UNW N NE (Wy`x )UW a^a E *Wx`y +USW S SE iiiiiiiiiiiiiiiiiiiiii iiiiiir_iiiiiiiiiir_ii iir_iiiiiiiiiiiiiir_ii iiiir_iiiiiiiiiiiiiiii iiiiiir_r_r_r_iiiiiiii iir_}|iir_iiiiiiiiiiii iiiiiiiiiiiir_r_r_iiii iiiiiiiiiir_iiiiiiiiii iir_r_iiiir_iiiiiiiiii iir_r_iiiir_r_iir_r_ii iiiiiiiiiiiiiiiiiiiiii WHAT DIRECTION (HIT 1 TO RESET DISPLAY)? ^C Break in 900 Ok ss ystem C>dir | HUNT .COM | HUNT .DOC | MONOPLY .BAS | MONSTER .BAS | MONSTER .DOC | NUKETANK.H19 | PACMAN .DOC | PACMAN95.COM | ROSE .BAS | STAR .BAS | STAR .COM | STARWARS.BAS | TCTCTO .LSP | TVIGAMMO.BAS | WORDPUZL.BAS | ZILCH .BAS | MBASIC .COM C>stat zilch.bas No File C>b:stat zilch.bas Recs Bytes Ext Acc 62 8k 1 R/W C:ZILCH.BAS Bytes Remaining On C: 442k C>b: B>dir   c: C>dir FD: READ 46 00 02 00 01 02 09 2A FF --> 40 01 00 02 00 03 02 [MISSING ADDRESS MARK] ZSDOS error on C: Bad Sector Call: 17 File: ????????.??? | BACCRRT .ASC | BASEBALL.ASC | BIGTREK .ASC | BIGTREK .BAS | BIOCAL .ASC | BIRTHDAY.ASC | BLACKJCK.ASC | BUDGET .ASC | CATALOG .22 | CATALOG .24 | CATALOG .26 | CHAIN .BAS | CHASE .ASC | CHESS .ASC | CIVILWAR.ASC | CLIMATES.ASC | CLOUD-9 .ASC | CRAPS .ASC | CRAZY-8 .ASC | DUMP .COM | EDITM .FOR | GALAXY .ASC | GALAXY2 .ASC | LIST .COM | MBASIC .COM | OTHELLO .COM | OTHELLO .FOR | RATFOR .COM | SQUARE .ASC | STARTREK.BAS | STARTREK.TXT | STAT .COM | STRTRK#2.ASC | SWARMS .ASC | TAPELIB .COM | TAPELIB .DOC | TAPELIB .MAC | TREKINFO.DOC | TREKMOD .ASC | UGFORM | VOLUME24.DOC | WEATHER .ASC | WORD-PZL.ASC | ZOSO .22 C>b: B>dr ir | ASM .COM | CLRDIR .COM | COPY .CFG | COPY .COM | DDT .COM | DDTZ .COM | DIF .COM | DUMP .COM | ED .COM | FA16 .CFG | FDISK80 .COM | FILEATTR.COM | FILEDATE.CFG | FILEDATE.COM | FLASH .COM | INITDIR .CFG | INITDIR .COM | LDDS .COM | LDP2D .COM | LINK .COM | LOAD .COM | MBASIC .COM | NULU .COM | PIP .COM | PUTDS .COM | RELOG .COM | RMAC .COM | STAT .COM | SUBMIT .COM | SUPERSUB.COM | TD .CFG | TD .COM | UNARC .COM | XSUB .COM | ZAP .COM | ZCAL .COM | ZCNFG .COM | ZCNFG24 .CFG | ZDE .COM | ZPATH .COM | ZSCONFIG.COM | ZXD .CFG | ZXD .COM | ASSIGN .COM | FDU .COM | FORMAT .COM | MODE .COM | OSLDR .COM | RTC .COM | SURVEY .COM | SYSCOPY .COM | SYSGEN .COM | TALK .COM | TIMER .COM | XM .COM | INTTEST .COM | CPM .SYS | ZSYS .SYS B>c: C>dir | ARCV .COM | AS .COM | ASM .ARC | C .LIB | CC .COM | CC .MSG | CNM .COM | CRC .COM | CZ .COM | EXMPL .C | HEADER .ARC | HEX80 .COM | LIBASRC .ARC | LIBC .REL | LIBCSRC .ARC | LIBUTIL .COM | LN .COM | M .LIB | MATH .REL | MATHSRC .ARC | OVBGN .O | OVLOADER.O | OVLY .ARC | R .O | RBEGIN .O | RBUILD .SUB | REXT .ASM | ROM .LIB | SIDSYM .COM | SQZ .COM | T .ASM | T .LIB | TINYSRC .ARC C> RetroBrew HBIOS v2.9.1, 2019-06-03 ZETA Z80 @ 15.992MHz 0 MEM W/S, 1 I/O W/S 512KB ROM, 512KB RAM UART0: IO=0x68 16550A MODE=38400,8,N,1 DSRTC: MODE=STD Thu 2018-11-08 00:11:29 CHARGE=OFF MD: UNITS=2 ROMDISK=384KB RAMDISK=384KB FD: IO=0x36 UNITS=2 PPP: IO=0x60 NOT PRESENT Unit Device Type Capacity/Mode ---------- ---------- ---------------- -------------------- Disk 0 MD1: RAM Disk 384KB,LBA Disk 1 MD0: ROM Disk 384KB,LBA Disk 2 FD0: Floppy Disk 3.5",DS/HD,CHS Disk 3 FD1: Floppy Disk 3.5",DS/HD,CHS Char 0 UART0: RS-232 38400,8,N,1 ZETA Boot Loader ROM: (M)onitor (C)P/M (Z)-System (F)orth (B)ASIC (T)-BASIC Disk: (0)MD1 (1)MD0 (2)FD0 (3)FD1 Boot Selection? F Loading Camel Forth... Z80 CamelForth v1.02 25 Jan 1995, ROMWBW 10 Nov 2018 words words? sifting words sifting? 123 321 * ok sifting sifting? ok words words? ok sifting words sifting? ok 123 321 */ ok SIFTING WORDS SIFTING? WODSRDS COLD .S WORDS ENVIRONMENT? DEPTH MOVE WITHIN LEAVE +LOOP LOOP ENDLOOP DO L> >L REPEAT WHILE AGAIN UNTIL BEGIN ELSE THEN IF POSTPONE ['] ; : IMMEDIATE REVEAL HIDE ] [ RECURSE DOES> (DOES>) CREATE ( [CHAR] CHAR ' ABORT" ?ABORT ABORT QUIT EVALUATE INTERPRET ?NUMBER >NUMBER ?SIGN DIGIT? LITERAL FIND IMMED? NFA>CFA NFA>LFA WORD >COUNTED /STRING SOURCE C, , ALLOT HERE HEX DECIMAL . U. SIGN #> #S # >DIGIT <# HOLD UD* UD/MOD ." S" (S") TYPE ACCEPT UMAX UMIN SPACES SPACE CR COUNT 2OVER 2SWAP 2DUP 2DROP 2! 2@ MIN MAX */ */MOD MOD / /MOD * FM/MOD SM/REM M* DABS ?DNEGATE DNEGATE ABS ?NEGATE S>D #INIT UINIT R0 L0 PAD S0 LP HP LATEST 'SOURCE DP STATE BASE >IN U0 TIB TIBSIZE BL !DEST ,DEST ,BRANCH ,EXIT !COLON ,CF !CF COMPILE, >BODY CHARS CHAR+ CELLS CELL+ CELL ALIGNED ALIGN S= SCAN SKIP CMOVE> CMOVE FILL UM/MOD UM* UNLOOP J I (+LOOP) (LOOP) (DO) ?BRANCH BRANCH U> U< > < <> = 0< 0= +! RSHIFT LSHIFT 2/ 2* >< 1- 1+ NEGATE INVERT XOR OR AND - M+ + PC@ PC! C@ @ C! ! RP! RP@ SP! SP@ R@ R> >R TUCK NIP ROT OVER SWAP DROP ?DUP DUP BYE KEY KEY? SAVEKEY EMIT USER CONSTANT VARIABLE EXECUTE LIT EXIT ok ok ok ok WORDS COLD .S WORDS ENVIRONMENT? DEPTH MOVE WITHIN LEAVE +LOOP LOOP ENDLOOP DO L> >L REPEAT WHILE AGAIN UNTIL BEGIN ELSE THEN IF POSTPONE ['] ; : IMMEDIATE REVEAL HIDE ] [ RECURSE DOES> (DOES>) CREATE ( [CHAR] CHAR ' ABORT" ?ABORT ABORT QUIT EVALUATE INTERPRET ?NUMBER >NUMBER ?SIGN DIGIT? LITERAL FIND IMMED? NFA>CFA NFA>LFA WORD >COUNTED /STRING SOURCE C, , ALLOT HERE HEX DECIMAL . U. SIGN #> #S # >DIGIT <# HOLD UD* UD/MOD ." S" (S") TYPE ACCEPT UMAX UMIN SPACES SPACE CR COUNT 2OVER 2SWAP 2DUP 2DROP 2! 2@ MIN MAX */ */MOD MOD / /MOD * FM/MOD SM/REM M* DABS ?DNEGATE DNEGATE ABS ?NEGATE S>D #INIT UINIT R0 L0 PAD S0 LP HP LATEST 'SOURCE DP STATE BASE >IN U0 TIB TIBSIZE BL !DEST ,DEST ,BRANCH ,EXIT !COLON ,CF !CF COMPILE, >BODY CHARS CHAR+ CELLS CELL+ CELL ALIGNED ALIGN S= SCAN SKIP CMOVE> CMOVE FILL UM/MOD UM* UNLOOP J I (+LOOP) (LOOP) (DO) ?BRANCH BRANCH U> U< > < <> = 0< 0= +! RSHIFT LSHIFT 2/ 2* >< 1- 1+ NEGATE INVERT XOR OR AND - M+ + PC@ PC! C@ @ C! ! RP! RP@ SP! SP@ R@ R> >R TUCK NIP ROT OVER SWAP DROP ?DUP DUP BYE KEY KEY? SAVEKEY EMIT USER CONSTANT VARIABLE EXECUTE LIT EXIT ok 5 2 + 15 * ok = ok + ok 17 3 +. +.? 17 ok 17 ok 17 5 * ok . 85 ok 17 5 * 19 / ok . 4 ok RetroBrew HBIOS v2.9.1, 2019-06-03 ZETA Z80 @ 16.000MHz 0 MEM W/S, 1 I/O W/S 512KB ROM, 512KB RAM UART0: IO=0x68 16550A MODE=38400,8,N,1 DSRTC: MODE=STD Thu 2018-11-08 00:22:30 CHARGE=OFF MD: UNITS=2 ROMDISK=384KB RAMDISK=384KB FD: IO=0x36 UNITS=2 PPP: IO=0x60 NOT PRESENT Unit Device Type Capacity/Mode ---------- ---------- ---------------- -------------------- Disk 0 MD1: RAM Disk 384KB,LBA Disk 1 MD0: ROM Disk 384KB,LBA Disk 2 FD0: Floppy Disk 3.5",DS/HD,CHS Disk 3 FD1: Floppy Disk 3.5",DS/HD,CHS Char 0 UART0: RS-232 38400,8,N,1 ZETA Boot Loader ROM: (M)onitor (C)P/M (Z)-System (F)orth (B)ASIC (T)-BASIC Disk: (0)MD1 (1)MD0 (2)FD0 (3)FD1 Boot Selection? B Loading Nascom BASIC... Memory top? Z80 BASIC Ver 4.7b Copyright (C) 1978 by Microsoft 55603 Bytes free Ok 4*ATN1(1) print 4*ATN(1) 3.14159 Ok system ?SN Error Ok RetroBrew HBIOS v2.9.1, 2019-06-03 ZETA Z80 @ 16.000MHz 0 MEM W/S, 1 I/O W/S 512KB ROM, 512KB RAM UART0: IO=0x68 16550A MODE=38400,8,N,1 DSRTC: MODE=STD Thu 2018-11-08 00:23:07 CHARGE=OFF MD: UNITS=2 ROMDISK=384KB RAMDISK=384KB FD: IO=0x36 UNITS=2 PPP: IO=0x60 NOT PRESENT Unit Device Type Capacity/Mode ---------- ---------- ---------------- -------------------- Disk 0 MD1: RAM Disk 384KB,LBA Disk 1 MD0: ROM Disk 384KB,LBA Disk 2 FD0: Floppy Disk 3.5",DS/HD,CHS Disk 3 FD1: Floppy Disk 3.5",DS/HD,CHS Char 0 UART0: RS-232 38400,8,N,1 ZETA Boot Loader ROM: (M)onitor (C)P/M (Z)-System (F)orth (B)ASIC (T)-BASIC Disk: (0)MD1 (1)MD0 (2)FD0 (3)FD1 Boot Selection? T Loading Tasty BASIC... TASTY BASIC 29160 BYTES FREE OK >PRINMTT 4*ATN(1) 0 WHAT? OK >ATN OK >PRINT "HI" HI OK >PRINT 4*6 24 OK >PRINT 4*ATAN(1) 0 WHAT? OK >TAN WHAT? OK >TAN(2) WHAT? OK >SYSTEM WHAT? OK > RetroBrew HBIOS v2.9.1, 2019-06-03 ZETA Z80 @ 16.000MHz 0 MEM W/S, 1 I/O W/S 512KB ROM, 512KB RAM UART0: IO=0x68 16550A MODE=38400,8,N,1 DSRTC: MODE=STD Thu 2018-11-08 00:24:27 CHARGE=OFF MD: UNITS=2 ROMDISK=384KB RAMDISK=384KB FD: IO=0x36 UNITS=2 PPP: IO=0x60 NOT PRESENT Unit Device Type Capacity/Mode ---------- ---------- ---------------- -------------------- Disk 0 MD1: RAM Disk 384KB,LBA Disk 1 MD0: ROM Disk 384KB,LBA Disk 2 FD0: Floppy Disk 3.5",DS/HD,CHS Disk 3 FD1: Floppy Disk 3.5",DS/HD,CHS Char 0 UART0: RS-232 38400,8,N,1 ZETA Boot Loader ROM: (M)onitor (C)P/M (Z)-System (F)orth (B)ASIC (T)-BASIC Disk: (0)MD1 (1)MD0 (2)FD0 (3)FD1 Boot Selection? T Loading Tasty BASIC... TASTY BASIC 29160 BYTES FREE OK >2 PRINT "TIC-TAC-TOE":PRINT >4 PRINT "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" >6 PRINT:PRINT:PRINT >8 PRINT "THE BOARD IS NUMBERED:":PRINT >10 PRINT " 1 2 3":PRINT >12 PRINT " 4 5 6":PRINT >14 PRINT " 7 8 9":PRINT >16 PRINT:PRINT:PRINT >20 FOR I=1 TO 9:@(I)=0:NEXT I >50 INPUT"DO YOU WANT 'X' OR 'O' (X=1,O=0)"C >55 IF C=1 GOTO 475 >60 P=0,Q=1 >100 G=-1,H=1:IF @(5)#0 GOTO 103 >102 @(5)=-1:GOTO 195 >103 IF @(5)#1 GOTO 106 >104 IF @(1)#0 GOTO 110 >105 @(1)=-1:GOTO 195 >106 IF (@(2)=1)*(@(1)=0) GOTO 181 >107 IF (@(4)=1)*(@(1)=0) GOTO 181 >108 IF (@(6)=1)*(@(9)=0) GOTO 189 >109 IF (@(8)=1)*(@(9)=0) GOTO 189 >110 IF G=1 GOTO 112 >111 GOTO 118 >112 J=3*(M-1)/3+1 >113 IF J=M LET K=1 >114 IF J+1=M LET K=2 >115 IF J+2=M LET K=3 >116 GOTO 120 >118 FOR J=1 TO 7 STEP 3:FOR K=1 TO 3 >120 IF @(J)#G GOTO 130 >122 IF @(J+2)#G GOTO 135 >126 IF @(J+1)#0 GOTO 150 >128 @(J+1)=-1:GOTO 195 >130 IF @(J)=H GOTO 150 >131 IF @(J+2)#G GOTO 150 >132 IF @(J+1)#G GOTO 150 >133 @(J)=-1:GOTO 195 >135 IF @(J+2)#0 GOTO 150 >136 IF @(J+1)#G GOTO 150 >138 @(J+2)=-1:GOTO 195 >150 IF @(K)#G GOTO 160 >152 IF @(K+6)#G GOTO 165 >156 IF @(K+3)#0 GOTO 170 >158 @(K+3)=-1:GOTO 195 >160 IF @(K)=H GOTO 170 >161 IF @(K+6)#G GOTO 170 >162 IF @(K+3)#G GOTO 170 >163 @(K)=-1:GOTO 195 >165 IF @(K+6)#0 GOTO 170 >166 IF @(K+3)#G GOTO 170 >168 @(K+6)=-1:GOTO 195 >170 GOTO 450 >171 IF (@(3)=G)*(@(7)=0) GOTO 187 >172 IF (@(9)=G)*(@(1)=0) GOTO 181 >173 IF (@(7)=G)*(@(3)=0) GOTO 183 >174 IF (@(9)=0)*(@(1)=G) GOTO 189 >175 IF G=-1 LET G=1,H=-1:GOTO 110 >176 IF (@(9)=1)*(@(3)=0) GOTO 182 >177 FOR I=2 TO 9:IF @(I)#0 GOTO 179 >178 @(I)=-1:GOTO 195 >179 NEXT I >181 @(1)=-1:GOTO 195 >182 IF @(1)=1 GOTO 177 >183 @(3)=-1:GOTO 195 >187 @(7)=-1:GOTO 195 >189 @(9)=-1 >195 PRINT:PRINT"THE COMPUTER MOVES TO...":PRINT >202 GOSUB 1000 >205 GOTO 500 >450 IF G=1 GOTO 465 >455 IF (J=7)*(K=3) GOTO 465 >460 NEXT K:NEXT J >465 IF @(5)=G GOTO 171 >467 GOTO 175 >475 P=1,Q=0 >500 PRINT:INPUT"WHERE DO YOU MOVE"M >502 IF M=0 PRINT"THANKS FOR THE GAME.":GOTO 2000 >503 IF M>9 GOTO 506 >505 IF @(M)=0 GOTO 510 >506 PRINT"THAT SQUARE IS OCCUPIED.":PRINT:PRINT:GOTO 500 >510 G=1,@(M)=1 >520 GOSUB 1000 >530 GOTO 100 >1000 PRINT:FOR I=1 TO 9:PRINT" ":IF @(I)#-1 GOTO 1014 >1011 IF Q=1 PRINT "X " >1012 IF Q=0 PRINT "O " >1013 GOTO 1020 >1014 IF @(I)#0 GOTO 1016 >1015 PRINT" ":GOTO 1020 >1016 IF P=1 PRINT "X " >1017 IF P=0 PRINT "O " >1020 IF (I#3)*(I#6) GOTO 1050 >1030 PRINT:PRINT"---+---+---":PRINT >1040 GOTO 1080 >1050 IF I=9 GOTO 1080 >1060 PRINT"!" >1080 NEXT I:PRINT:PRINT:PRINT >1095 FOR I=1 TO 7 STEP 3 >1100 IF @(I)#@(I+1) GOTO 1115 >1105 IF @(I)#@(I+2) GOTO 1115 >1110 IF @(I)=-1 GOTO 1350 >1112 IF @(I)=1 GOTO 1200 >1115 NEXT I:FOR I=1 TO 3:IF @(I)#@(I+3) GOTO 1150 >1130 IF @(I)#@(I+6) GOTO 1150 >1135 IF @(I)=-1 GOTO 1350 >1137 IF @(I)=1 GOTO 1200 >1150 NEXT I:FOR I=1 TO 9:IF @(I)=0 GOTO 1155 >1152 NEXT I:GOTO 1400 >1155 IF @(5)#G GOTO 1170 >1160 IF (@(1)=G)*(@(9)=G) GOTO 1180 >1165 IF (@(3)=G)*(@(7)=G) GOTO 1180 >1170 RETURN >1180 IF G=-1 GOTO 1350 >1200 PRINT"YOU BEAT ME!! GOOD GAME.":GOTO 2000 >1350 PRINT"I WIN, TURKEY!!!":GOTO 2000 >1400 PRINT"IT'S A DRAW. THANK YOU." >2000 END >LIST 2 PRINT "TIC-TAC-TOE":PRINT 4 PRINT "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 6 PRINT:PRINT:PRINT 8 PRINT "THE BOARD IS NUMBERED:":PRINT 10 PRINT " 1 2 3":PRINT 12 PRINT " 4 5 6":PRINT 14 PRINT " 7 8 9":PRINT 16 PRINT:PRINT:PRINT 20 FOR I=1 TO 9:@(I)=0:NEXT I 50 INPUT"DO YOU WANT 'X' OR 'O' (X=1,O=0)"C 55 IF C=1 GOTO 475 60 P=0,Q=1 100 G=-1,H=1:IF @(5)#0 GOTO 103 102 @(5)=-1:GOTO 195 103 IF @(5)#1 GOTO 106 104 IF @(1)#0 GOTO 110 105 @(1)=-1:GOTO 195 106 IF (@(2)=1)*(@(1)=0) GOTO 181 107 IF (@(4)=1)*(@(1)=0) GOTO 181 108 IF (@(6)=1)*(@(9)=0) GOTO 189 109 IF (@(8)=1)*(@(9)=0) GOTO 189 110 IF G=1 GOTO 112 111 GOTO 118 112 J=3*(M-1)/3+1 113 IF J=M LET K=1 114 IF J+1=M LET K=2 115 IF J+2=M LET K=3 116 GOTO 120 118 FOR J=1 TO 7 STEP 3:FOR K=1 TO 3 120 IF @(J)#G GOTO 130 122 IF @(J+2)#G GOTO 135 126 IF @(J+1)#0 GOTO 150 128 @(J+1)=-1:GOTO 195 130 IF @(J)=H GOTO 150 131 IF @(J+2)#G GOTO 150 132 IF @(J+1)#G GOTO 150 133 @(J)=-1:GOTO 195 135 IF @(J+2)#0 GOTO 150 136 IF @(J+1)#G GOTO 150 138 @(J+2)=-1:GOTO 195 150 IF @(K)#G GOTO 160 152 IF @(K+6)#G GOTO 165 156 IF @(K+3)#0 GOTO 170 158 @(K+3)=-1:GOTO 195 160 IF @(K)=H GOTO 170 161 IF @(K+6)#G GOTO 170 162 IF @(K+3)#G GOTO 170 163 @(K)=-1:GOTO 195 165 IF @(K+6)#0 GOTO 170 166 IF @(K+3)#G GOTO 170 168 @(K+6)=-1:GOTO 195 170 GOTO 450 171 IF (@(3)=G)*(@(7)=0) GOTO 187 172 IF (@(9)=G)*(@(1)=0) GOTO 181 173 IF (@(7)=G)*(@(3)=0) GOTO 183 174 IF (@(9)=0)*(@(1)=G) GOTO 189 175 IF G=-1 LET G=1,H=-1:GOTO 110 176 IF (@(9)=1)*(@(3)=0) GOTO 182 177 FOR I=2 TO 9:IF @(I)#0 GOTO 179 178 @(I)=-1:GOTO 195 179 NEXT I 181 @(1)=-1:GOTO 195 182 IF @(1)=1 GOTO 177 183 @(3)=-1:GOTO 195 187 @(7)=-1:GOTO 195 189 @(9)=-1 195 PRINT:PRINT"THE COMPUTER MOVES TO...":PRINT 202 GOSUB 1000 205 GOTO 500 450 IF G=1 GOTO 465 455 IF (J=7)*(K=3) GOTO 465 460 NEXT K:NEXT J 465 IF @(5)=G GOTO 171 467 GOTO 175 475 P=1,Q=0 500 PRINT:INPUT"WHERE DO YOU MOVE"M 502 IF M=0 PRINT"THANKS FOR THE GAME.":GOTO 2000 503 IF M>9 GOTO 506 505 IF @(M)=0 GOTO 510 506 PRINT"THAT SQUARE IS OCCUPIED.":PRINT:PRINT:GOTO 500 510 G=1,@(M)=1 520 GOSUB 1000 530 GOTO 100 1000 PRINT:FOR I=1 TO 9:PRINT" ":IF @(I)#-1 GOTO 1014 1011 IF Q=1 PRINT "X " 1012 IF Q=0 PRINT "O " 1013 GOTO 1020 1014 IF @(I)#0 GOTO 1016 1015 PRINT" ":GOTO 1020 1016 IF P=1 PRINT "X " 1017 IF P=0 PRINT "O " 1020 IF (I#3)*(I#6) GOTO 1050 1030 PRINT:PRINT"---+---+---":PRINT 1040 GOTO 1080 1050 IF I=9 GOTO 1080 1060 PRINT"!" 1080 NEXT I:PRINT:PRINT:PRINT 1095 FOR I=1 TO 7 STEP 3 1100 IF @(I)#@(I+1) GOTO 1115 1105 IF @(I)#@(I+2) GOTO 1115 1110 IF @(I)=-1 GOTO 1350 1112 IF @(I)=1 GOTO 1200 1115 NEXT I:FOR I=1 TO 3:IF @(I)#@(I+3) GOTO 1150 1130 IF @(I)#@(I+6) GOTO 1150 1135 IF @(I)=-1 GOTO 1350 1137 IF @(I)=1 GOTO 1200 1150 NEXT I:FOR I=1 TO 9:IF @(I)=0 GOTO 1155 1152 NEXT I:GOTO 1400 1155 IF @(5)#G GOTO 1170 1160 IF (@(1)=G)*(@(9)=G) GOTO 1180 1165 IF (@(3)=G)*(@(7)=G) GOTO 1180 1170 RETURN 1180 IF G=-1 GOTO 1350 1200 PRINT"YOU BEAT ME!! GOOD GAME.":GOTO 2000 1350 PRINT"I WIN, TURKEY!!!":GOTO 2000 1400 PRINT"IT'S A DRAW. THANK YOU." 2000 END OK >RUN TIC-TAC-TOE CREATIVE COMPUTING MORRISTOWN, NEW JERSEY THE BOARD IS NUMBERED: 1 2 3 4 5 6 7 8 9 DO YOU WANT 'X' OR 'O' (X=1,O=0):X THE COMPUTER MOVES TO... ! ! ---+---+--- ! X ! ---+---+--- ! ! WHERE DO YOU MOVE:1 O ! ! ---+---+--- ! X ! ---+---+--- ! ! THE COMPUTER MOVES TO... O ! X ! ---+---+--- ! X ! ---+---+--- ! ! WHERE DO YOU MOVE:38 O ! X ! ---+---+--- ! X ! ---+---+--- ! O ! THE COMPUTER MOVES TO... O ! X ! ---+---+--- ! X ! ---+---+--- ! O ! X WHERE DO YOU MOVE:7 O ! X ! ---+---+--- ! X ! ---+---+--- O ! O ! X THE COMPUTER MOVES TO... O ! X ! ---+---+--- X ! X ! ---+---+--- O ! O ! X WHERE DO YOU MOVE:6 O ! X ! ---+---+--- X ! X ! O ---+---+--- O ! O ! X THE COMPUTER MOVES TO... O ! X ! X ---+---+--- X ! X ! O ---+---+--- O ! O ! X IT'S A DRAW. THANK YOU. OK >PRINT 4.5* * 4.4 0 WHAT? OK >PRINT (4.5 * 4.4) WHAT? OK >X 10NEW OK >NEW OK >LIST OK >10 LET X = 4.5 >20 LET Y - = 4.4 >30 LET ZA = X * Y >40 PRINT A >LIST 10 LET X = 4.5 20 LET Y = 4.4 30 LET A = X * Y 40 PRINT A OK >RUN 0 OK >PRINT X 0 OK >PRINT Y 1 OK > RetroBrew HBIOS v2.9.1, 2019-06-03 ZETA Z80 @ 15.992MHz 0 MEM W/S, 1 I/O W/S 512KB ROM, 512KB RAM UART0: IO=0x68 16550A MODE=38400,8,N,1 DSRTC: MODE=STD Thu 2018-11-08 00:41:13 CHARGE=OFF MD: UNITS=2 ROMDISK=384KB RAMDISK=384KB FD: IO=0x36 UNITS=2 PPP: IO=0x60 NOT PRESENT Unit Device Type Capacity/Mode ---------- ---------- ---------------- -------------------- Disk 0 MD1: RAM Disk 384KB,LBA Disk 1 MD0: ROM Disk 384KB,LBA Disk 2 FD0: Floppy Disk 3.5",DS/HD,CHS Disk 3 FD1: Floppy Disk 3.5",DS/HD,CHS Char 0 UART0: RS-232 38400,8,N,1 ZETA Boot Loader ROM: (M)onitor (C)P/M (Z)-System (F)orth (B)ASIC (T)-BASIC Disk: (0)MD1 (1)MD0 (2)FD0 (3)FD1 Boot Selection? Z Loading ZSDOS v1.1... CBIOS v2.9.1 [WBW] Configuring Drives... A:=MD1:0 B:=MD0:0 C:=FD0:0 D:=FD1:0 3719 Disk Buffer Bytes Free ZSDOS v1.1, 54.0K TPA B>dir | ASM .COM | CLRDIR .COM | COPY .CFG | COPY .COM | DDT .COM | DDTZ .COM | DIF .COM | DUMP .COM | ED .COM | FA16 .CFG | FDISK80 .COM | FILEATTR.COM | FILEDATE.CFG | FILEDATE.COM | FLASH .COM | INITDIR .CFG | INITDIR .COM | LDDS .COM | LDP2D .COM | LINK .COM | LOAD .COM | MBASIC .COM | NULU .COM | PIP .COM | PUTDS .COM | RELOG .COM | RMAC .COM | STAT .COM | SUBMIT .COM | SUPERSUB.COM | TD .CFG | TD .COM | UNARC .COM | XSUB .COM | ZAP .COM | ZCAL .COM | ZCNFG .COM | ZCNFG24 .CFG | ZDE .COM | ZPATH .COM | ZSCONFIG.COM | ZXD .CFG | ZXD .COM | ASSIGN .COM | FDU .COM | FORMAT .COM | MODE .COM | OSLDR .COM | RTC .COM | SURVEY .COM | SYSCOPY .COM | SYSGEN .COM | TALK .COM | TIMER .COM | XM .COM | INTTEST .COM | CPM .SYS | ZSYS .SYS B>dir b c: | ARCV .COM | AS .COM | ASM .ARC | C .LIB | CC .COM | CC .MSG | CNM .COM | CRC .COM | CZ .COM | EXMPL .C | HEADER .ARC | HEX80 .COM | LIBASRC .ARC | LIBC .REL | LIBCSRC .ARC | LIBUTIL .COM | LN .COM | M .LIB | MATH .REL | MATHSRC .ARC | OVBGN .O | OVLOADER.O | OVLY .ARC | R .O | RBEGIN .O | RBUILD .SUB | REXT .ASM | ROM .LIB | SIDSYM .COM | SQZ .COM | T .ASM | T .LIB | TINYSRC .ARC B>c: C>dir | CMDLIN .PAS | HELLO .BAK | HELLO .COM | HELLO .PAS | LISTER .PAS | MC .HLP | MC .PAS | MC-MOD00.INC | MC-MOD01.INC | MC-MOD02.INC | MC-MOD03.INC | MC-MOD04.INC | MC-MOD05.INC | MCDEMO .MCS | MIXED .ARC | READ .ME | TINST .COM | TINST .DTA | TINST .MSG | TURBO .COM | TURBO .MSG | TURBO .OVR C>b:sat  tat hello* Recs Bytes Ext Acc 1 2k 1 R/W C:HELLO.BAK 65 10k 1 R/W C:HELLO.COM 1 2k 1 R/W C:HELLO.PAS Bytes Remaining On C: 1048k C>type hello.pas program HelloWorld; begin WriteLn('Hello World') end. C>run     hello.com HELLO.COM? C>hello Hello World C>del     era hello.com | HELLO .COM C>dir | CMDLIN .PAS | HELLO .BAK | HELLO .PAS | LISTER .PAS | MC .HLP | MC .PAS | MC-MOD00.INC | MC-MOD01.INC | MC-MOD02.INC | MC-MOD03.INC | MC-MOD04.INC | MC-MOD05.INC | MCDEMO .MCS | MIXED .ARC | READ .ME | TINST .COM | TINST .DTA | TINST .MSG | TURBO .COM | TURBO .MSG | TURBO .OVR C>turbo --------------------------------------- TURBO Pascal system Version 3.01A CP/M-80, Z80 Copyright (C) 1983,84,85 BORLAND Inc. --------------------------------------- Terminal: ANSI Include error messages (Y/N)? Y Loading C:TURBO.MSGLogged drive: C Work file: Main file: Edit Compile Run Save eXecute Dir Quit compiler Options Text: 0 bytes (8118-8118) Free: 21229 bytes (8119-D406) > Work file name: hello.pas Loading C:HELLO.PASprogram HelloWorld; begin WriteLn('Hello World')end.C:HELLO.PASLine Col Insert Indent1 1 ^[^[[^[[^[[B ^[^[[^[[^[[B ^[^[[^[[^[[B ^[^[[^[[^[[B ^[^[[^[[^[[B ^[^[[^[[^[[A ^[^[[^[[^[[C 2 ^[^[[^[[^[[C 3 ^[^[[^[[^[[C 4 ^[^[[^[[^[[C 5 ^[^[[^[[^[[B ^[^[[^[[^[[B ^[^[[^[[^[[B ^[^[[^[[^[[C 6 ^[^[[^[[^[[C 7 ^[^[[^[[^[[C 8 ^[^[[^[[^[[C 9 ^[^[[^[[^[[C 10 ^[^[[^[[^[[D 9 ^[^[[^[[^[[D 8 ^[^[[^[[^[[D 7 ^[^[[^[[^[[D 6 ^[^[[^[[^[[D 5 ^[^[[^[[^[[B ^[^[[^[[^[[B ^K^Kq ^K^Kq ^K^Kwprogram HelloWorld; ^K^Ks ^K^Kcprogram HelloWorld; RetroBrew HBIOS v2.9.1, 2019-06-03 ZETA Z80 @ 16.000MHz 0 MEM W/S, 1 I/O W/S 512KB ROM, 512KB RAM UART0: IO=0x68 16550A MODE=38400,8,N,1 DSRTC: MODE=STD Thu 2018-11-08 00:43:42 CHARGE=OFF MD: UNITS=2 ROMDISK=384KB RAMDISK=384KB FD: IO=0x36 UNITS=2 PPP: IO=0x60 NOT PRESENT Unit Device Type Capacity/Mode ---------- ---------- ---------------- -------------------- Disk 0 MD1: RAM Disk 384KB,LBA Disk 1 MD0: ROM Disk 384KB,LBA Disk 2 FD0: Floppy Disk 3.5",DS/HD,CHS Disk 3 FD1: Floppy Disk 3.5",DS/HD,CHS Char 0 UART0: RS-232 38400,8,N,1 ZETA Boot Loader ROM: (M)onitor (C)P/M (Z)-System (F)orth (B)ASIC (T)-BASIC Disk: (0)MD1 (1)MD0 (2)FD0 (3)FD1 Boot Selection? Z Loading ZSDOS v1.1... CBIOS v2.9.1 [WBW] Configuring Drives... A:=MD1:0 B:=MD0:0 C:=FD0:0 D:=FD1:0 3719 Disk Buffer Bytes Free ZSDOS v1.1, 54.0K TPA B>c: C>dir | CMDLIN .PAS | HELLO .BAK | HELLO .PAS | LISTER .PAS | MC .HLP | MC .PAS | MC-MOD00.INC | MC-MOD01.INC | MC-MOD02.INC | MC-MOD03.INC | MC-MOD04.INC | MC-MOD05.INC | MCDEMO .MCS | MIXED .ARC | READ .ME | TINST .COM | TINST .DTA | TINST .MSG | TURBO .COM | TURBO .MSG | TURBO .OVR C>type read.me Welcome to TURBO PASCAL Version 3.0! ------------------------------------ In spite of all efforts, some errors have found their way into the new TURBO 3.0 manual. This file contains all the necessary corrections and additions, and we apologize for any inconvenience this may cause you. Please make a working copy of your TURBO disk and store the ori- ginal in a safe place. For help making a backup copy, please refer to appendix M of the TURBO PASCAL Reference Manual. NOTE: Your TURBO PASCAL disk has been pre-installed for your Microbee disk system, pay no attention to the manual with regards to installing TURBO PASCAL. ******************************************* * * * Need help with TURBO? Please see * * Appendix N in your Reference Manual * * for answers to common questions. * * * ******************************************* ------------------- Contents of the READ.ME File ---------------------------- 1. CORRECTIONS to the 3.0 Reference Manual [ All versions ] 2. OMMISSIONS from the 3.0 Reference Manual [ All versions ] 3. New FEATURES [ CP/M-80 ] 4. ADDITIONAL FILE LIST [ CP/M-80 ] ------------------- CORRECTIONS ----------- Page 253 - MOV AL,[BP-1] ------------------------ The correct statement is: MOV AL,[BP+4] Page 293 - TURBO-BCD will compile and run any program ----------------------------------------------------- Well - almost. The Real functions Sin, Cos, ArcTan, Ln, Exp, and Sqrt and the pre-declared constant Pi are not available in TURBOBCD. ------------------- OMISSIONS --------- User Written Error Handlers --------------------------- In Turbo Pascal 3.0 you may write your own error handler, which is called in case of an I/O or Run-time error. The procedure must have the following header: procedure Error(ErrNo, ErrAddr: Integer); The name of the procedure and its parameters are unim- portant, as long as it is a procedure with two value parameters of type Integer. The value passed in ErrNo is the error type and number. The most significant byte, i.e. "Hi(ErrNo)", contains the error type, and the least significant byte, i.e. "Lo(ErrNo)", contains the error number (see Appendix F or G in the Turbo C>dir | CMDLIN .PAS | HELLO .BAK | HELLO .PAS | LISTER .PAS | MC .HLP | MC .PAS | MC-MOD00.INC | MC-MOD01.INC | MC-MOD02.INC | MC-MOD03.INC | MC-MOD04.INC | MC-MOD05.INC | MCDEMO .MCS | MIXED .ARC | READ .ME | TINST .COM | TINST .DTA | TINST .MSG | TURBO .COM | TURBO .MSG | TURBO .OVR C>turbo /? --------------------------------------- TURBO Pascal system Version 3.01A CP/M-80, Z80 Copyright (C) 1983,84,85 BORLAND Inc. --------------------------------------- Terminal: ANSI Include error messages (Y/N)? Y Loading C:TURBO.MSGLogged drive: C Work file: Main file: Edit Compile Run Save eXecute Dir Quit compiler Options Text: 0 bytes (8118-8118) Free: 21229 bytes (8119-D406) > Work file name: hello Loading C:HELLO.PAS Compiling 0 4 lines Code: 52 bytes (8156-818A) Free: 22131 bytes (818B-D7FE) Data: 7 bytes (D7FF-D806) > Saving C:HELLO.PAS > compile -> Memory Com-file cHn-file Find run-time error Quit > Memory compile -> Com-file cHn-file Start address: 20E3 (min 20E3) End address: D542 (max D806) Find run-time error Quit > Memory Com-file compile -> cHn-file Start address: 20E3 (min 20E3) End address: D542 (max D806) Find run-time error Quit > Memory compile -> Com-file cHn-file Start address: 20E3 (min 20E3) End address: D542 (max D806) Find run-time error Quit > Memory compile -> Com-file cHn-file Start address: 20E3 (min 20E3) End address: D542 (max D806) Find run-time error Quit > Logged drive: C Work file: C:HELLO.PAS Main file: Edit Compile Run Save eXecute Dir Quit compiler Options Text: 60 bytes (8118-8154) Free: 21169 bytes (8155-D406) > Compiling --> C:HELLO.COM 0 4 lines Code: 52 bytes (20E3-2117) Free: 45986 bytes (2118-D4BA) Data: 135 bytes (D4BB-D542) > Hello World Loading C:TURBO.MSG Loading C:HELLO.PAS > Program: hello.com Hello World Loading C:TURBO.MSG Loading C:HELLO.PAS > Logged drive: C Work file: C:HELLO.PAS Main file: Edit Compile Run Save eXecute Dir Quit compiler Options Text: 60 bytes (8118-8154) Free: 21169 bytes (8155-D406) > program HelloWorld; begin WriteLn('Hello World')end.C:HELLO.PASLine Col Insert Indent1 1 lprogram HelloWorld; 2 1 5 ^[^[[^[[^[[A ^[^[[^[[^[[A ^[^[[^[[^[[B ^[^[[^[[^[[B ^[^[[^[[^[[B d 2 d 3 d 4 3 2 1 RetroBrew HBIOS v2.9.1, 2019-06-03 ZETA Z80 @ 16.000MHz 0 MEM W/S, 1 I/O W/S 512KB ROM, 512KB RAM UART0: IO=0x68 16550A MODE=38400,8,N,1 DSRTC: MODE=STD Thu 2018-11-08 00:46:16 CHARGE=OFF MD: UNITS=2 ROMDISK=384KB RAMDISK=384KB FD: IO=0x36 UNITS=2 PPP: IO=0x60 NOT PRESENT Unit Device Type Capacity/Mode ---------- ---------- ---------------- -------------------- Disk 0 MD1: RAM Disk 384KB,LBA Disk 1 MD0: ROM Disk 384KB,LBA Disk 2 FD0: Floppy Disk 3.5",DS/HD,CHS Disk 3 FD1: Floppy Disk 3.5",DS/HD,CHS Char 0 UART0: RS-232 38400,8,N,1 ZETA Boot Loader ROM: (M)onitor (C)P/M (Z)-System (F)orth (B)ASIC (T)-BASIC Disk: (0)MD1 (1)MD0 (2)FD0 (3)FD1 Boot Selection? Z Loading ZSDOS v1.1... CBIOS v2.9.1 [WBW] Configuring Drives... A:=MD1:0 B:=MD0:0 C:=FD0:0 D:=FD1:0 3719 Disk Buffer Bytes Free ZSDOS v1.1, 54.0K TPA B>c: C>dir | CMDLIN .PAS | HELLO .PAS | HELLO .COM | HELLO .BAK | LISTER .PAS | MC .HLP | MC .PAS | MC-MOD00.INC | MC-MOD01.INC | MC-MOD02.INC | MC-MOD03.INC | MC-MOD04.INC | MC-MOD05.INC | MCDEMO .MCS | MIXED .ARC | READ .ME | TINST .COM | TINST .DTA | TINST .MSG | TURBO .COM | TURBO .MSG | TURBO .OVR C>b:stat hello.com Recs Bytes Ext Acc 65 10k 1 R/W C:HELLO.COM Bytes Remaining On C: 1048k C>tinst TURBO Pascal installation menu. Choose installation item from the following: [S]creen installation | [C]ommand installation | [Q]uit Enter S, C, or Q: C>dir | CMDLIN .PAS | HELLO .PAS | HELLO .COM | HELLO .BAK | LISTER .PAS | MC .HLP | MC .PAS | MC-MOD00.INC | MC-MOD01.INC | MC-MOD02.INC | MC-MOD03.INC | MC-MOD04.INC | MC-MOD05.INC | MCDEMO .MCS | MIXED .ARC | READ .ME | TINST .COM | TINST .DTA | TINST .MSG | TURBO .COM | TURBO .MSG | TURBO .OVR C>rt  type cmdlin.pas program CommandLine; { COMMANDLINE PARAMETERS DEMONSTRATION PROGRAM Version 1.00A This program gets parameters from the command line: INSTRUCTIONS 1. Load the TURBO compiler and compile to a .COM file 2. Quit the TURBO compiler and execute the program with parameters. Try: cmdlin abc def cmdlin Greetings from Frank Borland! cmdlin NOTE: For information about these functions, please refer to your TURBO 3.0 Reference Manual. } var i : integer; begin for i := 1 to ParamCount do writeln(ParamSTR(i)); end. C>dir | CMDLIN .PAS | HELLO .PAS | HELLO .COM | HELLO .BAK | LISTER .PAS | MC .HLP | MC .PAS | MC-MOD00.INC | MC-MOD01.INC | MC-MOD02.INC | MC-MOD03.INC | MC-MOD04.INC | MC-MOD05.INC | MCDEMO .MCS | MIXED .ARC | READ .ME | TINST .COM | TINST .DTA | TINST .MSG | TURBO .COM | TURBO .MSG | TURBO .OVR C>turbo /? --------------------------------------- TURBO Pascal system Version 3.01A CP/M-80, Z80 Copyright (C) 1983,84,85 BORLAND Inc. --------------------------------------- Terminal: ANSI Include error messages (Y/N)? Y Loading C:TURBO.MSGLogged drive: C Work file: Main file: Edit Compile Run Save eXecute Dir Quit compiler Options Text: 0 bytes (8118-8118) Free: 21229 bytes (8119-D406) > Work file name: cmdline Loading C:CMDLINE.PAS New File > C>dir | CMDLIN .PAS | HELLO .PAS | HELLO .COM | HELLO .BAK | LISTER .PAS | MC .HLP | MC .PAS | MC-MOD00.INC | MC-MOD01.INC | MC-MOD02.INC | MC-MOD03.INC | MC-MOD04.INC | MC-MOD05.INC | MCDEMO .MCS | MIXED .ARC | READ .ME | TINST .COM | TINST .DTA | TINST .MSG | TURBO .COM | TURBO .MSG | TURBO .OVR C>dir cmd*.* | CMDLIN .PAS C>turbo cmdlin.pas --------------------------------------- TURBO Pascal system Version 3.01A CP/M-80, Z80 Copyright (C) 1983,84,85 BORLAND Inc. --------------------------------------- Terminal: ANSI Include error messages (Y/N)? Y Loading C:TURBO.MSGLogged drive: C Work file: Main file: Edit Compile Run Save eXecute Dir Quit compiler Options Text: 0 bytes (8118-8118) Free: 21229 bytes (8119-D406) > Work file name: cmdlin.pas Loading C:CMDLIN.PAS Compiling 0 16 27 lines Code: 78 bytes (8395-83E3) Free: 21528 bytes (83E4-D7FC) Data: 9 bytes (D7FD-D806) > Running > C>dir | CMDLIN .PAS | HELLO .PAS | HELLO .COM | HELLO .BAK | LISTER .PAS | MC .HLP | MC .PAS | MC-MOD00.INC | MC-MOD01.INC | MC-MOD02.INC | MC-MOD03.INC | MC-MOD04.INC | MC-MOD05.INC | MCDEMO .MCS | MIXED .ARC | READ .ME | TINST .COM | TINST .DTA | TINST .MSG | TURBO .COM | TURBO .MSG | TURBO .OVR C>dir *.com | HELLO .COM | TINST .COM | TURBO .COM C>turbo --------------------------------------- TURBO Pascal system Version 3.01A CP/M-80, Z80 Copyright (C) 1983,84,85 BORLAND Inc. --------------------------------------- Terminal: ANSI Include error messages (Y/N)? Y Loading C:TURBO.MSGLogged drive: C Work file: Main file: Edit Compile Run Save eXecute Dir Quit compiler Options Text: 0 bytes (8118-8118) Free: 21229 bytes (8119-D406) > Work file name: cmdlin Loading C:CMDLIN.PAS Compiling 0 16 27 lines Code: 78 bytes (8395-83E3) Free: 21528 bytes (83E4-D7FC) Data: 9 bytes (D7FD-D806) Running > Program: cndlin CNDLIN.COM not found Program: cmdlin CMDLIN.COM not found Program: Loading C:TURBO.MSG Loading C:CMDLIN.PAS > Compiling 0 16 27 lines Code: 78 bytes (8395-83E3) Free: 21528 bytes (83E4-D7FC) Data: 9 bytes (D7FD-D806) > Logged drive: C Work file: C:CMDLIN.PAS Main file: Edit Compile Run Save eXecute Dir Quit compiler Options Text: 635 bytes (8118-8393) Free: 20594 bytes (8394-D406) > Main file name: cmdlin > Compiling 0 16 27 lines Code: 78 bytes (8395-83E3) Free: 21528 bytes (83E4-D7FC) Data: 9 bytes (D7FD-D806) > Saving C:CMDLIN.PAS > Compiling 0 16 27 lines Code: 78 bytes (8395-83E3) Free: 21528 bytes (83E4-D7FC) Data: 9 bytes (D7FD-D806) > compile -> Memory Com-file cHn-file Find run-time error Quit > Memory compile -> Com-file cHn-file Start address: 20E3 (min 20E3) End address: D542 (max D806) Find run-time error Quit > Memory compile -> Com-file cHn-file Start address: 20E3 (min 20E3) End address: D542 (max D806) Find run-time error Quit > Start address: Memory compile -> Com-file cHn-file Start address: 20E3 (min 20E3) End address: D542 (max D806) Find run-time error Quit > Enter PC: Memory compile -> Com-file cHn-file Start address: 20E3 (min 20E3) End address: D542 (max D806) Find run-time error Quit > Logged drive: C Work file: C:CMDLIN.PAS Main file: C:CMDLIN.PAS Edit Compile Run Save eXecute Dir Quit compiler Options Text: 635 bytes (8118-8393) Free: 20594 bytes (8394-D406) > Compiling --> C:CMDLIN.COM 0 16 27 lines Code: 78 bytes (20E3-2131) Free: 45958 bytes (2132-D4B8) Data: 137 bytes (D4B9-D542) > C>dir | CMDLIN .BAK | HELLO .PAS | HELLO .COM | HELLO .BAK | LISTER .PAS | MC .HLP | MC .PAS | MC-MOD00.INC | MC-MOD01.INC | MC-MOD02.INC | MC-MOD03.INC | MC-MOD04.INC | MC-MOD05.INC | MCDEMO .MCS | MIXED .ARC | READ .ME | TINST .COM | TINST .DTA | TINST .MSG | TURBO .COM | TURBO .MSG | TURBO .OVR | CMDLIN .PAS | CMDLIN .COM C>dir *.com | HELLO .COM | TINST .COM | TURBO .COM | CMDLIN .COM C>cmdlin C>cmdlin hello ope tion 1 h more flags HELLO OPTION 1 MORE FLAGS C>b:stat cmdlin.com Recs Bytes Ext Acc 65 10k 1 R/W C:CMDLIN.COM Bytes Remaining On C: 1036k C>type cmdlin.pas program CommandLine; { COMMANDLINE PARAMETERS DEMONSTRATION PROGRAM Version 1.00A This program gets parameters from the command line: INSTRUCTIONS 1. Load the TURBO compiler and compile to a .COM file 2. Quit the TURBO compiler and execute the program with parameters. Try: cmdlin abc def cmdlin Greetings from Frank Borland! cmdlin NOTE: For information about these functions, please refer to your TURBO 3.0 Reference Manual. } var i : integer; begin for i := 1 to ParamCount do writeln(ParamSTR(i)); end. C>