ACT Apricot disk image㐞 F^ ) (C) ACT 1983 vFONT=BRIT02 KEYS=ACT001 㐞@`  @㐞㐞@`  @㐞㐞Apricot QlDISK BAK PlDISK COM Sl DISK OVL |eh DISK ASM ;SlDISK OBJ OSlDISK EXE VSl1050B16 1050C25 uZ>Z>Z> Z>Z>Z>Z>㐞interrupt equ 0feh ;interrupt for this function manager dos equ 021h ;ms-dos interrupt fcb_1 equ 05ch ;location of default fcb fcb_2 equ 06ch ;second default command_line equ 080h ;command line false equ 000h true equ 0ffh ; direct_cin equ 07h ;direct console input disp_string equ 09h ;display string parse equ 29h ;parse file name set_memory equ 4ah ;modify memory allocation for this task exec equ 4bh ;exec system call for load child process finish equ 4ch ;terminate program current_di㐞sk equ 19h ;find current selected disk select_disk equ 0eh ;select drive code segment assume cs:code,ds:code,es:code,ss:code org 100h start: jmp entry_point ; ;data area ; pathname db 'DISK.OVL',0,0,0,0,0 d_copy db 'DISKCOPY.COM',0,0,0,0,0,0 block_b db ' B: B: ',13,10,0,0,0,0,0,0 block_a db ' A: A: ',13,10,0,0,0,0,0,0 replace_disk db 27,'E','Insert disk containing DISK.OVL and press space bar to continue',13,10,'$' memory_err db 'memory arena trashed',13,10,'$' err_memory db 'No㐞t enough memory to load program.',13,10,'$' err_file db 'DISK.OVL not found on installed disk.',13,10,'$' err_environment db 'Assigned program is not of executable format',13,10,'$' loading db 'Loading program.....',13,10,'$' flag db 0 block dw 0 dw 0080h mseg1 dw ? dw 5ch mseg2 dw ? dw 6ch mseg3 dw ? ; ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;stack area ; dw 100 dup(?) ;reserve a stack segment stak: dw 10 dup (0) ;insurance agains stak under 㐞run ; entry_point: cli ;turn off interrupts mov sp,offset stak sti ;set up memory mov bx,offset last_address ;calculate memory required for this job shr bx,1 shr bx,1 shr bx,1 shr bx,1 inc bx ;force next highest para mov ah,set_memory ;now set our min memory requirements int dos jnc mem mov dx,offset memory_err mov ah,disp_string int dos jmp abort ; mem: mov bp,0h mov al,flag cmp al,1 je mess mov byte ptr command_line[bp],0 ;if first time give 0 jmp㐞  begin ;else give disk a 1 mess: mov ah,disp_string mov dx,offset loading int dos mov byte ptr command_line[bp],1 begin: mov ax,cs mov mseg1,ax mov mseg2,ax mov mseg3,ax mov dx,offset pathname mov bx,offset block mov ah,exec mov al,0 ;set load and go option int dos jnc check_return cmp ax,8 ;not enough memory test jne l_error_1 mov dx,offset err_memory mov ah,disp_string int dos jmp load_ok l_error_1: cmp ax,2 ;file not found test jne l_error_㐞2 mov al,flag ;is it first time cmp al,1 jne first_time mov ah,disp_string ;if not first time replace disk mov dx,offset replace_disk int dos mov ah,7 int dos jmp mem first_time: mov dx,offset err_file mov ah,disp_string int dos jmp load_ok l_error_2: ;must be bad evironment by defaul mov dx,offset err_environment mov ah,disp_string int dos jmp load_ok ; check_return: mov al,1 mov flag,al mov al,0 mov ah,4dh int dos ;if child returns 0 th㐞en exit cmp al,1 je drive_a ;decide what disk wants to do cmp al,2 je drive_b jmp load_ok drive_b: mov bp,0 mov byte ptr fcb_1[bp],2 mov byte ptr fcb_2[bp],2 jmp do_exec drive_a: mov bp,0 mov byte ptr fcb_1[bp],1 mov byte ptr fcb_2[bp],1 do_exec: mov ah,disp_string mov dx,offset loading int dos mov bx,offset block mov dx,offset d_copy mov ah,exec mov al,0 ;set load and go option int dos jmp mem load_ok: push cs ;restore ds in case trashed by e㐞xec pop ds push cs pop es abort: mov ah,finish int dos ; last_address: code ends end start  DISK.TXT轀FPP aw=tFFFPP^1PFPPPWrFFF FN}F^1PF[×&2PFPayPF2[#rF@F~tFFuF@F~|-PF[PF[P^1PF[×&_&F@F~tF^1PF[×&2PFP~xPF2[ r{~|PF[F&PF[㐞DISK.OVLDISKCOPY.COM B: B: A: A: EInsert disk containing DISK.OVL and press space bar to continue. $memory arena trashed $Not enough memory to load program. $File DISK.OVL not found on default drive. $Assigned program is not of executable format $Loading program ... $\l㐞 CJ!s  !2<tƆ !Ɔȣ7;?3K!s<=u  !s=u2<u @!!롺 !P !F2M!<t<t0F\Fl F\Fl !3K!HL!$> u ؀>DuutëZ>Dut%-׋KJCB^SV6D[VC^V ^[VàjFSط[PRD;t|ZXĞË5F7FËD*7F*7FàPNXĞPĠ u(XĞußPĠ u㐞MZ  E㐞!$L!㋇:F^㋏:N FFFF^GFF%FF^GFF%F9Fu|F;FwF;FulF;Fa^GF㐞interrupt equ 0feh ;interrupt for this function manager dos equ 021h ;ms-dos interrupt fcb_1 equ 05ch ;location of default fcb fcb_2 equ 06ch ;second default command_line equ 080h ;command line false equ 000h true equ 0ffh ; direct_cin equ 07h ;direct console input disp_string equ 09h ;display string parse equ 29h ;parse file name set_memory equ 4ah ;modify memory allocation for this task exec equ 4bh ;exec system call for load child process finish equ 4ch ;terminate program current_di㐞 sk equ 19h ;find current selected disk select_disk equ 0eh ;select drive code segment assume cs:code,ds:code,es:code,ss:code org 100h start: jmp entry_point ; ;data area ; pathname db 'DISK.OVL',0,0,0,0,0 d_copy db 'DISKCOPY.COM',0,0,0,0,0,0 block_b db ' B: B: ',13,10,0,0,0,0,0,0 block_a db ' A: A: ',13,10,0,0,0,0,0,0 replace_disk db 27,'E','Insert disk containing DISK.OVL and press space bar to continue.',13,10,'$' memory_err db 'memory arena trashed',13,10,'$' err_memory db 'N㐞ot enough memory to load program.',13,10,'$' err_file db 'File DISK.OVL not found on default drive.',13,10,'$' err_environment db 'Assigned program is not of executable format',13,10,'$' loading db 'Loading program ...',13,10,'$' flag db 0 block dw 0 dw 0080h mseg1 dw ? dw 5ch mseg2 dw ? dw 6ch mseg3 dw ? ; ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;stack area ; dw 100 dup(?) ;reserve a stack segment stak: dw 10 dup (0) ;insurance agains stak un㐞der run ; entry_point: cli ;turn off interrupts mov sp,offset stak sti ;set up memory mov bx,offset last_address ;calculate memory required for this job shr bx,1 shr bx,1 shr bx,1 shr bx,1 inc bx ;force next highest para mov ah,set_memory ;now set our min memory requirements int dos jnc mem mov dx,offset memory_err mov ah,disp_string int dos jmp abort ; mem: mov bp,0h mov al,flag cmp al,1 je mess mov byte ptr command_line[bp],0 ;if first time give 0 㐞 jmp begin ;else give disk a 1 mess: mov ah,disp_string mov dx,offset loading int dos mov byte ptr command_line[bp],1 begin: mov ax,cs mov mseg1,ax mov mseg2,ax mov mseg3,ax mov dx,offset pathname mov bx,offset block mov ah,exec mov al,0 ;set load and go option int dos jnc check_return cmp ax,8 ;not enough memory test jne l_error_1 mov dx,offset err_memory mov ah,disp_string int dos jmp load_ok l_error_1: cmp ax,2 ;file not found test jne l_er㐞ror_2 mov al,flag ;is it first time cmp al,1 jne first_time mov ah,disp_string ;if not first time replace disk mov dx,offset replace_disk int dos mov ah,7 int dos jmp mem first_time: mov dx,offset err_file mov ah,disp_string int dos jmp load_ok l_error_2: ;must be bad evironment by defaul mov dx,offset err_environment mov ah,disp_string int dos jmp load_ok ; check_return: mov al,1 mov flag,al mov al,0 mov ah,4dh int dos ;if child returns 㐞0 then exit cmp al,1 je drive_a ;decide what disk wants to do cmp al,2 je drive_b jmp load_ok drive_b: mov bp,0 mov byte ptr fcb_1[bp],2 mov byte ptr fcb_2[bp],2 jmp do_exec drive_a: mov bp,0 mov byte ptr fcb_1[bp],1 mov byte ptr fcb_2[bp],1 do_exec: mov ah,disp_string mov dx,offset loading int dos mov bx,offset block mov dx,offset d_copy mov ah,exec mov al,0 ;set load and go option int dos jmp mem load_ok: push cs ;restore ds in case trashed 㐞by exec pop ds push cs pop es abort: mov ah,finish int dos ; last_address: code ends end start  mov byte ptr fcb_1[bp],2 mov byte ptr fcb_2[bp],2 jmp do_exec drive_a: mov bp,0 mov byte ptr fcb_1[bp],1 mov byte ptr fcb_2[bp],1 do_exec: mov ah,disp_string mov dx,offset loading int dos mov bx,offset block mov dx,offset d_copy mov ah,exec mov al,0 ;set load and go option int dos jmp mem load_ok: push cs ;restore ds in case trashed 㐞A;CODED`DISK.OVLDISKCOPY.COM B: B: A: A: EInsert disk containing DISK.OVL and press space bar to continue. $memory arena trashed $Not enough memory to load program. $File DISK.OVL not found on default drive. $Assigned programH is not of executable format $Loading program ... $\l  4CJ!s !<tƆ !ƆȣK!s<=u !s=u<u 㐞 !!롺 !P !FM!<t<t0F\Fl F\Fl !K!L!Ü %26B7E;H?KN3^m2v@āċė23>signed programH is not of executable format $Loading program ... $\l  4CJ!s !<tƆ !ƆȣK!s<=u !s=u<u 㐞 MZ {㐞DISK.OVLDISKCOPY.COM B: B: A: A: EInsert disk containing DISK.OVL and press space bar to continue. $memory arena trashed $Not enough memory to load program. $File DISK.OVL not found on default drive. $Assigned program is㐞 not of executable format $Loading program ... $\l CJ!s  !2<tƆ !Ɔȣ7;?3K!s<=u  !s=u2<u @!!롺 !P !F2M!<t<t0F\Fl F\Fl !3K!HL!㐞interrupt equ 0feh ;interrupt for this function manager dos equ 021h ;ms-dos interrupt fcb_1 equ 05ch ;location of default fcb fcb_2 equ 06ch ;second default command_line equ 080h ;command line false equ 000h true equ 0ffh ; direct_cin equ 07h ;direct console input disp_string equ 09h ;display string parse equ 29h ;parse file name set_memory equ 4ah ;modify memory allocation for this task exec equ 4bh ;exec system call for load child process finish equ 4ch ;terminate program current_di㐞sk equ 19h ;find current selected disk select_disk equ 0eh ;select drive code segment assume cs:code,ds:code,es:code,ss:code org 100h start: jmp entry_point ; ;data area ; pathname db 'DISK.OVL',0,0,0,0,0 d_copy db 'DISKCOPY.COM',0,0,0,0,0,0 block_b db ' B: B: ',13,10,0,0,0,0,0,0 block_a db ' A: A: ',13,10,0,0,0,0,0,0 replace_disk db 27,'E','Insert disk containing DISK.OVL and press space bar to continue.',13,10,'$' memory_err db 'memory arena trashed',13,10,'$' err_memory db 'N㐞ot enough memory to load program.',13,10,'$' err_file db 'File DISK.OVL not found on default drive.',13,10,'$' err_environment db 'Assigned program is not of executable format',13,10,'$' loading db 'Loading program ...',13,10,'$' flag db 0 block dw 0 dw 0080h mseg1 dw ? dw 5ch mseg2 dw ? dw 6ch mseg3 dw ? ; ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;stack area ; dw 100 dup(?) ;reserve a stack segment stak: dw 10 dup (0) ;insurance agains stak un㐞der run ; entry_point: cli ;turn off interrupts mov sp,offset stak sti ;set up memory mov bx,offset last_address ;calculate memory required for this job shr bx,1 shr bx,1 shr bx,1 shr bx,1 inc bx ;force next highest para mov ah,set_memory ;now set our min memory requirements int dos jnc mem mov dx,offset memory_err mov ah,disp_string int dos jmp abort ; mem: mov bp,0h mov al,flag cmp al,1 je mess mov byte ptr command_line[bp],0 ;if first time give 0 㐞 jmp begin ;else give disk a 1 mess: mov ah,disp_string mov dx,offset loading int dos mov byte ptr command_line[bp],1 begin: mov ax,cs mov mseg1,ax mov mseg2,ax mov mseg3,ax mov dx,offset pathname mov bx,offset block mov ah,exec mov al,0 ;set load and go option int dos jnc check_return cmp ax,8 ;not enough memory test jne l_error_1 mov dx,offset err_memory mov ah,disp_string int dos jmp load_ok l_error_1: cmp ax,2 ;file not found test jne l_er㐞ror_2 mov al,flag ;is it first time cmp al,1 jne first_time mov ah,disp_string ;if not first time replace disk mov dx,offset replace_disk int dos mov ah,7 int dos jmp mem first_time: mov dx,offset err_file mov ah,disp_string int dos jmp load_ok l_error_2: ;must be bad evironment by defaul mov dx,offset err_environment mov ah,disp_string int dos jmp load_ok ; check_return: mov al,1 mov flag,al mov al,0 mov ah,4dh int dos ;if child returns 㐞 0 then exit cmp al,1 je drive_a ;decide what disk wants to do cmp al,2 je drive_b jmp load_ok drive_b: mov bp,0 mov byte ptr fcb_1[bp],2 mov byte ptr fcb_2[bp],2 jmp do_exec drive_a: mov bp,0 mov byte ptr fcb_1[bp],1 mov byte ptr fcb_2[bp],1 do_exec: mov ah,disp_string mov dx,offset loading int dos mov bx,offset block mov dx,offset d_copy mov ah,exec mov al,0 ;set load and go option int dos jmp mem load_ok: push cs ;restore ds in case trashed 㐞by exec pop ds push cs pop es abort: mov ah,finish int dos ; last_address: code ends end start _b4201 CPI uB5202 CPI ~AEMM SYS pz@AEMM386 SYS v:ANSI SYS oASYNC SYS ~;i ATMODEM SYS wc VCOUNTRY SYS +DISPLAY SYS +DRIVER SYS EGA CPI FASTOPENEXE 0Z>NZ>NZ>NZ>NZ>NZ>NZ>NZ> NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ> NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ> NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ> NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ> NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ> NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ> NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ> NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ> NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ> NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ> NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ> NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ> NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ> NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ> NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ> NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ> NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ> NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ> NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ> NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ>NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ> NZ>!NZ>!NZ>!NZ>!NZ>!NZ>!NZ>!NZ>!NZ> !NZ>"NZ>"NZ>"NZ>"NZ>"NZ>"NZ>"NZ>"NZ> "NZ>#NZ>#NZ>#NZ>#NZ>#NZ>#NZ>#NZ>#NZ> #NZ>$NZ>$NZ>$NZ>$NZ>$NZ>$NZ>$NZ>$NZ> $NZ>%NZ>%NZ>%NZ>%NZ>%NZ>%NZ>%NZ>%NZ> %NZ>&NZ>&NZ>&NZ>&NZ>&NZ>&NZ>&NZ>&NZ> &NZ>'NZ>'NZ>'NZ>'NZ>'NZ>'NZ>'NZ>'NZ> 'NZ>(NZ>(NZ>(NZ>(NZ>(NZ>(NZ>(NZ>(NZ> (NZ>)NZ>)NZ>)NZ>)NZ>)NZ>)NZ>)NZ>)NZ> )NZ>*NZ>*NZ>*NZ>*NZ>*NZ>*NZ>*NZ>*NZ> *NZ>+NZ>+NZ>+NZ>+NZ>+NZ>+NZ>+NZ>+NZ> +NZ>,NZ>,NZ>,NZ>,NZ>,NZ>,NZ>,NZ>,NZ> ,NZ>-NZ>-NZ>-NZ>-NZ>-NZ>-NZ>-NZ>-NZ> -NZ>.NZ>.NZ>.NZ>.NZ>.NZ>.NZ>.NZ>.NZ> .NZ>/NZ>/NZ>/NZ>/NZ>/NZ>/NZ>/NZ>/NZ> /NZ>0NZ>0NZ>0NZ>0NZ>0NZ>0NZ>0NZ>0NZ> 0NZ>1NZ>1NZ>1NZ>1NZ>1NZ>1NZ>1NZ>1NZ> 1NZ>2NZ>2NZ>2NZ>2NZ>2NZ>2NZ>2NZ>2NZ> 2NZ>3NZ>3NZ>3NZ>3NZ>3NZ>3NZ>3NZ>3NZ> 3NZ>4NZ>4NZ>4NZ>4NZ>4NZ>4NZ>4NZ>4NZ> 4NZ>5NZ>5NZ>5NZ>5NZ>5NZ>5NZ>5NZ>5NZ> 5NZ>6NZ>6NZ>6NZ>6NZ>6NZ>6NZ>6NZ>6NZ> 6NZ>7NZ>7NZ>7NZ>7NZ>7NZ>7NZ>7NZ>7NZ> 7NZ>8NZ>8NZ>8NZ>8NZ>8NZ>8NZ>8NZ>8NZ> 8NZ>9NZ>9NZ>9NZ>9NZ>9NZ>9NZ>9NZ>9NZ> 9NZ>:NZ>:NZ>:NZ>:NZ>:NZ>:NZ>:NZ>:NZ> :NZ>;NZ>;NZ>;NZ>;NZ>;NZ>;NZ>;NZ>;NZ> ;NZ><NZ><NZ><NZ><NZ><NZ><NZ><NZ><NZ> <NZ>=NZ>=NZ>=NZ>=NZ>=NZ>=NZ>=NZ>=NZ> =NZ>>NZ>>NZ>>NZ>>NZ>>NZ>>NZ>>NZ>>NZ> >NZ>?NZ>?NZ>?NZ>?NZ>?NZ>?NZ>?NZ>?NZ> ?NZ>@NZ>@NZ>@NZ>@NZ>@NZ>@NZ>@NZ>@NZ> @NZ>ANZ>ANZ>ANZ>ANZ>ANZ>ANZ>ANZ>ANZ> ANZ>BNZ>BNZ>BNZ>BNZ>BNZ>BNZ>BNZ>BNZ> BNZ>CNZ>CNZ>CNZ>CNZ>CNZ>CNZ>CNZ>CNZ> CNZ>DNZ>DNZ>DNZ>DNZ>DNZ>DNZ>DNZ>DNZ> DNZ>ENZ>ENZ>ENZ>ENZ>ENZ>ENZ>ENZ>ENZ> EN㐞Disk,COM Vr 2.0 Master Source