TDwgfDfhffxںUCfgvyۭ۫ʝͽͼܼ̪̫ڼۭܬͼ̭̽ʩ˼̻ͪݽު˺ͼ̪̺ݪ̼˭ˬʬʺܪ˽˽ܪͫۼݽ̽ܪܪʭ۬ͼ̼ͫ̽ܩܫʼ̺ݪݫͬܽܺܫʬʭ̪ͻʩˬ˪̼ݪͺ̭ܭ̺ˬͽݺ̽ʬͬڽ̪̼ͽ̬ݬͽܼݭ̪̬ͼͪͬݼݬݛݬɭۭܩyhigix̪VUe1f4vUeGVXxhuEcXfYۼYU(hc%E$T$VEeH̫fe[ݪ̬ɛʨxveUfxc7UGXf۽We6jgxyfSTEUcR!3D!"1"QR$B4XxeXfږguFv1!!!1!R53$EdVga"s@ 33)-?8? ?DAVID MILLS \C \C \C \C XC VC VC VC VC VC VC !C !C  C C  C C C C  C  C  C  C  C  C  C  C  C  C  C  5"D$BBDD4E$ET4D#DUgeffXUB"DCY˼ݽhڼںںfvwgeuSEuAB!TۗyʘefR$1!$D"!!l˘T%Whݼ˺sgb#ATBBd!!2UE۪%fS""55EvgeGۼiVVRAQ#$UFBV݉hvf&dA#1#!ETElfRUV!!T!AA%U5쨆ecw4!""R$T!1E25!18"[!\"~aa"`*`  La $1$B4"na2"EfhvfUfUVVe4eB4BDA" #dEhwgxhgXfeuTDU"#24A#DB"#"4!:wyy˫˼ffhfhwfhhvu3DUETDB2!2#}ʬ̻̻̼̻ʪhvhfVeUDU@$$"D!#"$2!!$"1$%ܼܼtWffDGUvUfdD2VU1#"! 5T5Cx̼ʪhffvTT%veeEVDD$BDE "!$TTDܾ̼˻ʪhhvTVfS5UUED3D$3!!%eUGܹˬ˺vWSEeU24DDT$"2 !"BEE̻˫ͺۻxxdDVe1"TT4 "!!"!7ݩڼܺxvXfTDB #@ (ۋwfjXhvXeiCUSdE"1$AB" <ܨ{xffT5DvhvXu#Bu5c%T"CB" vxveReTT2!"""!!!!"B!eDD$41# #!! < rb!!$ bna$""!!bA!""D""DD" =cC"$D!"#!!!42Uc!"$Hez@"DEva  8dP!!!"4UDEfUUr! !8W1"""D2EedGwr1UD#D5FTCUDD34D4U5E3C4Ed34D"#B4CUDhUTS!""3"4UUTUC$CTfggxhgeVVfifWTVTEe24DETUUT"!#!!!"""4GgTehfʚʪjffUfe˖DB#CHe1!#2#DDDFiiʫڪieUh˺S"3ەS!!""#24DZͽͺͼʫۻ˪gvUU1ݼˬ˫̻ˬܺeECݽ˼ʚTB ܽʻAˬt ̻ ݪ ݩ̽r=ꋺʻicGfy ˼hffee!!# ʺ̘hvuT#EXQ!#}@ʺfeS4DES4# ")$r,iYTB312 " d}P+C23!5S% +  !A&S+`*80Hc$,"1#DC:@+a"(c"5A`!#BFS, +` B6e( `!S4PP :P"GQ0:@ ە#VS PP 4UD1(0A]P "j40(`a2" 7TB( a " ##1 ""4( MGE 5> PIX 2> CM3 6> TNY m 3> MAC 7> ST n 4> PMODE Press BREAK nto restore program to normal operation. p oZ&9p͆ppppsP&&|p͎P_'\p'0 }op'0 @&}p&|p†C'LM'NP'P9p†R'LG'NB'P9ؾopppm&*p1pp$|pop&|pp 9ن筟?o" 'v DISK FILE STRUCTURE ERROR p TOUCH TO CONTINUE &pύKppOpZp@PpǦ''|p0 pǁ&p9p<#45<<.==9;:?qZ VIEW MASTER (C) 1988, by David Mills CTRL : Help Screen ARROWqS : Select file ENTER : View highlighted file BREAK : New disk ALT : RrZeinterpret file extension SPACE : RGB video is active p"%Dp$ p9p96  '%9}l'-l1r'Á2'G93'w`4'x5'-6'7'#MG& E&ALHOL 02810 SEMI LDA GREEN2 02820 CMPA #0 02830 BNE UEDZ 02840 LBRA CORN 02850 UEDZ CMPA #1 02860 BNE AMITY 02870 LDA PALHOL 02880 ORA #2 02890 STA PALHOL 02900 LBRA CORN 02910 AMITY CMPA #2 02920 BNE TENSE 02930 LDA PALHOL 02940 ORA #&16 02950 STA PALHOL 02960 LBRA CORN 02970 TENSE LDA PALHOL 02980 ORA #&18 02990 STA PALHOL 03000 CORN LDA BLUE 03010 CMPA #0 03020 BNE JOB 03030 LDA PALHOL 03040 LBRA TEXAS 03050 JOB CMPA #1 03060 BNE RELIVE 03070 LDA PALHOL 03080 ORA #1 03090 LBRA TEXAS 03100 RELIVE CMPA #2 03110 BNE FOLKS 03120 LDA PALHOL 03130 ORA #&8 03140 BRA TEXAS 03150 FOLKS LDA PALHOL 03160 ORA #&9 03170 TEXAS STA ,Y+ 03180 DEC EXXON 03190 TST EXXON 03200 LBNE RACH 03210 TST FLAG 03220 BEQ SLIE 03230 PSHS X 03240 LDY #$FFB0 03250 BENCAP LDB ,Y+ 03260 ANDB #&63 03270 LDX #PAL 03280 LEAX B,X 03290 LDA ,X 03300 STA -1,Y 03310 CMPY #$FFC0 03320 BNE BENCAP 03330 PULS X 03340 SLIE RTS 03350 HAM FCB 0 03360 RED FCB 0 03370 GREEN2 FCB 0 03380 BLUE FCB 0 03390 PALHOL FCB 0 03400 EXXON FCB 0 03410 ORG $0182 03420 JMP $5A00 03430 END $5A00 3340 PAL FCB 0 03350 FCB 12 03360 FCB 2 03370 FCB 14 03380 FCB 7 03390 FCB 9 03400 FCB 5 03410 FCB 16 03420 FCB 28 03430 FCB 44 03440 FCB 13 03450 FCB 29 03460 FCB 11 03470 FCB 27 03480 FCB 10 03490 FCB 43 03500 FCB 34 03510 FCB 17 03520 FCB 18 03530 FCB 33 03540 FCB 3 03550 FCB 1 03560 FCB 19 03570 FCB 50 03580 FCB 30 03590 FCB 45 03600 FCB 31 03610 FCB 46 03620 FCB 15 03630 FCB 60 03640 FCB 47 03650 FCB 61 03660 FCB 23 03670 FCB 8 03680 FCB 21 03690 FCB 6 03700 FCB 39 03710 FCB 24 03720 FCB 38 03730 FCB 54 03740 FCB 25 03750 FCB 42 03760 FCB 26 03770 FCB 58 03780 FCB 24 03790 FCB 41 03800 FCB 40 03810 FCB 56 03820 FCB 20 03830 FCB 4 03840 FCB 35 03850 FCB 51 03860 FCB 37 03870 FCB 53 03880 FCB 36 03890 FCB 52 03900 FCB 32 03910 FCB 59 03920 FCB 49 03930 FCB 62 03940 FCB 55 03950 FCB 57 03960 FCB 63 03970 FCB 48 03980 FILENA RMB 12 03990 TITLE FCC " VIEW MASTER " 04000 FCC " (C) 1988, by David Mills " 04010 FCB $0A 04020 INSTR FCC " ARROWS : Select file " 04030 FCC " ENTER : View highlighted file " 04040 FCC " BREAK : New disk " 0405 01390 PULS X,Y 01400 RTS 01410 TAB LDY #$2000 01420 CLR HAM 01430 LDA #$30 01440 STA $FFA1 01450 GREEN LDB #2 01460 AVVV LDA ,X 01470 ANDCC #&254 01480 LSLA 01490 STA ,X 01500 BCC BATY 01510 LDA ,Y 01520 LSRA 01530 ORA #&128 01540 STA ,Y 01550 BRA THUMB 01560 BATY LDA ,Y 01570 LSRA 01580 STA ,Y 01590 THUMB LDA 2,X 01600 ANDCC #&254 01610 LSLA 01620 STA 2,X 01630 BCC CLARK 01640 LDA ,Y 01650 LSRA 01660 ORA #&128 01670 STA ,Y 01680 BRA GODSA 01690 CLARK LDA ,Y 01700 LSRA 01710 STA ,Y 01720 GODSA LDA 4,X 01730 ANDCC #&254 01740 LSLA 01750 STA 4,X 01760 BCC KENT 01770 LDA ,Y 01780 LSRA 01790 ORA #&128 01800 STA ,Y 01810 BRA LOIS 01820 KENT LDA ,Y 01830 LSRA 01840 STA ,Y 01850 LOIS LDA 6,X 01860 ANDCC #&254 01870 LSLA 01880 STA 6,X 01890 BCC JIMM 01900 LDA ,Y 01910 LSRA 01920 ORA #&128 01930 STA ,Y 01940 BRA SHEL 01950 JIMM LDA ,Y 01960 LSRA 01970 STA ,Y 01980 SHEL DECB 01990 BEQ ELEV 02000 LBRA AVVV 02010 ELEV LDB #4 02020 ELEV2 LDA ,Y 02030 LSRA 02040 BCC ELEV3 02050 ORA #&128 02060 ELEV3 STA ,Y 02070 DECB 02080 BNE ELEV2 02090 LEAY 1,Y 02100 CMPY #$4000 02110 BNE FEG 02120 INC $FFA1 02130 LDY #$2000 02140 FEG INC HAM 02150 LDA HAM 02160 CMPA #4 02170 BNE BACC 02180 LEAX 1,X 02190 CMPX #$68F9 02200 LBLS GREEN 02210 LDU #$68FA 02220 DO LDA ,U+ 02230 STA -$0901,U 02240 CMPU #$6900 02250 BNE DO 02260 LEAX -$0900,X 02270 LBSR NEWDAT 02280 LBRA GREEN 02290 BACC CMPA #8 02300 LBNE GREEN 02310 CLR HAM 02320 LEAX 7,X 02330 CMPX #$68F9 02340 LBLS GREEN 02350 LDU #$68FA 02360 DOOO LDA ,U+ 02370 STA -$0901,U 02380 CMPU #$6900 02390 BNE DOOO 02400 LEAX -$0900,X 02410 LBSR NEWDAT 02420 LBRA GREEN 02430 CONVER LDY #$FFB0 02440 LDB #&16 02450 STB EXXON 02460 RACH LDD ,X++ 02470 ANDA #&15 02480 LSRA 02490 STA RED 02500 PSHS B 02510 LSRB 02520 LSRB 02530 LSRB 02540 LSRB 02550 LSRB 02560 STB GREEN2 02570 PULS B 02580 ANDB #&15 02590 LSRB 02600 STB BLUE 02610 CLR PALHOL 02620 LDA RED 02630 CMPA #0 02640 BNE STST 02650 LBRA SEMI 02660 STST CMPA #1 02670 BNE WORK 02680 LDA PALHOL 02690 ORA #4 02700 STA PALHOL 02710 LBRA SEMI 02720 WORK CMPA #2 02730 BNE SCOR 02740 LDA PALHOL 02750 ORA #&32 02760 STA PALHOL 02770 LBRA SEMI 02780 SCOR LDA PALHOL 02790 ORA #&36 02800 STA PCM& 3&FMA& C&wPI& X&ST& &#5sZTN& Y&.uu҆? p puʎpŭu筟9o>&ņuЍ "uɶuкuɷ"9pOpsھpO"/|uu'u0 puʾu0 pu3@|uѶu΁#3u-o'!g K/tZ}u& ^' ''W'X' 999t99uρ'Zzu϶uρ&|J&A&83uρ'*|u϶uρ&b&n&zyuZ3_&9}u&|u҆ $ u$ 3_&}p&u$ ?3_&v MGE = Color Max 3 File CM3 = CoCo Max III File vF1: Translate Palettes F2: Freeze Animation Arrows: Scroll Picture w MAC = Apple Macintosh File F1: Correct Vertical Distortion Arrows: Scroll Pwicture PIX = DS-69 16-Level File F1: Soften Contrast x F2: Turn Off Colorburst Signal TNY = Compressed Atari File x ST = Bit-Mapped Atari ST File ALL OTyHERS = CoCo 1 & 2 Classic File F1: Reverse Artifact Colors F2: Patch Colors for RGB Display Arrows: yScroll Picture y p歟_؆>0`phpx`&7}p&P`Z&94@`p怦`&5@#}p' 4@`z q&5@'e`3p ppȾpʦ@%|3" pȌh#pOpy$p`pʿphp `3xzp ppȾp怦@&|3"B pZ&0h#ֶhppOpO$p`php;p̷__p  px歟_؆0`php``Z&==`μZ&&a  4&a  ` 3_'ʶ&&05#rƠ@& | Z&忼 h$9_hi&0Opy$p!`php900ơZ]'H%1@&| z}&̾0 z}& 0H%J $ z`| `@&| z}&b0R@&| z}&&0N@&:3_&0" 3_&0&ꭟX''}& W''&N^&$'Bz &0 0p & &""| &0 0&90&,}}*&C0&4:}}*\& }p&)q?&󎼟q.'&׎p怦&p怦&I? pC쯆歟Ԙ}p& tP0 o@&Z'| 0`php`&EJ&>R&7}&0Ɉ~&)&"AP&BN&CT& DG&0 0 Hf#4SC3_&H1(@%|1Z& Ë%ICQ3_&H1(@%|1Z& i&,4fpOO#)p`php5f`9@&| 9@짭'~HU'V'.}&W'> ؾ짌'0짿3_&짼"0 짿3_&|쯆0쮷 P쮷4쭷gI5@&|쮶쮁8'- @&|쭎 Z&1P@%|쮶쮁8'1 }p& @ƈ" pr歟0 @&Z& | ?}p' 8}p' 0`phppOO"| 󶅸 #|  @5r@`0𧤦i&HHHH"1@@%|1`Z&Ԇ0DDDDi&=1@@%|1`Z&1!|'+h`46pOO"p`p5695v@}&V`ɎVÎŽӎHÎŽӎ: ÎŽw"'}&X&|W&ۆ0 D$Z&0@& |5'#3_&0@%0|5' 'i}&X&ꆐU p歟_؆4 o@& |8&4`ph&191 02720 BNE LEE 02730 LDA #&144 02740 STA $FF98 02750 LBRA COLL 02760 CBURST FCB 0 02770 HERP FCB 0 02780 HLINES FCB 0 02790 POLKA FDB 0 02800 HCCC FCB 0 02810 LINEGU FCB 0 02820 SIXTEE FCB 0 02830 END B 0 02840 SIXTEE FCB 0 02850 END NOP 02860 END 32,X 02890 BRA LOVE 02900 FRIG LDA HOWMNY 02910 CMPA #0 02920 BNE BABY 02930 LDA #1 02940 STA HOWMNY 02950 RTS 02960 BABY CMPA #&60 02970 BLS GOGG 02980 LDA #&60 02990 STA HOWMNY 03000 GOGG RTS 03010 CLEAR LDX #$20A0 03020 LDD #$2000 03030 CLEAR1 STD ,X++ 03040 CMPX #$263F 03050 BLS CLEAR1 03060 RTS 03070 DIR222 BSR CLEAR 03080 LDX #$53E0 START OF SECOND DIRECTORY IN MEMORY 03090 LDY #$2148 03100 LDA #&60 03110 STA MAX 03120 INC FLAG22 03130 LBSR SIGN 03140 LDA #&31 03150 STA COUNT 03160 LBRA END 03170 RTS 03180 TRACK FCB 0 03190 SECTOR FCB 0 03200 BUFGO FDB 0 03210 BUFEND FDB 0 03220 GRAN1 FCB 0 03230 SAVEX FDB 0 03240 COUNT FCB 0 03250 FLAG FCB 0 03260 DIRNUM FCB 0 03270 OVER FCB 0 03280 MAX FCB 0 03290 FLAG22 FCB 0 03300 HOWMNY FCB 0 03310 SCRPNT FDB 0 03320 DATPNT FDB 0 03330 SAVEB FCB 0 03340 PAL FCB 0 03350 FCB 12 03360 FCB 2 03370 FCB 14 03380 FCB 7 03390 FCB 9 03400 FCB 5 03410 FCB 16 03420 FCB 28 03430 FCB 44 03440 FCB 13 03450 FCB 29 03460 FCB 11 03470 FCB 27 03480 FCB 10 03490 FCB 43 03500 FCB 34 03510 FCB 17 03520 FCB 18 03530 FCB 33 03540 FCB 3 03550 FCB 1 03560 FCB 19 03570 FCB 50 03580 FCB 30 03590 FCB 45 03600 FCB 31 03610 FCB 46 03620 FCB 15 03630 FCB 60 03640 FCB 47 03650 FCB 61 03660 FCB 23 03670 FCB 8 03680 FCB 21 03690 FCB 6 03700 FCB 39 03710 FCB 24 03720 FCB 38 03730 FCB 54 03740 FCB 25 03750 FCB 42 03760 FCB 26 03770 FCB 58 03780 FCB 24 03790 FCB 41 03800 FCB 40 03810 FCB 56 03820 FCB 20 03830 FCB 4 03840 FCB 35 03850 FCB 51 03860 FCB 37 03870 FCB 53 03880 FCB 36 03890 FCB 52 03900 FCB 32 03910 FCB 59 03920 FCB 49 03930 FCB 62 03940 FCB 55 03950 FCB 57 03960 FCB 63 03970 FCB 48 03980 FILENA RMB 12 03990 TITLE FCC " VIEW MASTER " 04000 FCC " (C) 1988, by David Mills " 04010 FCB $0A 04020 INSTR FCC " ARROWS : Select file " 04030 FCC " ENTER : View highlighted file " 04040 FCC " BREAK : New disk " 04050 FCC " 00100 ORG $7600 00110 HELP FCC " MGE = Color Max 3 File " 00120 FCC " " 00130 FCC " CM3 = CoCo Max III File " 00140 FCC " F1: Translate Palettes " 00150 FCC " F2: Freeze Animation " 00160 FCC " Arrows: Scroll Picture " 00170 FCC " " 00180 FCC " MAC = Apple Macintosh File " 00190 FCC " F1: Correct Vertical Distortion " 00200 FCC " Arrows: Scroll Picture " 00210 FCC " " 00220 FCC " PIX = DS-69 16-Level File " 00230 FCC " F1: Soften Contrast " 00240 FCC " F2: Turn Off Colorburst Signal " 00250 FCC " " 00260 FCC " TNY = Compressed Atari File " 00270 FCC " " 00280 FCC " ST = Bit-Mapped Atari ST File " 00290 FCC " " 00300 FCC " ALL OTHERS = CoCo 1 & 2 Classic File " 00310 FCC " F1: Reverse Artifact Colors " 00320 FCC " F2: Patch Colors for RGB Display" 00330 FCC " Arrows: Scroll Picture" 00340 FCB $0A 00350 END 03310 LDA #'G 03320 STA $274E 03330 LDA #'B 03340 STA $2750 03350 RTS 03360 DSKCON CLR &65496 03370 LDX $C006 03380 LDA #2 03390 STA ,X 03400 CLR 1,X SELECT DRIVE 0 03410 NAVAL LDA TRACK 03420 STA 2,X 03430 LDA SECTOR 03440 STA 3,X 03450 LDU BUFGO 03460 STU 4,X 03470 JSR [$C004] 03480 TST 6,X 03490 LBNE ERROR 03500 LDY BUFGO 03510 LEAY 256,Y 03520 STY BUFGO 03530 CMPY BUFEND 03540 BHS ZOO 03550 INC SECTOR 03560 LDB SECTOR 03570 CMPB #&19 03580 BNE NAVAL 03590 INC TRACK 03600 LDB #1 03610 STB SECTOR 03620 BRA NAVAL 03630 ZOO CLR &65497 03640 RTS 03650 ERROR CLR &65497 03660 LDA #1 03670 STA $00E6 03680 JSR [$E002] 03690 JSR $F68C CLEAR TEXT SCREEN 03700 LDA #$21 03710 STA $F812 03720 STA $F91C 03730 CLR $FF9A 03740 CLR $FFB0 03750 LDA #&63 03760 STA $FFB8 03770 LDX #ERRTXT 03780 HEART LDA ,X+ 03790 CMPA #$0A 03800 BEQ VIS 03810 JSR [$A002] 03820 BRA HEART 03830 ERRTXT FCB $0D 03840 FCB $0D 03850 FCB $0D 03860 FCB $0D 03870 FCC / DISK FILE STRUCTURE ERR0 CMPX #$6900 01430 BNE BOB 01440 LBSR DISKSB 01450 BOB ANDA #&15 01460 STA BOX 01470 LDA 160,Y 01480 ORA BOX 01490 STA 160,Y 01500 LEAY 320,Y 01510 CMPY #$4000 01520 BLO ROCK 01530 INC $FFA1 01540 LEAY -$20A0,Y 01550 ROCK DECB 01560 BNE CEN 01570 LDY PROBL 01580 LEAY 1,Y 01590 INC HLINES 01600 LDB HLINES 01610 CMPB HCCC 01620 LBEQ BOBBY 01630 LBRA HIG 01640 BOX FCB 0 01650 PROBL FDB 0 01660 DISKSB LDX #$6000 01670 PSHS A,B,X,Y 01680 LDA GRAN1 01690 LDU #$4F00 01700 LDB A,U 01710 CMPB #&79 01720 BHI RRRR 01730 STB GRAN1 01740 LBSR GRCALC 01750 LDU #$6000 01760 STU BUFGO 01770 LBSR DSKCON 01780 PULS A,B,X,Y 01790 RTS 01800 RRRR PULS A,B,X,Y,U 01810 BOBBY CLR $FF40 01820 CLR CBURST 01830 TST SIXTEE 01840 BNE KEYGET 01850 LDA #&160 01860 STA $00B9 01870 LDD #&160 01880 STD $00C7 01890 LDD #&96 01900 STD $00C9 01910 LDX #&86 01920 STX $00BD HORBEG 01930 LDX #&27 01940 STX $00BF VERBEG 01950 LDX #&241 01960 STX $00C3 HOREND 01970 LDX #&167 01980 STX $00C5 VEREND 01990 JSR $E8D3 DRAW A BOX 02000 LDX #&72 02010 STX $00BD 02020 LDX #&15 02030 STX $00BF 02040 LDX #&255 02050 STX $00C3 02060 LDX #&179 02070 STX $00C5 02080 JSR $E8D3 02090 LDX #&58 02100 STX $00BD 02110 LDX #&3 02120 STX $00BF 02130 LDX #&269 02140 STX $00C3 02150 LDX #&191 02160 STX $00C5 02170 JSR $E8D3 02180 LBRA LEE 02190 KEYGET JSR [$A000] 02200 CMPA #3 02210 LBEQ CLASS 02220 TST CBURST 02230 BNE SCORT 02240 LDA &344 02250 CMPA #&191 02260 BNE SCORT 02270 LDA #&144 02280 STA $FF98 TURN OF COLOR BURST 02290 INC CBURST 02300 SCORT LDA &343 02310 CMPA #&191 02320 BNE KEYGET 02330 LDA #$30 02340 STA $FFA1 02350 LDX #$2000 02360 STICK LDU #&160 02370 DUST LDB #4 02380 HUFF LDA ,X 02390 LSRA 02400 BCC VAC 02410 ORA #&128 02420 VAC STA ,X 02430 DECB 02440 BNE HUFF 02450 LEAX 1,X 02460 CMPX #$4000 02470 BNE SUCKE 02480 LDX #$2000 02490 INC $FFA1 02500 LDA $FFA1 02510 CMPA #$35 02520 LBEQ LEE 02530 SUCKE LEAU -1,U 02540 CMPU #0 02550 BNE DUST 02560 LEAX 160,X 02570 CMPX #$4000 02580 BLO STICK 02590 LEAX -$2000,X 02600 INC $FFA1 02610 LDA $FFA1 02620 CMPA #$35 02630 LBEQ LEE 02640 BRA STICK 02650 LEE JSR [$A000] 02660 CMPA #3 02670 LBEQ CLASS 02680 TST CBURST 02690 BNE LEE 02700 LDA &344 02710 CMPA #pf` i&*pOŁO",p㙎`php4 15 `@&| 0,4/ &S歟> %-3@%3052 042 7*ȿ5&4335hM &505&/40,571( 'B %1b7*ȿ591@%1|,*94,*59@& |/-94/-59@& |20942059&>̦33l*3_&ρ%;99O33~vF+3_&O33aMYE3_&_ :0<==0='ݣ4Z&5 <:9@&|< :9H$ D DH$ D DH$ D DH$ D DZ'D$Z&1!@&| |&0p&j'D#4TTTTT$5T%&#&&& &&& & &&$&$&&& &&& &&&&%&&&&&& & z'}'&N}p'40?p0?&5099# p `phpأ0 o@&|4' `&歟>&ح歟= |0H $ D DH$ D DZ' 1!@&| |||&&0h#h_0&&|0h#h_0o40OpŁO"hp`php׌509 |0H$ D DH$ D DH$ D  DH$ D DZ'D$Z&1!@&| |||&"0h#lhi&0"S&M|0h#Ahi&0(쁄D}4TTTTT~5T}&&& & $~&&& w & &&&  z}&N}p'4?p0?&59~ZZ&0(쁄D}4TTTTT~5T}&&& & $~wUgv!|{yk!$!#!$Wv"! fgwUUFva*[ȇuA3"2"Eju! UFVwBd'x0:ꋫvGtDDC"!2H܅1 DsVbU%f )lvhbHȋ1$D1%ۅ 4SVYSVUUP7Ef@[ݖR#Efc!CYك" UVWEVUTaR$T kf3DVe1$XS uTFWSUVe1DfeVgRXe!"@ TuV5BUVRi1$yhܖTfieGU! u4EV4{RFVTy}ۿ@A$Wh̚pFffu!%TB""" u"UUURDVTKP GeEUfg1$SB""" t3DU7DS3CzP@%e##Z"{RGVhQk%U$D$URD%TTC2YA(P2$R!DYc4Ubi$E"DDD0FdB$USURY7ܹe$DDD"EpTXe$zVTTUTTKFTU4[TBVRi5ݩQ#EDD!DEhcic"FUDDEEP DDeDWv4%ݹ1%fUUVR"$0+hhieiS"FUVTVhehiɫU4ݦTDDEfUUEd"$euhcXSDUeVeh@*y2DixfhfgfXgfeTzfeYcyR"EfffQ$VfeUeEUfvUfeR!HޅeYcZR4UUegPXd׍CMPA #0 04140 BNE STST 04150 LBRA SEMI 04160 STST CMPA #1 04170 BNE WORK 04180 LDA PALHOL 04190 ORA #4 04200 STA PALHOL 04210 LBRA SEMI 04220 WORK CMPA #2 04230 BNE SCOR 04240 LDA PALHOL 04250 ORA #&32 04260 STA PALHOL 04270 LBRA SEMI 04280 SCOR LDA PALHOL 04290 ORA #&36 04300 STA PALHOL 04310 SEMI LDA GREEN2 04320 CMPA #0 04330 BNE UEDZ 04340 LBRA CORN 04350 UEDZ CMPA #1 04360 BNE AMITY 04370 LDA PALHOL 04380 ORA #2 04390 STA PALHOL 04400 LBRA CORN 04410 AMITY CMPA #2 04420 BNE TENSE 04430 LDA PALHOL 04440 ORA #&16 04450 STA PALHOL 04460 LBRA CORN 04470 TENSE LDA PALHOL 04480 ORA #&18 04490 STA PALHOL 04500 CORN LDA BLUE 04510 CMPA #0 04520 BNE JOB 04530 LDA PALHOL 04540 LBRA TEXAS 04550 JOB CMPA #1 04560 BNE RELIVE 04570 LDA PALHOL 04580 ORA #1 04590 LBRA TEXAS 04600 RELIVE CMPA #2 04610 BNE FOLKS 04620 LDA PALHOL 04630 ORA #&8 04640 BRA TEXAS 04650 FOLKS LDA PALHOL 04660 ORA #&9 04670 TEXAS STA ,X+ 04680 DEC EXXON 04690 TST EXXON 04700 LBNE RACH 04710 TST FLAG 04720 BEQ SLIE 04730 PSHS X,Y 04740 LDY #$FFB0 04750 BENCAP LDB ,Y+ 04760 ANDB #&63 04770 LDX #PAL 04780 LEAX B,X 04790 LDA ,X 04800 STA -1,Y 04810 CMPY #$FFC0 04820 BNE BENCAP 04830 PULS X,Y 04840 SLIE RTS 04850 RTS 04860 HAM FCB 0 04870 BYTES RMB 8 04880 RED FCB 0 04890 GREEN2 FCB 0 04900 BLUE FCB 0 04910 PALHOL FCB 0 04920 EXXON FCB 0 04930 NEXT NOP 04940 END N FCB 0 04950 NEXT NOP 04960 END A #$34 04860 STA CTRMMU 04870 STA $FFA1 04880 LDU #$2000 04890 LDA ,U+ 04900 CMPA #0 TEST FOR 16 COLOR FILE 04910 LBNE ERROR 04920 LDA #2 04930 STA $00E6 04940 JSR [$E004] 04950 LDA #&62 04960 STA $FF99 SET TO 200 SCAN LINES 04970 LBSR CONVER 04980 JIG LDD ,U GET # OF CONTROL BYTES 04990 LDU #$2025 05000 STU CTRPNT 05010 LEAU D,U 05020 CMPU #$4000 05030 BLO RIG 05040 LEAU -$2000,U 05050 STU DTPNT 05060 LDA #$35 05070 STA DTMMU 05080 BRA LET 05090 RIG STU DTPNT 05100 LDA #$34 05110 STA DTMMU 05120 LET LDY #$2000 05130 STY HOLDY 05140 STY SRNPNT 05150 LDX #&200 05160 STX HORLIN 05170 ARCH LBSR SETU 05180 LDA ,U+ 05190 LBSR TESTU 05200 CMPA #0 05210 LBNE HIDE 05220 *PROCESS CONTROL BYTE 0 05230 LBSR SETU 05240 LDA ,U+ 05250 LBSR TESTU 05260 LBSR SETU 05270 LDB ,U+ 05280 LBSR TESTU 05290 PSHS D 05300 LBSR SETX 05310 LDA 0 02710 HOLDY FDB 0 02720 STAR FCB 0 02730 GRABPT FDB 0 02740 GRABMM FCB 0 02750 BYCOU FDB 0 02760 TAB LDY #$2000 02770 LDU #$2000 02780 STU GRABPT 02790 CLR HAM 02800 LDA #$30 02810 STA GRABMM 02820 STA $FFA1 02830 LDX #&4020 02840 STX BYCOU 02850 HOO LDX BYCOU 02860 LEAX -1,X 02870 STX BYCOU 02880 CMPX #0 02890 LBEQ COLL 02900 LDX #BYTES 02910 LDB #8 02920 LDA $FFA1 02930 PSHS A 02940 COME BSR SETUU 02950 LDA ,U+ 02960 BSR TESTUU 02970 STA ,X+ 02980 DECB 02990 BNE COME 03000 PULS A 03010 STA $FFA1 03020 BRA FINA 03030 SETUU LDA GRABMM 03040 STA $FFA1 03050 LDU GRABPT 03060 RTS 03070 TESTUU CMPU #$4000 03080 BNE TREM 03090 INC GRABMM 03100 LDU #$2000 03110 TREM STU GRABPT 03120 RTS 03130 FINA LDX #BYTES 03140 GREEN LDB #2 03150 AVVV LDA ,X 03160 ANDCC #&254 03170 LSLA 03180 STA ,X 03190 BCC BATY 03200 LDA ,Y 03210 LSRA 03220 ORA #&128 03230 STA ,Y 03240 BRA THUMB 03250 BATY LDA ,Y 03260 LSRA 03270 STA ,Y 03280 THUMB LDA 2,X 03290 ANDCC #&254 03300 LSLA 03310 STA 2,X 03320 BCC CLARK 03330 LDA ,Y 03340 LSRA 03350 ORA #&128 03360 STA ,Y 03370 BRA GODSA 03380 CLARK LDA ,Y 03390 LSRA 03400 STA ,Y 03410 GODSA LDA 4,X 03420 ANDCC #&254 03430 LSLA 03440 STA 4,X 03450 BCC KENT 03460 LDA ,Y 03470 LSRA 03480 ORA #&128 03490 STA ,Y 03500 BRA LOIS 03510 KENT LDA ,Y 03520 LSRA 03530 STA ,Y 03540 LOIS LDA 6,X 03550 ANDCC #&254 03560 LSLA 03570 STA 6,X 03580 BCC JIMM 03590 LDA ,Y 03600 LSRA 03610 ORA #&128 03620 STA ,Y 03630 BRA SHEL 03640 JIMM LDA ,Y 03650 LSRA 03660 STA ,Y 03670 SHEL DECB 03680 BEQ ELEV 03690 LBRA AVVV 03700 ELEV LDB #4 03710 ELEV2 LDA ,Y 03720 LSRA 03730 BCC ELEV3 03740 ORA #&128 03750 ELEV3 STA ,Y 03760 DECB 03770 BNE ELEV2 03780 LEAY 1,Y 03790 CMPY #$4000 03800 BNE FEG 03810 INC $FFA1 03820 LDY #$2000 03830 FEG INC HAM 03840 LDA HAM 03850 CMPA #4 03860 BNE BACC 03870 LEAX 1,X 03880 LBRA GREEN 03890 BACC CMPA #8 03900 LBNE GREEN 03910 CLR HAM 03920 LBRA HOO 03930 CONVER LDX #$FFB0 03940 LDB #&16 03950 STB EXXON 03960 RACH LDD ,U++ 03970 ANDA #&15 03980 LSRA 03990 STA RED 04000 PSHS B 04010 LSRB 04020 LSRB 04030 LSRB 04040 LSRB 04050 LSRB 04060 STB GREEN2 04070 PULS B 04080 ANDB #&15 04090 LSRB 04100 STB BLUE 04110 CLR PALHOL 04120 LDA RED 04130 SUBD #1 01360 CMPD #0 01370 BNE LETTYY 01380 LBRA ARCH 01390 SALT LDX HORLIN 01400 LEAX -1,X 01410 STX HORLIN 01420 CMPX #0 01430 LBNE SAT 01440 PSHS A 01450 LDA #$30 01460 STA SRNMMU 01470 PULS A 01480 LDY HOLDY 01490 LEAY 8,Y 01500 CMPY #$20A6 01510 LBEQ TAB 01520 CMPY #$209F 01530 BLO GEORGE 01540 LEAY -158,Y 01550 GEORGE STY HOLDY 01560 STY SRNPNT 01570 LDX #&200 01580 STX HORLIN 01590 SAT RTS 01600 TESTY LEAY 160,Y 01610 CMPY #$4000 01620 BLO FRI 01630 LEAY -$2000,Y 01640 INC SRNMMU 01650 FRI STY SRNPNT 01660 RTS 01670 SETY PSHS A 01680 LDA SRNMMU 01690 STA $FFA1 01700 LDY SRNPNT 01710 PULS A 01720 RTS 01730 TESTU CMPU #$4000 01740 BNE GIL 01750 LDU #$2000 01760 INC CTRMMU 01770 GIL STU CTRPNT 01780 RTS 01790 SETU PSHS A 01800 LDA CTRMMU 01810 STA $FFA1 01820 LDU CTRPNT 01830 PULS A 01840 RTS 01850 TESTX CMPX #$4000 01860 BNE CANE 01870 LDX #$2000 01880 INC DTMMU 01890 CANE STX DTPNT 01900 RTS 01910 SETX PSHS A 01920 LDA DTMMU 01930 STA $FFA1 01940 LDX DTPNT 01950 PULS A 01960 RTS 01970 HIDE CMPA #1 01980 LBNE SPIT 01990 LBSR SETU 02000 LDA ,U+ 02010 LBSR TESTU 02020 LBSR SETU 02030 LDB ,U+ 02040 LBSR TESTU 02050 STD RICK 02060 LDU RICK 02070 LUISE LBSR SETX 02080 LDA ,X+ 02090 LBSR TESTX 02100 LBSR SETX 02110 LDB ,X+ 02120 LBSR TESTX 02130 LBSR SETY 02140 STD ,Y 02150 LBSR TESTY 02160 LBSR SALT 02170 LEAU -1,U 02180 CMPU #0 02190 LBNE LUISE 02200 LBRA ARCH 02210 SPIT CMPA #$80 02220 LBLO AUNT 02230 STA STAR 02240 LDA #&255 02250 SUBA STAR 02260 ADDA #1 02270 TFR A,B 02280 CLRA 02290 STD RICK 02300 LDU RICK 02310 ATLANT LBSR SETX 02320 LDA ,X+ 02330 LBSR TESTX 02340 LBSR SETX 02350 LDB ,X+ 02360 LBSR TESTX 02370 LBSR SETY 02380 STD ,Y 02390 LBSR TESTY 02400 LBSR SALT 02410 LEAU -1,U 02420 CMPU #0 02430 LBNE ATLANT 02440 LBRA ARCH 02450 AUNT TFR A,B 02460 CLRA 02470 STD RICK 02480 LDU RICK 02490 LBSR SETX 02500 LDA ,X+ 02510 LBSR TESTX 02520 LBSR SETX 02530 LDB ,X+ 02540 LBSR TESTX 02550 ABBER LBSR SETY 02560 STD ,Y 02570 LBSR TESTY 02580 LBSR SALT 02590 LEAU -1,U 02600 CMPU #0 02610 BNE ABBER 02620 LBRA ARCH 02630 SRNPNT FDB 0 02640 SRNMMU FCB 0 02650 CTRPNT FDB 0 02660 CTRMMU FCB 0 02670 DTPNT FDB 0 02680 DTMMU FCB 0 02690 RICK FDB 0 02700 HORLIN FDB00100 ORG $8E95 00110 GRAN1 EQU $70BE 00120 GRCALC EQU $729C 00130 BUFGO EQU $70BA 00140 BUFEND EQU $70BC 00150 DSKCON EQU $6F45 00160 CLASS EQU $6A0C 00170 COLL EQU $6F0C 00180 ERROR EQU $6F94 00190 FLAG EQU $70C2 00200 PAL EQU $70CE 00210 LDA 13,X 00220 STA GRAN1 00230 LBSR GRCALC 00240 LDA #2 00250 STA $00E6 00260 JSR [$E004] 00270 CLRB 00280 JSR $E6D8 CLEAR GRAPHICS SCREEN 00290 LDA #$34 00300 STA $FFA1 00310 LDX #$2000 00320 BUSH CLR ,X+ 00330 CMPX #$4000 00340 BNE BUSH 00350 LDX #$2000 00360 INC $FFA1 00370 LDA $FFA1 00380 CMPA #$38 00390 BNE BUSH 00400 LDX #$D000 00410 STX $FF9D 00420 LDA #$34 00430 STA $FFA1 00440 LDX #$6000 00450 STX BUFGO 00460 LDX #$68FF 00470 STX BUFEND 00480 LBSR DSKCON 00490 LDX #$6000 00500 LDY #$2000 00510 FUJI LDA ,X+ 00520 STA ,Y+ 00530 CMPX #$6900 00540 BNE KODAK 00550 LDB GRAN1 00560 LDU #$4F00 00570 LDA B,U 00580 CMPA #&79 00590 LBHI PAINT 00600 STA GRAN1 00610 LBSR GRCALC 00620 LDX #$6000 00630 STX BUFGO 00640 LDX #$68FF 00650 STX BUFEND 00660 PSHS Y 00670 LBSR DSKCON 00680 PULS Y 00690 LDX #$6000 00700 KODAK CMPY #$4000 00710 BNE FUJI 00720 INC $FFA1 00730 LDY #$2000 00740 LBRA FUJI 00750 PAINT LDA #$30 00760 STA SRNMMU 00770 LDA #$34 00780 STA CTRMMU 00790 STA $FFA1 00800 LDU #$2000 00810 LDA ,U+ 00820 CMPA #0 TEST FOR 16 COLOR FILE 00830 LBNE ERROR 00840 LDA #2 00850 STA $00E6 00860 JSR [$E004] 00870 LDA #&62 00880 STA $FF99 SET TO 200 SCAN LINES 00890 LBSR CONVER 00900 JIG LDD ,U GET # OF CONTROL BYTES 00910 LDU #$2025 00920 STU CTRPNT 00930 LEAU D,U 00940 CMPU #$4000 00950 BLO RIG 00960 LEAU -$2000,U 00970 STU DTPNT 00980 LDA #$35 00990 STA DTMMU 01000 BRA LET 01010 RIG STU DTPNT 01020 LDA #$34 01030 STA DTMMU 01040 LET LDY #$2000 01050 STY HOLDY 01060 STY SRNPNT 01070 LDX #&200 01080 STX HORLIN 01090 ARCH LBSR SETU 01100 LDA ,U+ 01110 LBSR TESTU 01120 CMPA #0 01130 LBNE HIDE 01140 *PROCESS CONTROL BYTE 0 01150 LBSR SETU 01160 LDA ,U+ 01170 LBSR TESTU 01180 LBSR SETU 01190 LDB ,U+ 01200 LBSR TESTU 01210 PSHS D 01220 LBSR SETX 01230 LDA ,X+ 01240 LBSR TESTX 01250 LBSR SETX 01260 LDB ,X+ 01270 LBSR TESTX 01280 STD RICK 01290 LDU RICK 01300 PULS D 01310 LETTYY LBSR SETY 01320 STU ,Y 01330 LBSR TESTY 01340 BSR SALT 01350 00100 ORG $8322 00110 BUFGO EQU $70BA 00120 BUFEND EQU $70BC 00130 DSKCON EQU $6F45 00140 GRAN1 EQU $70BE 00150 GRCALC EQU $729C 00160 FLAG EQU $70C2 00170 CLASS EQU $6A0C 00180 COLL EQU $6F0C 00190 LDA 13,X 00200 STA GRAN1 00210 LBSR GRCALC 00220 CLR HLINES 00230 CLR SIXTEE 00240 LDA #2 00250 STA $00E6 00260 JSR [$E004] 00270 LDB #&5 00280 LDA #$30 00290 STA $FFA1 00300 SHOW LDX #$2000 00310 LDA #&255 00320 SHOW1 STA ,X+ 00330 CMPX #$4000 00340 BNE SHOW1 00350 DECB 00360 BNE FREE 00370 BRA CHOP 00380 FREE INC $FFA1 00390 BRA SHOW 00400 CHOP LDA #&254 00410 STA $FF99 SET TO 225 SCAN LINES 00420 LDA #&63 00430 STA $FFB0 SET PALETTES 00440 STA $FFB1 00450 STA $FFB2 00460 STA $FFB3 00470 STA $FFB4 00480 STA $FFB5 00490 TST FLAG 00500 BEQ APRIL 00510 LDA #&32 00520 BRA BARK 00530 APRIL LDA #&56 00540 BARK STA $FFB6 00550 STA $FFB7 00560 STA $FFB8 00570 TST FLAG 00580 BEQ POKE 00590 LDA #&16 00600 BRA PLUG 00610 POKE LDA #&7 00620 PLUG STA $FFB9 00630 STA $FFBA 00640 STA $FFBB 00650 LDA #0 00660 STA $FFBC 00670 STA $FFBD 00680 STA $FFBE 00690 STA $FFBF 00700 LDA #$30 00710 STA $FFA1 00720 LDX #$6000 00730 STX BUFGO 00740 LDX #$68FF 00750 STX BUFEND 00760 LBSR DSKCON 00770 CLR HERP 00780 LDA GRAN1 00790 LDU #$4F00 00800 XXXX LDB A,U 00810 CMPB #&79 00820 BHI FAN 00830 INC HERP 00840 TFR B,A 00850 BRA XXXX 00860 FAN LDA HERP 00870 CMPA #&9 00880 BLS MUD 00890 LDA #&128 00900 STA LINEGU 00910 INC SIXTEE 00920 LDU #$2011 00930 STU POLKA 00940 LDA #&255 00950 STA HCCC 00960 BRA LISA 00970 MUD LDA #&64 00980 STA LINEGU 00990 LDU #$3572 01000 STU POLKA 01010 LDA #&64 01020 STA HCCC 01030 LISA LDX #$6000 01040 LDY POLKA 01050 HIG LDB LINEGU 01060 STY PROBL 01070 LDA #$30 01080 STA $FFA1 01090 HUR LDA ,X 01100 ANDA #&240 01110 STA ,Y 01120 LDA ,X+ 01130 CMPX #$6900 01140 BNE MARGIE 01150 LBSR DISKSB 01160 MARGIE LSLA 01170 LSLA 01180 LSLA 01190 LSLA 01200 STA 160,Y 01210 LEAY 320,Y 01220 CMPY #$4000 01230 BLO PUZZ 01240 INC $FFA1 01250 LEAY -$20A0,Y 01260 PUZZ DECB 01270 BNE HUR 01280 LDA #$30 01290 STA $FFA1 01300 LDY PROBL 01310 LDB LINEGU 01320 CEN LDA ,X 01330 LSRA 01340 LSRA 01350 LSRA 01360 LSRA 01370 STA BOX 01380 LDA ,Y 01390 ORA BOX 01400 STA ,Y 01410 LDA ,X+ 014200100 ORG $968B 00110 FLAG EQU $70C2 00120 BUFGO EQU $70BA 00130 BUFEND EQU $70BC 00140 DSKCON EQU $6F45 00150 CLASS EQU $6A0C 00160 COLL EQU $6F0C 00170 ERROR EQU $6F94 00180 GRAN1 EQU $70BE 00190 GRCALC EQU $729C 00200 PAL EQU $70CE 00210 LDA 13,X 00220 STA GRAN1 00230 LBSR GRCALC 00240 LDX #$6000 00250 STX BUFGO 00260 LDX #$68FF 00270 STX BUFEND 00280 LBSR DSKCON 00290 LDA #$30 00300 STA $FFA1 00310 LDU #$2000 00320 SRT CLR ,U+ 00330 CMPU #$4000 00340 BNE SRT 00350 INC $FFA1 00360 LDA $FFA1 00370 CMPA #$34 00380 BEQ SORBE 00390 LDU #$2000 00400 BRA SRT 00410 SORBE LDX #$6000 00420 LDU ,X++ 00430 CMPU #0 TEST FOR 16 COLOR MODE 00440 BNE OCT 00450 LDA #2 00460 STA $00E6 00470 JSR [$E004] 00480 LDA #&62 00490 STA $FF99 SET 200 SCAN LINES 00500 LBSR CONVER 00510 LBRA TAB 00520 OCT CMPU #1 TEST FOR 4 COLOR MODE 00530 LBNE ERROR 00540 LDA #4 00550 STA $00E6 00560 JSR [$E004] 00570 LDA #&61 00580 STA $FF99 00590 LBSR CONVER 00600 LDY #$2000 SCREEN POINTER 00610 CLR HAM 00620 LDA #$30 00630 STA $FFA1 00640 AARON LDB #4 00650 VINCE LDA ,X 00660 ANDCC #&254 00670 LSLA 00680 STA ,X 00690 BCC TRI 00700 LDA ,Y 00710 LSRA 00720 ORA #&128 00730 STA ,Y 00740 BRA MLME 00750 TRI LDA ,Y 00760 LSRA 00770 STA ,Y 00780 MLME LDA 2,X 00790 ANDCC #&254 00800 LSLA 00810 STA 2,X 00820 BCC SHAD 00830 LDA ,Y 00840 LSRA 00850 ORA #&128 00860 STA ,Y 00870 BRA AMS 00880 SHAD LDA ,Y 00890 LSRA 00900 STA ,Y 00910 AMS DECB 00920 BEQ TEN 00930 BRA VINCE 00940 TEN LEAY 1,Y 00950 CMPY #$4000 00960 BNE IRAN 00970 INC $FFA1 00980 LDY #$2000 00990 IRAN INC HAM 01000 LDA HAM 01010 CMPA #1 01020 BNE CON 01030 LBRA AARON 01040 CON CMPA #2 01050 BNE CSM 01060 LEAX 1,X 01070 CMPX #$68FD 01080 LBLS AARON 01090 LDD $68FE 01100 STD $5FFE 01110 LEAX -$0900,X 01120 LBSR NEWDAT 01130 LBRA AARON 01140 CSM CMPA #3 01150 BNE SIN 01160 LBRA AARON 01170 SIN CLR HAM 01180 LEAX 3,X 01190 CMPX #$68FD 01200 LBLS AARON 01210 LDD $68FE 01220 STD $5FFE 01230 LEAX -$0900,X 01240 LBSR NEWDAT 01250 LBRA AARON 01260 NEWDAT PSHS X,Y 01270 LDU #$4F00 01280 LDB GRAN1 01290 LDA B,U 01300 CMPA #&79 01310 LBHI COLL 01320 STA GRAN1 01330 LBSR GRCALC 01340 LDX #$6000 01350 STX BUFGO 01360 LDX #$68FF 01370 STX BUFEND 01380 LBSR DSKCONcVeCCCDEUTU#B!!ޥEYcIe!$Fewe6D(ʊfeFc5gA2"2""#!{DHcYDFe C ,xUHR"ꙅDFxR)UYc$yڅ!BXEC'2,""Yژc"%g1TIQiu$GTD[ yDIRCTORYASM%?HELP ASMMGE ASM" CM3 ASM311MAC ASM;16L ASMTNY ASMz zST ASMII-----------) WHEELS CM3*AIRLINERCM3#DAVID PIX00100 ORG $79A0 00110 GRAN1 EQU $70BE 00120 GRCALC EQU $729C 00130 BUFGO EQU $70BA 00140 BUFEND EQU $70BC 00150 DSKCON EQU $6F45 00160 PAL EQU $70CE 00170 FLAG EQU $70C2 00180 DATPNT EQU $70CA 00190 SCRPNT EQU $70C8 00200 COLL EQU $6F0C 00210 SAVEB EQU $70CC 00220 PALC EQU $710E 00230 LDA 13,X 00240 STA GRAN1 00250 LBSR GRCALC 00260 LDA #2 00270 STA $00E6 00280 JSR [$E004] 00290 CLRB 00300 JSR $E6D8 CLEAR GRAPHICS SCREEN TO PALETTE # IN B 00310 LDA #&62 00320 STA $FF99 SET 200 SCAN LINES 00330 LDA #$30 00340 STA $FFA1 START HI-RES GRAPHICS SCREEN AT $2000 00350 LDX #$6000 00360 STX BUFGO 00370 LDX #$68FF 00380 STX BUFEND 00390 LBSR DSKCON 00400 LDU #$6001 00410 LDA 16,U 00420 CMPA #0 TEST FOR RGB FLAG IN MGE HEADER BLOCK 00430 BNE FAST 00440 TST FLAG SEE WHETHER RGB VIDEO HAS BEEN SELECTED 00450 BNE CMPTV 00460 BSR SUBPAL 00470 LBRA CCC 00480 SUBPAL LDX #$FFB0 00490 LDY #$6001 00500 LDB #&16 00510 BUY LDA ,Y+ 00520 STA ,X+ 00530 DECB 00540 BNE BUY 00550 RTS 00560 *HANDLE AN RGB SETUP PICTURE ON A CMP MONITOR 00570 CMPTV PSHS U 00580 LDX #$6001 00590 LDY #PAL 00600 LDU #$FFB0 00610 CMP2 LDB ,X+ 00620 LDA B,Y 00630 STA ,U+ 00640 CMPX #$6011 00650 BNE CMP2 00660 PULS U 00670 LBRA CCC 00680 *HANDLE COMPOSITE PICTURE 00690 FAST TST FLAG 00700 BEQ SWITER 00710 BSR SUBPAL 00720 BRA CCC 00730 SWITER PSHS U 00740 LDX #$6001 00750 LDU #$FFB0 00760 LDY #PALC 00770 CORE LDA ,X+ 00780 LDB A,Y 00790 STB ,U+ 00800 CMPU #$FFC0 00810 BNE CORE 00820 PULS U 00830 CCC LDA 17,U CHECK FOR COMPRESSION FLAG 00840 CMPA #0 00850 BEQ DDD 00860 *HANDLE BIT MAP FILE 00870 LDX #$6033 00880 STX DATPNT 00890 LDY #$2000 00900 STY SCRPNT 00910 HOWA5 LDY SCRPNT 00920 LDX DATPNT 00930 FUTT LDA ,X+ 00940 STA ,Y+ 00950 CMPY #$4000 00960 BLO KING 00970 INC $FFA1 00980 LDA $FFA1 00990 CMPA #$33 01000 LBHI COLL 01010 LDY #$2000 01020 STY SCRPNT 01030 KING CMPX #$68FF 01040 BLS FUTT 01050 STY SCRPNT 01060 LDY #$4F00 GAT 01070 LDA GRAN1 01080 LDB A,Y 01090 CMPB #$79 01100 LBHS COLL 01110 STB GRAN1 01120 LBSR GRCALC 01130 LDX #$6000 01140 STX DATPNT 01150 STX BUFGO 01160 LDX #$68FF 01170 STX BUFEND 01180 LBSR DSKCON 01190 BRA HOWA5 01200 *HANDLE COMPRESSED FILE 01210 DDD LDX #$6033 POINT TO ACTUAL GRAPHICS DATA 01220 STX DA?6.$8"8?<   UUUUUUUUUUUUU"ݻwݻwUDDDDDDDDU""""3U3333Dݎݸpw?9w?3_߿U8}Ur'UR T0EuDpc0U33DOO`ObOObODOD0D`Ǝ<߿a?; 6E@OOc0'1gc߿??c8$1cC f p$pO߿Of3`b33?l `m@(߿ '`m &`?#2F߿O??<`?%뼘߿@ 3`߿``p #` O؈`P G@ y]``p ` o@ `XD``>-D P<`o26DD Xx` <ODOD8` ODa 8ODc 0DODoD@`ODODAD00100 ORG $6A00 00110 START CLR &65497 00120 CLR FLAG DEFAULT TO RGB 00130 CLR PIXFLG 00140 CLR FLAG22 00150 CLASS TST FLAG22 00160 BEQ JACK 00170 CLR PIXFLG 00180 JACK LDA #1 00190 STA $00E7 00200 JSR [$E002] 00210 LBSR TXTCLR 00220 CLR $FFBD 00230 LDA #&36 00240 STA $FFB1 00250 LDA #&63 00260 STA $FFB8 00270 CLR $FFB0 00280 CLR $FF9A BORDER COLOR 00290 LDX #TITLE 00300 LDY #$2000 00310 LDB #&50 ATTRIBUTE BYTE 00320 LDA #1 00330 STA $FFB2 00340 LDA #&63 00350 STA $FFBE 00360 TAKE LDA ,X+ 00370 CMPA #$0A 00380 BEQ GOOD 00390 STA ,Y++ 00400 STB -1,Y 00410 BRA TAKE 00420 GOOD LDY #$25A0 00430 LDX #INSTR 00440 LDB #&59 00450 LDA #1 00460 STA $FFB3 00470 LDA #&63 00480 STA $FFBF 00490 TOOK LDA ,X+ 00500 CMPA #$0A 00510 BEQ TAK0 00520 STA ,Y++ 00530 STB -1,Y 00540 BRA TOOK 00550 TAK0 TST FLAG 00560 BEQ TAK1 00570 LDA #'C 00580 STA $274C 00590 LDA #'M 00600 STA $274E 00610 LDA #'P 00620 STA $2750 00630 TAK1 TST PIXFLG 00640 BNE TAK2 00650 LBSR DIR 00660 TAK2 CLR OVER 00670 CLR DIRNUM 00680 CLR FLAG22 00690 TST PIXFLG 00700 BNE CAMP 00710 LDA #1 00720 STA COUNT 00730 CAMP LDX #$5000 00740 LDY #$2148 00750 LDA #&28 00760 STA MAX 00770 BSR SIGN 00780 LBRA END 00790 SIGN PSHS X,Y 00800 LDA ,X 00810 CMPA #0 00820 BNE BEN 00830 PULS X,Y 00840 LEAX 32,X 00850 BRA SIGN 00860 BEN CMPA #$FF 00870 BNE WHO 00880 INC OVER 00890 PULS X,Y 00900 RTS 00910 WHO LDB #&8 00920 AIR LDA ,X+ 00930 STA ,Y++ 00940 DECB 00950 BNE AIR 00960 LDA #&46 00970 STA ,Y++ 00980 LDA ,X+ 00990 STA ,Y++ 01000 LDA ,X+ 01010 STA ,Y++ 01020 LDA ,X 01030 STA ,Y 01040 INC DIRNUM 01050 LDA DIRNUM 01060 CMPA MAX 01070 BLO SKIP 01080 PULS X,Y 01090 RTS 01100 SKIP PULS X,Y 01110 LEAX 32,X 01120 LEAY 40,Y 01130 BRA SIGN 01140 END TST PIXFLG 01150 BEQ END1 01160 LDX SAVEX 01170 BRA MOD 01180 END1 LDX #$2149 01190 MOD LDB #&12 01200 LDA #&41 01210 STX SAVEX 01220 MY STA ,X++ 01230 DECB 01240 BNE MY 01250 LDU #$6000 01260 AWW LEAU -1,U 01270 CMPU #0 01280 BNE AWW 01290 GETKEY JSR [$A000] 01300 CMPA #3 01310 BEQ DADDY 01320 CMPA #$0D 01330 LBEQ RIGHT 01340 CMPA #&32 01350 BNE FIND 01360 LBSR RGB 01370 BRA GETKEY 01380 DADDY CLR PIXFLG 01390 LBRA TAK1 01400 FIND LDB &344 01410 CMPB #&247 01420 BNE FOO 01430 LDA COUNT 01440 TST FLAG22 01450 BEQ ELE 01460 ADDA #1 01470 ELE CMPA HOWMNY 01480 BEQ GETKEY 01490 LBSR SUB 01500 LDX SAVEX 01510 LEAX 40,X 01520 INC COUNT 01530 LDA COUNT 01540 CMPA #&29 01550 LBEQ DIR222 01560 BRA MOD 01570 FOO LDB &343 01580 CMPB #&247 01590 BNE LIC 01600 LDY SAVEX 01610 CMPY #$2149 01620 BNE COND 01630 TST FLAG22 01640 LBNE HOMER 01650 LBRA GETKEY 01660 HOMER LBSR SUB 01670 INC PIXFLG 01680 LDX #$2581 01690 STX SAVEX 01700 LDA #&28 01710 STA COUNT 01720 LBRA TAK2 01730 COND LBSR SUB 01740 LDX SAVEX 01750 LEAX -40,X 01760 DEC COUNT 01770 LBRA MOD 01780 LIC LDB &341 01790 CMPB #&247 01800 BNE COAT 01810 LDY SAVEX 01820 CMPY #$2149 01830 BEQ ANDY 01840 CMPY #$2171 01850 BEQ ANDY 01860 BRA BARNY 01870 ANDY TST FLAG22 01880 LBNE HOMER 01890 LBRA GETKEY 01900 BARNY LBSR SUB 01910 LDX SAVEX 01920 LEAX -80,X 01930 LDA COUNT 01940 SUBA #2 01950 STA COUNT 01960 LBRA MOD 01970 COAT LDB &342 01980 CMPB #&247 01990 LBNE CHEX 02000 LDA COUNT 02010 TST FLAG22 02020 BEQ THEL 02030 ADDA #2 02040 BRA MAR 02050 THEL ADDA #1 02060 MAR CMPA HOWMNY 02070 LBHS GETKEY 02080 LBSR SUB 02090 LDX SAVEX 02100 LEAX 80,X 02110 LDA COUNT 02120 ADDA #2 02130 STA COUNT 02140 CMPA #&30 02150 LBEQ DIR222 02160 CMPA #&29 02170 LBEQ DIR222 02180 LBRA MOD 02190 LBSR TXTCLR 02200 CHEX LDB &342 02210 CMPB #&191 02220 BNE ALT CHECK FOR CTRL 02230 LBSR TXTCLR 02240 CLR $FF9A 02250 LDX #$7600 HELP 02260 LDU #$2000 02270 AIRC LDA ,X+ 02280 CMPA #$0A 02290 BEQ TEGKE 02300 STA ,U++ 02310 BRA AIRC 02320 TEGKE JSR [$A000] 02330 CMPA #3 02340 BNE TEGKE 02350 INC PIXFLG 02360 LBRA CLASS 02370 ALT LDB &341 02380 CMPB #&191 02390 LBNE GETKEY 02400 LBSR TXTCLR 02410 CLR $FF9A BORDER 02420 LDX #CHEXTX 02430 LDU #$2000 02440 FOS LDA ,X+ 02450 CMPA #$0A 02460 BEQ HISTR 02470 STA ,U++ 02480 BRA FOS 02490 HISTR JSR [$A000] 02500 CMPA #3 02510 BEQ GUSH 02520 CMPA #&49 02530 BLO HISTR 02540 CMPA #&55 02550 BHI HISTR 02560 STA WHFILE 02570 INC WHFFLG 02580 INC PIXFLG 02590 LBRA CLASS 02600 GUSH CLR WHFFLG 02610 INC PIXFLG 02620 LBRA CLASS 02630 WHFILE FCB 0 02640 WHFFLG FCB 0 02650 CHEXTX FCC / Ignore extension and treat all / 02660 FCC / files as: / 02670 FCC / wwwwwwwwwwwwwwwwwww ̪ ffffffffffffffffffff;]mmmmmډwwwwwwwwwwwwwwwwwww ̪ ffffffffffffffffffff;]mmmmmډwwwwwwwwwwwwwwwwwww ̪ ffffffffffffffffffff;]mmmmmډwwwwwwwwwwwwwwwwwww ̪ ffffffffffffffffffff ffffffffffff& NNNNNNNNNNNNNNNNNNNNNNNN"NNNNNNNNNNNNNNNNNNNNNN?6.$8"8?<DUUUUUUUUUUUUU"ݻwݻwUDDDDDDDDU""""3U3333Dݎݸpw?9w?3_߿U8}Ur'UR T0EuDpc0U33 DD dF0  w̻̻̻̻y<88<@M7dݐknfffkfnfffkfnfffkfnff y<88<p y<88<dF0  @QE t  D jO g ̿M|ODϻ;TvODODϿ }os `ODODϻ @?~ -EZOD 9࿁PODODOD  4 hPOD h ߳ w (OODOD P `{ _^TD W;y `$DOD  0lOD  `lXO  plpݗOOOD  8IlpO  fyhOOD   vf sOOD  xTU ͙|fyE98O oހͱxfy AE@Ͽxo8gx3{Pu-Oo0pgx{|, ?`x(7xv E=S߿ z ? =B €3S}j <x1мh_Fϻϻ 0sF激Ͽw~ wr0w|w绽 n0f^wwww{ c<0~7̿w| # 0 f$ww # f/{}ۻ  0f:(ww  x0fq| wp?|0f|>ww} w03g?~ϻϻۼ 80gDŽ`ww̻ qys~Bڿ À p{~?f/dwwO̿D̻ oafmf/h[ DDD ͘7ͳg|/)XOϻDݿ ͌ͱ|c]HODOD 8͆|lV+@ϻ 0͆s Ǐ||0-`ZD ac~8OOϻDODOD ca~8X X acf88*[eOϻ 3fpZl ODD  1 M#OϻDOD  ``1XU/O̿DOϻD  `aP1S~|  `1p1 ++ ODODD n `30a~xϻݿOD | 08a8WODODOD ( 0a0ODDN 8 0ap|OD  0[`ϻDK  0 pODD vODL  8IxODD  p`OϻDODM  ``OD  kN pD P  /`DK ( D  4ǰODL OD @ODM  N  K  L  M @ 3UUUEUT `03J5_N (;UO I$`@EK !`nUTEUTUT a@{|UUUTEUTU_L a){M____ a)N{XM  !)@{_  !)@{`+`_N  !)HlL _ A)N{ pXU_U_U_K Bq0UU_D B:___L  @,M @D @BDN  D  K  L  M J  JN JJ 7MJJJJJJJJJJK ??cc}|DJJJJJDJDDJDDJJDJDDJ ??o 1 rDDDDJJDL ?oDJ = h%JDDDJJJM 7qpӰ0JDDJDJDJJJDD ? Bo`JJDJJDJDDDJDN  K   jJJJL < XpKJJM ߿ ooJJJJJ ?a F?ϋJJJJDDJJDDJN DJJD DK ѿ@ JJJJ 000JDDDDL ?-|DDJDDJD  M   N    `OK    `L    ,3M  ?3  KN  @??  K    L  @?3  3M    `N   DDO38DDKD X@ x6ODL x xM x xN x xK x xL x xM x xN x x @KO x@ x` L x x M x x N x x K x x` x`@ x`V x ^؈ x|3>3 x]U8 xX8; x083 x?`&`3< x$@83 x338= x3 xX> x ^ x` x`@ x`v8 xO xDDMD x x`DN x xK xxL xx?Mx  O x,߻N xxKx xgL xxMx xgݻN xxKX g DDDOOL M80,ψ3Nr 3?33?K ? L`M{8?D 673Or`xp3?O@{߀G@D˼DDO,DOpD8O8owwx.O odoww˽ g  7oXww3݌N޻O o|wwro>ww:>KxO1Vo{wwۿ0W*׀ݾ0)owww}0:޻0o?www}ۻ00onDDO~0N뼻06߿{0Ϳ绿0|0;;0g9fPϻ>Ͽ/̿O; D 3   sٜ, f٘)O̿D+p<ODp0@ \O̿D`OD`lǀDhODFD f""""""""""""""""dO˻̻̻̻̻̻̻̻̻f""""""""""""""""dxOf""""""""""""""""dpf""""""""""""""""d`f""""""""""""""""dpOf""""""""""""""""d`f""""""""""""""""dpOf""""""""""""""""dhf""""""""""""""""dhOf""""""""""""""""d`f""""""""""""""""dPJf""""""""""""""""d@Onf""""""""""""""""d4.f""""""""""""""""d`4U˾wwfKO˿w68}{˿w׷w7w}{w3׷3w3?3ww37{w}4w8{w}.0f4:.b""""""""""""""""dnb""""""""""""""""dhOJb""""""""""""""""d b""""""""""""""""db""""""""""""""""dXb""""""""""""""""dhOb""""""""""""""""dXb""""""""""""""""dpO2b""""""""""""""""dp2b""""""""""""""""d`Ob"""""""" / 02680 FCC / 1> MGE 5> PIX / 02690 FCC / / 02700 FCC / 2> CM3 6> TNY / 02710 FCC / / 02720 FCC / 3> MAC 7> ST / 02730 FCC / / 02740 FCC / 4> PMODE / 02750 FCC / / 02760 FCC / / 02770 FCC / Press BREAK to restore program to / 02780 FCC / normal operation./ 02790 FCB $0A 02800 SUB LDX SAVEX 02810 LDB #&12 02820 HOPP CLR ,X++ 02830 DECB 02840 BNE HOPP 02850 RTS 02860 RIGHT CLR PIXFLG 02870 LDA #&17 02880 STA TRACK 02890 LDA #&3 02900 STA SECTOR 02910 LDU #$0E00 02920 STU BUFGO 02930 LDU #$0EFF 02940 STU BUFEND 02950 LBSR DSKCON 02960 LDU #$0E00 02970 LDX #$5000 02980 AIMEE LDD ,U++ 02990 CMPD ,X++ 03000 LBNE TAK1 03010 CMPU #$0F00 03020 BNE AIMEE 03030 INC PIXFLG 03040 LDX #$5000 03050 CLRB 03060 PINK LDA ,X 03070 CMPA #0 03080 BEQ CHAR 03090 INCB 03100 CMPB COUNT 03110 BEQ AMER 03120 CHAR LEAX 32,X 03130 BRA PINK 03140 AMER TST FLAG22 03150 LBEQ SIB 03160 LEAX 32,X 03170 LBRA SIB 03180 COLL CLR $FF40 03190 FALT JSR [$A000] 03200 CMPA #3 03210 BNE FALT 03220 LBRA CLASS 03230 RGB TST FLAG 03240 BNE RGB2 03250 INC FLAG 03260 LDA #'C 03270 STA $274C 03280 LDA #'M 03290 STA $274E 03300 LDA #'P 03310 STA $2750 03320 RTS 03330 RGB2 CLR FLAG 03340 LDA #'R 03350 STA $274C 03360 LDA #'G 03370 STA $274E 03380 LDA #'B 03390 STA $2750 03400 RTS 03410 DSKCON CLR &65496 03420 LDX $C006 03430 LDA #2 03440 STA ,X 03450 CLR 1,X SELECT DRIVE 0 03460 NAVAL LDA TRACK 03470 STA 2,X 03480 LDA SECTOR 03490 STA 3,X 03500 LDU BUFGO 03510 STU 4,X 03520 JSR [$C004] 03530 TST 6,X 03540 LBNE ERROR 03550 LDY BUFGO 03560 LEAY 256,Y 03570 STY BUFGO 03580 CMPY BUFEND 03590 BHS ZOO 03600 INC SECTOR 03610 LDB SECTOR 03620 CMPB #&19 03630 BNE NAVAL 03640 INC TRACK 03650 LDB #1 03660 STB SECTOR 03670 BRA NAVAL 03680 ZOO CLR &65497 03690 RTS 03700 ERROR CLR &65497 03710 LDA #1 03720 STA $00E7 03730 JSR [$E002] 03740 LBSR TXTCLR 03750 CLR $FF9A 03760 CLR $FFB0 03770 LDA #&63 03780 STA $FFB8 03790 LDX #ERRTXT 03800 LDU #$2280 03810 HEART LDA ,X+ 03820 CMPA #$0A 03830 BEQ VIS 03840 STA ,U++ 03850 BRA HEART 03860 ERRTXT FCC / DISK FILE STRUCTURE ERROR / 03870 FCC / / 03880 FCC / TOUCH TO CONTINUE/ 03890 FCB $0A 03900 VIS JSR [$A000] 03910 CMPA #3 03920 BNE VIS 03930 CLR PIXFLG 03940 LBRA CLASS 03950 DIR BSR CLEAR 03960 LDA #&17 03970 STA TRACK 03980 LDA #2 03990 STA SECTOR 04000 LDX #$4F00 04010 STX BUFGO 04020 LDX #$5AFF 04030 STX BUFEND 04040 LBSR DSKCON 04050 CLR $FF40 04060 LDX #$5000 04070 CLR HOWMNY 04080 LOVE LDA ,X 04090 CMPA #0 04100 BEQ COLD 04110 CMPA #$FF 04120 BEQ FRIG 04130 INC HOWMNY 04140 COLD LEAX 32,X 04150 BRA LOVE 04160 FRIG LDA HOWMNY 04170 CMPA #0 04180 BNE BABY 04190 LDA #1 04200 STA HOWMNY 04210 RTS 04220 BABY CMPA #&60 04230 BLS GOGG 04240 LDA #&60 04250 STA HOWMNY 04260 GOGG RTS 04270 CLEAR LDX #$20A0 04280 LDD #$2000 04290 CLEAR1 STD ,X++ 04300 CMPX #$2598 04310 BLS CLEAR1 04320 RTS 04330 DIR222 BSR CLEAR 04340 LDX #$53E0 START OF SECOND DIRECTORY IN MEMORY 04350 LDY #$2148 04360 LDA #&56 04370 STA MAX 04380 INC FLAG22 04390 LBSR SIGN 04400 LDA #&31 04410 STA COUNT 04420 CLR PIXFLG 04430 LBRA END 04440 RTS 04450 TRACK FCB 0 04460 SECTOR FCB 0 04470 BUFGO FDB 0 04480 BUFEND FDB 0 04490 GRAN1 FCB 0 04500 SAVEX FDB 0 04510 COUNT FCB 0 04520 FLAG FCB 0 04530 DIRNUM FCB 0 04540 OVER FCB 0 04550 MAX FCB 0 04560 FLAG22 FCB 0 04570 HOWMNY FCB 0 04580 SCRPNT FDB 0 04590 DATPNT FDB 0 04600 SAVEB FCB 0 04610 PIXFLG FCB 0 04620 PAL FCB 0 04630 FCB 14 04640 FCB 2 04650 FCB 14 04660 FCB 5 04670 FCB 10 04680 FCB 3 04690 FCB 16 04700 FCB 13 04710 FCB 11 04720 FCB 30 04730 FCB 28 04740 FCB 11 04750 FCB 12 04760 FCB 30 04770 FCB 29 04780 FCB 17 04790 FCB 17 04800 FCB 18 04810 FCB 34 04820 FCB 20 04830 FCB 19 04840 FCB 34 04850 FCB 33 04860 FCB 46 04870 FCB 45 04880 FCB 47 04890 FCB 31 04900 FCB 46 04910 FCB 45 04920 FCB 47 04930 FCB 46 04940 FCB 7 04950 FCB 6 04960 FCB 21 04970 FCB 6 04980 FCB 7 04990 FCB 24 05000 FCB 38 05010 FCB 29 05020 FCB 26 05030 FCB 43 05040 FCB 27 05050 FCB 43 05060 FCB 25 05070 FCB 9 05080 FCB 41 05090 FCB 42 05100 FCB 36 05110 FCB 35 05120 FCB 50 05130 FCB 51 05140 FCB 53 05150 FCB 54 05160 FCB 36 05170 FCB 37 05180 FCB 32 05190 FCB 60 05200 FCB 49 05210 FCB 61 05220 FCB 56 05230 FCB 59 05240 FCB 52 05250 FCB 63 05260 PALC FCB 0 05270 FCB 2 05280 FCB 2 05290 FCB 6 05300 FCB 0 05310 FCB 4 05320 FCB 33 05330 FCB 32 05340 FCB 32 05350 FCB 45 05360 FCB 5 05370 FCB 9 05380 FCB 13 05390 FCB 8 05400 FCB 1 05410 FCB 0 05420 FCB 7 05430 FCB 16 05440 FCB 18 05450 FCB 21 05460 FCB 20 05470 FCB 34 05480 FCB 38 05490 FCB 36 05500 FCB 37 05510 FCB 44 05520 FCB 40 05530 FCB 42 05540 FCB 11 05550 FCB 15 05560 FCB 10 05570 FCB 27 05580 FCB 56 05590 FCB 23 05600 FCB 19 05610 FCB 49 05620 FCB 48 05630 FCB 55 05640 FCB 38 05650 FCB 39 05660 FCB 37 05670 FCB 46 05680 FCB 47 05690 FCB 41 05700 FCB 11 05710 FCB 25 05720 FCB 24 05730 FCB 26 05740 FCB 63 05750 FCB 58 05760 FCB 50 05770 FCB 51 05780 FCB 62 05790 FCB 52 05800 FCB 53 05810 FCB 60 05820 FCB 60 05830 FCB 46 05840 FCB 61 05850 FCB 61 05860 FCB 57 05870 FCB 59 05880 FCB 58 05890 FCB 63 05900 FILENA RMB 12 05910 TITLE FCC " VIEW MASTER " 05920 FCC " (C) 1988, by David Mills " 05930 FCB $0A 05940 INSTR FCC " CTRL : Help Screen " 05950 FCC " ARROWS : Select file " 05960 FCC " ENTER : View highlighted file " 05970 FCC " BREAK : New disk " 05980 FCC " ALT : Reinterpret file extension" 05990 FCC " SPACE : RGB video is active " 06000 FCB $0A 06010 GRCALC LDA GRAN1 06020 CMPA #&34 06030 BLO QUES 06040 ADDA #2 06050 QUES ANDCC #&254 06060 LSRA 06070 STA TRACK 06080 BCC RAIN 06090 LDA #&10 06100 STA SECTOR 06110 RTS 06120 RAIN LDA #1 06130 STA SECTOR 06140 RTS 06150 TXTCLR LDA #$36 06160 STA $FFA1 06170 LDU #$2000 06180 LDY #$2000 06190 TXTC2 STY ,U++ 06200 CMPU #$27FF 06210 BLO TXTC2 06220 RTS 06230 *CHECK FOR FILE EXTENSION 06240 SIB TST WHFFLG 06250 BEQ LISTE 06260 LDA WHFILE 06270 CMPA #'1 06280 LBEQ $79A0 06290 CMPA #'2 06300 LBEQ $BA1C 06310 CMPA #'3 06320 LBEQ $EA49 06330 CMPA #'4 06340 LBEQ PMODE 06350 CMPA #'5 06360 LBEQ $8322 06370 CMPA #'6 06380 LBEQ $8E95 06390 CMPA #'7 06400 LBEQ $968B 06410 LISTE LDD 8,X 06420 C00100 ORG $BA1C 00110 GRAN1 EQU $70BE 00120 GRCALC EQU $729C 00130 COLL EQU $6F0C 00140 CLASS EQU $6A0C 00150 DSKCON EQU $6F45 00160 BUFGO EQU $70BA 00170 BUFEND EQU $70BC 00180 FLAG EQU $70C2 00190 PAL EQU $70CE 00200 PALC EQU $710E 00210 LDA 13,X 00220 STA GRAN1 00230 LBSR GRCALC 00240 LDA #2 00250 STA $00E6 00260 JSR [$E004] 00270 CLRB 00280 JSR $E6D8 CLEAR GRAPHICS SCREEN 00290 LDA #$30 00300 STA $FFA1 00310 LDX #$6000 00320 STX BUFGO 00330 LDX #$68FF 00340 STX BUFEND 00350 LBSR DSKCON 00360 CLR BEFORE 00370 LDX #$6000 POINT TO DISK DATA 00380 LDY #$6001 POINT TO PALETTE INFO 00390 LDB #&16 00400 LDU #$FFB0 00410 FEE LDA ,Y+ 00420 STA ,U+ 00430 DECB 00440 BNE FEE 00450 LDA 17,X POINT TO ANIMATE SPEED 00460 LDB #&30 00470 MUL 00480 STD ANIMSP 00490 STD ANFIRS 00500 LDA 18,X POINT TO CYCLE SPEED 00510 LDB #&30 00520 MUL 00530 STD CYFIRS 00540 STD CYCLSP 00550 LDB #&8 00560 LDY #$6013 POINT TO CYCLE COLORS 00570 LDU #CYCLCO 00580 ASD LDA ,Y+ 00590 STA ,U+ 00600 DECB 00610 BNE ASD 00620 CLR CYCNTR 00630 LDA 27,X 00640 STA ANIMFL 00650 LDA 28,X 00660 STA CYCLFL 00670 LDA ,X GET FILE TYPE 00680 CMPA #0 00690 BNE DOUG 00700 *WORK WITH TYPE 0 CM3 FILE 00710 STA TYPE 00720 LDX #$6111 POINT TO FIRST DATA BLOCK 00730 LDY #$2000 POINT TO SCREEN 00740 STX DATPNT 00750 STY SCRPNT 00760 LDU #&193 00770 STU LINES 00780 BRA JIM 00790 *WORK WITH FILE TYPE $80 -- DOUBLE SCREEN 00800 DOUG CMPA #$80 00810 BNE YOU 00820 STA TYPE 00830 LDX #$6111 00840 LDY #$2000 00850 STX DATPNT 00860 STY SCRPNT 00870 LDU #&385 00880 STU LINES 00890 BRA JIM 00900 *WORK WITH FILE TYPE 1 00910 YOU STA TYPE 00920 LDX #$601E 00930 STX DATPNT 00940 LDY #$2000 00950 STY SCRPNT 00960 LDU #&193 00970 STU LINES 00980 JIM CLR PRELOC 00990 RET LDU LINES 01000 LEAU -1,U 01010 STU LINES 01020 CMPU #0 01030 LBEQ DONE 01040 LDA TYPE 01050 CMPA #$80 01060 BNE DOG 01070 CMPU #&192 01080 BNE DOG 01090 LDX DATPNT 01100 LEAX 1,X 01110 STX DATPNT 01120 DOG BSR TESBUF 01130 LDX DATPNT 01140 LDA ,X+ 01150 CMPA #$7F TEST FOR BLOCK TYPE 01160 LBLS BIRD 01170 *WORK WITH TYPE 1 DATA BLOCK 01180 LDY SCRPNT 01190 LDB #&160 01200 CASSY LDA ,X+ 01210 STA ,Y+ 01220 STA PRELOC 01230 CMPY #$4000 01240 BNE POLAND 01250 INC $FFA1 01260 LDY #$2000 01270 STY SCRPNT 01280 POLAND DECB 01290 BNE CASSY 01300 STX DATPNT 01310 STY SCRPNT 01320 BRA RET 01330 TESBUF LDX DATPNT 01340 CMPX #$6800 01350 BHS LEG 01360 RTS 01370 LEG LDY #$5F00 TEMPORARY BUFFER 01380 LDX #$6800 01390 HUIO LDA ,X+ 01400 STA ,Y+ 01410 CMPX #$6900 01420 BNE HUIO 01430 LDX DATPNT 01440 LEAX -$0900,X 01450 STX DATPNT 01460 LDY #$4F00 GAT 01470 LDA GRAN1 01480 LDB A,Y 01490 CMPB #$79 01500 LBHS CUM 01510 STB GRAN1 01520 LBSR GRCALC 01530 LDX #$6000 01540 STX BUFGO 01550 LDX #$68FF 01560 STX BUFEND 01570 LBSR DSKCON 01580 CUM RTS 01590 *TYPE 2 DATA BLOCK 01600 BIRD STA HEADER 01610 STX LIBPNT 01620 LEAX 20,X 01630 STX ABPNT 01640 LEAX A,X 01650 STX BYTES 01660 LDB #8 01670 STB LIBCNT 01680 STB ACCNT 01690 LDB #&161 01700 RALPH DECB 01710 TSTB 01720 LBEQ STOP 01730 ANDCC #&254 01740 LDX LIBPNT 01750 LDA ,X 01760 LSLA 01770 STA ,X 01780 BCS NORTON 01790 LDY SCRPNT 01800 LDA PRELOC 01810 STA ,Y+ 01820 CMPY #$4000 01830 BNE DONNA 01840 INC $FFA1 01850 LDY #$2000 01860 DONNA STY SCRPNT 01870 DEC LIBCNT 01880 TST LIBCNT 01890 BNE RALPH 01900 LDX LIBPNT 01910 LEAX 1,X 01920 STX LIBPNT 01930 LDA #8 01940 STA LIBCNT 01950 BRA RALPH 01960 NORTON DEC LIBCNT 01970 TST LIBCNT 01980 BNE NOR2 01990 LDX LIBPNT 02000 LEAX 1,X 02010 STX LIBPNT 02020 LDA #8 02030 STA LIBCNT 02040 NOR2 ANDCC #&254 02050 LDX ABPNT 02060 LDA ,X 02070 LSLA 02080 STA ,X 02090 BCS HON 02100 LDY SCRPNT 02110 CMPY #$20A0 160 BYTES PAST START OF SCREEN 02120 BHS DONNOT 02130 DEC $FFA1 02140 LDA 8032,Y 02150 INC $FFA1 02160 BRA SEX 02170 DONNOT LDA -160,Y 02180 SEX STA ,Y+ 02190 STA PRELOC 02200 CMPY #$4000 02210 BNE KITTY 02220 INC $FFA1 02230 LDY #$2000 02240 KITTY STY SCRPNT 02250 DEC ACCNT 02260 TST ACCNT 02270 LBNE RALPH 02280 LDX ABPNT 02290 LEAX 1,X 02300 STX ABPNT 02310 LDA #8 02320 STA ACCNT 02330 LBRA RALPH 02340 HON LDX BYTES 02350 LDY SCRPNT 02360 LDA ,X+ 02370 STA ,Y+ 02380 STA PRELOC 02390 STX BYTES 02400 CMPY #$4000 02410 BNE DAVID 02420 INC $FFA1 02430 LDY #$2000 02440 DAVID STY SCRPNT 02450 DEC ACCNT 02460 TST ACCNT 02470 LBNE RALPH 02480 LDX ABPNT 02490 LEAX 1,X 02500 STX ABPNT 02510 LDA #8 02520 STA ACCNT 02530 LBRA RALPH 02540 STOP LDX BYTES 02550 STX DATPNT 02560 LBRA RET 02570 SCRPNT FDB 0 02580 DATPNT FDB 0 02590 ANFIRS FDB 0 02600 CYCLCO RMB 8 02610 CYCNTR FCB 0 02620 CYCLSP FDB 0 02630 CYFIRS FDB 0 02640 ANIMFL FCB 0 02650 ANIMSP FDB 0 02660 CYCLFL FCB 0 02670 HEADER FCB 0 02680 LIBPNT FDB 0 02690 ABPNT FDB 0 02700 BYTES FDB 0 02710 PRELOC FCB 0 02720 LIBCNT FCB 0 02730 ACCNT FCB 0 02740 LINES FDB 0 02750 TYPE FCB 0 02760 SCREEN FDB 0 02770 DROU FCB 0 02780 BEFORE FCB 0 02790 DONE CLR $FF40 02800 LDA TYPE 02810 CMPA #$80 02820 BNE GOLF 02830 CLR DROU 02840 LDX #$C000 02850 STX SCREEN 02860 STX $FF9D 02870 MAAA LDU #$500 02880 MCAS LEAU -1,U 02890 CMPU #0 02900 BNE MCAS 02910 LEAX 20,X 02920 CMPX #$CF00 02930 BHI RICK 02940 STX $FF9D 02950 BRA MAAA 02960 RICK LDU #$500 02970 SHEL LEAU -1,U 02980 CMPU #0 02990 BNE SHEL 03000 LEAX -20,X 03010 STX $FF9D 03020 CMPX #$C000 03030 BNE RICK 03040 GOLF JSR [$A000] 03050 LDB &344 03060 CMPB #&191 03070 BEQ GOLF 03080 CMPA #3 03090 LBEQ CLASS 03100 TST BEFORE 03110 BNE SPIT 03120 LDB &343 03130 CMPB #&191 03140 LBEQ TANDY 03150 SPIT LDB TYPE 03160 CMPB #$80 03170 BNE DEA 03180 CMPA #&94 03190 BNE OUT 03200 LDX SCREEN 03210 CMPX #$C000 03220 BEQ DEA 03230 DEC DROU 03240 LDA DROU 03250 CMPA #&9 03260 BNE INK 03270 LEAX -240,X 03280 BRA JANE 03290 INK LEAX -400,X 03300 JANE STX $FF9D 03310 STX SCREEN 03320 BRA DEA 03330 OUT CMPA #&10 03340 BNE DEA 03350 LDX SCREEN 03360 CMPX #$CEE0 03370 BHI DEA 03380 INC DROU 03390 LDA DROU 03400 CMPA #&10 03410 BNE WRRR 03420 LEAX 240,X 03430 BRA GOBB 03440 WRRR LEAX 400,X 03450 GOBB STX $FF9D 03460 STX SCREEN 03470 DEA LDA ANIMFL 03480 CMPA #$80 03490 BNE OAK 03500 LDX ANIMSP 03510 LEAX -1,X 03520 STX ANIMSP 03530 CMPX #0 03540 BNE OAK 03550 LDD ANFIRS 03560 STD ANIMSP 03570 TST $FF02 03580 CYC2 TST $FF03 03590 BPL CYC2 03600 LDA $FFBB 03610 TFR A,B 03620 LDA $FFBC 03630 STB $FFBC 03640 TFR A,B 03650 LDA $FFBD 03660 STB $FFBD 03670 TFR A,B 03680 LDA $FFBE 03690 STB $FFBE 03700 STA $FFBB 03710 OAK LDA CYCLFL 03720 CMPA #$80 03730 LBNE GOLF 03740 LDX CYCLSP 03750 LEAX -1,X 03760 STX CYCLSP 03770 CMPX #0 03780 LBNE GOLF 03790 LDX CYFIRS 03800 STX CYCLSP 03810 LDX #CYCLCO 03820 LDB CYCNTR 03830 ABX 03840 LDA ,X 03850 TST $FF02 03860 CYC22 TST $FF03 03870 BPL CYC22 03880 STA $FFBA 03890 INCB 03900 STB CYCNTR 03910 CMPB #8 03920 LBNE GOLF 03930 CLR CYCNTR 03940 LBRA GOLF 03950 TANDY LDA #1 03960 STA BEFORE 03970 TST FLAG 03980 BNE RADIO 03990 LDX #$FFB0 CHANGE CMP PIX TO RGB MONITOR 04000 LDY #PALC 04010 COMD LDA ,X+ 04020 ANDA #&63 04030 LDB A,Y 04040 STB -1,X 04050 CMPX #$FFC0 04060 BNE COMD 04070 LDX #CYCLCO 04080 LDY #PALC 04090 CARS LDA ,X+ 04100 LDB A,Y 04110 STB -1,X 04120 CMPX #CYCLCO+8 04130 BNE CARS 04140 LBRA GOLF 04150 RADIO LDX #$FFB0 CHANGE RGB PIX FOR CMP DISPLAY 04160 LDY #PAL 04170 WIND LDB ,X+ 04180 LDA B,Y 04190 STA -1,X 04200 CMPX #$FFC0 04210 BNE WIND 04220 LDX #CYCLCO 04230 LDY #PAL 04240 WIND1 LDB ,X+ 04250 LDA B,Y 04260 STA -1,X 04270 CMPX #CYCLCO+8 04280 BNE WIND1 04290 LBRA GOLF 04300 END RADIO LDX #$FFB0 CHANGE RGB PIX FOR CMP DISPLAY 04360 LDY #PAL 04370 WIND LDB ,X+ 04380 LDA B,Y 04390 STA -1,X 04400 CMPX #$FFC0 04410 BNE WIND 04420 LDX #CYCLCO 04430 LDY #PAL 04440 WIND1 LDB ,X+ 04450 LDA B,Y 04460 STA -1,X 04470 CMPX #CYCLCO+8 04480 BNE WIND1 04490 LBRA GOLF 04500 END WIND1 04510 LBRA GOLF 04520 END 04650 LDU #CYCLCO 04660 ASD LDA ,Y+ 04670 STA ,U+ 04680 DECB 04690 BNE ASD 04700 CLR CYCNTR 04710 LDA 27,X 04720 STA ANIMFL 04730 LDA 28,X 04740 STA CYCLFL 04750 LDA ,X GET FILE TYPE 04760 CMPA #0 04770 BNE DOUG 04780 *WORK WITH TYPE 0 CM3 FILE 04790 STA TYPE 04800 LDX #$6111 POINT TO FIRST DATA BLOCK 04810 LDY #$2000 POINT TO SCREEN 04820 STX DATPNT 04830 STY SCRPNT 04840 LDU #&193 04850 STU LINES 04860 BRA JIM 04870 *WORK WITH FILE TYPE $80 -- DOUBLE SCREEN 04880 DOUG CMPA #$80 04890 BNE YOU 04900 STA TYPE 04910 LDX #$6111 04920 LDY #$2000 04930 STX DATPNT 04940 STY SCRPNT 04950 LDU #&385 04960 STU LINES 04970 BRA JIM 04980 *WORK WITH FILE TYPE 1 04990 YOU STA TYPE 05000 LDX #$601E 05010 STX DATPNT 05020 LDY #$2000 05030 STY SCRPNT 05040 LDU #&193 05050 STU LINES 05060 JIM CLR PRELOC 05070 RET LDU LINES 05080 LEAU -1,U 05090 STU LINES 05100 CMPU #0 05110 LBEQ DONE 05120 LDA TYPE 05130 CMPA #$80 05140 BNE DOG 05150 CMPU #&192 05160 BNE DOG 05170 LDX DATPNT 05180 LEAX 1,X 05190 STX DATPNT 05200 DOG BSR TESBUF 05210 LDX DATPNT 05220 LDA ,X+ 05230 CMPA #$7F TEST FOR BLOCK TYPE 05240 LMPD #$4D47 06430 BNE NEXT 06440 LDA 10,X 06450 CMPA #'E MGE 06460 BNE NEXT 06470 LBRA $79A0 06480 NEXT LDD 8,X 06490 CMPD #$434D 06500 BNE WHIP 06510 LDA 10,X 06520 CMPA #'3 CM3 06530 BNE WHIP 06540 LBRA $BA1C 06550 WHIP LDD 8,X 06560 CMPD #$4D41 06570 BNE SAW 06580 LDA 10,X 06590 CMPA #'C MAC 06600 BNE SAW 06610 LBRA $EA49 06620 SAW LDD 8,X 06630 CMPD #$5049 06640 BNE DAVI 06650 LDA 10,X 06660 CMPA #'X PIX 06670 BNE DAVI 06680 LBRA $8322 06690 DAVI LDD 8,X 06700 CMPD #$5354 06710 BNE BIGTIT 06720 LDA 10,X 06730 CMPA #&32 ST 06740 BNE BIGTIT 06750 LBRA $968B 06760 BIGTIT LDD 8,X 06770 CMPD #$544E 06780 BNE PMODE 06790 LDA 10,X 06800 CMPA #'Y TNY 06810 BNE PMODE 06820 LBRA $8E95 06830 *PROCESS PMODE FILE 06840 PMODE LDA #1 06850 STA PHIL 06860 CLR MARKER 06870 LDA #&63 06880 STA $FFBB 06890 CLR $FFBA 06900 LDA 13,X 06910 STA GRAN1 06920 LBSR GRCALC 06930 LDX #$0DFB 06940 STX BUFGO 06950 STX SAVEBG 06960 LDX #$16FA 06970 STX BUFEND 06980 STX SAVEBE 06990 LDA #1 07000 STA WHERE 07010 CLR $00E7 07020 JSR [$E002] 07030 LDA #$39 07040 STA $FFA1 07050 LDX #$0E00 07060 FRE CLR ,X+ 07070 CMPX #$3E00 07080 BNE FRE 07090 CLR &65472 07100 CLR &65475 07110 CLR &65477 07120 LDA #&248 07130 STA MODE 07140 BSR SETTT 07150 BRA TIST 07160 SETTT LDA &65314 07170 ANDA #7 07180 STA JESUS 07190 LDA MODE 07200 ORA JESUS 07210 STA &65314 07220 RTS 07230 TIST LBSR PAGE1 07240 LBSR DSKCON 07250 DAIR LDX #$4F00 07260 LDA GRAN1 07270 LDB A,X 07280 STB GRAN1 07290 CMPB #&79 07300 LBHI MIKE 07310 INC PHIL 07320 LDB PHIL 07330 CMPB #&7 07340 LBEQ COLL 07350 LBSR GRCALC 07360 LDX SAVEBG 07370 LEAX 2304,X 07380 STX BUFGO 07390 STX SAVEBG 07400 LDX SAVEBE 07410 LEAX 2304,X 07420 STX BUFEND 07430 STX SAVEBE 07440 LBSR DSKCON 07450 LBRA DAIR 07460 MIKE CLR $FF40 07470 INC DGORDA 07480 LDA PHIL 07490 CMPA #&3 07500 LBLS FAM 07510 CLR DGORDA 07520 LBSR DRO 07530 LBSR PAGE2 07540 LBSR DRO 07550 LBSR PAGE3 07560 LBSR DRO 07570 LBSR PAGE4 07580 LBSR DRO 07590 LBSR PAGE5 07600 LBSR DRO 07610 LBSR PAGE4 07620 LBSR DRO 07630 LBSR PAGE3 07640 LBSR DRO 07650 LBSR PAGE2 07660 LBSR DRO 07670 LBSR PAGE1 07680 FAM JSR [$A000] 07690 TST DGORDA 07700 BNE SAD 07710 CMPA #&94 UP ARROW 07720 LBEQ SEC 07""""""""d`b""""""""""""""""dPb""""""""""""""""d`Ob""""""""""""""""dpO.b""""""""""""""""d`@`:DODDOl囐OO~qc߿O?{OO7} gR߿3y (,(39 8`11 bw39 }3y 888Ͽ7} 4 ϻ̿?SVQM̿~qϻOD̿lǛOD̿ODOD`DODD3y 888Ͽ7} 4 ϻ̿?SVQM̿~qϻOD̿lǛOD̿ODOD`730 CMPA #&10 DOWN ARROW 07740 LBEQ TSC 07750 SAD CMPA #3 07760 LBEQ CLASS 07770 LDA &343 07780 CMPA #&191 07790 LBEQ HOOK 07800 LDA &344 07810 CMPA #&191 07820 LBEQ CROOK 07830 BRA FAM 07840 PAGE1 CLR &65479 07850 CLR &65481 07860 CLR &65483 07870 CLR &65484 07880 CLR &65486 07890 CLR &65488 07900 CLR &65490 07910 RTS 07920 PAGE2 CLR &65478 07930 CLR &65481 07940 CLR &65482 07950 CLR &65485 07960 CLR &65486 07970 CLR &65488 07980 CLR &65490 07990 RTS 08000 PAGE3 CLR &65479 08010 CLR &65480 08020 CLR &65483 08030 CLR &65485 08040 CLR &65486 08050 CLR &65488 08060 CLR &65490 08070 RTS 08080 PAGE4 CLR &65478 08090 CLR &65480 08100 CLR &65482 08110 CLR &65484 08120 CLR &65487 08130 CLR &65488 08140 CLR &65490 08150 RTS 08160 PAGE5 CLR &65479 08170 CLR &65481 08180 CLR &65482 08190 CLR &65484 08200 CLR &65487 08210 CLR &65488 08220 CLR &65490 08230 RTS 08240 SEC LDA WHERE 08250 CMPA #1 08260 LBEQ FAM 08270 DEC WHERE 08280 LDA WHERE 08290 CMPA #1 08300 BNE DOM 08310 LBSR PAGE1 08320 LBRA FAM 08330 DOM CMPA #2 08340 BNE CMR 08350 BSR PAGE2 08360 LBRA FAM 08370 CMR CMPA #3 08380 BNE KLL 08390 BSR PAGE3 08400 LBRA FAM 08410 KLL BSR PAGE4 08420 LBRA FAM 08430 TSC LDA WHERE 08440 CMPA #5 08450 LBEQ FAM 08460 INC WHERE 08470 LDA WHERE 08480 CMPA #2 08490 BNE CORG 08500 LBSR PAGE2 08510 LBRA FAM 08520 CORG CMPA #3 08530 BNE POE 08540 LBSR PAGE3 08550 LBRA FAM 08560 POE CMPA #4 08570 BNE EDGAR 08580 LBSR PAGE4 08590 LBRA FAM 08600 EDGAR LBSR PAGE5 08610 LBRA FAM 08620 DRO LDU #$FFFF 08630 DRO2 LEAU -1,U 08640 CMPU #0 08650 BNE DRO2 08660 RTS 08670 HOOK TST MARKER 08680 BNE WAR 08690 INC MARKER 08700 LDA #&32 08710 STA $FF98 INVERT COLOR BURST 08720 LDA #&9 08730 STA $FFB5 08740 LDA #&36 08750 STA $FFB6 08760 BRA DOOOO 08770 WAR CLR MARKER 08780 CLR $FF98 08790 LDA #&36 08800 STA $FFB5 08810 LDA #&9 08820 STA $FFB6 08830 DOOOO LDU #$FFFF 08840 ADFF LEAU -1,U 08850 CMPU #0 08860 BNE ADFF 08870 LBRA FAM 08880 CROOK TST FLAG 08890 LBNE FAM 08900 LDA #&232 08910 STA MODE 08920 LBSR SETTT 08930 CLR $FFB4 08940 LDA #&36 08950 STA $FFB5 08960 LDA #&9 08970 STA $FFB6 08980 LDA #&63 08990 STA $FFB7 09000 LDU #$FFFF 09010 HDF LEAU -1,U 09020 CMPU #0 09030 BNE HDF 09040 LBRA FAM 0& #rƠ@& | Z&忼 h$9_hi&0Opy$p!`php900ơZ]'H%1@&| z}&̾0 z}& 0H%J $ z`| `@&| z}&b0R@&| z}&&0N@&:3_&0" 3_&0&ꭟX''}& W''&N^&$'Bz &0 0p & &""| &0 0&90&,}}*&C0&4:}}*\& }p&)q?&󎼟q.'&׎p怦&p怦&&p怦&m 9m 9CM&^ 3&V mɆ歟_؆0`m hm q*``Z&=qq=qq`q n馠Z&qqq&q&a mmq$ 4&q&a mmq$ q&`m mq$q!q$3_q$'ƶq&oi&&m0m5m#rmƠq!@& | mZ&mm mh$9_hi&m0mOmy$mro`m hm F9qq0q0qq"q#ơZ]'qH%1mq!@&| mzq"}q"&̾q0qq" zq"}q"& q0qpiq"qH%Jm $ z`| `q!@&| mzq#}q#&bq0qq#Rqmq!q@&| mzq#}q p#&&q0qq#qmNqq&&:q)q'3_&0" 3_&0&ꭟX''}q*& W'q&&qN^&$q''Bzq)q) &0 0pq' & &"q'"|q)q) &0 0q'q&9q0q&,qq}}*rq&Cq0q&4qqq q:}}*\q&q q*}m&Mm_?&0 &&\&Z&Prq m_?&0 &&\&Zq&00100 ORG $EA49 00110 CLASS EQU $6A0C 00120 FLAG EQU $70C2 00130 BUFGO EQU $70BA 00140 BUFEND EQU $70BC 00150 DSKCON EQU $6F45 00160 GRAN1 EQU $70BE 00170 GRCALC EQU $729C 00180 CLR $FFB0 00190 LDA #&63 00200 STA $FFB1 00210 LDA 13,X 00220 STA GRAN1 00230 LBSR GRCALC 00240 CLR CRFLAG 00250 LDA #3 00260 STA $00E6 00270 JSR [$E004] 00280 LDX #$D498 00290 STX ZZZZZZ 00300 TST FLAG 00310 BNE YOUU 00320 LDA #&116 00330 STA $FF99 00340 LDX #$D350 00350 STX ZZZZZZ 00360 YOUU LDB #&8 00370 LDA #$30 00380 STA $FFA1 00390 LDX #$2000 00400 LATC CLR ,X+ 00410 CMPX #$4000 00420 BNE LATC 00430 DECB 00440 BEQ HOWE 00450 INC $FFA1 00460 LDX #$2000 00470 BRA LATC 00480 HOWE LDA #$30 00490 STA $FFA1 00500 LDX #$6000 00510 STX BUFGO 00520 LDX #$68FF 00530 STX BUFEND 00540 LBSR DSKCON 00550 LDX #$6000 00560 LDA ,X 00570 CMPA #0 00580 BNE NOHEAD 00590 LDA 74,X 00600 CMPA #0 00610 BNE NOHEAD 00620 LDA 82,X 00630 CMPA #0 00640 BNE NOHEAD 00650 LDA 125,X 00660 CMPA #0 00670 BNE NOHEAD 00680 LDA 126,X 00690 CMPA #0 00700 BNE NOHEAD 00710 LDA 127,X 00720 CMPA #0 00730 BNE NOHEAD 00740 LDA 65,X 00750 CMPA #'P 00760 BNE NOHEAD 00770 LDA 66,X 00780 CMPA #'N 00790 BNE NOHEAD 00800 LDA 67,X 00810 CMPA #'T 00820 BNE NOHEAD 00830 LDA 68,X 00840 CMPA #'G 00850 BNE NOHEAD 00860 LEAX 640,X 00870 BRA HEB 00880 NOHEAD LEAX 512,X 00890 HEB LDY #$2004 00900 LDU #&72 00910 GOGO LDA ,X+ 00920 LBSR UPPER 00930 CMPA #&128 00940 BLS FAST 00950 LDB #&255 00960 STA DONUT 00970 SUBB DONUT 00980 ADDB #2 00990 LDA ,X+ 01000 LBSR UPPER 01010 COMA 01020 DELU STA ,Y+ 01030 LBSR CCM 01040 LEAU -1,U 01050 CMPU #0 01060 BNE GHH 01070 LDU #&72 01080 LEAY 8,Y 01090 CMPY #$4000 01100 BLO GHH 01110 INC $FFA1 01120 LEAY -$2000,Y 01130 GHH DECB 01140 BNE DELU 01150 BRA GOGO 01160 FAST ADDA #1 01170 TFR A,B 01180 VVV LDA ,X+ 01190 LBSR UPPER 01200 COMA 01210 STA ,Y+ 01220 LBSR CCM 01230 LEAU -1,U 01240 CMPU #0 01250 BNE DISD 01260 LDU #&72 01270 LEAY 8,Y 01280 CMPY #$4000 01290 BLO DISD 01300 INC $FFA1 01310 LEAY -$2000,Y 01320 DISD DECB 01330 BNE VVV 01340 BRA GOGO 01350 UPPER CMPX #$6900 01360 BNE UP2 01370 PSHS D,Y,U 01380 LDA GRAN1 01390 LDY #$4F00 01400 LDB A,Y 01410 CMPB #&79 01420 BLS ADRE 01430 LBRA MILLS 01440 ADRE STB GRAN1 01450 LBSR GRCALC 01460 LDX #$6000 01470 STX BUFGO 01480 LDX #$68FF 01490 STX BUFEND 01500 LBSR DSKCON 01510 PULS D,Y,U 01520 LDX #$6000 01530 UP2 RTS 01540 CCM CMPY #$4000 01550 BNE CCM2 01560 INC $FFA1 01570 LDY #$2000 01580 CCM2 RTS 01590 MILLS CLR $FF40 01600 LDX #$C000 01610 STX $FF9D 01620 STX RESULT 01630 HARRY JSR [$A000] 01640 CMPA #3 01650 LBEQ CLASS 01660 LDA &341 01670 CMPA #&247 01680 BEQ UPARRO 01690 LDA &342 01700 CMPA #&247 01710 BEQ DNARRO 01720 TST CRFLAG 01730 BNE HARRY 01740 LDA &343 01750 CMPA #&191 01760 LBEQ CRUNCH 01770 BRA HARRY 01780 UPARRO LDX RESULT 01790 CMPX #$C000 01800 BEQ HARRY 01810 LEAX -10,X 01820 STX RESULT 01830 STX $FF9D 01840 LDU #$300 01850 DFFGG LEAU -1,U 01860 CMPU #0 01870 BNE DFFGG 01880 LBRA HARRY 01890 DNARRO LDX RESULT 01900 CMPX ZZZZZZ 01910 BHI HARRY 01920 LEAX 10,X 01930 STX RESULT 01940 STX $FF9D 01950 LDU #$300 01960 FFFF LEAU -1,U 01970 CMPU #0 01980 BNE FFFF 01990 LBRA HARRY 02000 CRUNCH LDX #$C000 02010 STX $FF9D 02020 STX RESULT 02030 INC CRFLAG 02040 LDA #$30 02050 STA FYSAVE 02060 STA FXSAVE 02070 LDY #$2000 02080 LDX #$2000 02090 BUI LDB #&80 02100 HAW LDA FYSAVE 02110 STA $FFA1 02120 LDA ,Y+ 02130 PSHS A 02140 LDA FXSAVE 02150 STA $FFA1 02160 PULS A 02170 STA ,X+ 02180 CMPY #$4000 02190 BNE GORB 02200 INC FYSAVE 02210 LDA FYSAVE 02220 CMPA #$38 02230 LBEQ SUCK 02240 LDY #$2000 02250 GORB CMPX #$4000 02260 BNE USA 02270 INC FXSAVE 02280 LDX #$2000 02290 USA DECB 02300 BNE HAW 02310 LEAY 80,Y 02320 CMPY #$4000 02330 BLO BUI 02340 INC FYSAVE 02350 LDA FYSAVE 02360 CMPA #$38 02370 LBEQ SUCK 02380 LEAY -$2000,Y 02390 BRA BUI 02400 SUCK TST FLAG 02410 BNE SUCK2 02420 LDX #$C540 02430 STX ZZZZZZ 02440 LBRA HARRY 02450 SUCK2 LDX #$C688 02460 STX ZZZZZZ 02470 LBRA HARRY 02480 NEXT NOP 02490 DONUT FCB 0 02500 RESULT FDB 0 02510 OFFSET FDB 0 02520 ZZZZZZ FDB 0 02530 FXSAVE FCB 0 02540 FYSAVE FCB 0 02550 CRFLAG FCB 0 02560 END B 0 02570 CRFLAG FCB 0 02580 END U[U[[[[UUUU[UUX[[U[[UUUUUUUUU p歟_؆4 o@& |8&4`phpf` i&*pOŁO",p㙎`php4 15 `@&| 0,4/ &S歟> %-3@%3052 042 7*ȿ5&4335hM &505&/40,571( 'B %1b7*ȿ591@%1|,*94,*59@& |/-94/-59@& |20942059&>̦33l*3_&ρ%;99O33~vF+3_&O33aMYE3_&_ :0<==0='ݣ4Z&5 <:9@&|< :9H$ D DH$ D DH$ D DH$ D DZ'D$Z&1!@&| |&0p&j'D#4TTTTT$5T%&#&&& &&& & &&$&$&&& &&& &&&&%&&&&&& & z'}'&N}p'40?p0?&5099#150 CLR &65481 07160 CLR &65483 07170 CLR &65484 07180 CLR &65486 07190 CLR &65488 07200 CLR &65490 07210 RTS 07220 PAGE2 CLR &65478 07230 CLR &65481 07240 CLR &65482 07250 CLR &65485 07260 CLR &65486 07270 CLR &65488 07280 CLR &65490 07290 RTS 07300 PAGE3 CLR &65479 07310 CLR &65480 07320 CLR &65483 07330 CLR &65485 07340 CLR &65486 07350 CLR &65488 07360 CLR &65490 07370 RTS 07380 PAGE4 CLR &65478 07390 CLR &65480 07400 CLR &65482 07410 CLR &65484 07420 CLR &65487 07430 CLR &65488 07440 CLR &65490 07450 RTS 07460 PAGE5 CLR &65479 07470 CLR &65481 07480 CLR &65482 07490 CLR &65484 07500 CLR &65487 07510 CLR &65488 07520 CLR &65490 07530 RTS 07540 SEC LDA WHERE 07550 CMPA #1 07560 LBEQ FAM 07570 DEC WHERE 07580 LDA WHERE 07590 CMPA #1 07600 BNE DOM 07610 LBSR PAGE1 07620 LBRA FAM 07630 DOM CMPA #2 07640 BNE CMR 07650 BSR PAGE2 07660 LBRA FAM 07670 CMR CMPA #3 07680 BNE KLL 07690 BSR PAGE3 07700 LBRA FAM 07710 KLL BSR PAGE4 07720 LBRA FAM 07730 TSC LDA WHERE 07740 CMPA #5 07750 LBEQ FAM 07760 INC WHERE 0700100 ORG $5A00 00110 CLR &113 00120 CLR $FF40 00130 CLR &65497 00140 LDX #$FFB0 00150 AVE CLR ,X+ 00160 CMPX #$FFC0 00170 BNE AVE 00180 LDA #$30 00190 STA $FFA1 START HI-RES GRAPHICS SCREEN AT $2000 00200 *HANDLE COMPRESSED FILE 00210 DDD LDX #$4033 POINT TO ACTUAL GRAPHICS DATA 00220 LDY #$2000 POINT TO SCREEN 00230 RAPP LDB ,X+ 00240 PAU LDA ,X 00250 STA ,Y+ 00260 CMPY #$4000 00270 BNE ARAB 00280 INC $FFA1 00290 LDA $FFA1 00300 CMPA #$33 00310 BHI EXIT 00320 LDY #$2000 00330 ARAB DECB 00340 BNE PAU 00350 LEAX 1,X 00360 BRA RAPP 00370 EXIT LDX #$FFB0 00380 LDY #$4001 00390 LDB #&16 00400 BUY LDA ,Y+ 00410 STA ,X+ 00420 DECB 00430 BNE BUY 00440 LDA #2 00450 STA $00E6 00460 JSR [$E004] 00470 CLR &65496 00480 LDB #&230 00490 STB $008C 00500 LDD #&12 00510 STD $008D 00520 JSR $A956 00530 LDB #&200 00540 STB $008C 00550 LDD #&8 00560 STD $008D 00570 JSR $A956 00580 CLR &65497 00590 GETKEY JSR [$A000] 00600 CMPA #3 00610 LBEQ $6A00 00620 LDB &340 00630 CMPB #&250 00640 BNE GETKEY 00650 LDB &339 00660 CMPB #&250 00670 BNE GETKEY 00680 LDB &342 00690 CMPB #&250 00700 BNE GETKEY 00710 LDA #1 00720 STA $00E7 00730 JSR [$E002] 00740 LDA #$36 00750 STA $FFA1 00760 LDX #$2000 00770 LDU #$2000 00780 MARE STU ,X++ 00790 CMPX #$27FF 00800 BLS MARE 00810 LDA #&63 00820 STA $FFB8 00830 CLR $FF9A 00840 LDX #BRAD 00850 LDU #$2280 00860 BOOK LDA ,X+ 00870 CMPA #$0D 00880 BEQ GOONE 00890 STA ,U++ 00900 BRA BOOK 00910 GOONE JSR [$A000] 00920 CMPA #3 00930 LBEQ $6A00 00940 BRA GOONE 00950 BRAD FCC / My good friend, Brad Bansner, is / 00960 FCC / King of CoCo graphics!/ 00970 FCB $0D 00980 END $5A00 Q HISTR 02320 JSR [$A002] 02330 BRA DUKEF 02340 HISTR JSR [$A000] 02350 CMPA #3 02360 BEQ GUSH 02370 CMPA #&49 02380 BLO HISTR 02390 CMPA #&55 02400 BHI HISTR 02410 STA WHFILE 02420 INC WHFFLG 02430 INC PIXFLG 02440 LBRA CLASS 02450 GUSH CLR WHFFLG 02460 INC PIXFLG 02470 LBRA CLASS 02480 WHFILE FCB 0 02490 WHFFLG FCB 0 02500 CHEXTX FCC / Ignore extension and treat all / 02510 FCC / files as:/ 02520 FCB $0D 02530 FCB $0D 02540 FCC / 1> MGE 5> PIX/ 02550 FCB $0D 02560 FCB $0D 02570 FCC / 2> CM3 6> TNY/ 02580 FCB $0D 02590 FCB $0D 02600 FCC / Zq@َo&0@3 怦@&|3"  Z&0 ߎ@Z&歟׌ ݍV׌ݍV٭'ZT&S&V&筟6 '#?Z" ' '0 My good friend, Brad Bansner, is Kin[g of CoCo graphics! Z)oSZ&`3_&' '0 &  oaIX&&oU}oZ'o['oS0(|oUoU' W&7koS!I&}oZ&|oa%oSoUoS0zoUaU&0oS!I'!q' }oZ&UoS0oUoU*V&5oU}oZ' lo[$#SoS0PoUoU' 'V&V!lw ' '1%7"lu|lv|oalv|oa Ignolre extension and treat all files as: 1> MGE 5> PIX 2> CM3 6> TNY 3> MAC m 7> ST 4> PMODE Press BREAK to restore program to normal operation. oS oZ&9oaoLoMoNmoPsP&&|oaP_'\oU'0 }oZ'*0 $@&=}oV&|oVC'LM'NP'P9oVR'LG'NB'P9ؾnooLoMoNm&*oN1oNoP$|oMoM&|oLoM 9ن歟!?ny 'O n DISK FILE STRUCTURE ERROR TOUCH TO CONTINUE '@ ~n΍KoLoMOoNZoP@Po[''|oo[0 o[&o[9<#79?0o VIEW MASTER (C) 1988, by David Mills ARROWS : Select file ENTERp. : View highlighted file BREAK : New disk CTRL : Reinterpret file extension SPACE : RpGB video is active oR"%DoL$ oM9oM9}lv'-lu1' 2'3'4'x5'6'7'MG& E&CMq.& 3&MA& C&PI& X&ST& &TI& Y&ss? oR3 oNsoPssq9o>&ņs "s߶ss߷"9OoRoRO"/|ss's0 oNss0 oPs@r.|ss#3s-o'!g K/}s& ^' ''W'X' r9050 JESUS FCB 0 09060 SAVEBG FDB 0 09070 SAVEBE FDB 0 09080 PHIL FCB 0 09090 WHERE FCB 0 09100 MODE FCB 0 09110 DGORDA FCB 0 09120 MARKER FCB 0 09130 END START &b&n&z3_&9}s&|s $ s$ 3_&;s}oV&s$ ?3_&j #&31 04070 STA COUNT 04080 CLR PIXFLG 04090 LBRA END 04100 RTS 04110 TRACK FCB 0 04120 SECTOR FCB 0 04130 BUFGO FDB 0 04140 BUFEND FDB 0 04150 GRAN1 FCB 0 04160 SAVEX FDB 0 04170 COUNT FCB 0 04180 FLAG FCB 0 04190 DIRNUM FCB 0 04200 OVER FCB 0 04210 MAX FCB 0 04220 FLAG22 FCB 0 04230 HOWMNY FCB 0 04240 SCRPNT FDB 0 04250 DATPNT FDB 0 04260 SAVEB FCB 0 04270 PIXFLG FCB 0 04280 PAL FCB 0 04290 FCB 12 04300 FCB 2 04310 FCB 14 04320 FCB 7 04330 FCB 9 04340 FCB 5 04350 FCB 16 04360 FCB 28 04370 FCB 44 04380 FCB 13 04390 FCB 29 04400 FCB 11 04410 FCB 27 04420 FCB 10 04430 FCB 43 04440 FCB 34 04450 FCB 17 04460 FCB 18 04470 FCB 33 04480 FCB 3 04490 FCB 1 04500 FCB 19 04510 FCB 50 04520 FCB 30 04530 FCB 45 04540 FCB 31 04550 FCB 46 04560 FCB 15 04570 FCB 60 04580 FCB 47 04590 FCB 61 04600 FCB 23 04610 FCB 8 04620 FCB 21 04630 FCB 6 04640 FCB 39 04650 FCB 24 04660 FCB 38 04670 FCB 54 04680 FCB 25 04690 FCB 42 04700 FCB 26 04710 FCB 58 04720 FCB 24 04730 FCB 41 04740 FCB 40 04750 FCB 56 04760 FCB 20 04770 FCB 4 04780 FCB 35 04790 FCB 51 04800 FCB 37 04810 FCB 53 04820 FCB 36 04830 FCB 52 04840 FCB 32 04850 FCB 59 04860 FCB 49 04870 FCB 62 04880 FCB 55 04890 FCB 57 04900 FCB 63 04910 FCB 48 04920 FILENA RMB 12 04930 TITLE FCC " VIEW MASTER " 04940 FCC " (C) 1988, by David Mills " 04950 FCB $0A 04960 INSTR FCC " ARROWS : Select file " 04970 FCC " ENTER : View highlighted file " 04980 FCC " BREAK : New disk " 04990 FCC " CTRL : Reinterpret file extension" 05000 FCC " SPACE : RGB video is active " 05010 FCB $0A 05020 05030 GRCALC LDA GRAN1 05040 CMPA #&34 05050 BLO QUES 05060 ADDA #2 05070 QUES ANDCC #&254 05080 LSRA 05090 STA TRACK 05100 BCC RAIN 05110 LDA #&10 05120 STA SECTOR 05130 RTS 05140 RAIN LDA #1 05150 STA SECTOR 05160 RTS 05170 *CHECK FOR FILE EXTENSIO00100 ORG $0182 00110 JMP START 00120 ORG $7000 00130 START CLR &113 00140 LBSR TXTCLR 00150 LDA #&63 00160 STA $FFB8 00170 CLR $FFB0 00180 LDA #1 00190 STA $00E7 00200 JSR [$E002] 00210 CLR $FF9A 00220 LDX #INTRO 00230 LDY #$2000 00240 STIN LDA ,X+ 00250 CMPA #$0A 00260 BEQ STIN2 00270 STA ,Y++ 00280 BRA STIN 00290 STIN2 JSR [$A000] 00300 CMPA #$0D 00310 BNE STIN2 00320 LDA #&17 00330 STA TRACK 00340 LDA #&2 00350 STA SECTOR 00360 LDX #$6900 00370 STX BUFGO 00380 LDX #$6FFF 00390 STX BUFEND 00400 LDA #2 00410 STA RDWRT 00420 LBSR DSKCON 00430 LDY #$6A00 00440 LDX #&79 00450 PSHS Y 00460 MAR LDU #NAME 00470 LDB #&11 00480 MARK LDA ,Y+ 00490 CMPA ,U+ 00500 BNE MARK2 00510 DECB 00520 BNE MARK 00530 *A MATCH WAS FOUND 00540 LDA 2,Y 00550 STA GRAN1 00560 LDA #$FB 00570 STA 4,Y 00580 PULS Y 00590 LDA #&17 00600 STA TRACK 00610 LDA #&3 00620 STA SECTOR 00630 LDX #$6A00 00640 STX BUFGO 00650 LDX #$6FFF 00660 STX BUFEND 00670 LDA #3 00680 STA RDWRT 00690 LBSR DSKCON 00700 *LBSR TO LOAD GRAN TO BE PATCHED 00710 LBSR LOAD 00720 BRA PATCH1 00730 MARK2 LEAX -1,X 00740 CMPX #0 00750 BEQ NOMATC 00760 PULS Y 00770 LEAY 32,Y 00780 PSHS Y 00790 BRA MAR 00800 NOMATC LBSR TXTCLR 00810 LDX #NONAME 00820 LDY #$2320 00830 ONE LDA ,X+ 00840 CMPA #$0A 00850 BEQ TWO 00860 STA ,Y++ 00870 BRA ONE 00880 TWO JSR [$A000] 00890 CMPA #3 00900 BNE TWO 00910 LBRA START 00920 PATCH1 LDD #$443A D: FIX SCREEN DISPLAY 00930 STD $675E 00940 LDA #'0 00950 STA $6760 00960 PATCH2 LDA #$7E OP CODE FOR JMP 00970 STA $6517 START OF DSKCON 00980 LDX #$F09D ADDRESS OF PAT2EX CODE IN EXTRA MEMORY 00990 STX $6518 START OF DSKCON +1 01000 LDA #$7E OP CODE FOR JMP 01010 STA $60E5 FIND 01020 LDX #$F1ED ADDRESS OF PAT3EX TO LIVE 01030 STX $60E6 01040 LDA GRAN1 01050 LBSR GRCALC 01060 LDX #$6000 01070 STX BUFGO 01080 LDX #$68FF 01090 STX BUFEND 01100 LDA #3 01110 STA RDWRT 01120 BSR DSKCON 01130 LDY #$6900 GAT 01140 LDA GRAN1 01150 LDB A,Y 01160 LDA B,Y 01170 LDB A,Y NOW POINTING TO LAST GRAN OF FILE 01180 STB GRAN1 01190 LBSR GRCALC 01200 LDX #$6000 01210 STX BUFGO 01220 LDX #$68FF 01230 STX BUFEND 01240 LDA #2 01250 STA RDWRT 01260 LBSR DSKCON 01270 LDX #FIND 01280 LDU #$678E 01290 CRAD LDA ,X+ 01300 STA ,U+ 0OSq2&& "DOS /BAS" ֎'& ' ~u1310 CMPA #$0D 01320 BNE CRAD 01330 LBSR GRCALC 01340 LDX #$6000 01350 STX BUFGO 01360 LDX #$68FF 01370 STX BUFEND 01380 LDA #3 01390 STA RDWRT 01400 LBSR DSKCON 01410 LDX #$24B0 01420 LDU #FINISH 01430 PRES LDA ,U+ 01440 CMPA #$0A 01450 BEQ JERRY 01460 STA ,X++ 01470 BRA PRES 01480 JERRY JMP JERRY 01490 DSKCON PSHS U 01500 CLR &65496 01510 LDX $C006 01520 LDA RDWRT 01530 STA ,X 01540 CLR 1,X SELECT DRIVE 0 01550 NAVAL LDA TRACK 01560 STA 2,X 01570 LDA SECTOR 01580 STA 3,X 01590 LDU BUFGO 01600 STU 4,X 01610 JSR [$C004] 01620 TST 6,X 01630 LBNE ERROR 01640 LDY BUFGO 01650 LEAY 256,Y 01660 STY BUFGO 01670 CMPY BUFEND 01680 BHS ZOO 01690 INC SECTOR 01700 LDB SECTOR 01710 CMPB #&19 01720 BNE NAVAL 01730 INC TRACK 01740 LDB #1 01750 STB SECTOR 01760 BRA NAVAL 01770 ZOO CLR &65497 01780 PULS U 01790 RTS 01800 ERROR LDA #1 01810 STA $00E7 01820 JSR [$E002] 01830 LBSR TXTCLR 01840 CLR $FF9A 01850 CLR $FFB0 01860 LDA #&63 01870 STA $FFB8 01880 LDX #ERRTXT 01890 LDU #$2280 01900 HEART LDA ,X+ 01910 CMPA #$0A 01920 BEQ VIS 01930 STA ,U++ 01940 BRA HEART 01950 ERRTXT FCC / DOS ERROR. OPERATION ABORTED. / 01960 FCC / / 01970 FCC / TOUCH TO CONTINUE./ 01980 FCB $0A 01990 VIS JSR [$A000] 02000 CMPA #3 02010 BNE VIS 02020 LOOP LBRA START 02030 GRCALC LDA GRAN1 02040 CMPA #&34 02050 BLO QUES 02060 ADDA #2 02070 QUES ANDCC #&254 02080 LSRA 02090 STA TRACK 02100 BCC RAIN 02110 LDA #&10 02120 STA SECTOR 02130 RTS 02140 RAIN LDA #1 02150 STA SECTOR 02160 RTS 02170 TXTCLR LDA #$36 02180 STA $FFA1 02190 LDU #$2000 02200 LDY #$2000 02210 TXTC2 STY ,U++ 02220 CMPU #$27FF 02230 BLO TXTC2 02240 RTS 02250 TRACK FCB 0 02260 SECTOR FCB 0 02270 BUFGO FDB 0 02280 BUFEND FDB 0 02290 GRAN1 FCB 0 02300 RDWRT FCB 0 02310 NAME FCC /VUMASTERBIN/ 02320 NONAME FCC / VUMASTER.BIN is not on this disk. / 02330 FCC / / 02340 FCC / Touch BREAK to continue./ 02350 FCB $0A 02360 LOAD LDA GRAN1 02370 LDY #$6900 GAT 02380 LDB A,Y 02390 LDA B,Y 02400 LDB A,Y 02410 STB GRAN1 NOW POINTING TO 4TH GRANULE OF FILE 02420 LBSR GRCALC 02430 LDX #$6000 02440 STX BUFGO 02450 LDX #$68FF 02460 STX BUFEND 02470 LDA #2 02480 ST