TDD.},kr Royal Alphatronic PC System56K CP/M 2.2/3.1 SYSTEM DISKSerial # 02573Copyright 1984 by TA ROYAL/DRI@I1_!i˞~ ]~ >12fK!+``*!"`:`O 8GQ{eze*`"`!}d|d>Dh!`͠`͗`͗` !`͇`>2`2`7H!w`~#( OBoot !`͇``͠`!`͠`͗`͗`@0N#(~# w 6<--->\XAUTOEX COPYRIGHT (C) 1979, DIGITAL RESEARCH %x_͌> ͒> Ò> Ò͘~#͌ì _2<ï2 ć!ʶ2:2a{_:ʷʖ:ʷ>Ľʖ:=2–!B!6#5ʖ:ʷĽ!ͬʧ )!F#xʺ~0wëw!" !~6ͽ:ý(!#͘*~ "ŷ"͌#>?͌͘ =_.:;<> OŅo$>!Y2*O"ʉ@G:ʐ:wÖx2p0ʹ#*©6?ëw˜0ï#6 ¹.0#*6?w0#6 #6" #~?  xDIR ERA TYPESAVEREN USER !yO#< Ty#O 3Ư21y_͸2y2ͽ:÷˜1͘A͌>>͌92^ :ʷ¥.!_~#fow]ȭɎɥ!v"!çREAD ERRORçNO FILE^:ʷl ! ~ 3#0 Wx x ŀ ł G ~ # 3x~#B!Y~ɯ2:ʷ=!ʾý:ʷ=!ʾ:ý^T!~  6?#ˆ:`O> K{͘A͒>:͒͢>:͒͢xK > K > ͒x < ͢ØÆ^ BRͧ9!5‚#~Y‚#"T<ÆALL (Y/N)?^ Tʧ͘!6!~ڇ ȯw4!Y~ʆ͌†t=ʆf ^ T ȯ2o&)|+!<ͧÆNO SPACE^ :Ty!B*O=?_s#"^sG!~Yɸpsp2mÆÆf ͧÆFILE EXISTS _: É: :ʷʉ=2)ͽÉ T!@k!}|q %=qf^!~2>`~2ʯ2\!!B!~> >#0~O#Cx2͘1)ͽÂf zͧÆBAD LOADCOMf^: !ʶ  $$$ SUB$  ˙˥˫˱"C{2!"E9"1Aί22!ty)K!G_^#V*C͐~׃Eלץ׫ ,&-AGMSΛ!!ô!ô!Bdos Err On : $Bad Sector$Select$File R/O$:BA2!~6  O͐  :ηE B 2>: ηb# : ηy! 4 5~yy5 6yҐ^H@Oy H H: –ͬ  #H: ! ξ Hù H H $O͐: 2 *CN# x: 2 p&x~+é7̯2 H! >w_: ! ξ5ͤNkͱ¦ͱxʊ#Nx: η! Ζ2 ͤ! 5™#wO~x½p Hy<< ٷʑ :!qMD# + 2E>! ^#V w#P:BO|^#V#"##"##"##"!O*!O*|!6ʝ6>ٯ*w#w*w#w'û*ٷ! J*""!N#F*^#V*~#foyx*{_zW+*yx#*DM*s#r*s#ryOxG*0MD!!N:ط EG>O: \ϷSπ*C :طqn& ^#V>O^"*}:*)=":O:ءo"*C *C!ͮ~2~2ͦ:ئ2ͮ:ϯO:؁w:w |g}o*د# } ):BO!yoxg*:BO}!N#F "*#*s#r^ ~!J! J*:؅o$*C~i6iw**{#zr+s{ozg**͕** о,w͜͸Ͳ!!N#F$**O!~#:Aξ#~$=2Ek͌p::/GyO>2!q*C"͡ʔ*JҔ^:Oyʃ?|x | sҖ-|N-# S:2E!~Яw>T D^6k-äPYy 5*{zBK5ڋ>*Cw~#+w#w+ɯ2E22i^ *C :ط~w~͔͔# #  w ~>2!E5T*C!"C"C!w# F! w͌xЯ2͢*C ~<wʃG:ؠ!ئʎì 4~ʶ¬:<ʶ$ʶïZͻϯx>2>2ͻ:!ؾZԯ2:Eηẅ́͊Ͳ>2>2T*CGͻ:ẅ́n>2;O ^DM;}H>"*C :ط:ddslO s#r:Eη͊:==»y==»*Ww#*"͸*:G#š"͸:!ؾw4 iw:Z!E~=26ϯ2*C!!~~#~O~G#n,-.‹! w! yG!x͢.:E<ʄ! q!pQ:E<. ʄ$.:E<ʄi6}2ExN! ~态O>G~G!~G} *C!r#r#r ^ͥ_y#x#{s+p+q-*C ͥ!!q#p#w*:BOYG}*MD "ã:!Bξw!>2*C~=2u:B2~2wE:A*Cζw>"!""د2B!"!rQQQâ~?ͦ~?rQ*"CQ-Q͜QüQrQ$Q*):B"*)*)Q;*"E:;:A2AQÓQÜQ*C}/_|/*ؤW}_*"}o|g":طʑ*C6:طʑw:2E**E}DQ>2'iT7ã(6dSDôÔÿt BootInsert PC-CP/M-System disk ޅ(xޅHލޔhޢ@  ?1N:(22 22>۷(!3֯22!9(>!2"!2"22 :O͔|(~O6#:̈́ :̈́!:̈́ $:ͅ'*-:ͅ 036:̈́ 9<:̈́?BEH_~#fo!y(2o))))U.2:޷ 2y2y=2`i"&`i#z n&ɯ2>2$2#>2%b2$y2% >2 :2:2 :2!:޷(1=2:!޾ $:! ޾ :!!޾ 4>@ 6! 42#2<2#s 12":޷2!~6(":!޾ :!޾ :!޾($:޷:2:2:2:#޷ۯ2:o&)))))))7[&:$޷ >2:%:" 2:"{ >E>F2 > 2 >( !JQ!JQ>ʹo !ow( : E !r: O:ʹ͊>ʹ́:2͊!Q:O<2ޯa(<2>Dh: O7!C(!UG(&{dzd}e|eyʹ!́~# !w# : 2">: ސ2 : @=2>2"ޯ2<ɴx 266"!^(!u*~| } !|Y8aBIOS Error NRWPY8aKY(>́(Oy@8(y2:́́(::(w @0ɯ!(Q>>́>́>́  6{1222>2!"!:G>(=#x(w#!} 56K CP/M 2.2 / 3.1 alphatronic PC Serial number 00000   |{0*w#"!4*|eo alph%atronic PC V 3.0 13.03.84qvvvvvvvv v v v v vvvv^     RASM COM@AUTO COM< AUTO2 COM BIOS ASM` CBIOS ASMEDDT COM&DEBLOCK ASMPDISKCOPYCOMuDUMP COMED COM4 !"#FILECOPYCOM$%LOAD COM&MENU COM'()*+,-.MOVCPMPCCOM^/01234PCFORM COM5PIP COM:6789STAT COM,:;<SUBMIT COM =SYSCOPY COM >SYSGEN COM?WIDTH COM@XSUB COMA vvvvv v v v v vvvvI11*" COPYRIGHT(C) 1978, DIGITAL RESEARCH M M! á 4êü /L9ASMPRNHEX 1    agP`!4w_#~ ʸ A:4~~# ¼ > \ ?ʻ w# !ͼ ? !ͼ  I!)ͼ !ͼ :5͡ :6:6͡ :7͡ :\ ʻ 24!dͮ 25ͮ 27ͮ 26!8 ( ʃ !Y 1  :7ʞ !z 8  !"2D2X2#! 8 !ͼ z{* ! !"!8 w#  +6# *#"~!ͼ G:6QxJQS*!w#"! 1 !"!Y~~# …¡z!ͼ wʹ* ! w#" ! 8 !" ! zz_O4:  :6y#:! G~#x=2> > ! >x6 #='G! ~ p( O*}O>4?:7w:#ĸ*"!͸* }w>ͪg( ʆ1 Y :7ʗ8 z !<ͼ CP/M ASSEMBLER - VER 2.0 NO SOURCE FILE PRESENT NO DIRECTORY SPACE SOURCE FILE NAME ERROR SOURCE FILE READ ERROR OUTPUT FILE WRITE ERROR CANNOT CLOSE FILES END OF ASSEMBLY G:7xʘ!#~ʄl͸Ä**!O {zʊ͸*"!!#^4!$wͯͯWƐ'@'ê>:ͪ!#^Ww*!{͚|͚}͚͚{!$~#͚͚> ͪ> ͪ@2 0 0:x0_<2! wI2 2> 2 >2ɯ22 !~@_6^4#: w~$w: 0 q: A: A͋q: a{_2  2 - !ɯ2I:  ;*:  ͭͷ ͭ͋>9q>9: '!2 >9 7:! 6 >2>2: 2 Qͭ:Ğ! :lj<͖<j<|<: OʊQ>ÖH >2 2 û: B­>ôD> ¸!52 !"!N#~#A07O! ~*!) " c8:  '<ͭ'<>V$>O$:Ğà\ÞØ`rÍÖRU.![w#w#b!"!F#v2[G*##~w*##~<*}q!~ڬ6![^![^#fk"͎͘!G#*####*^#Vû!^*"*G{zA"*![N![ N#Fr+sq#p/>G=#w#w3#w#w!JSYMBOL TABLE OVERFLOW G*##~w*##~͎*_###s#r^#V`à 4 Wm ()*+,-/ABCDEHLMDBDIDSDWEIIFINORSPACIADCADDADIANAANDANICMACMCCMPCPIDAADADDCRDCXENDEQUHLTINRINXJMPLDALXIMODMOVMVINOPNOTORAORGORIOUTPOPPSWRALRARRETRLCRRCRSTSBBSBISETSHLSHRSTASTCSUBSUIXORXRAXRICALLENDMLDAXLHLDPCHLPUSHSHLDSPHLSTAXXCHGXTHLENDIFMACROTITLE  PF FP! ( 2/?'  v:P@< !  PP27 ( *"  NZZ NCC POPEP M x_BH!œ#¶ ¦{KÈCÈ<:JCR:  !6 s!l#  ɯ<:O=_Z!F!V#fjQ̓E!^#Vo&)~#FxGyѯ<àn8n!~ڢͅ6~44O! s#r!~ ڿ6ͅ^4!mw!wp!~ͅ!55N! N#fio&)^#fk Tz'{ͅ>ɯo>g"k!m6ů{_zW5>)D*kOxGd !m?FDM!xGyOڂÃ)sn55)=â|g}o=î--#zg{ozg{ozg{ coÓ:: ;,!ɯ22=2l!"]!~H5_!m~0:ą:  *":  :‰:̅ԅ!^#=ʅVq”*qͦ1& O:lµ̅>2ly:_!w~!s!m~ùy !~=w_!m~ ͅ Ͱ>2lyPLnR>UX:l̅2l͓*>E a2C!" """ :ʼ:*1 |R|ͦ0FIL: R   R* } *" :¿::¿üX!C^#fk[@ :Œ:=ʌG!ʆF#H vÛc*| EH ͺ,^1 ͦ *""1 EH DH ͺ,1 ͦ :  1:  " > 2  :|: |Ë  |*" ͩ !6="1 :  1}1:n:>BʋSSͦSSxS 1:  1"" ͦ 1 |R >O U!" 1 1!|_!^#fk $8AP`ixgH ñññ81Ľ y0îH ñGîG  ñH ñ(Ľ yîH ñîîĽ y0îîH ñG 1: :,; c*| } 8OVĽ y0G G t :):,.>C :|: Jü;r :R: ʼʋ!ʼR!ʼʋ>SR{ozg!~4ʧͦ !6 ! **̈́**̈́\iͩ !w#H USE FACTOR !* "z{*"!* "I !" :1 R O*UR X* G:xl :  *̩ : l x͖ *#"EH DH 0:~ ! ^4! w͆ Æ *! 6z͖ {͖ 4>R>V>D >P >L >N LAUTO2 AUTOEX COMJ!"f!"h!"jͫ:eR]Q! "f!"h!0"jpͫ]ͨ :ʊö! "f!"h!"j>2noͫ;BK͈͔͛́ͤ͜ͺ͈͔́ͨͮͮͮͮ͜>MJ!,-?# _OA@BH%>M>2͎: !, yk ͎$:O:O:O!'*:J!&,K͓ͮͮͮͮͮ!,!,!,!,͓K͓ͮͮͮͮͮ!,͓K͓ͮͮͮͮͮJ!F,͓!h,͓͓ͮͮͮͮͮͮͮͮͮͮ!>w#>  w#! >>!p0> >ES1~O#JK#~,ͪ#~;!QU70!]U20!iU40  ͟K   { +} W!͵TSELECT DRIVE: CHOOSE (A/B/?) i A for DRIVE A B for DRIVE B ? for HELP SCREEN W PRESENT AUTO FILE : CHANGE? (Y / N) : ENTER NEW AUTO FILE : Press ESC to ABORT PROGRAM ABORTED WITH NO CHANGESUPDATING WITH NEW AUTO FILE NO OPERATING SYSTEM ON DISK !! AUTO2.COM NOT FOUND FILE AUTO2.COM MUST BE ON THIS DISKDESTINATION DISK DIRECTORY IS FULL !!DELETING AUTO BOOT FILE FROM DISK DESTINATION DISK IS FULL !!!! *$ INSERT DESTINATION DISK IN DRIVE A  THEN ENTER  b !,C!,J!;!hnV!%,O!0,~5N!D!Vr;!, AUTO BOOT DISK UTILITY V 1.2 WRITTEN AND PROGRAMMED BY J.W. MOSKWA R O Y A L alphatronic OOOOO OO G' _>#@ _>! G/,,@ # "! #Y!f_OO0 _OOY"fU5 @ @ L *%Y#fU7#! @ W4Y$f"! "##!H ,JJU20 AUTO BOOT DISK UTILITY HELP SCREENU40'== vU70THIS PROGRAM ALLOWS THE USER TO INCLUDE OR REMOVE THE AUTO BOOT UTILITYON A DISK. THIS PROGRAM ALLOWS THE USE OF DRIVES A AND B PLUS ERROR DETECTION FOR DRIVE NOT READY AND DISK WRITE PROTECTION. THE USER HAS THE OPTION TO CHANGE OR DELETE THE AU TO BOOT NAME. TO CHANGE THE AUTO BOOT NAMETYPE "Y" AT THE "CHANGE (Y/N)" PROMPT THEN ENTER A NEW NAME AT THE "ENTER NEW AUTO NAME" PROMPT. TO DELETE AN AUTO BOOTENTER A AT THE "ENTER NEW AUTO FILE" PROMPT. THE AUTO BOOT FILE NAME CONSISTS OF  tEIGHT (8) LETTERS AND DOES NOTINCLUDE THE FILE EXTENSION .COM. AUTO BOOTING WILL WORK ONLY OFF OF DRIVE A. U20 t PRESS ANY KEY TO CONTINUE !~!0 !,_Y Nʹ û O!,J !,>52 _ p ~ ~ 2V : f 2 ó :_2yy :<2:O  :08:0>:A80>>yʳ  ͐  > :=2 _ͭ   O!,>2/ !g, (!g,!g,è yg@ >2>2/!p!0!NEW AUTO FILE = p6BK *j"l:nʧO y2n*l"lÉ]6fB*j"l:e>2e*lA*l"l*lA-A:*fA*h!A$>w#AA0A:_ A@d      1*"!!͑1P2ʋͤ͟ ͟͟, *.w# x[*.~ y|#j>w*.>w#|w*S~_͟#Ñ SELECT OPTION: 1. AUTO BOOT FILE % 2. RETURN TO CP/M CHOOSE - P8<͟#Ñ SELECT OPTION: 1. AUTO BOOT FILE 9 2. RETURN TO CP/M CHOOSE - AUTO MAC=DstuB BAKEFB MACGHBEEP COMI&FRAME MACJKHELP BAK LHELP MAC ML80 COMTNOPQRS1M80 COMTUVWXYZ[\]MSGS BAK^MSGS MAC_SUB1 MACA`abcdSUBS BAKefSUBS MACghZSID COMPijklmA MAC"nopAUTO2 BAK rAUTO2 BAK s vvvv u; MDS-800 I/O Drivers for CP/M 2.2 ; (four drive single density version) ; ; Version 2.2 February, 1980 ; vers equ 22 ;version 2.2 ; ; Copyright (c) 1980 ; Digital Research ; Box 579, Pacific Grove ; California, 93950 ; ; true equ 0ffffh ;valu e of "true" false equ not true ;"false" test equ false ;true if test bios ; if test bias equ 03400h ;base of CCP in test system endif if not test bias equ 0000h ;generate relocatable cp/m system endif ; patch equ 1600h ; org patch cpmb e qu $-patch ;base of cpm console processor bdos equ 806h+cpmb ;basic dos (resident portion) cpml equ $-cpmb ;length (in bytes) of cpm system nsects equ cpml/128 ;number of sectors to load offset equ 2 ;number of disk tracks used by cp/m cdisk equ 0004h  ;address of last logged disk on warm start buff equ 0080h ;default buffer address retry equ 10 ;max retries on disk i/o before error ; ; perform following functions ; boot cold start ; wboot warm start (save i/o byte) ; (boot and wboot are the same  for mds) ; const console status ; reg-a = 00 if no character ready ; reg-a = ff if character ready ; conin console character in (result in reg-a) ; conout console character out (char in reg-c) ; list list out (char in reg-c) ; punch punch out (char in reg-c) ; reader paper tape reader in (result to reg-a) ; home move to track 00 ; ; (the following calls set-up the io parameter block for the ; mds, which is used to perform subsequent reads and writes) ; seldsk select disk given by reg-c (0,1,2...) ; settrk set track address (0,...76) for subsequent read/write ; setsec set sector address (1,...,26) for subsequent read/write ; setdma set subsequent dma address (initially 80h) ; ; (read and write assume previous calls to set up the io parameters) ; read read track/sector to preset dma address ; write write track/sector from preset dma address ; ; jump vector for indiviual routines jmp boot wboote: jmp wboot jmp const jmp conin jmp conout jmp list jmp punch jmp reader jmp home jmp seldsk jmp settrk jmp setsec jmp setdma jmp read jmp write jmp listst ;list status jmp sectran ; maclib diskdef ;load the disk definition library disks 4 ;four disks diskdef 0,1,26,6,1024,243,64,64,offset diskdef 1,0 dis>kdef 2,0 diskdef 3,0 ; endef occurs at end of assembly ; ; end of controller - independent code, the remaining subroutines ; are tailored to the particular operating environment, and must ; be altered for any system which differs from the intel mds. ; ; the following code assumes the mds monitor exists at 0f800h ; and uses the i/o subroutines within the monitor ; ; we also assume the mds system has four disk drives revrt equ 0fdh ;interrupt revert port intc equ 0fch ;interrupt mask port icon equ 0f3h ;interrupt control port inte equ 0111$1110b ;enable rst 0(warm boot), rst 7 (monitor) ; ; mds monitor equates mon80 equ 0f800h ;mds monitor rmon80 equ 0ff0fh ;restart mon80 (boot error) ci equ 0f803h ;console character to reg-a ri equ 0f806Sh ;reader in to reg-a co equ 0f809h ;console char from c to console out po equ 0f80ch ;punch char from c to punch device lo equ 0f80fh ;list from c to list device csts equ 0f812h ;console status 00/ff to register a ; ; disk ports and commands base e6qu 78h ;base of disk command io ports dstat equ base ;disk status (input) rtype equ base+1 ;result type (input) rbyte equ base+3 ;result byte (input) ; ilow equ base+1 ;iopb low address (output) ihigh equ base+2 ;iopb high address (output) ; readf equ 4h ;read function writf equ 6h ;write function recal equ 3h ;recalibrate drive iordy equ 4h ;i/o finished mask cr equ 0dh ;carriage return lf equ 0ah ;line feed ; signon: ;signon message: xxk cp/m vers y.y db cr,lf,lf if test db '32' ;32k lexample bios endif if not test db '00' ;memory size filled by relocator endif db 'k CP/M vers ' db vers/10+'0','.',vers mod 10+'0' db cr,lf,0 ; boot: ;print signon message and go to ccp ; (note: mds boot initialized iobyte at 0003h) lxi  sp,buff+80h lxi h,signon call prmsg ;print message xra a ;clear accumulator sta cdisk ;set initially to disk a jmp gocpm ;go to cp/m ; ; wboot:; loader on track 0, sector 1, which will be skipped for warm ; read cp/m from disk - assuming the re is a 128 byte cold start ; start. ; lxi sp,buff ;using dma - thus 80 thru ff available for stack ; mvi c,retry ;max retries push b wboot0: ;enter here on error retries lxi b,cpmb ;set dma address to start of disk system call setdma mvi c U,0 ;boot from drive 0 call seldsk mvi c,0 call settrk ;start with track 0 mvi c,2 ;start reading sector 2 call setsec ; ; read sectors, count nsects to zero pop b ;10-error count mvi b,nsects rdsec: ;read next sector push b ;save sector  count call read jnz booterr ;retry if errors occur lhld iod ;increment dma address lxi d,128 ;sector size dad d ;incremented dma address in hl mov b,h mov c,l ;ready for call to set dma call setdma lda ios ;sector number just read cpi 2 6 ;read last sector? jc rd1 ; must be sector 26, zero and go to next track lda iot ;get track to register a inr a mov c,a ;ready for call call settrk xra a ;clear sector number rd1: inr a ;to next sector mov c,a ;ready for call call setsec pop b ;recall sector count dcr b ;done? jnz rdsec ; ; done with the load, reset default buffer address gocpm: ;(enter here from cold start boot) ; enable rst0 and rst7 di mvi a,12h ;initialize command out revrt xra a out intc ;clearedn mvi a,inte ;rst0 and rst7 bits on out intc xra a out icon ;interrupt control ; ; set default buffer address to 80h lxi b,buff call setdma ; ; reset monitor entry points mvi a,jmp sta 0 lxi h,wboote shld 1 ;jmp wboot at location 00 n sta 5 lxi h,bdos shld 6 ;jmp bdos at location 5 if not test sta 7*8 ;jmp to mon80 (may have been changed by ddt) lxi h,mon80 shld 7*8+1 endif ; leave iobyte set ; previously selected disk was b, send parameter to cpm lda cdisk ;last logzmged disk number mov c,a ;send to ccp to log it in ei jmp cpmb ; ; error condition occurred, print message and retry booterr: pop b ;recall counts dcr c jz booter0 ; try again push b jmp wboot0 ; booter0: ; otherwise too many retries $ lxi h,bootmsg call prmsg jmp rmon80 ;mds hardware monitor ; bootmsg: db '?boot',0 ; ; const: ;console status to reg-a ; (exactly the same as mds call) jmp csts ; conin: ;console character to reg-a call ci ani 7fh ;remove parity bit |ret ; conout: ;console character from c to console out jmp co ; list: ;list device out ; (exactly the same as mds call) jmp lo ; listst: ;return list status xra a ret ;always not ready ; punch: ;punch device out ; (exactly the same as mds call) jmp po ; reader: ;reader character in to reg-a ; (exactly the same as mds call) jmp ri ; home: ;move to home position ; treat as track 00 seek mvi c,0 jmp settrk ; seldsk: ;select disk given by register c lxi h,0000h ;return 000;0 if error mov a,c cpi ndisks ;too large? rnc ;leave HL = 0000 ; ani 10b ;00 00 for drive 0,1 and 10 10 for drive 2,3 sta dbank ;to select drive bank mov a,c ;00, 01, 10, 11 ani 1b ;mds has 0,1 at 78, 2,3 at 88 ora a ;result 00? jz setd rive mvi a,00110000b ;selects drive 1 in bank setdrive: mov b,a ;save the function lxi h,iof ;io function mov a,m ani 11001111b ;mask out disk number ora b ;mask in new disk number mov m,a ;save it in iopb mov l,c mvi h,0 ;HL=disk number2 dad h ;*2 dad h ;*4 dad h ;*8 dad h ;*16 lxi d,dpbase dad d ;HL=disk header table address ret ; ; settrk: ;set track address given by c lxi h,iot mov m,c ret ; setsec: ;set sector number given by c lxi h,ios mov m,c ret sectran: ;translate sector bc using table at de mvi b,0 ;double precision sector number in BC xchg ;translate table address to HL dad b ;translate(sector) address mov a,m ;translated sector number to A sta ios mov l,a ;return sector number in  L ret ; setdma: ;set dma address given by regs b,c mov l,c mov h,b shld iod ret ; read: ;read next disk record (assuming disk/trk/sec/dma set) mvi c,readf ;set to read function call setfunc call waitio ;perform read function ret ;may 9 have error set in reg-a ; ; write: ;disk write function mvi c,writf call setfunc ;set to write function call waitio ret ;may have error set ; ; ; utility subroutines prmsg: ;print message at h,l to 0 mov a,m ora a ;zero? rz ; more t  o print push h mov c,a call conout pop h inx h jmp prmsg ; setfunc: ; set function for next i/o (command in reg-c) lxi h,iof ;io function address mov a,m ;get it to accumulator for masking ani 11111000b ;remove previous command ora c f ;set to new command mov m,a ;replaced in iopb ; the mds-800 controller requires disk bank bit in sector byte ; mask the bit from the current i/o function ani 00100000b ;mask the disk select bit lxi h,ios ;address the sector select byte ora m ; select proper disk bank mov m,a ;set disk select bit on/off ret ; waitio: mvi c,retry ;max retries before perm error rewait: ; start the i/o function and wait for completion call intype ;in rtype call inbyte ;clears the controller ; lda dhbank ;set bank flags ora a ;zero if drive 0,1 and nz if 2,3 mvi a,iopb and 0ffh ;low address for iopb mvi b,iopb shr 8 ;high address for iopb jnz iodr1 ;drive bank 1? out ilow ;low address to controller mov a,b out ihigh ;high address jmp wait0 ;to wait for complete ; iodr1: ;drive bank 1 out ilow+10h ;88 for drive bank 10 mov a,b out ihigh+10h ; wait0: call instat ;wait for completion ani iordy ;ready? jz wait0 ; ; check io completion ok call intype ;must be io complete (00) unlinked ; 00 unlinked i/o complete, 01 linked i/o complete (not used) ; 10 disk status changed 11 (not used) cpi 10b ;ready status change? jz wready ; ; must be 00 in the accumulator ora a jnz werror ;some other condition,v retry ; ; check i/o error bits call inbyte ral jc wready ;unit not ready rar ani 11111110b ;any other errors? (deleted data ok) jnz werror ; ; read or write is ok, accumulator contains zero ret ; wready: ;not ready, treat as error for now call inbyte ;clear result byte jmp trycount ; werror: ;return hardware malfunction (crc, track, seek, etc.) ; the mds controller has returned a bit in each position ; of the accumulator, corresponding to the conditions: ; 0 - deleted data (accepted as ok above) ; 1 - crc error ; 2 - seek error ; 3 - address error (hardware malfunction) ; 4 - data over/under flow (hardware malfunction) ; 5 - write protect (treated as not ready) ; 6 - write error (hardware malfunction) ; 7 - not ready ; (accumulator bits are numbered 7 6 5 4 3 2 1 0) ; ; it may be useful to filter out the various conditions, ; but we will get a permanent error message if it is not ; recoverable. in any case, the not ready condition is ; treated as a separate condition for later improvement trycount: ; register c contains retry count, decrement 'til zero dcr c jnz rewait ;for another try ; ; cannot recover from error mvi a,1 ;error code ret ; ; intype, inbyte, instat read drive bank 00 or 10 intype: lda dbank ora a jnz intyp1 ;skip to bank 10 in rtype ret intyp1: in rtype+10h ;78 for 0,1 88 for 2,3 ret ; inbyte: lda dbank ora a jnz inbyt1 in rbyte ret inbyt1: in rbyte+10h ret ; instat: lda dbank ora a jnz insta1 in dstaFt ret insta1: in dstat+10h ret ; ; ; ; data areas (must be in ram) dbank: db 0 ;disk bank 00 if drive 0,1 ; 10 if drive 2,3 iopb: ;io parameter block db 80h ;normal i/o operation iof: db readf ;io function, initial read ion: db 1 ;numGber of sectors to read iot: db offset ;track number ios: db 1 ;sector number iod: dw buff ;io address ; ; ; define ram areas for bdos operation endef end - ; Skeletal CBIOS for first level of CP/M 2.0 alteration ; msize equ 20 ;cp/m version memory size in kilobytes ; ; "bias" is address offset from 3400H for memory systems ; than 16K (referred to as "b" throughout the text). ; bias equ (msize-20)*1024  k ccp equ 3400H+bias ;base of ccp bdos equ ccp+806h ;base of bdos bios equ ccp+1600h ;base of bios cdisk equ 0004H ;current disk number 0=A,...,15=P iobyte equ 0003h ;intel i/o byte ; org bios ;origin of this program nsects equ ($-ccp)/128 ;warm sta rt sector count ; ; jump vector for individual subroutines jmp boot ;cold start wboote: jmp wboot ;warm start jmp const ;console status jmp conin ;console character in jmp conout ;console character out jmp list ;list character out jmp  Jpunch ;punch character out jmp reader ;reader character out jmp home ;move head to home position jmp seldsk ;select disk jmp settrk ;set track number jmp setsec ;set sector number jmp setdma ;set dma address jmp read ;read disk jmp  write ;write disk jmp listst ;return list status jmp sectran ;sector translate ; ; fixed data tables for four-drive standard ; IBM-compatible 8" disks ; disk parameter header for disk 00 dpbase: dw trans,0000H dw 0000H,0000H dw dirbf,dpblk  dw chk00,all00 ; disk parameter header for disk 01 dw trans,0000H dw 0000H,0000H dw dirbf,dpblk dw chk01,all01 ; disk parameter header for disk 02 dw trans,0000H dw 0000H,0000H dw dirbf,dpblk dw chk02,all02 ; disk parameter header for disk 03 dw trans,0000H dw 0000H,0000H dw dirbf,dpblk dw chk03,all03 ; ; sector translate vector trans: db 1,7,13,19 ;sectors 1,2,3,4 db 25,5,11,17 ;sectors 5,6,7,8 db 23,3,9,15 ;sectors 9,10,11,12 db 21,2,8,14 ;sectors 13,14,15,16 db 20,h26,6,12 ;sectors 17,18,19,20 db 18,24,4,10 ;sectors 21,22,23,24 db 16,22 ;sectors 25,26 ; dpblk: ;disk parameter block, common to all disks dw 26 ;sectors per track db 3 ;block shift factor db 7 ;block mask db 0 ;null mask dw 242 ;disk size-1 dw 63 ;directory max db 192 ;alloc 0 db 0 ;alloc 1 dw 16 ;check size dw 2 ;track offset ; ; end of fixed tables ; ; individual subroutines to perform each function boot: ;simplest case is to just perform parameter initialization xra a ;zero in the accum sta iobyte ;clear the iobyte sta cdisk ;select disk zero jmp gocpm ;initialize and go to cp/m ; wboot: ;simplest case is to read the disk until all sectors loaded lxi sp,80h ;use space below buffer for stack mvi c,0 ;select disk 0 call seldsk call home ;go to track 00 ; mvi b,nsects ;b counts # of sectors to load mvi c,0 ;c has the current track number mvi d,2 ;d has the next sector to read ; note that we begin by reading track 0, sector 2 since sector 1 ; contains the cold start loader, which is skipped in a warm start lxi h,ccp ;base of cp/m (initial load point) load1: ;load one more sector push b ;save sector count, current track push d ;save next sector to read push h ;save dma address mov c,d ;get sector address to register c call setsec ;set sector address from register c pop b ;recall dma address to b,c push b ;replace on stack for later recall call setdma ;set dma address from b,c ; ; drive set to 0, track set, sector set, dma address set call read cpi 00h ;any errors? jnz wboot ;retry the entire boot if an error occurs ; ; no error, move to next sector pop h ;recall dma address lxi d,128 ;dma=dma+128 dad d ;new dma address is in h,l pop d ;recall sectoTr address pop b ;recall number of sectors remaining, and current trk dcr b ;sectors=sectors-1 jz gocpm ;transfer to cp/m if all have been loaded ; ; more sectors remain to load, check for track change inr d mov a,d ;sector=27?, if so, change trkacks cpi 27 jc load1 ;carry generated if sector<27 ; ; end of current track, go to next track mvi d,1 ;begin with first sector of next track inr c ;track=track+1 ; ; save register state, and change tracks push b push d push h call settr lk ;track address set from register c pop h pop d pop b jmp load1 ;for another sector ; ; end of load operation, set parameters and go to cp/m gocpm: mvi a,0c3h ;c3 is a jmp instruction sta 0 ;for jmp to wboot lxi h,wboote ;wboot entry poin t shld 1 ;set address field for jmp at 0 ; sta 5 ;for jmp to bdos lxi h,bdos ;bdos entry point shld 6 ;address field of jump at 5 to bdos ; lxi b,80h ;default dma address is 80h call setdma ; ei ;enable the interrupt system lda cdisk ;g et current disk number mov c,a ;send to the ccp jmp ccp ;go to cp/m for further processing ; ; ; simple i/o handlers (must be filled in by user) ; in each case, the entry point is provided, with space reserved ; to insert your own code ; const:  +;console status, return 0ffh if character ready, 00h if not ds 10h ;space for status subroutine mvi a,00h ret ; conin: ;console character into register a ds 10h ;space for input routine ani 7fh ;strip parity bit ret ; conout: ;console chara cter output from register c mov a,c ;get to accumulator ds 10h ;space for output routine ret ; list: ;list character from register c mov a,c ;character to register a ret ;null subroutine ; listst: ;return list status (0 if not ready, 1 if rebady) xra a ;0 is always ok to return ret ; punch: ;punch character from register c mov a,c ;character to register a ret ;null subroutine ; ; reader: ;read character into register a from reader device mvi a,1ah ;enter end of file for now (rexplace later) ani 7fh ;remember to strip parity bit ret ; ; ; i/o drivers for the disk follow ; for now, we will simply store the parameters away for use ; in the read and write subroutines ; home: ;move to the track 00 position of current drive ) ; translate this call into a settrk call with parameter 00 mvi c,0 ;select track 0 call settrk ret ;we will move to 00 on first read/write ; seldsk: ;select disk given by register C lxi h,0000h ;error return code mov a,c sta diskno cpi 4 ;must be between 0 and 3 rnc ;no carry if 4,5,... ; disk number is in the proper range ds 10 ;space for disk select ; compute proper disk parameter header address lda diskno mov l,a ;L=disk number 0,1,2,3 mvi h,0 ;high order zero dad h ;*2  dad h ;*4 dad h ;*8 dad h ;*16 (size of each header) lxi d,dpbase dad d ;HL=.dpbase(diskno*16) ret ; settrk: ;set track given by register c mov a,c sta track ds 10h ;space for track select ret ; setsec: ;set sector given by register Ac mov a,c sta sector ds 10h ;space for sector select ret ; sectran: ;translate the sector given by BC using the ;translate table given by DE xchg ;HL=.trans dad b ;HL=.trans(sector) mov l,m ;L = trans(sector) mvi h,0 ;HL= trans(secto%r) ret ;with value in HL ; setdma: ;set dma address given by registers b and c mov l,c ;low order address mov h,b ;high order address shld dmaad ;save the address ds 10h ;space for setting the dma address ret ; read: ;perform read operation (usually this is similar to write ; so we will allow space to set up read command, then use ; common code in write) ds 10h ;set up read command jmp waitio ;to perform the actual i/o ; write: ;perform a write operation ds 10h ;set up write command ; waitio: ;enter here from read and write to perform the actual i/o ; operation. return a 00h in register a if the operation completes ; properly, and 01h if an error occurs during the read or write ; ; in this case, we have saved the disk numbe{r in 'diskno' (0,1) ; the track number in 'track' (0-76) ; the sector number in 'sector' (1-26) ; the dma address in 'dmaad' (0-65535) ds 256 ;space reserved for I/O drivers mvi a,1 ;error condition ret ;replaced when filled-in ; ; the remainder of the CBIOS is reserved uninitialized ; data area, and does not need to be a part of the ; system memory image (the space must be available, ; however, between "begdat" and "enddat"). ; track: ds 2 ;two bytes for expansion sector: ds 2 ;two  bytes for expansion dmaad: ds 2 ;direct memory address diskno: ds 1 ;disk number 0-15 ; ; scratch ram area for BDOS use begdat equ $ ;beginning of data area dirbf: ds 128 ;scratch directory area all00: ds 31 ;allocation vector 0 all01: ds 31 ;alloc ation vector 1 all02: ds 31 ;allocation vector 2 all03: ds 31 ;allocation vector 3 chk00: ds 16 ;check vector 0 chk01: ds 16 ;check vector 1 chk02: ds 16 ;check vector 2 chk03: ds 16 ;check vector 3 ; enddat equ $ ;end of data area datsiz equ $-be gdat;size of data area end 1maad' (0-65535) ds 256 ;space reserved for I/O drivers mvi a,1 ;error condition ret ;replaced when filled-in ; ; the re mainder of the CBIOS is reserved uninitialized ; data area, and does not need to be a part of the ; system memory image (the space must be available, ; however, between "begdat" and "enddat"). ; track: ds 2 ;two bytes for expansion sector: ds 2 ;two  vvvvh=COPYRIGHT (C) 1980, DIGITAL RESEARCH DDT VERS 2.2$10 !~=W!xe ~#Xbxʇ {z~#o}o҃i.2_!fp+q*e2_2_!hp+q*g!jp+q*i!lp+q*k!np+q*m2_!pp+q*oÃO$*sy͏ , $  ͌ 9!z6 # L!zw͌j# X:z 0 ͘=N#Fy}80*z{¯#z+++ ¥ z#½# · 9!`͠ y9!rͷ y=!z{w# % w!P͠ y͓}*w#"͌ @.@<!Eͷ~P !ͷ’P͌Q!ͷªP}QxQ!ͷ͓G@Q! ͷ y͓Gþ!ͷ ͓Q!ͷ͓Q͌Q!.ͷ6y#G͙Qà!2ͷQ͓͌Q!>ͷq eg͙Q:zJEËC–EQyQxQRQ** {zҷ*~#" <AOGƐ'@'OxƐ'@'ON# z8O!B N#N ¾SP.* |} !9":q!"28!"9:] !í 1 ͓ !" >- Ͷ Aګ ҫ _!7^#V~  \p Z z ů2[\͓͢ ҫ ͐ =« f " ͓ ҫ ͐ ʻf " =ʻf "=« ý> 2͐ f "]=f =« *]}o"_  *]" Oa. ~ #E }"]*a 6 *]}#|#*]E ͐ « f f f {zA|« W}d ͐ f f f DMʡڏ"=ʡͲ=ʡYPͲ1**!O~4#~#F#x~#s#r#w>͐ « f f  . ᯕo>g.  2|2\  !]w# ʫ .&  0 6 #& .K !e K w# ʫ : U 6 #K 6AW w#] !e~H#~E#~X*}|́ "!́ ͐ !ʬ =« f kʫ j \͢F w# ͋ t ʫ : W& _& & O {  `i"F & & w# & ͋ « t Y t Y GтWx ͢!o ~Z #N  *. *.  NEXT PC͐ =« f  . ~ Ͷ ʻ .͓ =« f |« }w#Ä >2L͐ ! =« f }ʫ +"MD Å D  !  #  ë «   Ͷ ͐ =« f xY |« }ҫ gA>S Ag}S S i |« }!w s#r:[ʔ _!~ʦ ![4ç \͢¦ 2[ 7 >?  e͢!g"c> _͢a_!f~> 5*c~#"c 0 f7   > >  ͢| } @ >. *_}o| , 0 ë ^#V#!Y ))))o P q s#r#!V4 !V6# ,® >2Vñ m ͅ m ͅ m ͅ « Vʫ ! XN!~  ! _^! ^#V~ x+ >= = !~  . !   #x f L L ͓ͅ ҆ *" !6ï +"_*~ #E گ ʫ ^#V. ï ~ CZMEIABDHSP!"M"+"!91*~!O~6=G#^#V#~Tx (#"!N#FW( *J>7Å*M|N+"M N:LHͅÅD Å >* *͓ b" . *"] !/~##ʁtZ*F#n!Is!^#V&&##&))::^#V#*^#V>+)x-8_*)*)þ))>+><7"9.Yͯ * M^2U :2:2ͳ:_³ͯ !6! @!!BH @@ABH B! "BHI$$BI$BI $ HI ceD$HD$$ H B!$D$"$B$DA!ABI$H B$I $HI$H$! $I u$I$$A !A@$I$"!$H$I$I "! $A$  HHAA"I @BB $A"V$$$I$$H!!! BH" !I B  $$!BD! $!BI D@"!$I$$H"!I$I$I$UUU$$A$ /Tx (#"!N#FW( *J>7Å*M|N+"M N:LHͅÅD Å >* *͓ b" . *"] !/~##ʁtZ*F#n!Is!^#V&&##&))::^#V#*^#V>+)x-8_vvvv e;*** ;* > * ;* Sector Deblocking Algorithms for CP/M 2.0 * ;*  * ;*** V ** ; ; utility macro to compute sector mask smask macro hblk ;; compute log2(hblk), return @x as result ;; (2 ** @x = hblk on return) @y set hblk @x set 0 ;; count right shifts of @y until = 1 rept 8 if @y = 1 exitm endi _f ;; @y is not 1, shift right one position @y set @y shr 1 @x set @x + 1 endm endm ; ;*** ;*  * ;*  CP/M to host disk constants   * ;*  * ;*** blksiz equ 2048 ;CP/M allocation size hstsiz equ 512 ;host disk sector size hstspt equ 20 ;host disk sectors/trk hstblk equ hstsiz/1 28 ;CP/M sects/host buff cpmspt equ hstblk * hstspt ;CP/M sectors/track secmsk equ hstblk-1 ;sector mask smask hstblk ;compute sector mask secshf equ @x ;log2(hstblk) ; ;*** ;*   * ;* BDOS constants on entry to write  * ;*  * ;**9* wrall equ 0 ;write to allocated wrdir equ 1 ;write 6to directory wrual equ 2 ;write to unallocated ; ;*** ;* _ * ;* The BDOS entry points given below show the * ;* code which is relevant to deblocکking only. * ;*  * ;*** ; ; DISKDEF macro, or hand coded tables go here dpbase equ $ ;disk param block base ; boot: wboot: ;enter here on systemK boot to initialize xra a ;0 to accumulator sta hstact ;host buffer inactive sta unacnt ;clear unalloc count ret ; home: ;home the selected disk home: lda hstwrt ;check for pending write ora a jnz homed sta hstact ;clear host active flag homed: ret ; seldsk: ;select disk mov a,c ;selected disk number sta sekdsk ;seek disk number mov l,a ;disk number to HL mvi h,0 rept 4 ;multiply by 16 dad h endm lxi d,dpbase ;base of parm block dad d ;hl=.dpb(curdsk) .ret ; settrk: ;set track given by registers BC mov h,b mov l,c shld sektrk ;track to seek ret ; setsec: ;set sector given by register c mov a,c sta seksec ;sector to seek ret ; setdma: ;set dma address given by BC mov h,b m5eov l,c shld dmaadr ret ; sectran: ;translate sector number BC mov h,b mov l,c ret ; ;*** ;* 0 * ;* The READ entry point takes the place of / * ;* the previous BIOS defintion for READ. * ;*  * ;**Y* read: ;read the selected CP/M sector xra a sta unacnt mvi a,1 sta readop ;read operation sta rsflag ;must read data mvi a,wrual sta wrtype ;treat as unalloc jmp rwoper ;to perform the read ; ;*** ;*  * ;* The WRITE envYtry point takes the place of * ;* the previous BIOS defintion for WRITE. * ;*  * ;**<* write: ;write the selected CP/M sector xra a ;0 to aTccumulator sta readop ;not a read operation mov a,c ;write type in c sta wrtype cpi wrual ;write unallocated? jnz chkuna ;check for unalloc ; ; write to unallocated, set parameters mvi a,blksiz/128 ;next unalloc recs sta unacnt lda se kdsk ;disk to seek sta unadsk ;unadsk = sekdsk lhld sektrk shld unatrk ;unatrk = sectrk lda seksec sta unasec ;unasec = seksec ; chkuna: ;check for write to unallocated sector lda unacnt ;any unalloc remain? ora a jz alloc ;skip i f not ; ; more unallocated records remain dcr a ;unacnt = unacnt-1 sta unacnt lda sekdsk ;same disk? lxi h,unadsk cmp m ;sekdsk = unadsk? jnz alloc ;skip if not ; ; disks are the same lxi h,unatrk call sektrkcmp ;sektrk = unatrk?  Pjnz alloc ;skip if not ; ; tracks are the same lda seksec ;same sector? lxi h,unasec cmp m ;seksec = unasec? jnz alloc ;skip if not ; ; match, move to next sector for future ref inr m ;unasec = unasec+1 mov a,m ;end of track? cpi cp  mspt ;count CP/M sectors jc noovf ;skip if no overflow ; ; overflow to next track mvi m,0 ;unasec = 0 lhld unatrk inx h shld unatrk ;unatrk = unatrk+1 ; noovf: ;match found, mark as unnecessary read xra a ;0 to accumulator sta rsfl *ag ;rsflag = 0 jmp rwoper ;to perform the write ; alloc: ;not an unallocated record, requires pre-read xra a ;0 to accum sta unacnt ;unacnt = 0 inr a ;1 to accum sta rsflag ;rsflag = 1 ; ;**<} ******* ;* 9 * ;* Common code for READ and WRITE follows * ;*  * ;*** rwoper: ;enter here to perform the read/write xra a ;zero to accum sta erflag ;no errors (yet) lda seksec ;compute host sector rept secshf ora a ;carry = 0 rar ;shift right endm sta sekhst ;host sector to seek ; ; active host sector? lxi h,hstact ;host active flag mov a,m mvi m,1 ;always becomes 1 ora a ;was it already? jz filhst ;fill host if not ; ; host buffer active, same as seek buffer? lda sekdsk lxi h,hstdsk ;same disk? cmp m ;sekdsk = hstdsk? jnz nomatch ; ; same disk, same  track? lxi h,hsttrk call sektrkcmp ;sektrk = hsttrk? jnz nomatch ; ; same disk, same track, same buffer? lda sekhst lxi h,hstsec ;sekhst = hstsec? cmp m jz match ;skip if match ; nomatch: ;proper disk, but not correct sector lda hstw frt ;host written? ora a cnz writehst ;clear host buff ; filhst: ;may have to fill the host buffer lda sekdsk sta hstdsk lhld sektrk shld hsttrk lda sekhst sta hstsec lda rsflag ;need to read? ora a cnz readhst ;yes, if 1 xra a ;0 to accum sta hstwrt ;no pending write ; match: ;copy data to or from buffer lda seksec ;mask buffer number ani secmsk ;least signif bits mov l,a ;ready to shift mvi h,0 ;double count rept 7 ;shift left 7 dad h endm ; hl has  relative host buffer address lxi d,hstbuf dad d ;hl = host address xchg ;now in DE lhld dmaadr ;get/put CP/M data mvi c,128 ;length of move lda readop ;which way? ora a jnz rwmove ;skip if read ; ; write operation, mark and switch  direction mvi a,1 sta hstwrt ;hstwrt = 1 xchg ;source/dest swap ; rwmove: ;C initially 128, DE is source, HL is dest ldax d ;source character inx d mov m,a ;to dest inx h dcr c ;loop 128 times jnz rwmove ; ; data has been mov ed to/from host buffer lda wrtype ;write type cpi wrdir ;to directory? lda erflag ;in case of errors rnz ;no further processing ; ; clear host buffer for directory write ora a ;errors? rnz ;skip if so xra a ;0 to accum sta hstwrt C: ;buffer written call writehst lda erflag ret ; ;*** ;* , * ;* Utility subroutine for 16-bit compare * ;*   * ;*** sektrkcmp: ;HL = .unatrk or .hsttrk, compare with sektrk xchg lxi h,sektrk ldax d ;low byte compare cmp m ;same? rnz ;return if not ; low bytes equal, test high 1s }9 inx d inx h ldax d cmp m ;sets flags ret ; ;*** ;* \ * ;* WRITEHST performs the physical write to * ;* the host disk, READHST reads the p }%hysical * ;* disk. * ;*  * ;**p* writehst: ;hstdsk = host disk #, hsttrk = host track #, ;hstsec = host sect #. write "hstsiz" bytes ;fr Yom hstbuf and return error flag in erflag. ;return erflag non-zero if error ret ; readhst: ;hstdsk = host disk #, hsttrk = host track #, ;hstsec = host sect #. read "hstsiz" bytes ;into hstbuf and return error flag in erflag. ret ; ;******* lS** ;* - * ;* Unitialized RAM data areas * ;*  * ;*** ;  sekdsk: ds 1 ;seek disk number sektrk: ds 2 ;seek track number seksec: ds 1 ;seek sector number ; hstdsk: ds 1 ;host disk number hsttrk: ds 2 ;host track number hstsec: ds 1 ;host sector number ; sekhst: ds 1 ;seek shr secshf hstact: ds 1 Y ;host active flag hstwrt: ds 1 ;host written flag ; unacnt: ds 1 ;unalloc rec cnt unadsk: ds 1 ;last unalloc disk unatrk: ds 2 ;last unalloc track unasec: ds 1 ;last unalloc sector ; erflag: ds 1 ;error reporting rsflag: ds 1 ;read sector  flag readop: ds 1 ;1 if read operation wrtype: ds 1 ;write operation type dmaadr: ds 2 ;last dma address hstbuf: ds hstsiz ;host buffer ; ;*** ;*  8[7 * ;* The ENDEF macro invocation goes here * ;*  * ;** * end *  1:\=2:l*͋~=2:ͬ`i"~#@:ͬ$#S:*#)=e}p+:/<_:_}ˆ i`#*#""*&)))))))DM*}o|g{2:2,:A2:A2>2͢dh~͢h:͕:22 :=:2͢"I͋h:͕>2͢<I͋2*|h>͕ o&)))))))͋͐ q> ͅ> _~ O****.0MD**!*$*'~!">2!4!4::* +"}]͐ *+"}o͐!N͞>2:!4ʅ!Nͭy]*DM2:h*͋H<2:{~.W:ʑ:]*":!O͕}¼PN#F ~#foDM!>))덑o|g = |g}o   |{0_r``T/`TI`TN`0lV$Ol`*. S1 U40TRIUMPH ADLERY ealphatronicU20 OOOOO OO G' _>#@ _>! G/,,@ # "! #Y!f_OO0 _OOY"fU5 @ @ *%Y#fU7#! @ W4 6eY%fA"! "##$Y 0U40BDBDBDBD$ADADADADY 1$Y"1$U70Y!5D I S K C O P Y Version 1.3Y#5Copyright by TA ^ 22-Feb-84BB $Bad source and/or destination drives ! Try : DISKCOPY A: B: or DISKCOPY B: A u: or DISKCOPY A: A:$Source and destination disks have not the same parameters !$Bad drive code(s) !$Insert source and destination diskettes$Insert s y s t e m diskette in drive A:$Insert s o u r c e diskette in drive A:$Insert destination d iskette in drive A:$ , then type $Permanent read / write error$Function complete $ AWriting track $ AReading track $iÇ.!c1h ?Stack overflow, try more P switches b&:*; ʘ1" Q1Titing track $ AReading track   |{0_r``T/`TI`TN`0lV$Ol`*. S1 U40TRIUMPH ADLERY ealphatronicU20 OOOOO OO G' _>#@ _>! G/,,@ # "! #Y!f_OO0 _OOY"fU5 @ @ *%Y#fU7#! @ W4   !9"1d H#}#>2!/">2!)G}:<2g2#ʃ >|}> #> *p#"x}6> > !/~ >.#»!/"6* _> >  x 07 ::U:7_<2!~ɯ2|\\File Dump Program V1.5 $ File not found $ -0 -1 -2 -3 -4 -5 -6 -7 -8 -9 -A -B -C -D -E -F 0123456789ABCDEF $  Ym'[ile not found $ -0 -1 -2 -3 -4 -5 -6 -7 -8 -9 -A -B -C -D -E -F 0123456789ABCDEF $  v  v v v v   COPYRIGHT (C) 1979, DIGITAL RESEARCH DISK OR DIRECTORY FULL$FILE EXISTS, ERASE IT$NEW FILE$** FILE IS READ/ONLY **$"SYSTEM" FILE NOT ACCESSIBLE$BAK$$$BAK$$$-(Y/N)?$NO MEMORY$BREAK "$" AT $1mM"m +!8s~1m!f6 Z *M  *!M 1m! 6!6! 6: 2Ebͽ!e:d\::eH2 H҆ͽ:e2!:d2e:!2dû :!I¬!: :H2 ҮX:h2iҐ:!ʍ:!:!H:!H,!"! 6#~ F H)ͷX:! X):i!h)9 e:!:h2jO>F L>!":i!jHҼ*"+M ~ ʼͲ!f6!h6!"! 6F!f6:h2k!iҠ:i2k:j2h:k!hҶ9 æ:h2j!!6:j2he:! >"Ͳ*"M ~2!O :! *+" !!6e*!M͛ /$^L:!@OL:! 2͑e:b:! L:h<2hb:! b:hO>!hw:! pX:! …!!6  LÊ!!6ûô:!ʛ͑:! ҩ OҸû:!R†!6G>!!!6 :2.t  0-? >!!6!6s, !6:xB!6OU2!SB!G6:҃!6:G҃*G& ~2!:G<2G_ Qқ=e  b:!-®! 6:!#¿͇;J:!:!!6Lv:!:Jv: *#"͎ W! 6:!B)! >w!"&*o"(R :!C:eR :!DKeX :!K\ͷX :!Lj^ :!Pš͎҇! 6F×͢җ:Ç :!T¨F :!U¾: 2 :!V͎"$DMͩ/ *oDMͩ : 2 :!  (::H%^bF : ͎H :!Ay! 6*""&*o"(R͎an͢na! 6R :!F”͢ґ Ä :!J $:2$͢ :=2:<2!*& ~2!ü*""I*M*o/!:" "&! 6R*I""ë :!M:H| ! 6>F ͛e: <2 O! Hqy d F : 2! 6*#s#r :!N ͢ *o/ Ҧ Ͷn! 6!"&R! 6o$ Î Ç :!S0 $͢- :2" H+s#r!:* *& ~2!:<2 :!W> v :!X³ Z͎\ Ee ð :7/҃ E!76e ͕ :xƒ - ͷ*&"K(Kڰ *KM N͔*K"KҌ :!Z ͎  ͢ : :!  'v!gq :f *g&!lq:l $ !h4:l 1 !h6*lM :hB     !h55!mq:m :hO>H2ny} !m6 !o6:n!oښ *mM !o4‚ !pq:p ڪ >:p :p H:p H!qq*qM͛  ^W :q@2q*qMW   !sp+q *r !up+q *tDM !wp+q*v !zp+q*y2x!|p+q*{2x!~p+q*}2x!p+q*!p+q*!p+q*!p+q*2x!p+q*!6   >>! q* &!p+q* :7 e !p+q*DM  =? ) !p+q.*DMF -L *9"`!"b!h6!j6!|6.!=\ -x !e:dʥ *eM \R :xʥ @ *dM \, :x \͕ :x - V :e _ :f w :  K=e !e:d*eM =e : =e =͕ !]6:x>- !"!76!6!6!66*dM  *dM !6:8!*`*;DM \u 2xʻ>!xҨ- *`*;6:82*`"`:<2w!"`9`h*`*;~2*`#"` :*eM !b+!s{!f!6:!b*b*^DM =ͅ N- *b"b:<2)f!"b!q9bڀ*b*^:w*b#"b!q:6ڶZͅ ʱ- !66*6& :w:6<26!J6*b}:J<2Jm=? :x-  : ;*dM .=\ -=ͨ ;: *eM =ͨ .M= -C!q:Y*M !q:a/>z!/H!q*MaҎ:_:!q:ҥ*My:!p+q!'"!6>**ͪ{2**ͪ"*! ͪ":!!  a6:0O  ú!p+q:/(*DMͩ:  : I N* *DM:aO>!Һ x!: ڦ> ʡ* +" >¡! 6: <2 =O! N͒:  O͒: ! 6:h!o$O * ͸ ! 6 !h6!: 2 3* & 6 : <2 =O! N͒*dM  :sGsu n>!6:<2=O! N͒!">!"͎/Ҵ*+">>!": *#"*""*!".+",*$"**o".!",!36:3{. *22*,**"0M ~ H3*0"**+"*+">23:2/k!36,*+s#rx:3x*0"*: “**"&*"+"(á*$#"&**#"(*"#""*$#"$*"+""*$+"$*#"!4qM*"*$: *(y"$DM}|C#~  *#"*&DMyxC 1*+":4?w+"$""ͷR: —*$"("҈!"&Ô""&*""&$mڸ*o"(**$"($"O26͛*"M :6w͢:6  !7q:*7M͒:7o$+͛ͪ*$M ~28Om:8 I͇͢u$oqo͛rP! 6!"&*$"(R͎ҔM͢ҡÔ($ҵ! 6R͇vͶ2!*!Mm$"*"M :!w͢:!  Ve2!:! : /HH/Q:! @!!6 R!!6 :!KR$*& :!w:<2dn!:s+q*$";!>6:>/;oH*;#"(";:92=*=& *(M !::=2>/H:=<2=*(#"(æÀ:>*(+"(R:>!6 R$:2*o/*!My:<2=O!s Hq**DMͷ! 6: e!"*""?k*&"?*?+M ~2A :hHҏ *&"?(?:A ½8*#" ҽ*?M ~2AO *?"?ҕ!"*"*"^: 2B! 6F:B2 o(>&H6͛9!C6>!Ca R>:C<2C?! 6!"͇͢Ґq"ڊ͛Íq!!6 !!6 !6*!Ma2D*!M͒2!:D/!+w!6e2!͢!Eq!E:!:H:H!Fq  b*FM8 *FM   Oy2F :FY5>>:!02HO> /!";u*)))*) *H& "PҘ! 6+s#ré! 6"DM!>))덑o|g =±^#V) ^#V|g}o _{ozgi`N#Fogo&o  Ig_{_z#W H =+ LIB X$$$$$$$LIB.  R$:2*o/*!My:<2=O!s Hq**DMͷ! 6: e!"*""?k*&"?*?+M ~2A :hHҏ *&"?(?:A ½8*#" ҽ*?M ~2AO *?"?ҕ!"*"*"^: 2B!  6F:B2 o(>&H6͛9!C6>!Ca R>:C<2C?! 6!"͇͢Ґq"ڊ͛Íq!!6 !!6 !6*!Ma2D*!M͒2!:D/!+w!6e2!͢!Eq!E:!:H:H!Fq  v v v v f1 ͤʹew>Lͣ kP_͞%:] ͤUkk y]̓k5k w y; z}̓l!5~$.ʘ# È#y ҈ Ù!\ͭ!: 6# 6 # ²6# » !]~# :m mͪm!;  w# !h͹!]^6 !; ^6k]%k; %lUk  AO͞/.͞ 6I : $ >?7#bɯ2: 2\27 Ϳ? > 3A E`\=I <ʧ[ G[ Vs <ʧ\ʺ] >3`: =<' >3A : G: Vs <ʧ| G| Vs < C §: B <ʧ:7 ¤ >3`[ =3`(\=<5\Y] >3`| =<| >3`a: = 3N { >3 ͞ʹk!"8 ! * }|8\L*8 #"8 >27 [ Gk *8 |+!8: Q  k,k͍Jk͍dk͍ik0͞U20$U70$k͞¬kk¼kk>WwK ͞ Y6^(C) ontinue$ Y6S(A) bort$Y6;(N) ew start$Y6J(E) nd$//8wk!)GU:#͓xd: ͓xs:͓xʂ:͓6$)E22w#kx*. *. ͞͞͞͞͞!5ͤ!  ͞_ys# Cy͞K͞͞ 6$ $y +k;0!( 1w+ͤaU~U bkO~#$eYͪE$O͞k͞Y͞z͆{ O͞S1 U40TRIUMPH ADLERY ealphatronicU20 OOOOO OO G' _>#@ _>! G/,,@ # "! #Y!f_OO0 _OOY" hfU5 @ @ *%Y#fU7#! @ W4Y%fA"! "##$Y 0U40BDBDBDBD$ADADADADY 1$Y"1$U70Y!5F I L E C O P Y Version 1.2Y#5Copyright by T A B05-Mar-84BB $DADADADA$BDBDBDBDDD$ DD$CB$Y& This program is designed to copy a single file - using drive A: only . $Y5%Enter filename without drive code ! Wild cards are not permitted !$Y* Name of source file ? $Y, Name of destination file ? $Y5@V1R e a d i n g . . .V0$ WY5@V1W r i t i n g . . .V0$Operation still in progress ! Insert s o u r c e diskette$Insert destination diskette$Insert s y s t e m diskette$This is not the correct s o u r c e diskette ! Changes diskettes !$This is not the correct destinat TIion diskette ! Changes diskettes !$Destination file already exists !$  File not found$ #Directory full on destination disk$ Destination disk full$ " Cannot close, file may be write p  rotected$ J Copy operation completed$#"y<~(wG-"<Ͳ/ ,5w+2<2FILECOPYSRC FILECOPYDST K3T Ē*<‡5:<<2<; ! : A O R: 0O! q: O: O! p+q* |O* }O! p+q*  f! p+q* DMB! p+q)R* DMB1B* DM+;! p+q* i2 ! p+q* i2 ! p+q* i2 i2 !" p+q*! f!$ p+q*# i!& p+q*% i! >( p+q*' i2 !* p+q*) f!/ s+p+q+p+q:/ =2/ X*+ *- w*+ #"+ *- #"- 1* #" ͖r*   ~!" ! ͸×* " x20 º*   DM":0 Ad*   6!" Ç!" : !"6 "8 ": }2< !"4 "= !  P6Y: !2 6=21 á:1 : r+s#r==_HL"4 " >6 ͪS* "6 =23 :1 =21 v=O* #" Y8  ͝҉* +"8 .!2 ʞR̀* "4 4 = ͝* #" çR*6 DM+R*8 DM+R*: DM+R*< M!? q=  ͝Kd*= ! ͸p!@ 6>!@ X*= }O!< *@ & w*= #"= !@ 4)!< 4\mad* }O!< :? wlR*4 DM+{R* DM+R 4 ͝*4 }¿= 4 ͝< N*4 #"4  å;*4 DM+: Y2 A 0O> :A 0:A AO>&R̀:A A H.2B !2 w:B !D s+q*C &͍:D _og_{ozg^#V) _{ozgi`N#Fogo&og_{_z#W >( p+q*' i2 !* p+q*) f!/ s+p+q+p+q:/ =2/ X*+ *- w*+ #"+ *- #"- 1* #" ͖r*   ~!" ! ͸×* " x20 º*   DM":0 Ad*   6!" Ç!" : !"6 "8 ": }2< !"4 "= !    =.~=- *T!.F~/wp8#|(?ej.HU20U40>.1DIR COPY RENAME ERASE TYPE    RUN CPM SIZE CO  {q2MPARE SPACE  TEST    PROTECT UNPROTECT RESTORE  newcode  code  pass ? :MENU -  m::ä;ã8#?#? >!9"*  *.:m( _< |g":(g""2:(2O>O>8_>!j}|22/go". }2|2 >2_F52229*͏8-!="4"2"4"("/6"t6"y<"(1|2]"4"2"4"("/6"t6"y<  "(: _͏-:im:2i[!Fx25#:] f:6 #6:\_82\2&:j28j :\2C>>4C>͒328>2'2* >2 <:'2o2:5^:^^; MENU! 3.08 on CP/MZ >"0ͤ;>.ͤ;:0ͤ;͢;͏8 >>N̤;>Bͤ;; Z Copyright (c) 1981, 82, 83, 84 b  y PAVEL BREDER All rights reserved. 04/18/84 For TA ALPHATRONIC PC from COMPUTING!U40 * :5 :w> 2;q#* T : 26>( 2\:=2:= /2'2:( 22C5:% :C5F522:5<ʠ !]> >?w#*"I>22<222( 2.22K 2%  2# 2F 2Q2222:212222|go""+:\2&O>(>25%;2;2;y%8:O:yo1:ͤ;ͣ8*#w ~:;=2;S1ʱ[(/͸>2>( 22C52=2:\2&T1 T25^2=2~:A8Q8~ͦ:8#~:A8 @2#~(2}_(# $2#2)~:( O~:y \>ʧ>§; password required2/T1k; bad password( #~ 2/^02)#(  T1ʸ x<2Y Q*"%%u"#6 T1(;#~S1(1 T1((~( S1+# N#F*q !#pT1(u= :\2S1(f͸::(22C52:(?: :\2:2\:Yʜ2T1(= S1:\2(#~+(:2\!=:Y~###< :Y :K (ƀ2K T1 #\""1 #~?(2K:Yl--,O.; ((2% 2# Á !e6C#6O#6M" ({(A> , <2_:a{0>2:# :Y ʀ3^>8:/{(2( C5: B:# (<>_<2F 2\:6(:` #  "u L1x !L108*"I!";" 2>93\2>:K?(]:Y V:% P: J͒3 H: 2_(#:(( {C5\͕3 #:\_:( 2\{2\:C 5À3s31T]! F:Y#N(  xGA(( (:K? G8W:e y8Mx8I>(_~f 8/0**I 6#6#w#"I* #" )$*T-:1*I6#6 4 *#~ X E [4 !?) ) Nq#Nq!{ozgE !#{z *7 ?) ) N#F^#V_  ~>W:Y3: 8(1(0)! ~>:( {_#  ~W # T1ͦ:ڶ=02^*F )*I"I" (;:Y( 3( 7:K?:\%8:% : : :>o1#8( ܢ;:Y:d G <21[;* T-*;)* ##^#V*;#";:Y3(% :( ; *;01>=ͤ; ~2 #:p~2 (Z >(;;## >T>*; :p > >);;T [ *;T-:1=21 : ͤ;L :k(_~8+~?0>E :Y3 >.(>>0><ͤ;>~9#= !x!pF#s ^^#~[ "iS1] :+()-("T18G:0CG:dx 2d 2K ƀ#~: R( S( X( 1ڶ=9Ҷ=yV!g(\R!c(US!e(N T!f(GP!(@U!% (9X(ZM!k(.Q!.(*$!( F!(Z!(/('AE=2b~ƀw#~"ȷ+#Ĥ;;!6 #62# :\2:<2;> 2;:(0ط7>"8:\!ͯ^)= %25; commands:^q#;, for list of commands enter:!# ++~  #~^ͤ;:;!";:Y3w " (W*I#"I[;z #6#61#6 #w>M? )>r* *I#6#61#6-#6 #6; select?ͣ8~*I#~+(N>2::Y—>.; destination drive and/or user *I:_"Iͣ8*I#~^S1+#~( +6:#:_͸"I: {: (2::( :2:<>2^: :\2>_2>_!\Vs2: 93rz h:. b:_:: ;copy to same driv2Ê; (C)opy or (M)oveͼ:22>2. ; ERAS^;~:Y 2;:> :>4*I##"og2H"S""!H@T1"ʸ0)  ?8))) O >2><#~ʸ :<::6!T-"8>- S T1~2H- S1" *;"SSkb)* ^#V#~+ Ss#r!}*S#"ST-]T8+"Sb"::!"q,";* ##"I>C5*;  #~V<^+^*;T-| #w+w S;:>( 8>=ͤ;:\ 8>>## .- >(t!> 6?#; new nameͣ8*I#S1(! # ; illegal name >"; >!> ~? ͤ;Oyw#x>.̤;!>o>f::Y( :c:Y ,:\2>:C5:2:C5:2>ʵ X4:>”go21"G !">4>!>:YOʋ  ʛʾpʆʊ#ʆʊ : :( 22;͛U5[>*$!v:&2]f:%%<T-:12%S1(#~+ ~:@2##:" S1 #~+( ~:@##" !>\ $d:!C>>d::[ :&F52S:C5͒3 ((4!~T]#~ x2A4*8s4>C52\X4*$$!*$ \!(!.%%~0_ :x>; *}2:YÈ>͓4?:Y "( (v: (p:>=o&:u>O:>OE!>( > GE#(#~^26W(#Vz26 5y(; )+͢;!>~ 8# ͢;~͉1;!:Y ((//( ʢ>2Y~"8qͰ:Y }(a:=̢;:Y:=(͢;:Y }̢;};:Y ". *"͎121#8͢;:Y>.~͉1:Y(ͳ:=( <̢;}<̢;#>wz }(}/<_} := ; ----͢;W2ñͰ~ :Yͤ;#:Y*G +"G |".^: : 4}>~21*G |):1o(|g }o"G :Ym:ͳT1:22;checksum & test>2=22(6#"*\ : 2;\͕3( 1: :e2e\K5\:4: 2e2f2h2(2Ygo"G "<2>S "q(#"w(;-8ap(>21: (>*;)+> ͤ;:<> Ĥ;5͏0 *(|(~<# :u>22!"l> 2*l~# *~(<:8կ!]f:!"!N#(F#x(7y(x><2 "l:v>O!++++:hw<2h###62:O:u>w*}(!2; sav >22(>2'2  Y2; checksum *G ͎121*0; bad blocks Ͳ1:(R; : ͤ;>.ͤ;ͤ;ͤ;ͤ;; has the bad blocks. File is set to SYS & R/O; show bad <; user  ext*I~(M<({ **:2N(#Fx+(/ (1(-(>=2 #(# R*I*I "I͢;*I~s1͢;# ͢; ~͉1;; repai^>42Y:u>?2>2>͕31 ͢;N##^:u> ͤ;* 2~:Y (; ;checksum:*G ͎1; total:!"q͎1; dec:Ͳ1~`3:4:‡͍;Illegal nam;!>~# 8 :>`3; =:!;new nameͣ8*I#~;S1 #2  hS1 #(">">: 23!>~# 8 ; =!>> f:!>~?( OySͤ;#x>.̤;>2w:>2>͕3>•:c(; renam >T4>U5>?2>2>#K5:Y ; *>Ͳ1; <{(#:'O<{(#Y88[>T-Ͳ1; empt s*"'͢;!'~; (Y/N) ͼ:N ;oY;eBy=B8; #~>-(>Iͤ;x>.̤;!!>:K (_˾K5:::C5>͕3ʝ1: `3:b(6ƒ;  exists, (B)ackup, (O)verwrite, (S)kipͼ:OʚS(B !>> Jf:>B>A>K>2r:>͒3(S1: A:b;; old .BA`3:n($:b;; overwrite old .BA>:4>Q4!> 6#=͍; exist74>MV >$>>͒3((1: :b;; old temp .$$`374(4:g>$2go""G : kC5:\4m:[I!A4:=(>͓4 *"2>C5:>4m:#?*G : :A :g(MSG *">4m:>!K5 1*G / #{ "G *>#">: : >!K5>::C5s4!>>f:!o>f::k(!>_Q4:C5> :k >o&Æ>:> :4;delete source `3;verify errorA4!="G *8E:C5>?2>2>>͕31::w16>2'225:m $<2\2'22:(2 :m Ͷ Ͷ *  CP/M 2.x only$  à Z-80 only$:O: >2:  O: :&=2@ HPX,_!"*!*~(# x2_!"* !jͫ=:, 08 8!ڶ= O)))) _!2!2;; addr:Hex Dec Binary Ascii Ente;͎1>#8!;͢;~G͉1͢;x|1͢;x^1͢;x> !>-ͤ;x  m889@͢;ͤ;; :hͤ;;ͣ8*I#S1 ͖"G: $#~:B(D(A( .^H¶=2hS1ʿ!":hA(3B(2D(D_!| }w͖"*~# T1!#:!++n~0(1¶=7#iͲ=_( ?~* #~*(+2Q"#~*(0.( #(W:lz:#  j~.(+>  []:ȷ#~.(+>?:a8{8:/{4͏{8 Ҷ=:(2:(:_:ƀ{02^;z#wT1:2#;*"I!";" *I *$ ʞ##xG( (8a8>S? xGx0:/  (6#6# ( w#  $6  #x(++x0+~w#x0~w##"I* #" Ø#6#6>32Yá ;:bAͤ;; if  exists A-overlay, B-back up, C-ask, D-skip:d0ͤ;; column0 ; +1 in DI; :D'; paging :c'; request Y/N on current  (Q-request new name) :g'; read afte  pr write (Z-delete source ) :e'; show system s :f'; stop if is full :k(/'; mark copied files X list drives A:`_:6W{ >%8z ; if on lin; U list users 0:ao1; :/'; search drive: 8; and user:o1; t Yo run file :/'; submit!~(& :& 8;$$$.SUB#~(ͤ;; MENU!!͎1;H:o&)*͎1;H TPA}j&͎1;H*+͎1;H#T-L1Ͳ1; >2 ^x lZ{_0:x2\2;x 8; R}o>W0>Oͤ;͢; )'B'!FF'!N "$'; (OFF*w>#:'()="G :t>7͏8&o>A4.:\=_)'*G "*o><"=!"*w>#~8 *#"z(#:'( *)"=;Used[*G T-*y># <T-';, Free*';, Capacity*G Ͳ1;T1(> >";deleted s \͕32>2_6*>"q(!"w(*y>#L1L1DM*IBK:==:1A4p(:= }=2'216wͥ4*>"w(*q(T-`i0> +! >0:s> g"2DM͏8(>(#:u>25> !5*! xN(>4: 0Ky>*I ~#*#(++*#> ~?(*#:\ 8]T 2:\4! ~2 6##~2p)6͕36++: w:(;recover,  exist*:v>O: ()(%;recover,  with illegal exten;recove 2*+"G :w ###~2 ##~2p  )#͏0h> 2*>=2*r*OG(Gx( S*w ͢;!(͎1͉1~ ]  x > O/2*Ky>*I~ "*G  #( # ###:p)* ++: **y2*)*>22(>22(;+  x )^[ zw(*r>T-0[q(*4T-0Sq(!"w(7;G[>*q(T-8*6͎1#8:5͉1 ;----:-; TO*q(ͺ1; S*w(1; PS*21; Rec!#"+Ͳ1:Y >(>2Y2_!Ͳ=*w>T-5!"G (2ͫ=Ͳ="q(!"G ͬ=Ͳ="w(}X-S1(Z:Y 6~:X .>2# W~: (A >H >2!"S1 #_!Ͳ="S1(Ͳ="G 0!"*G := :t><_OT->2_6y2/-[A4;-8p(*G +}( : : ( ;)+; At*͎1;͎1;-X-:YX-516:Y*!p"!}2:2Y(: ;̀(; b" 2Y*"*G +"G 0*02Yg:(o"2Ï,>=2/-K,l,[q(*4T-}[w(*r> !@R;Out of bounds0*-ͫ-; Last Address*| }(+͎1;H*>Ͳ1; \X4[A4\͓4=*"0!\>d:>d:͕3 :Ya4,1͛:Y:  .f3A*G #} *>#"G 74*G #}ʶ=(4*G +"G }([A4"*8s4^0SG * !e*ͫ-*G /0*G x8 y8`iT]YP^T1(, S1( _!+*.Pp!}/_@_!"G ,(T1( ,( /!bS1(_!+!p:G /o /*G <"SG _!"G ͬ=_!":Y&(((' ͬ=_!*[G T-ڶ=͘.>͘.> ͘.>͘.>2Y.2*"I`iͫ=:T1(`/#~+(W~O"(G?(:/_!|¶=Ͳ=M ?:/#*Iq$p#p%"I:/~ (#:/2#[*IBKT-**G +"G #|T-^  (  ? #z( ( ?(#*G 0;͎1;: M0; ~]0͉1͢;"0;͉1;ͤ;# _ ( ; ;z 0; /0#*G (%~;͎1;:͉1͢;͉1; ͎1#0 /x¶=*G q#0z^|*# ~ ͬ=2!"G !5?ͬ=_!"!"G S1:Y #"G ;memory full }#~ (;ȷ>0ͤ;o&J0o&1&og>21>( 111:01111/"18!xʢ; ( :8Gä;0( 4_!> o~2 #~2 :\2\>4>(>272'2_ 7 K5:\_:\_ h2L10x : (:\2(8^#V#S(͏8##~#fo;4[>ͥ4y(!|2(2(͏8">=###|( :u><2(!WT-"27=O:< > :# 2 |; Disk log ERROR b on:\2 8;, logging to drive onl?:# (* ? ; LO; on:7 :\ 8:&2\9^f3; is R/͒3" (; No s!] U5"4@2340ͳ38:o(9; A: is R/O, Y=Reset, N=qui(I>28^;?;>2'22 =8lG}4K5>U5"4:8>S5> =>U5"4; not founA3>>4"4;close 9G8>2K52!'T-X-Sq(BK> r>f:!5~:u>w[w> 5"4SR-w:\277'7=_6> S625bk:t>)= >o*r>}/o|/g#8 *r>*> #"w("q(_ '76! 6#:Y4ʒ;bad sector on:H3v6:(:Y(H3:&2;rea5;, abor^[I:Y(*:w# :Y4;!>4!|4>5d6><,6!5 P[A4,6A4:5_!T8[[5f:> ':5<(%*5[A4,6:5_!T8[f:j6e5͏8>*[>*q(T-0>2: =;)+:6ʱ7ʼ7**w#w=2;7*#"**+(#~# ~~+# p#w#w+++q#~ȷ q#w#w͏0><("w7" P71?!T5*###s#r#s#r#s#rN͏0:6<("w7!9"727*###^#VS 7#^#VS7#^#VS77r+s+z7r+s+r+s!76:e5:\ >2\,36; Press ^C, is R/A3; in dir>2; on system tracks[>*q(T-*r>8*w(+:u>G}25:t>GL1 "6MD>!)yOxG0= %8>@ä;>K5=(/=(;;dir fulM8^; on drive_8<;extend ;full on:> 8s474:f :Y(* :2 <[Iկ2:>;9>49C>X4(f:R>=2c>79͓4 W!Ff:F#~ͤ;#6 #w2  2 w#5C>v4(,295F5239>!8~/w>49C>:4>C59:( ʖ9_(i(e(a2:<:_:-:^ :(:!8^(@G:  :Y :!/2!6 #w2 <5~#4V:px9#ͻ9#~w86+:F6 2::<<2:x 0%8::<<2:>^ͤ; 9%8ä;334 =9:> =2:x :::ͤ;> ͤ;:ä;ͻ9;2:ò8G;#2:(9;5=9;$~#s:(0:2;(K 2;G:x(6ͦ:2i0:?ͫ=͜:ڶ=^:ͤ;a{?_:(2;(G: ( x > ~ fw: ̤;~#(T !ͤ;sectorscan not - filedisk > _ :#<: A> W 8z;:< ->=;2; ":2;;:W > (z 2;'< _>0<>m::i(W_b.)+|  ::I<21<>2I<>2i<{ ( >> W<z :I<< 2I<_>(:(>-ٷ m: 2; capacity:)''; tracks: *4#Ͳ1*>Ͳ1; system /track:*r>Ͳ1*R-Ͳ1; last *(| ;NO; deblocking) /system:8Ͳ1*y>#<Ͳ1; dir dir entries:Ͳ1 <'; /group::u>>021͎1>21;H groups kbytes/extent:!:v>)=='^+S1 ;invalid argument2g>2h>"m>Sk>Ci>g>23t#7$ &!:++< T' *'!+P!-!.!/!0!! +!+$V/%H/#O/"A/&i.'0(0)a/1 2KK#$$$ SUBZ > COM@ "2"4"("/6"t6"y<"(: _͏-:im:2i[!Fx25#:] f:6 #6:\_82\2&:j28j :\2C>>4C>͒328> 2'2* >2 <:'2o2:5^:^^; MENU! 3.08 on CP/MZ >"0ͤ;>.ͤ;:0ͤ;͢;͏8 >>N̤;>Bͤ;; Z Copyright (c) 1981, 82, 83, 84 by PAVEL BREDER All rights reserved. 04/18/84 For TA ALPHATRONIC PC from COMPUTING!U40 * :5 :w> 2;q#* T : 26>( 2\:=2:= /2'2:( 22C5:% :C5F522:5<ʠ !]> >?w#*"I>22<222( 2.22K 2% 2# 2F 2Q2222:212222|go""+:\2&O>(>25%;2;2;y%8:O:yo1:ͤ;ͣ8*  ,COPYRIGHT (C) DIGITAL RESEARCH, 1980 1] ʑ?ʑ! __0 r))) O @+|r}Pr#e.á{r Invalid Memory Size$!$ʡ~/w/wʔ*"w|?´>@G!>0w#w!4~:60+4½{r!N#F! x(  # =  !v"w!t6!r#+w+ww >VxG}o|g"y! :m _ l!"xl ~#_*y!:m ʁ xʽá Synchronisation Error$ {­~#o}oҹùÁ*wV# :m j! ~#* DM! x w#  !!N#F! D!\>0w#w.!]4~:60+4*"b=r Ready for "SYSGEN" or "SAVE 00 CPM00.COM"$*y  Constructing 00k CP/M 2.2$4       !>ͦ!q:_  !p+q.*   !q*&!p+q*2!p+q*2!p+q*22!p+q*!p+q*!p+q*!p+q*2!p+q*>(1_!i˞~ ]~ >12fK!+``*!"`:`O 8GQ{eze*`"`!}d|d>Dh!`͠`͗`͗` !`͇`>2`2`7H!w`~#( OBoot !`͇``͠`!`͠`͗`͗`@0N#(~# w 6<---\X ©RIGHT (C) 1979, DIGITAL RESEARCH %x_͌> ͒> Ò> Ò͘~#͌ì _2<2f !2:2a{_:ʖ:>Ľʖ:=2–!B!6#5ʖ:Ľ!ͬʧ )!F#xʺ~0wëw!" !~6ͽ:ý(!l#͘*~ ""͌#>?͌͘ =_.:;<> Oo$>!Y2*O"ʉ@G:ʐ:wÖx2p0ʹ#*©6?ëw˜0ï#6 ¹.0#*6?w0#6 #6" #~?  xDIR ERA TYPESAVEREN USER!yO#< Ty#O 321y_͸2y2ͽ:˜1͘A͌>>͌92^ :¥.!_~#fow]!v"!çREAD ERRORçNO FILE^: ! ~ 3#0 Wx x   G ~ # 3x~#B!Y~ɯ2:=!ý:=!:ý^T!~  6?#ˆ:`O> K{͘A͒>:͒͢>:͒͢xK > K > ͒x  ͢ØÆ^ BRͧ9!5‚#~Y‚#"T<ÆALL (Y/N)?^ Tʧ͘!6!~ڇ w4!Y~ʆ͌†t=ʆf ^ T 2o&)|+!<ͧÆNO SPACE^ :Ty!B*O=?_s#"^sG!~Ypsp2mÆÆf ͧÆFILE EXISTS _: É: :ʉ=2)ͽÉ T!@k!}|q =qf^!~2>`~22\!!B!~> >#0~O#Cx2͘1)ͽÂf zͧÆBAD LOADCOMf^: !  $$$ SUB$ @"C {2!"E 9" 1A 22!ty)K!G_^#V*C   ~E , &-AGMS  !!ô!ô!Bdos Err On : $Bad Sector$Select$File R/O$ :B A2 ! ~6   O͐  : E  B 2 >: b # : y! 4 5~yy 5 6y Ґ ^H @Oy H  H : – ͬ   #H : !  H ù  H  H $O͐ : 2 *C N#  G  x : 2 p & x ~+é 7 2 H ! >w _ : ! 5ͤ N k ͱ ¦ ͱ xʊ #N x : ! 2 ͤ ! 5™ #wO ~x½  p H    y< < ʑ  : !qMD #  2E > ! ^#V w#P :B O|^#V#"##"##"##"!O *!O *|!6ʝ 6>*w#w*w#w'û *! J * ""!N#F*^#V*~#foyx *{_zW+ * yx # *DM*s#r*s#ryOxG*0MD!!N: E G>O: \ S *C  :q n& ^#V> O^ "*}:*)= ":O:o"*C  *C !ͮ ~2~2ͦ :2ͮ : O:w:w |g}o *#  ) :B O! yoxg*:B O }!N#F "*#*s#r^  ~!J  ! J *:o$*C ~i 6i w**{#z r+s{ozg**͕ **  , w͜ ͸ Ͳ ! !N#F$**O !~#:A #~$=2E k͌ : :/GyO>2!q*C " ͡  ʔ*J Ҕ^ :Oyʃ?|x | s-|N-# S:2E !~Яw > T   D ^ 6k -äPYy 5*{zBK5ڋ>*C w~#+w#w+ɯ2E 22 i  ^ *C :~w~͔͔# #  w ~>2!E 5T *C !"C  "C !w# F! w͌ x 2͢ *C  ~<wʃG:!ʎì 4~ʶ ¬:<ʶ$ ʶïZͻ   x >2>2ͻ :!Z2:E w ̈́ ͊ Ͳ  >s2>2T *C G ͻ : w ̈́ n> 2;O ^ DM;}H> "*C  ::dd slO s#r:E ͊ :==»y==»*Ww# *" ͸ *:G#š" ͸ :!w4 i w: Z!E ~=26 2*C !!~~#~O~G#n,-.‹! w! yG!x͢.:E <ʄ! q!pQ:E <. ʄ$.:E <ʄ i 6}2E x N! ~态O>G~G!~G} *C !r#r#r ^ ͥ_y#x#{4s+p+q-*C  ͥ!!q#p#w*:B O Y G }*MD "ã:!B w!>2*C ~=2u:B 2~2wE:A *C w>" !""2B !" !r QQQâ~?ͦ ~?r Q *"C Q- Q͜QüQr Q$Q*r):B  " *)*)Q;*"E :;:A  2A QÓQÜQ*C }/_|/*W}_*"}o|g":ʑ*C 6:ʑw:2E* *E }DQ>2'T7ã(6dSDôÔÿt BootInsert PC-CP/M-System disk (xHh@  ?1N:(22 22>(!3֯22!9(>!2"!2"22 ":O͔|(~O6#:̈́ :̈́!:̈́ $:ͅ'*-:ͅ 036:̈́ 9<:̈́?BEH_~#fo!y(2o))))U.2: 2y2y=2`i"&`i#z n&ɯ2>2$2#>2%b2$y2% >2 :2:2 :2!:(1=2:! $:!  :!! 4>@ 6! 42#2<2#s 12":2!~6(":! :! :!($::2:2:2:#2:o&)))))))7[&:$ >2:%:" 2:"{ >E>F2 > 2 x>( !JQ!JQ>ʹo !ow( : E !r: O:ʹ͊>ʹ́:2͊!Q:O<2a(<2>Dh: O7!C(!UG(&{dzd}e|eyʹ!́~# !w# : 2">: 2 : =2>2"2<ɴx 266"!^(!u*~| } !|Y8aBIOS Error NRWPY8aKY(>́(Oy@8(y2:́́(::(w @0ɯ!(Q>>́>́>́  6{n1222>2!"*!:G>(=#x(w#!} 56K CP/M 2.2 / 3.0 alphatronic PC Serial number 00000   |{0*w#"!4BIOS II alph%atronic PC V 3.0 13.03.84q@$@B B HH II$@DI ABI$"$H$H@$$I! H*  $H@@A I $D!!$I"BI"I"@$BIIH$$$$BBI$@BI!"$$A DI$@  A$@͒$$@H! "!$$" @B$!!!DH$$"H @@BHH  !$$A"D@ "A" "BHA " !$ D B I $ !$$ H@BD D$֒ HI DIA!$$$ $" "$D ! $"  $AB " BDD $$D!"DI$!$BH!"IB I$"D HD" " $"! @H !BI " I  $I$I$DI$ !I$@"$"$!  $I$I HA HAH @@B  "$HA B  $I B! @@@BH@B@DH@!DHB!I HH!֒ HI DIA!$$$ $" "$D ! $"  $AB " BDD $$D!"DI$!$BH!"IB I$"D HD" " $"! @H !BI " I  $I$I$DI$ !I$@"$"$!  $I$I HA HA e <--Patch SKEW (1-9): 8>=G_!"x1221Ex2]O̓xA2v x>2BxE(!A(> 'x&N(:( -x͉ ̓xxxx)NDE(hx_pxy- ̓ o-H-H^ y( į*!q#p#w#6#<!?}d|d{eze>Dh͛>:v͛>:vy͔>w >(>:vo((@0͛w(>>M:vOx(>!r~# 0 ͔ >!@Q!@Q / x>0O̓x:xmXxmrxmwx0̓ $O̓*. *. ̓S1 U40TRIUMPH ADLERY ealphatronicU20 OOOOO OO G' _>#@ _>! G/,,@ # "! #Y! f_OO0 _OOY"fU5 @ @ *%Y#fU7#! @ W4Y%fA"! "##$Y 0U40BDBDBDBD$ADADADADY 1$Y"1$U70Y!5P C F O R M Skew x Version 1.4Y#5Copyright by T A 413-Mar-84$͉a8~0 bkO~#$(͏Y& JWhi 07ch drive ( A..B ) ? $AB$ $Remove system disk ! 7$Insert new diskette in X ! Choose function : I(S)tart (A)bort (E)nd $SAE$F O R M A T T I N G E R R O R ! $ Choose function :   (N)ew start (E)nd $(R)etry$NE$REN$ Insert system disk in A and press any key to reboot ! $LAALY* KTrack $Y+>Operation terminated correctly !$ERROR ! D i s k w r i t e p r o t e c t e d !$      c                          6: /!6ɯ2L62r6~#26~26#"6Ñ1}26|26"6Ñ1~#26~#26"6:6=>$ԕ&ͽ11i`)2^#V   6: /!6f_OO0 _OOY"fU5 @ @ *%Y#fU7#! @ W4Y%fA"! "##$Y 0U40BDBDBDBD$ADADADADY 1$Y"1$U70Y!5P C F O R M Skew x Version 1.4Y#5Copyright by T A 413-Mar-84$͉a8~0 bkO~#$(͏Y& JWhi (INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE) COPYRIGHT (C) 1979, DIGITAL RESEARCH, PIP VERS 1.5$$$ SUB =.:,<> _[]INPIRDPTRUR1UR2RDROUTLPTUL1PRNLSTPTPUP1UP2PUNTTYCRTUC1CONNULEOFDISK READ ERROR$DISK WRITE ERROR$VERIFY ERROR$NOT A CHARACTER SINK$READER STOPPING $NOT A CHARACTER SOURCE$ABORTED$BAD PARAMETER$INVALID USER NUMBER$RECORD TOO LONG$INVALID DIGIT$END OF FILE, CTL-Z?$CHECKSUM ERROR$CORRECT ERROR, TYPE RETURN OR CTL-Z$INVALID FORMAT$HEX$$$$NO DIRECTORY SPACE$NO FILE$COM$START NOT FOUND$QUIT NOT FOUND$CANNOT CLOSE DESTINATION FILE$DESTINATION IS R/O, DELETE (Y/N)?$**NOT DELETED**$$$$$$$NOT FOUND$COPYING -$REQUIRES CP/M 2.0 OR NEWER FOR OPERATION.$UNRECOGNIZED DESTINATION$CANNOT WRITE$INVALID PIP FORMAT$CANNOT READ$INVALID SEPARATOR$1 :2L> ̈́M9  221@:2!o6+6+6!6#6!6#6:G*o .!N6:^*M^!K6!6!6+6' :$::=2K  :ʤ\:ҷ\x'Ͳ:!\͢  :͈'! -:$: $͈Ͳ!N6' :!Cwͯ !6:^͢c!6{:/>!/H{ͯ :<2Š ::=HҮͯ !6:Ҿ:2 !6::/H͈;!6:> !/>NHHͯ :^!w:<2:0}:@E}:!S!W6: z!]6:cm!c6:_z!_6l ::,: HHҰͯ : 2ó:E:1:2v!q!*8!*6: >Rͦ>ͦ!q:_  !p+q.*   !q*&!p+q*2!p+q*2!p+q*22!p+q*!p+q*!p+q*!p+q*2!p+q* z!p+q* !q*& *M *M !p+q*!!p+q*"!p+q*$!6  !kp+q*j> >ڪ Þ !qp+q/ *pDM9: :M2r:N!r !:r *r& N!r4 !6: ͔: :ͳ.!ws+p+q+p+q:w=2wN *s*u w*s#"s*u#"u' !"*M^7 !x6:!xھ **DM͆ 2yʭ :yʗ ͯ *"*6:2x÷ *"!x4d !"/ !j}=2| !"*KM^'_ !z6:|!z1 *  "}*}DM͆ ' ͯ *"!z4 :e !"͆ !z6:|!z '? 2*H#"H!{6:{ր!Ң *{& :{4 2!{4m *":ڹ ͯ !z4I '2!"!q: !4>!S :S! :2*M A! ^#V͎ * :w*#" = = = = = ͯ  *M !6q  !6q  !6q  *& !6à  !6 à  !60à  *& !6  !6  !6  *& . 1 4 7 : = F P [ f q    :2!q: " *M n :c4 *M n :2!c:Q !c:2: !:cw>!n !5 Y : { !6!q:!lwҙ  â :0O !q:O| :O| !6:]2l:o'2o:n'2n:m'2m*mMͣ *nMͣ *oMͣ :]\:   *}2D" * * *&"!q:UY: Y:ҩ: ʩ:_2ʘ:€!6<:<2!ژ!6 >!]Ҥ; !6:Q::H: !6*M : !6!q:a/>z!/H:_2:!q:A/>Z!/H8: 2::=O>m:W!Q} Hmd>9>!6:2*M!E ^#V͎ڗO **~2*#"m2m͖ 2m!6m!6m!6 m2mͯ m!62m!62m!62m!62m'2:2:TҒ:2!6*ME:2::Ҳ:<22ý: 2:} >ͯ :i:2:d*M:[ Gc*M:>!(:=2%> >>!F!5+N! ~2!4<2T>>!b}*bMͭz:b2!b6:<2é>!`ҥ*`MͭҞ!`6!6> :é:(!q:!wO! ~2*& :w>!:!4!6>:N<2N!> *N& N2 !p+q!6!6+6 !6: S: M!6g8:N2M*M8p!6!6!6>!ڕ*&P 6!4z!6!6#6#6!6*M8:ھ:*͇g2ê::¿::,͡A<2O>*M8):[ͱ!N5!6ñ:5!6#6>!ڰ!6:<2O>/:!O!T *M͡H~K:¡!6[–ͱ!N5:2:2!4=:[¼ͱ4:!6:.2O8: :* ͇g:[ ͱ!N5!6:%:<2*6 * 6å!q!6> !d*&I :]>!4A>:<2O* :w:?†!6!q!6?!:ҠgÐ!q*&*~!6:22: :]Hں:A2O>: 2ͯ w÷:S:QHI:N<22: H@"2Í202O> c!6Í202O> ڍ*&O*& !sc*&P :w:·>!ұͯ :22:_!6=!6>'!E!4!p+q*0 !r+s+p+q*~$7*>*>H&>*#"*#"> 2:R͎:!6!6=2:ʙ!6:“H9Ž>!6-e!6ͻ2=2ʺ-é:>>"ͻ2:!!5ͻ2ͬ!\{-:>>!p+q:,!6*DM9:<!6:z 2W!6D*&L :w:<2Ov*:>=20O> ڒ:0:AO>Ҥ::A }}Hͬ!wͻO`idͻV[2O>2:!X!6:!:=O!L NE!4 E E:/.*&L 6$L9k9.Xͯ *KM^020 :020:121'ͳ':²ͯ !G6!"!"7 *M^n/ :a/:H!6:ͯ !&6 2*">!b!ͯ >!`0ͯ !q:E:24J!46*}a!44EJ *KM^'́:‚ͯ !36'n::0:f9OY#9.3'ͳ.:020' 'ͳ'7 6' t!j>A+!s!"@͓1!"<**"͓n "Dn"":!Q2҂:X!Wғä:ڤ*MEÓ:ұ@@:O2Mc;!6#6>!)*&P ~"::H:H :H:H"!6!4:_jYO jM*"S*" 3@bl*M1͓!""7 *M^͆ \͔!":͎H*#"ͧÝ/ :>͛9ͯ .*#":_! b' !'6!36' :1/!aE*#">z?C9IͲÁ.!6> !ڇ*&' ~2 ʀ: y.*M!4Q>!қ:=2á:2:Ҭ\>!ҿ:=2K:2K!:!:K\: \!p+q͈* DM!  ::=H-\:N2O_og_{ozg^#V))) _{ozg^#V) d^#V|g}o n_{ozgO{ozgi`N#Fogo&og H ©=¨'t!j>A+!s!"@͓1!"<**"͓n "Dn"":!Q2҂:X!Wғä:ڤ*MEÓ:ұ@@:O2Mc;!6#6>!)*&P ~"::H:H:H:H"!6!4:_jYO jM*"S*" 3@bl*M1͓!""7 *M^͆ \͔!":͎H*#"ͧÝ/ :>͛9ͯ .*#":_!b' !'6!36' :1/!aE*#">z?C9IͲÁ.!6> !ڇ*&' ~2 ʀ: y.*M!4Q>!қ:=2á:2:Ҭ\>!ҿ:=2K:2K!:!:K\: \!p+q͈*%*3 Copyright (c) 1979, Digital Research??CON:RDR:PUN:LST:DEV:VAL:USR:DSK:TTY:CRT:BAT:UC1:TTY:PTR:UR1:UR2:TTY:PTP:UP1:UP2:TTY:CRT:LPT:UL1:R/OR/WSYSDIRR/O R/W SYS DIR ** Aborted **Active User :Active Files: Drive Characteristics65536: 128 Byte Record CapacityKilobyte Drive Capacity32 Byte Directory EntriesChecked Directory EntriesRecords/ ExtentRecords/ BlockSectors/ TrackReserved Tracks is Temp R/O Disk: d:=R/OSet Indicator: d:filename.typ $R/O $R/W $SYS $DIRDisk S9tatus : DSK: d:DSK:User Status : USR:Iobyte Assign: =Bad DelimiterInvalid AssignmentBad Delimiter: Bytes Remaining On R/, Space: Invalid File Indicator** Too Many Files **File Not Found Size Recs Bytes Ext Acc65536 set to R/O Invalid Disk AssignmentWrong CP/M Version (Requires 2.0)!9"2!T OË!]6:\:] Hr3 Ë:\ʀË͇ /ҋͺ *2!"q*"&L ͐ ͐ ͐!$p+q*#~*#N͐*##"#÷!&p+q͠*%DMͱ O O!(q*(&L!*p+q*)O2'!,p+q*+O2'O2'O!.p+q*-LRRLR\LR" O!/q*/& L!1p+q*0#L~*##N!ͽ͞"T!Vq*VMͳ!Xp+q!W* >Wr#MͲ!_<p+q!`6>!`6*`&*^*`&Y />!`4 >*]& ~ O!]49!a6:a*]& ~2bO>z*bM >!b/~,H~:H~*H~.H~>H~<H~=H*]& 6!]4T!]4!cq*a&Y :cw!a4!gr+s+p+q!h6>fr*d*f!is*d́"dPY! "f>!h#~Haͫo!h6:i0O͐!mr+s+p+q*lTZs#r*lڶ*l+s#r*jN#F+q#pÌ!nq!"o"q}2uo&"s* s:n*sDM2u:uqos*s"s*o͊O !v6>!vQ*v&w 6`i+46)A*:'ʓ:'O!) ~2vʍ:vO!w 6,]!v6>!v*v&w ~һ*vM !v4˜8AO͐:͐ͱ*##N!ͽ"* N#F*͠" >!H% - *DM ͱͷDM  ͱ* N#F 9ͱ * ^#V))DM Tͱ* ~ *} *M k!+s#r#4 !s+p+q!6!66:!ڄ !6!6>!r *&**&Y i !6!4+4A :} :!4- >!699 2¨ :!4: :2!6+6>! :O!9 DMi ͱ:!O!Y DMi :2 :2͠!4 F :® )!6>!ګ ͠:O!9 DMi 8ͱ!6> !ڤ Å :2k ä  ͐:!O!Y DMi w !4C F :¿ >F : F :=229:Y= ;>9*&Y DM  =2 I>!6:=28 :2:2 :!!29:Y T >:Y,e \>Ì !p+q*~:ʉ *N͐*#"o :͐!p+q!'"!6> **{2*́"PY! ">!+~H !6:0O͐à k͐ ͠Q" 8AO͐jͱͷDM͏ m  Z"l"!6>ʥ *}҆ *M ͱ*}x O͐} W͐ͱ !+s#r!+s#r#4D ͠:\ʹ :\=Oͳͩ !6!)6l :) :)=2) :] & !"}2\!h6?!Aj6?\:'C:'ƀo&")!)6!"):)/)HҘ]!)6> !)ڎ*)&*)*)&*) y!)6 Ä:) 2):)<2)M*)#")/:)ҩ*)+")`*")#"]!*)!/H!")!"]*)) *)s#r!)6> !).*)&*)*)&*) w:)<2)*)) >w#6*)) w#6*)!) w#6*)%) w#6*)) N#F*)) q#p*)%) *) ~e *) * ~o&͞ *)%) q#p!)6* >!)6!)6>!)=:)!)w=*)&*)~2):r)*)& *):)2):):*)!) *)) s, >X\:)“>!d!")>!)d!")!")*++!)a*)) ^#V")]*)")*)) ^#V")]!)6> !)T*)&*)~2)*)&*)~2)O;*)) ^#V"K)*)) *)) N#Fq#p*)) *)s#r*)#")!)6 J:)!)J!)6 :)<2)*)")҈q:tw͠ͱ!"))ҍ*)) ^#V")]͠.*)DM\ -°!\6:\ͣ:ͱ*}DM'ͫ*)%) N#F'ͫ*)!) N#F'k͐ͫ*)) N#FͫR͐/͐ *) ~IO͐NW͐ͫ8AO͐:͐ *) ~2)t(͐:)҃)͐*)#")Ã& \!"))\Ұ*)")]͠*)M! ^#V *) >*) w *) >*) w *) >*) w *) >*) w.*)DM\ -+!\6uͱ:)O! DMͱ*)#")Ù*))))))"):m w>.Yn -:YS:Z Hҧ!6> 2)½>!)6> !)*)&*)>2) :) .͐*)M͐:)<2)99:Y=/9&ͩ c,Hͩ 9 EHͺ i`N#Fog_og_ogDM!>))덑o|gҘ =†DM!>))ҭ =¥~ ³^#V) ½^#V|g}o _{ozgi`N#Fogo&og_{_z#W?0202056 :10013000444454205645525320322E32243100027A :10014000C5C51130010E09CD0500C12107007E3D56 :1001500090571E00D521000278B1 yx # *DM*s#r*s#ryOxG*0MD!!N: E G>O: \ S *C  :q n& ^#V> O^ "*}:*)= ":O:o"*C  *C !ͮ ~2~2ͦ :2ͮ : O:w:w |g}o *#  w *) >*) w.*)DM\ -+!\6uͱ:)O! DMͱ*)#")Ù*))))))"):m w>.Yn -:YS:Z Hҧ!6> 2)½>!)6> !)*)&*)>2) :) .͐*)M͐:)<2)99:Y=/9&ͩ c,Hͩ 9 EHͺ i`N#Fog_og_ogDM!>))덑o|gҘ =†DM!>))ҭ =¥~ ³^#V) ½^#V|g}o _{ozgi`N#Fogo&og_{_z#W W copyright(c) 1977, digital research $Error On Line $SUBNo 'SUB' File Present$Disk Write Error$Command Buffer Overflow$Command Too Long$Parameter Error$Invalid Control Character$Directory Full$Cannot Close, Read/Only?$!9"!͇͊!p+q*  ͊!p+q*͍2!p+q*͍2!p+q*͊!p+q*͍!p+q*͍!p+q*͍2!s+p+q+p+q:=2ʦ** w*#"*#"!p+q(+*DM*p*& 6:ep\:= ͧ!t6>!t%\= >!t6:t<2t=O! ~2u b:<2O>9b!60+~9b!60+4:uat:u_2u:uMʉSͧ!v6!"v!|6:|Ҁ!x6 2}:} Hk:} h:}$6 2}$*}M3:}02}O> ͧ3!z !6ͭ:}"!}5́ͭ́3*yM"h:}^a a2}O>Vͧ^:}>*z& ~ !z4í!{q*v#"v͙dͧ*vv :{w:x<2xO>}|ͧ \-!6]:ͧz2~e:~2O! 6*~& 6$>!~_z*~& w!~5Bx:yͧ*v+"vv ~_{ozg 001 $$$$ SUB ͊!p+q*͍2!p+q*͍2!p+q*͊!p+q*͍!p+q*͍!p+q*͍2!s+p+q+p+q:=2ʦ** w*#"*#"!p+q(+*DM*p*& 6:ep\:=ͧ!t6>!t%\= >!t6:t<2t=O! ~2u b:<2O>9b!60+~9b!60+4:uat:u_2u:uMʉSͧ!v6!"v!|6:|Ҁ!x6 2}:} Hk:} h:}$6 2}$*}M3:}02}O> ͧ3!z!6ͭ:}"!}5́ͭ́3*yM"h:}^a a2}O>Vͧ^:}>*z& ~ !z4í!{q*v#"v͙dͧ*vv :{w:x<2xO>}|ͧY4ïCOPYRIGHT DRI 1979, MT MCMLXXXIIIn\ \P+\PE\PJ\0hR$Oh\*. S1 U40TRIUMPH ADLERY ealphatronicU20 OOOOO OO G' _>#@ _>! G/,,@ # "! #Y!f_OO0 _OOY"fU5 @ @ *%Y#fU7#! @ W4Y%f\eA"! "##$Y 0U40BDBDBDBD$ADADADADY 1$Y"1$U70Y!5S Y S C O P Y (Version 6.3Y#5Copyright by T A / DRI a29-Sep-83BB $1(:] )\́<!!2|\|>P  ! DMX\|>F2=2z!!!! B2=2zA2A2A2#!& 2͆!K&>2!! A2A2A27:C:ʱ:2#!! !6͆!K&z>2 h!x!o&))))))) #~R> #~a{__> > ~#&O***.0WMD**!>R*$>W*'! ">2!4:¢tN;>2:!4!^BKCy*DMX2:!&& ë<2:m`ʫ:*"Ñ:`~#.:`,!W#K!]mO2}s!x&N#F ~#fo6.3 Y& JSource Drive Name (or to skip ) Source on , then type Destination Drive Name (or to reboot) Destination on , then type Permanent Error, type to ignoreFunction completeParameters are different Invalid Drive nameNo Source File on DiskSource File incomplete0x0:ڛ0 ¯00O:گ0>0ͯ0y*0w+"05 *00Ow+ 0 1 nameNo Source File on DiskSource File incomplete0x0:ڛ0 ¯00O:گ0>0ͯ0y*0w+"05 *00Ow+ 0 A2A2A27:C:ʱ:2#!! !6͆!K&z>2 h!x!o&))))))) #~R> #~a{__> > ~#&O***.0WMD**!>R*$>W*'! ">2!4:¢tN;>2:!4!^BKCy*DMX2:!&& ë<2: {COPYRIGHT (C) 1978, DIGITAL RESEARCH @  !"#$%&'()*+,-./0123456789:;<=>?@o&)))))))a{__> ͆> ͍͆~͆#ÝO****!*$*'! ">2!4:+zNͲ> 2:,!4i!^!-FNͺym*DM2: N!͝x f͍<2:_b2:,m*"1!x͝:] \<Ÿ!{͘f2|\ ¥! DM\ø!͘f!͘x AqA2A͍ͩ !͝x f͍2!B͝!͘x fA:qA2Aͩ!͘x f͍!6!B͝>͍ͩ!T͘SYSGEN VER 2.0SOURCE DRIVE NAME (OR RETURN TO SKIP)SOURCE ON , THEN TYPE RETURNDESTINATION DRIVE NAME (OR RETURN TO REBOOT)DESTINAT ION ON <, THEN TYPE RETURNPERMANENT ERROR, TYPE RETURN TO IGNOREFUNCTION COMPLETEINVALID DRIVE NAME (USE A, B, C, OR D)NO SOURCE FILE ON DISKSOURCE FILE INCOMPLETE+~z.^.<*u:T &..G~# ʥ.ETEINVALID DRIVE NAME (USE A, B, C, OR D)NO SO vvvvU#wl!~c##~04 8cy2'%fS$ Command error ! Syntax : WIDTH 40 or WIDTH 80 $)  @vvvvvvv 'W Extended Submit Vers 2.0Xsub Already Present$Requires CP/M Version 2.0 or later$:y*###ƒ# yk   җ 4!~=ŐW!xʵ ~#èbx {~#o}où.xsubb!np+q*m2_!pp+q*o  ]xsub*"-!/"*"+!""1 M*!"́!"* (xsub active)$|*y ʥ*"*7***x*́͋<͛ :%*=26͋!7^#6 #6 #6$ 8*7~O #w# !6:6= 2% ͋*-"*$$$ SUBq:(=2(N *$*& w*$#"$*&#"&' !"N*M^7 !)6:!)ھ *N*DM͆ 2*ʭ :*ʗ ͯ *N"P*6:2)÷ *N"N!) $@BA$! A "!$"" v vvvvvvvvvvvv v v v v vvvvvvvvvvvv v v v v vvvvKvvvvvvvv v v v v vvvvcvvvvvvvv v v v v vvvvvvvvvvvv v v v v vvvvvvvvvvvv v v v v vvvv}vvvvvvvv v v v v vvvvqvvvvvvvv v v v v vvvvvvvvvvvv v v v v vvvvvvvvvvvv v v v v vvvvovvvvvvvv v v v v vvvvvvvvvvvv v v v v vvvvvvvvvvvv v v v v vvvvvvvvvvvv v v v v vvvvvvvvvvvv v v v v vvvvvvvvvvvv v v v v vvvvvvvvvvvv v v v v vvvvvvvvvvvv v v v v vvvvvvvvvvvv v v v v vvvv+vvvvvvvv v v v v vvvvvvvvvvvv v v v v vvvvvvvvvvvv v v v v vvvv5vvvvvvvv v v v v vvvv9vvvvvvvv v v v v vvvvvvvvvvvv v v v v vvvvvvvvvvvv v v v v vvvv'vvvvvvvv v v v v vvvv v v v v v v v v v v v v v v v v N v v v v v v v v  v  v  v  v  v v v v!P!v!v!v!v!v!v!v!v! v! v! v! v! v!v!v!v!!v!v!v!v!v!v!v!v! v! v! v! v! v!v!v!v""v"v"v"v"v"v"v"v" v" v" v" v" v"v"v"v"\"v"v"v"v"v"v"v"v" v" v" v" v" v"v"v"v#B#v#v#v#v#v#v#v#v# v# v# v# v# v#v#v#v##v#v#v#v#v#v#v#v# v# v# v# v# v#v#v#v$$v$v$v$v$v$v$v$v$ v$ v$ v$ v$ v$v$v$v$j$v$v$v$v$v$v$v$v$ v$ v$ v$ v$ v$v$v$v%t%v%v%v%v%v%v%v%v% v% v% v% v% v%v%v%v%%v%v%v%v%v%v%v%v% v% v% v% v% v%v%v%v&&v&v&v&v&v&v&v&v& v& v& v& v& v&v&v&v&x&v&v&v&v&v&v&v&v& v& v& v& v& v&v&v&v'f'v'v'v'v'v'v'v'v' v' v' v' v' v'v'v'v''v'v'v'v'v'v'v'v' v' v' v' v' v'v'v'v'