V VWurXDOSEXTRA.TXT` ` B ````````````````ⁿ ¬¬¬¬¬¬¬¬¬¬¬ ±µ █ ▄E P XDOS - I ▄▄I S S , S S ( 1, x A RTS) R .▄▄$8011-$804 S B S ▄▄$8011 LENGTH Le E INPUT▄$8012 POS A P ▄$8013 TXTADR A T▄$8014 PRSLNGTH L S PRNTSTR▄$8015 PRSPOS A. P ▄$8016 LASTSC L S/T CLCLSTSC▄$8017 CHSM-TRK Z . T CHSM-SR▄$8018 CHSM-SCTR S▄$8019 ▄$801 *ERRFLG > 127: D F DSKERR▄▄B x V ▄ e W %00001000 Mx ▄ S-F -W ; ▄ W ( %-Z ) x ▄ Z.▄$801 *S-FW-SEQ %00000001: S SRCHFW▄$801 *S-FW-PRG %00000010: P▄$801 *S-FW-USR %00000011: U▄$801 *S-FW-REL %00000100: R▄$801 *S-FW-DEL %00000111: D▄▄Fx V ▄ W 0 ▄ Z.▄$8020 *S-FW-PR %01000000: P ▄$8021 *S-FW-RW %01000000: R/W .▄$8022 *S-FW-OP %10000000: WFO .▄$8023 *S-FW-CL %10000000: C ▄$8024 SFW-CHFLG E (A ):▄ $00: S P▄ $7: ($01-$7) XD ▄ $: ($80-$) R▄ D F ▄ P e ; ▄ SRCHFW, SRCHFW-I2, ▄ SRCHFW-I4.▄$8025 *SFW-FTNO R: . F ▄$8026 *DBLOCKNO D -B SRCHFILE▄$8027 *DENTRYNO D -E ▄$8028 *DFILNAML L D ▄ (*-J e)▄$8029 *DENTRYPOS P D -B PRDBUF▄$802 *TRACK T -▄$802 *SECTOR S ▄▄D 10 V ▄D XD P/D. . E ▄
W B ▄.▄$802 *DRVNO L: 0 1▄$802 *DISKNO F-Ge: 8 12▄$802 *PRINTER D: 1 = MPS 801▄ 2 = E▄ 3 = U▄$802 *INTRFACE I: 1 = N▄ 2 = C ▄ 3 = U▄$8030 *QUALITY D e: 0 = M ▄ 110 = NLQ▄$8031 *PITCH D : 15 = C▄ 77 = E ▄ 80 = P ▄$8032 *CHSM-FLAG D : <> 0▄$8033 *PRDEVNO D Ge: 4 5▄$8034 *SEC-ADDR D Se: 0 255▄$8035 *AUTOLF A L F: 10 = ▄ 0 = ▄$8036 *FRSTLIN W -Z (0-24)*** WINDOW▄$8037 *FRSTCOL W -S (0-39)***▄$8038 LASTLIN W -Z (0-24)***▄$8039 LASTCOL W -S (0-39)***▄$803 CHARL Z SUBWNDW▄ W -Z ▄$803 CHARM Z ▄$803 CHARR Z ▄$803 XLIN W -Z ▄$803 XFCOL W -S▄$803 XLCOL W -S▄$8040 LINE B ASKMOUSE▄ M ▄$8041 COL S▄$8042 FNCNO M.▄$8043 OFNCNO ▄$8044 MOUSEPOS Z x J ▄$8045-$804 , x $ (NOP)▄$8050-$80 S x XDOS-U ▄$817-$820 S x XDOS-R ▄ EXTDIR EX D ▄ BAM B A M▄ HIDDENFLS H F ▄ CHCKDSK C D ▄ PRFRM-T P T▄ RESCRATCH R▄ SCRPRTCT S P▄ DWRPRTCT D W P▄ DADRCHNG D A C▄ DISKMENU DISK MENU▄ PRNTMENU P M▄ SYS-SET S S ▄ GORESET Q ▄ GOBASIC R B ▄ NEWDKS N.▄ DSKNAME D C▄ CHCKSMDSK <- (P )▄ FILEINF1▄ FILEINF2 D ▄ ...▄ FILEINF8▄ NEXT N▄ FILELD1▄ ... P ▄ FILELD8▄ PREVIOUS P ▄ CHNGCLOSE WFO/C-S e▄ CHNGPRTCT R/W / P ▄ CHNG-DSKN D D ▄ DHNG-DRV D D ▄ CHNG-PR P D ▄ CHNG-LF A L F ▄ GOBREAK B▄▄$478-$ D ▄$478 AM-CNT▄$479 AM-CNT-BU▄$47-$49 AM-TBL1 64 B▄$4-$49 AM-TBL2 64 B▄$4-$539 AM-TBL3 64 B▄$53-$579 AM-TBL4 64 B , x e ▄ V▄$57-$911 SCRBUF 920 B▄$B912-$94 SCRBUF2 195 B▄$95-$4 DIRBUF 256 B▄$5-$4 BLKBUF 256 B▄$5-$4 HEADBUF 256 B▄$5-$24 PRINTBUF 80 B▄$25-$74 INPTTEXT 80 B▄$75-$ HDNFLS-TS 650 B▄$75-$ PRINTBUF2 121 B▄$-$4 PRINTBUF3 80 B▄$000-$ 8 B -ROM▄$000-$ 4 S (RAM)▄$000-$ 4 V -R▄$000-$ 8 B -ROM (K)▄▄▄N XDOS-B x P▄▄F M , XDOS- B , F D D e, x P . E R , P x W e . D A ( V P) JSR $ . JMP (),
A K A .▄▄A L P W ▄($8000)▄ (XDOS )▄ D JMP ($8000) XDOS ( ▄ R).▄▄($8002)▄ (XDOS )▄ M JMP ($8002) ( ▄ NMI) XDOS .▄▄$8050 MMENU3▄ (Rx Hx Ve ▄ B )▄ E P, F ▄ (.B. N) E (.. ▄ M e).▄▄$8053 GOBASIC▄ (Rx CBM-B )▄ D V -C x, R-▄ K B -W ▄ .▄▄$8056 GORESET▄ (A R )▄ I S $8008 ASCII-Z <<7>> ▄ , R .▄▄$8059 ROM-RAM▄ (B -R )▄ D y B 1-3 P ($01) ▄ 110 8K R B -R ▄ .▄▄$805 RAM-ROM▄ ( R-K )▄ D B 1-3 A 1 1 , ▄ B $000-$ $000-$ R ▄ B $000-$ I/O .▄▄$805 SETCNSTS▄ (N D )▄ F S ▄▄$8062 SETMSVIC▄ (P -K )▄ D Z H ▄ Gv| .▄▄$8065 CLCBLKFRE A,X▄ (A B D )▄ A D HEADBUF A ▄ B BAM A () X ▄ ( ) ; Z A ▄ D -Bv!▄▄$8068 CLCBUSD A,X▄ (A Bv D )▄ CLCBLKFRE, Bv ▄ .▄▄$806 PRNT16BIT A,X▄ (P 16-B Z )▄ E Z A ( ) X () B 0-65535 ▄ A , B ▄ $0100 (256) ASCII-D Vx ▄ 0 .▄▄$806 TRNS16BIT A,X▄ (P 16-B Z FAC)▄ E Z ( K PRNT16BIT) ▄ F FAC ▄ x.▄▄$8071 WRSR-NTRY▄ ( B SRCHNEXT)▄ D B D , ▄ | CHSMSR . D ▄ R SRCHNEXT.▄▄$8074 RES-EXCMD▄ (F x XOPEN (K) S)▄ D Z B v ▄ K F XOPEN-R ▄ A I-K .▄▄$8077 RES-ECMD2 A,X,Y▄ (F XOPEN (K) )▄ W ,
Z ▄ A :▄ A = L B▄ X,Y = L, H -B A▄▄$807 SET-MSPOS A,X,Y▄ (P )▄ X = X-P ( )▄ Y = Y-P ( )▄ A = { X-P (9. B )▄▄$807 SET-AMT-1 A,X,Y▄ (I -D x M )▄ A = B ▄ X = B ▄ Y = B ▄▄$8041 SET-AMT-2 A,X,Y▄ (I -D Mx )▄ P ,
x E .▄▄$8044 SET-DP-BB▄ (DSKPNT BLKBUF )▄ D DSKPNT-Z A BLKBUF ▄ .▄▄$8047 SET-DP-DB▄ (DSKPNT DIRBUF )▄ W ,
. DIRBUF▄▄$804 SET-DP-B2 X,Y▄ (DSKPNT A X,Y )▄ X,Y = L, H -B A▄▄$804 VALIDATE▄ (D )▄ D >>V<<-B D ▄ F .▄▄$8050 STNDRDW X,Y▄ (S )▄ X,Y = L, H -B , 20 ▄ Z T ▄ S, T , OK C-F ▄ . B A OK RTS ▄ x, C Rx ▄ v (2 PLA) RTS ▄ P .▄▄$8053 SRCHFW A,X,Y X▄ (D )▄ D D , Mx ▄ XD V (B ).▄ X,Y = L, H -B A { ▄ A = A Mx:▄ 1. OK 6. R/W▄ 2. S 7. P▄ 3. P 8. D▄ 4. U 9. WFO▄ 5. R 10. C▄ E R SRCHFILE . Ne ▄ x Rx X-R S .▄▄$8056 SRCHFW-I2 A,X,Y X▄ ( e D , R)▄ W ,
E ▄ R-W .▄▄$8059 SRCHFW-I4 A,X,Y X▄ ( e D , S ▄ P)▄ D., E e S P-▄ W .▄▄$805 STROUT A,Y▄ (Z )▄ E Z Le ▄ B .▄ A,Y = L, H -B A S ▄▄$805 CHSM-SR▄ (D )▄ D D D H D ▄ S , ▄ N x .▄ A:▄ D R , F ▄ D , | CHSMFLAG ▄ | 0 .▄▄$8062 READDSK X,Y▄ (L B D F ▄ D )▄ D T X S Y 256 ▄ B S (DSKPNT), A ▄ R CHSMSR, .▄▄$8065 READDSK2 X,Y▄ (L B D )▄ D.,
{ D .▄ H :▄ D L D R ▄ , Bv U ▄ , D A ▄ F v ; Z ▄ x. D V . . ▄ Mx C D .▄▄$8068 WRITEDSK X,Y▄ (S B D F ▄ D )▄ D (DSKPNT) 256 B S ▄ T X, S Y, A CHSMSR, ▄ .▄▄$806 WRITEDSK2 X,Y▄ (S B D )▄ D.,
{ D .▄▄$806 CKOUT2▄ (A F-D )▄ D D JSR BASOUT ($2) ▄ D D 2, XOPEN ▄ , .▄ H :▄ D Rx Ae S ▄ (E : T; A: B ) ▄ JSR CLRCH ($).▄▄$8071 CKOUT15▄ (A F-K )▄ W ,
N. 15▄▄$8074 CHKIN2▄ (E F-D )▄ D D JSR BASIN ($) ▄ D .▄▄$8077 CHKIN15▄ (E F-F )▄ D., N. 15▄ A:▄ B R | x ▄ , A
D ▄ a.▄▄$807 XOPEN▄ (F-D- K )▄ E OPEN 15,8,15,I : OPEN 2,8,2,# ▄ D- ( B-B) K ( ▄ I ) F ( ▄ S | D ▄ N).▄▄$807 DSKERR▄ (D )▄ D F S ▄ B . B ▄ A F D ▄ (..) ERRFLG W 127.▄ A: D F ( ▄ D -/ READDSK . WRITEDSK ▄ ), x S , I ▄ P B v .▄▄$8080 SRCHFILE X,Y X▄ ( D D )▄ D A Z ▄ D X () Y ( ) x, ▄ P x D ▄ V SFWSEQ SFWCL (B , ▄ Ee XD ) .▄ F Rx X N , D ▄ K ; X ▄ S DIRBUF , 32 B ▄ E D .▄▄$8083 SRCHNEXT X,Y X▄ (e D D )▄ E SRCHFILE P ▄ , M x ▄ D .▄ B Rx X .▄▄$8086 PRERDWR A,X,Y▄ (T, S Z , ▄ SYSTEMS)▄ N S T (X) S (Y) ▄ , Z (>>1<<, L ▄ >>2<<, S ) RDWRCOM1+1 ; ▄ | SYSTEMS-R .▄▄$8089 SYSTEMS▄ (B RDWRCOM1-B . ▄ )▄ A S ▄ A B . ▄ RDWRCOM1-B ( D ▄ ).▄▄$808 CLRPRBUF▄ (PRINTBUF v)▄ D 80 B S PRINTBUF ▄ L x (S, ASCII 32).▄▄$808 ASCII A X,A▄ ( D ASCII-Z )▄ E A D B 0-99 ▄ ASCII-Z :▄ X = Z▄ A = E ▄▄$8092 RDPREV C-F▄ ( D -B )▄ D ( DBLOCKNO ) D -B ▄ , (C=0), DIRBUF ▄ ( C=1).▄▄$80 RDNEXT C▄ ( D -B )▄ W RDPREV, x D -▄ B.▄▄$8099 RDHEAD▄ (D -H )▄ D T 18, S 0 D -H ▄ S HEADBUF READDSK2 ▄ .▄▄$809 RWHEAD X,Y▄ (L D -H )▄ D DSKPNT A HEADBUF , ▄ X-R 18 (T), Y 0 (S) ▄ .▄▄$809 WRHEAD▄ (D -H )▄ W RDHEAD,
Z ▄ WRITEDSK2.▄▄$809 CLR-DCB A▄ (DSKCMDBUF v )▄ A A DSKCMDBUF A x ▄ B , DSKCMDBUF+1 DRIVENO ▄ ▄ L , DSKCMDBUF+2 e ▄ D, 37 S ▄ >>SHIFT SPACE<< (CBM-ASCII 160) x.▄▄$809 SND-DCB▄ (DSMCMDBUF D )▄ D B DSKCMDBUF B ▄ B F x.▄ A: V A R | K ▄ (. B. XOPEN) v .▄▄$800 PRDBUF▄ (HEADBUF DIRBUF F )▄ E D HEADBUF ▄ { ID, . D ▄ DIRBUF, S F ▄ P B ▄ .▄▄$803 PRNTINIT▄ (D )▄ D D , e W ▄ S , ▄ A . D R A ▄ P D .▄ Z Dx :▄ - Ge A| D ▄ B OPEN 4,4,SEC-ADDR .▄ - x D C -S ▄ U .▄ A D :▄ - e MPS 801.▄ - E-D ( ESC ▄ ) x; S ▄ D .▄ W S R , x ▄ F x; ▄ >>U-R x D<<.▄▄$806 PI-SNDESC A▄ (ESC Z A D )▄ E ESC-C (ASCII 27) Z ▄ A D ; ▄ { S .▄▄$809 PRNTSTR A,X,Y▄ (S D )▄ E S Le A (=e A ▄ Z ), X (), Y ( ) S , ▄ PRNTOUT D ; ▄ A >> << (ASCII 13) ▄ NEWLINE .▄▄$80 PRNTOUT A▄ (Z D F )▄ D Z A
Ge- I ▄ D , A R ▄ E Z B 32 ▄ 127 160 . Z Z ▄ 32 128 159 ( A CBM-ASCII) ▄ W 64 .▄ H ,
A ▄ D, x Z :▄ - MPS 801 Z x.▄ - x E- D ▄ C CBM ASCII .▄ D ▄ S D .▄ A M , C ▄ D R ; ▄ >>U-R ...<<.▄▄$80 PRNTO-WF A▄ (Z D F )▄ W , F Z .▄▄$802 PRNTHD▄ (D - D )▄ D ▄ D D .▄▄$805 NEWLINE▄ ( Z D )▄ E >> << , AUTOLF ▄ W 10 , Z D ▄ .▄▄$808 PR39MIN▄ (39 >>-<< D )▄ E 39 M -Z .▄$80 CLCLSTSC X Y▄ ( S T )▄ D S T X Y ▄ (X ).▄▄$80 TEXTON▄ (B )▄ N A B -R $5 ▄ B , C ▄ Z G-/K ▄ .▄▄$801 WINDOW X,Y▄ (W B )▄ E F B , ▄ X ( Z ), Y ( S) ▄ LASTLIN ( Z ), LASTCOL ( S) ▄ .▄ A:▄ D P A ▄ .▄ A S , , ▄ B , ▄ S ( W . ) ▄ , P ▄ U .▄▄$804 SCRTOBUF▄ ( B Z )▄ D I ▄ B Z ▄ H :▄ D R W ▄ B ( B W ).▄▄$807 BUFTOSCR▄ ( Z B )▄ D U ▄ R ; Z ▄ B .▄▄$80 INPUT A,X,Y A▄ (E Z /A M)▄ T 80 Z ▄ S ( L A; A ▄ T X () Y ( )). A ▄ A M , N A ▄ (0 : M ). D ▄ W POS L E .▄▄$80 INPUT-S▄ (Z L AM-CNT)▄ D AM-CNT A M ▄ AM-CNT-BU , AM-CNT ▄ W 0 (=> M ). ▄▄$800 INPUT-R▄ (AM-CNT )▄ D R W ▄ AM-CNT-BU AMCNT .▄▄$803 ASKMOUSE A▄ (J , M )▄ H J P 2 , ▄ M B ▄ M . F R ▄ A v| 127 , M , ▄ ; W ▄ 128 , x P (A ▄ N). B 0 .▄▄$806 STNDRD-AM X▄ ( M x)▄ ASKMOUSE , M ▄ , R ▄ W N X ; ▄ V .▄▄$809 MOUSEOFF▄ (M -S )▄ D S M ▄ . D S ▄ F F-C ▄ D.▄▄V A R Z S $000 $ S ROMRAM R B . W S S BLKBUF D , ▄ , READDSK2 . WRITEDSK2 , R CHSM-SR B D . V S , DSKPNT x S , Z R RDPREV ▄ ! B S , R , F D , S R DSKERR . V A P , G D-A , PRNTINIT , D . M V B-V ($0316-$0317, 790-791) XDOS N P , D , S D , , P . D R I P A B, (A) B .▄± ± ±