From 8e2967e87a431d36238b5cd33de17a2bec2cb3e1 Mon Sep 17 00:00:00 2001 From: Bobbi Webber-Manners Date: Thu, 14 Oct 2021 19:24:26 -0400 Subject: [PATCH] Update .PO disk image. --- applecorn.po | Bin 819200 -> 819200 bytes applecorn.s | 2 + auxmem.bytwrd.s | 2 + auxmem.chario.s | 2 + auxmem.gfx.s | 2 + auxmem.hostfs.s | 97 ++++++++++++++++++++++++------------------------ auxmem.init.s | 2 + auxmem.misc.s | 2 + auxmem.mosequ.s | 2 + auxmem.oscli.s | 2 + auxmem.vdu.s | 2 + mainmem.fsequ.s | 2 + mainmem.gfx.s | 2 + mainmem.init.s | 2 + mainmem.ldr.s | 2 + mainmem.lists.s | 2 + mainmem.menu.s | 2 + mainmem.misc.s | 2 + mainmem.path.s | 2 + mainmem.svc.s | 2 + mainmem.wild.s | 2 + 21 files changed, 87 insertions(+), 48 deletions(-) diff --git a/applecorn.po b/applecorn.po index 9c140748408adeb2dc18273fc3ba33817666f12a..0dfe58c5f0d90258cc5496a11cc3b751a68d17c7 100644 GIT binary patch delta 6582 zcmeG=dt4J&x-*l^WO!ImqN29;^y>OnTz7x1dt19p1%+({6jbW=0j*j}UAOLb_x7QZ zw!->~)w<)xh6Iq z*i7UkqIHgsZQZE41w-mqu1FTliZxU)F@54ssf&qEOj?l$>dL4^#KPoz*`#5IQ|Yjb zPD(o#3Vk} zuZkqZw7{`!BUV>M$3dtF@gKqJb;0VW(Kw12<@3c}{9mBX^rH-ouq8w$#qjEOipCM` zll-k7PL+f`z7IlL{-cnN$ghu;L0J;wbD}U}CCtzg4j!KCVCvf(gE zb!PvWd=S6WA?niqh5T$nLOv=!rM=SW)t2Z=icw2#$>j=TLm{eZXs-CO1vy>F?s8f= z59&4db0nv&*G2rC5F0Mo=oc+LrRE);-0 zdondH`#kMY-(sg`ofE0giL>+*0GGo$2(0p&9o{cvYpTxlxGZ=x`R*H&r5+1-Z>0vxDojvzUYMZHe zEV>mm32F<9M|A>pHUnM$xAgJ~KyN`YlslBAvbL$Jxv{=L2X*fQ&zE<)oL-O1KI9j0 zwGML?E0p!s70Nsxrv_wNTF;kTYK_n=k79lp*Q^} z+F|bO!RvR@zYHHL+A(u1RR}4U-mh2jxScd2g~E`MzG@2?YCd1NNSE`CvMMH`YYkJDtJ3JEykwiCgA@mJ5{H6J5qckgMQe58NSyJcgxo6 z?ak#qgX=6Z+dZ7QYXEt>InS7=_)Onh5!Kgtp&T7tiu@~0e7jucF=)tw50#gb`;`AA zh9Yr~RLMP3nlV%MaT{jK>G)Y;BM}z*`FPGLz0z<%O>ZHSt~6Fa=a=$J_PLx>I=-9W zO`B6%tGMh-SP67>O%)84RXnFbp{%-W0;uFPw02dMa)_4s@(J#g;tFI}A zjF*7O2zyxbZr}Dcoa`rhoIFFBBgFn{!6o!g& zN@{VNj-G)}YUqXdx`v(~((AU{poBdx2g*5R&|qmk{UlzUPd|?L<b0tKh-(~NEy|=^W zb(q~nd<4rz11)r@o$Kf9$kpfNk1ZZE9HSvFc-3io?n^~*s)dyWj;$kYENG}42`O)) z3QkH^&Sds>!>PyH&F}R>WXneL(g3RfcZ=)n^O`$gQQ(ghK9*|yFa$poRhzwLIK%gP z1^qSnS-?i3Dzh`!E1c;CbnS@QW|s>&%+3L1c0+nP&0d?!*(+$&>k5XsGz!CA9Zdz4 zhEnOI{tTT?Vre;@&2)5e7Hc;g7jLVzV$zUbPR|OEC@Ncy%&oD znepn2G?m>J^BzvKYLj0qIxMqkqH0#^PuTCC`l56MSo`+^^Y?Xo-x1)_E{1RxgV&r z8A=qtdJRbbp#O*|5DiOzss02giEGzo7m9z-A7g?;3||FGW|DaECc4o;l`wZn@pCVv zq=MibeHn9v9v19UpJOP=iyJp>emU(GpbqFiV^#+Fgu&v6>UxG^(zpD6>mT4CPuJk`ab6CiNijr)WH&p-n(CM;C)O^7flTrInAIc ziDbry52YP&h*XXPPSG1n7bFkLq*d&eyP~3f7vQG~G5qEi?DW8}D5o}Yy&~GFjbE== z;nXIqSFAK_TgJwaWR~H~lk5$4Qj}96zHnjCEvl0{l*FgRAq9QmqbRIh$-YBI;fNUa zT0m>&6Pjh2%QR6qB$kbvecW-Bpe}}fhq`U(_sz&-(nyeV5LpMqSq+i-gGQctR~dk| z<6W`r&&VJ{KFE+{A0GHEdvfaWo|%J-rx?Rb;fl};TH-?J_px&0c((){H&i~&zDtrd zhUisn3Pm0_sN>lZ5y(H2$aa$8%CfbrVnL8SEk(BH2FkFgjwruEr@P#4^t$DMliKg1 z09ov*Gd`jl*o{&x=ylw`mfiZ$!}c^}Fl&gEB9i<#SsUY=+iq+(v6?%|8z>0BvyOd& zjKSsW*b`)gVdHwXm`qsVbVNDxwJV*DXlI^=KnL1YHOh7rXfKL#7DhXLm`lobS)e`3 zxa(r(C8Qlxof0@U)-lFe7iV2k)hSt&Y*(G<8owe02l6 zOcdNT*)ZvMY#xa#pJnG|Y~$9fjoY=2i%#CNjf;(25x*BO(Q%QhqW5p(Wbu(vg8|mW z$aT?!5^GenEIKJV>uu|*r=w!m?0(z2-1k_KELU>z2}%1-aI4qGCdu8Fm}ptTV5a4% z$i&#?@`Ki=qo08>dU;H|{E&4JK1RulExs>b@{9t@V3uWbn%>AWE?q=eY*}<1ub`JB<MH@DL;TZ!71Z>|wjAkMH%T z`CdPBfFz3uGW;|&yoQK@X`*zCX`E(I;ib~t$(jt=8&(zM1h>7wA|}P6x`R-53OiYv zYH^QOc@csL@N|n?Bs+}fr$E_dTkn{*+R|;W!Mzpk{oP~l>t9^%8O0fUF7}-6`G?Ka z^Wn|+Y`bj=xQ{k%Xxb!5ejtoBCbMZ&;{MQ`tADiRceBB^P~jeLi?Y3p+f&%6$5htL z?>{|e&AffW#pg&zD~V$FQk2`BK4)Iq>6A8PHmTi4GVP#iW_yANDQ&93IcW=W@$XXE zD6#`9Q`tGpI-6-0nvNS%*@fgfd?%HCcFJc;Tf4+9*3>C&kPgUvgkAFm594hwvWq8t zZ9DoZzp$w;95_HN$n8c6xb#JKJ^2+5dWnsi7<@DT?~55Fagb6@OKB%ngl;0L!5d#< zBglCCx0l#Iko{P^k=+k(hc>dSgCp#FV}1+Q+z|8xc5Y-hkf}I!6F8WP4{Ty*Qn}rD zQW~3xC7apDGCo#1_zHQ;0Yw5o8Fq{ljPjyK_+%dP01-`#9uZknz$*RQqd z+K#m)x0%1na@_BRDwAb7V2zSpVJQ~NlBA(Y8W9l?$lRCG7Dmi{-+kwv^PlCO zd*02_>&NQ#W1H4W%7%hlNg!inKp4;nsFSlbnFQ7eBEjicG7;F! zesiPlnVU8>-|trPITZ+oM1a7Dn^R|MbEayExv!{rfMfy2)kc@`&QW@3H;lNrGb{EfzbE@P6$%8)+nja z+EO?Kvo=`=SxC%p!f!*P4QKWn3}3V69haKEtm<3r+-A0fe1~EoI`E(GTdao;AK4D6 z8_+UwEqqBDXE<`;jN!z|){{r7$g79kxBoC%^$J>g1eVPA;Sz|Ce+Y{#TRwmsgS~=0 zm0u4j>gW#`ehLQ?vkquBz~za!BUJV_FA$MKz|cU4)j-NsJCF*-!SytQnMO%hMJwc6 zsbjp69>jYPRk4TW_ed)EaCvY*gK5*|FB-ROZQAxF(fie`l@1BF44EjuOi|l+U=nl; zVV|y@FO9>a=SxqB`{$pQXUp1u>bP+6(q$sNS?i-^qMMuiI(e|v=IC@@!SE!EtXVNM zir|kDtie=WCi3ALrDNdOYnfn0o?={WDa0xnJ8o-S+?`x3`H@h1}eop zb(se;=9oTdJU^MCq(g>1!aj=O6ef-!TFog;Xn`esJ>!CwyLCjFPD{@qf;;AVW;5NV zI)UdIN}f3*Tbq+RGcTV2elwexzz|FDPUb4n+(k4c1<%g~_H`ufFCt zYGcm!8_HcA3k#Q*bhQjctj))illzQcOn@%hNWEA-*K^Urp~GDztmT3U=(a%kaegD`iR-X-2*`BX z(9VY7cV?oeA&0-2i8jJ&iprhuKD-@hd-~sD-gUe(3ST#ufu&XSs}fMHDVBKs(?HJh%|WkXK3} zdLPE%Q-x>}t-L(g68S9p97;x>ce(L5vrv3lsVzGrnVjkia%huhs(b;CR28SnQB{;V($i8k*{jMNDLt>L`T7mE%&eR>Cfkf$O^*JW zU9IA>e5>tKlC_!?{RfUTRRNh*De6r9hYlZU3G_ScJ^hEiY^&W@VPEMm0t2YGk4cW+PcACsA)#6KQ!D znQo~!cBw1X3NKAgtweX-E>PDU^>&^A=&V6rNsBP$H=V)97TK-w-kXGT)%up#V@>ob ziGq0QPZ}z zw%r@fw%N+PBBc?CXN#ezGR7 zvstG#Nt{o%MCn+iy=g4@227w1QgswnM^mg4J7$wB2IGL|P(s-XJNYb(U-)BfWb|W# z$k$<#8}w|5i%-ymZV8S6U#f1EphysMvgwCh;cp03ZFC%Znn@~(5O^F1=^P86Pa(XUzSpAQNb zgno^OQ@2mO>DMkudr`u7;d0M=24!MYA;1WggF73=1rM5x8<=Au{Nt=b~AmMp4@(2T%wu1fWE z@{0>$C*vzcs1O!oRWXUL7*`gf5pXl!T8!3|eQI!vCG@tNR1tZ&PuxKVTU&o<-E9Ds z?ltaZWQ?{=?@a7G<5XM`&N1gsw>7oZx8=88__5OcutCa@t8|l_jBB%TBkUqgo^dWN z!NtvT5&FpnHy7yU4jkt~-JGJv#cgnLXPle@@1KW8OP9GnaX)JLbsmyIa|xpJE%bVL z2a+aF?i&PjVxKYZ1%FeqU?J%q7QOCo6PA#FZ^wh}pZH%L(c7d3L@e!Z8Y:FREE - JSR OUTSTR ; Print 'free' - LDX AUXBLK+0 ; Blocks used + JSR OUTSTR ; Print 'free' + LDX AUXBLK+0 ; Blocks used LDY AUXBLK+1 - LDA #$00 ; *TO DO* b16-b23 of used - JSR :FREEDEC ; Print 'AAYYXX blocks aaayyyxxx bytes ' + LDA #$00 ; *TO DO* b16-b23 of used + JSR :FREEDEC ; Print 'AAYYXX blocks aaayyyxxx bytes ' LDX #<:USED LDY #>:USED - JMP OUTSTR ; Print 'used' + JMP OUTSTR ; Print 'used' * OLD * JSR PRDECXY ; Print in decimal @@ -748,20 +748,20 @@ FREERET STA FSNUM+3 * What's the maximum number of blocks? * JSR PRHEX ; Blocks b16-b23 in hex - JSR PR2HEX ; Blocks b0-b15 in hex + JSR PR2HEX ; Blocks b0-b15 in hex LDX #<:BLOCKS LDY #>:BLOCKS - JSR OUTSTR ; ' blocks ' - STZ FSNUM+0 ; FSNUM=blocks*512 + JSR OUTSTR ; ' blocks ' + STZ FSNUM+0 ; FSNUM=blocks*512 ASL FSNUM+1 ROL FSNUM+2 ROL FSNUM+3 - LDX #FSNUM ; X=>number to print - LDY #8 ; Y=pad up to 8 digits - JSR PRINTDEC ; Print it in decimal + LDX #FSNUM ; X=>number to print + LDY #8 ; Y=pad up to 8 digits + JSR PRINTDEC ; Print it in decimal LDX #<:BYTES LDY #>:BYTES - JMP OUTSTR ; ' bytes ' + JMP OUTSTR ; ' bytes ' :BLOCKS ASC ' blocks ' DB 0 :BYTES ASC ' bytes ' @@ -898,13 +898,13 @@ ERRMSG MKERROR1 CMP #$40 BCS MKERROR2 - ORA #$30 ; <$40 -> $30-$3F + ORA #$30 ; <$40 -> $30-$3F MKERROR2 SEC SBC #$37 CMP #$28 BCC MKERROR3 - LDA #$00 ; I/O error + LDA #$00 ; I/O error MKERROR3 ASL A TAX @@ -968,67 +968,68 @@ MKERROR4 DW ERROR27 * AcornOS ProDOS ERROR40 DW $CC00 - ASC 'Bad filename' ; $40 - Invalid pathname syntax + ASC 'Bad filename' ; $40 - Invalid pathname syntax ERROR41 DW $C400 - ASC 'Directory exists' ; $41 - Duplicate filename (split from $47) + ASC 'Directory exists' ; $41 - Duplicate filename (split from $47) ERROR42 DW $C000 - ASC 'Too many open' ; $42 - File Control Block table full + ASC 'Too many open' ; $42 - File Control Block table full ERROR43 DW $DE00 - ASC 'Channel not open' ; $43 - Invalid reference number -ERROR44 ; $44 - Path not found + ASC 'Channel not open' ; $43 - Invalid reference number +ERROR44 ; $44 - Path not found ERROR46 DW $D600 - ASC 'File not found' ; $46 - File not found + ASC 'File not found' ; $46 - File not found ERROR45 DW $D600 - ASC 'Disk not found' ; $45 - Volume directory not found + ASC 'Disk not found' ; $45 - Volume directory not found ERROR47 DW $C400 - ASC 'File exists' ; $47 - Duplicate filename (see also $41) + ASC 'File exists' ; $47 - Duplicate filename (see also $41) ERROR48 DW $C600 - ASC 'Disk full' ; $48 - Overrun error + ASC 'Disk full' ; $48 - Overrun error ERROR49 DW $B300 - ASC 'Directory full' ; $49 - Volume directory full -ERROR4A ; $4A - Incompatible file format -ERROR4B ; $4B - Unsupported storage_type + ASC 'Directory full' ; $49 - Volume directory full +ERROR4A ; $4A - Incompatible file format +ERROR4B ; $4B - Unsupported storage_type ERROR52 DW $C800 - ASC 'Disk not recognised' ; $52 - Not a ProDOS disk + ASC 'Disk not recognised' ; $52 - Not a ProDOS disk ERROR4C DW $DF00 - ASC 'End of file' ; $4C - End of file has been encountered + ASC 'End of file' ; $4C - End of file has been encountered ERROR4D DW $C100 - ASC 'Not open for update' ; $4D - Position out of range + ASC 'Not open for update' ; $4D - Position out of range ERROR4E DW $BD00 - ASC 'Insufficient access' ; $4E - Access error (see also $4F) + ASC 'Insufficient access' ; $4E - Access error (see also $4F) ERROR4F DW $C300 - ASC 'Locked' ; $4F - Access error (split from $4E) + ASC 'Locked' ; $4F - Access error (split from $4E) ERROR50 DW $C200 ASC 'Can' DB $27 - ASC 't - file open' ; $50 - File is open + ASC 't - file open' ; $50 - File is open ERROR51 DW $A800 - ASC 'Broken directory' ; $51 - Directory count error + ASC 'Broken directory' ; $51 - Directory count error ERROR53 DW $DC00 - ASC 'Invalid parameter' ; $53 - Invalid parameter + ASC 'Invalid parameter' ; $53 - Invalid parameter ERROR54 DW $D400 - ASC 'Directory not empty' ; $54 - Directory not empty + ASC 'Directory not empty' ; $54 - Directory not empty ERROR55 DW $FF00 - ASC 'ProDOS: VCB full' ; $55 - Volume Control Block table full + ASC 'ProDOS: VCB full' ; $55 - Volume Control Block table full ERROR56 DW $FF00 - ASC 'ProDOS: Bad addr' ; $56 - Bad buffer address + ASC 'ProDOS: Bad addr' ; $56 - Bad buffer address ERROR57 DW $FF00 - ASC 'ProDOS: Dup volm' ; $57 - Duplicate volume -ERROR5B ; spare + ASC 'ProDOS: Dup volm' ; $57 - Duplicate volume +ERROR5B ; spare ERROR27 DW $FF00 - ASC 'I/O error' ; $27 - I/O error + ASC 'I/O error' ; $27 - I/O error ERROR28 DW $D200 - ASC 'Disk not present' ; $28 - No device detected/connected + ASC 'Disk not present' ; $28 - No device detected/connected ERROR5A DW $FF00 - ASC 'Sector not found' ; $5A - Bit map disk address is impossible + ASC 'Sector not found' ; $5A - Bit map disk address is impossible ERROR2B DW $C900 - ASC 'Disk write protected'; $2B - Disk write protected + ASC 'Disk write protected' ; $2B - Disk write protected ERROR5D DW $CA00 - ASC 'Data lost' ; $5D - EOF during LOAD or SAVE + ASC 'Data lost' ; $5D - EOF during LOAD or SAVE ERROR5E DW $C000 ASC 'Can' DB $27 - ASC 't save' ; $5E - Couldn't open for save + ASC 't save' ; $5E - Couldn't open for save ERROR2E DW $C800 - ASC 'Disk changed' ; $2E - Disk switched + ASC 'Disk changed' ; $2E - Disk switched DB $00 + diff --git a/auxmem.init.s b/auxmem.init.s index 2f09ddd..95e83c0 100644 --- a/auxmem.init.s +++ b/auxmem.init.s @@ -177,3 +177,5 @@ BYTE00A BRK HELLO ASC 'Applecorn MOS 2021-10-13' DB $00 ; Unify MOS messages + + diff --git a/auxmem.misc.s b/auxmem.misc.s index 1ecaf77..3d72637 100644 --- a/auxmem.misc.s +++ b/auxmem.misc.s @@ -555,6 +555,8 @@ AUXBLK ASC '**ENDOFCODE**' + + diff --git a/auxmem.mosequ.s b/auxmem.mosequ.s index d854ac1..4ca72c4 100644 --- a/auxmem.mosequ.s +++ b/auxmem.mosequ.s @@ -88,6 +88,8 @@ OSFILECB EQU $2EE ; OSFILE control block + + diff --git a/auxmem.oscli.s b/auxmem.oscli.s index aca5038..f8236df 100644 --- a/auxmem.oscli.s +++ b/auxmem.oscli.s @@ -516,6 +516,8 @@ ECHOLP1 JSR GSREAD + + diff --git a/auxmem.vdu.s b/auxmem.vdu.s index f78412f..4239e01 100644 --- a/auxmem.vdu.s +++ b/auxmem.vdu.s @@ -1000,3 +1000,5 @@ VDU01 RTS + + diff --git a/mainmem.fsequ.s b/mainmem.fsequ.s index cb0d8d8..cc3277f 100644 --- a/mainmem.fsequ.s +++ b/mainmem.fsequ.s @@ -81,6 +81,8 @@ GEOFCMD EQU $D1 + + diff --git a/mainmem.gfx.s b/mainmem.gfx.s index 22813b6..f6a3e67 100644 --- a/mainmem.gfx.s +++ b/mainmem.gfx.s @@ -223,3 +223,5 @@ MHGRTAB DW $2000,$2080,$2100,$2180,$2200,$2280,$2300,$2380 + + diff --git a/mainmem.init.s b/mainmem.init.s index 940fe40..4dcf7a1 100644 --- a/mainmem.init.s +++ b/mainmem.init.s @@ -127,6 +127,8 @@ RESET TSX + + diff --git a/mainmem.ldr.s b/mainmem.ldr.s index 778842a..8f6b446 100644 --- a/mainmem.ldr.s +++ b/mainmem.ldr.s @@ -169,3 +169,5 @@ LOADCODE PHP ; Save carry flag + + diff --git a/mainmem.lists.s b/mainmem.lists.s index 0374bd5..ce10ee2 100644 --- a/mainmem.lists.s +++ b/mainmem.lists.s @@ -145,6 +145,8 @@ QUITPL HEX 04 ; Number of parameters + + diff --git a/mainmem.menu.s b/mainmem.menu.s index 4320868..06c0fa4 100644 --- a/mainmem.menu.s +++ b/mainmem.menu.s @@ -162,6 +162,8 @@ ROM8 STR "USERROM2.ROM" + + diff --git a/mainmem.misc.s b/mainmem.misc.s index 71d5873..f2f75d3 100644 --- a/mainmem.misc.s +++ b/mainmem.misc.s @@ -231,6 +231,8 @@ FILEREFS DB $00,$00,$00,$00 + + diff --git a/mainmem.path.s b/mainmem.path.s index 78363b3..e0d831b 100644 --- a/mainmem.path.s +++ b/mainmem.path.s @@ -309,6 +309,8 @@ PREFIX DS 65 ; Buffer for ProDOS prefix + + diff --git a/mainmem.svc.s b/mainmem.svc.s index 564e05f..3c5d5ce 100644 --- a/mainmem.svc.s +++ b/mainmem.svc.s @@ -1117,3 +1117,5 @@ MAINRDEXIT >>> XF2AUX,NULLRTS ; Back to an RTS + + diff --git a/mainmem.wild.s b/mainmem.wild.s index d81854f..5893386 100644 --- a/mainmem.wild.s +++ b/mainmem.wild.s @@ -403,6 +403,8 @@ MATCHBUF DS 65 ; For storing match results (Pascal str) + +