; FODS DISASSEMBLEÄ ; THIS SOURCE IS FOR A DUAL DRIVE SYSTEÍ ; DRIVE 1 IS CONSIDERED THE SYSTEM DRIVE® ; DRIVE 2 IS CONSIDERED THE APPLICATIONS DVIVE®% ; ALL SAVES OR LOADS DEFAULT TO DRIVE ²0 ; UNLESS TOLD OTHERWISE®5‰@ ; FODS ZERO PAGE LOCATIONÓE‰PZA0 .DE $A°UZA1 .DE $A±`ZA2 .DE $A²eZA3 .DE $A³pZA4 .DE $A´uZA5 .DE $Aµ€ZA6 .DE $A¶…ZA7 .DE $A·ZA8 .DE $A¸•ZA9 .DE $A¹ZAE .DE $AÅZAF .DE $AÆZFE .DE $FÅZFF .DE $FÆ ‰% ; FODS BUFFER LOCATIONÓ0‰5AD000 .DE $700°@AD00A .DE $700ÁEAD00B .DE $700ÂPAD00C .DE $700ÃUAD210 .DE $721°`AD211 .DE $721±eAD212 .DE $721²pAD213 .DE $721³uAD214 .DE $721´€AD215 .DE $721µ…AD216 .DE $721¶AD217 .DE $721·•AD218 .DE $721¸AD219 .DE $721¹AD21A .DE $721ÁAD21B .DE $721ÂAD21C .DE $721Ã AD21D .DE $721Ä%AD220 .DE $722°0AD221 .DE $722±5AD223 .DE $722³@AD224 .DE $722´EAD228 .DE $722¸PAD256 .DE $725¶UAD257 .DE $725·`AD258 .DE $725¸eAD259 .DE $725¹pAD25A .DE $725ÁuAD25F .DE $725Æ€AD260 .DE $726°…AD261 .DE $726±AD262 .DE $726²•AD264 .DE $726´AD265 .DE $726µAD269 .DE $726¹AD26A .DE $726ÁAD26C .DE $726Ã AD26D .DE $726Ä%AD26E .DE $726Å0AD26F .DE $726Æ5AD270 .DE $727°@AD271 .DE $727±EAD272 .DE $727²PAD273 .DE $727³UAD274 .DE $727´`AD276 .DE $727¶eAD277 .DE $727·pAD278 .DE $727¸uAD279 .DE $727¹€AD27A .DE $727Á…AD27B .DE $727ÂAD27C .DE $727Ã•AD27D .DE $727ÄAD27E .DE $727ÅAD27F .DE $727ÆTXBUF .DE $728°AD283 .DE $728³ AD284 .DE $728´%AD285 .DE $728µ0AD286 .DE $728¶5AD28A .DE $728Á@‰E ; MONITOR LOCATIONÓP‰UUSRENT .DE $803µ`CRLF .DE $834ÄeINSTAT .DE $838¶pINCHR .DE $8A1ÂuINRT2 .DE $8A3Ã€OUTCHR .DE $8A4·…INTCHR .DE $8A5¸TOUT .DE $8AA°•ACCESS .DE $8B8¶‰ ; FODS CONTROLLER LOCATIONÓ‰DSK.REGB .DE $A88° DSK.REGA .DE $A88±%DSK.DDRB .DE $A88²0DSK.DDRA .DE $A88³5DSK.T1HIGH .DE $A88µ@DSK.T1LOW .DE $A88¶EDSK.T2LOW .DE $A88¸PDSK.T2HIGH .DE $A88¹UDSK.ACR .DE $A88Â`DSK.PCR .DE $A88ÃeDSK.IFR .DE $A88ÄpDSK.IER .DE $A88Åu‰€ ; SYSTEM RAM LOCATIONÓ…‰TECHO .DE $A65³•INVEC .DE $A66°OUTVEC .DE $A66³UBRKVC .DE $A67¶‰ ; MISCELLANEOUS LOCATIONÓ ‰%TED.COLD .DE $A000 ; START OF "TED" EDITOÒ0TED.USE .DE $602Á5‰@‰E‰P ; START OF ASSEMBLÙU‰` .BA $730°e .OÓp‰u LDA #$00 ;^À€ STA *ZA¹… JMP FODS.WARÍ‰•VEC.1 CLI JMP SET.²‰FDS.BRVEC CLÉ JMP JDAAÄ ‰% TAØ0 TAØ5 TAØ@ TAØE TAØP TAX U TAX ` TAX e TAX p TAX u TAX € TAX … TAX TAX • TAX TAX TAØ TAØ TAØ TAØ% TAØ0 TAØ5 TAØ@ TAØE TAØP TAX U TAX ` TAX e TAX p TAX u TAX € TAX … TAX TAX • TAX TAX TAX TAX TAX TAX % TAX 0 TAX 5 TAX @ TAX E TAX P TAX U TAX ` TAX e TAX p TAX u TAX € TAX … TAX TAX • TAX TAX TAX TAX TAX TAX % TAX 0 TAX 5 TAX @ TAX E TAX P TAX U TAX ` TAX e TAX p TAX u TAX € TAX … TAX TAX • TAX TAX TAX TAX TAX TAX % TAX 0 TAX 5 TAX @ TAX E TAX P TAX U TAX ` TAX e TAX p TAX u TAX € TAX … TAX TAX • TAX TAX TAX TAX TAX TAX % TAX 0 TAØ5 TAØ@ TAØE TAØP TAØU TAØ` TAØe TAØp TAØu TAX € TAX … TAØFODS.WARM CLD • LDX #$FÆ TXS INX STX AD26Æ STX AD27² LDX #$05 ;^Å% STX AD26Ä0 LDX #$16 ;^Ö5 STX AD27¹@ LDX #'# ; PROMPÔE JSR SD58ÁP STX AD27¶U JSR SD4BÄ` LDX #$43 ;Ãe STX AD27Ãp LDY #$47 ;Çu STY AD27Á€ INY … STY AD27Â LDA #$10 ;^Ð• JSR DSKR×JD3B3 CLD LDA #L,VEC.± LDY #H,VEC.± JSR SDAF° BRK %»0SD3BC LDY #$00 ;^À5SD3BE LDA (ZA4),Ù@ PHA E LDA *ZAµP CMP #$A0 ;. U BCS BD3D±`»e LDA #$99 ;.^Ùp STA (ZA4),Ùu LDA (ZA4),Ù€ CMP #$99 ;.^Ù… BNE BD3D·»•BD3D1 PLA STA (ZA4),Ù CMP #$0D ;^Í RTS » BD3D7 LDA #$00 ;^À% STA AD26Æ0 JSR SD58Á5 LDX #FILE.MSG-ERROR.MSÇ@ JSR SD4BÄE BEQ BD46´P»USD3E6 LDA *ZAÅ` LDY *ZAÆeSD3EA STA *ZA¶p STY *ZA·u RTS €»…BD3EF JSR SD58Á LDA #$30 ;°• .BY $2ÃSET.2 LDA #$2° JSR DSKR× LDA AD27¶ JSR SD54Æ JSR SD43Ã% LDX #$FF ;.ÿ0 TXS 5 JSR SET²@ JSR CMDINÔE JMP VEC.±P»USD40F LDY #$00 ;^À`SD411 JSR SD3BÅe CMP #$1F ;^ßp RTS u»€SD417 JSR SD4EÃ… LDY #$00 ;^À STY AD26¹• STY AD26Á INY STY AD25¶BD426 JSR SD40Æ BEQ BD43³ »% JSR SD48¶0 JSR SD4FÃ5 BNE BD42¶@»EBD433 LDA *ZA´P LDY *ZAµUSD437 STA *ZA¸` STY *ZA¹e RTS p»uSD43C LDX #$00 ;^À€ JSR SD56Æ… CMP #$0D ;^Í BEQ BD48°•» CMP #$2B ;« BEQ BD3EÆ» CMP #$03 ;^Ã BNE BD45°%»0 JMP JDBA¶5»@BD450 STA TXBUF,ØE INX P CPX AD27ÁU BMI BD46Ä`»eBD459 JSR SD56Æp CMP #$0D ;^Íu BEQ BD48°€»… CMP #$18 ;^Ø BNE BD45¹•»BD464 JSR SD58Á BRK »BD468 CPX #$00 ;^À BEQ BD46Ä%»0 DEX 5BD46D JSR SD56Æ@ CMP #$18 ;^ØE BEQ BD46´P»U CMP #$5F ;ß` BEQ BD46¸e»p CMP #$08 ;^Èu BEQ BD46¸€»… CMP #$0D ;^Í BNE BD45°•» BD480 STA TXBUF,Ø BD483 JMP SD58Á » SD486 SED CLC % LDA AD26Á0 ADC AD25¶5 STA AD26Á@ LDA AD26¹E ADC #$00 ;^ÀP STA AD26¹U CLD ` RTS e »p SD49B LDA #$00 ;^Àu STA *ZAÅ€ STA *ZAÆ… BD4A1 LDA TXBUF,Ø CMP AD25¶• BEQ BD4B±!»! JSR SD4Bµ! CPX AD26´! BMI BD4A± !»%!BD4B1 RTS 0!»5! LDA TXBUF,Ø@!SD4B5 INX E! JSR SD56¶P! BEQ BD4B±U!»`!BD4BB LDX #0°e!SD4BD LDA ERROR.MSG,Øp! BEQ BD48³u!»€! BMI BD46´…!»! CMP #$0D ;^Í•! BEQ BD4B±"»" JSR SD54Æ" INX " BNE SD4BÄ "»%"SD4CE STA AD26Ã0" LSR Á5" LSR Á@" LSR ÁE" LSR ÁP"SD4D5 AND #$0F ;^ÏU" CMP #$0A ;^Ê`" CLC e" BMI BD4DÅp"»u" ADC #$07 ;^Ç€"BD4DE ADC #$30 ;°…" RTS "»•" LDX #$00 ;^À# SEC # SED #BD4E5 INX # SBC #$01 ;^Á # BNE BD4Eµ%#»0# CLD 5# RTS @#»E#SD4EC LDA *ZA¶P# STA *ZA´U# LDA *ZA·`# STA *ZAµe# RTS p#»u#BD4F5 INC *ZA´€# BNE BD4FÂ…#»# INC *ZAµ•#BD4FB RTS $»$SD4FC JSR SD3BÃ$ BEQ BD4Fµ$» $ JSR BD4Fµ%$ BNE SD4FÃ0$»5$ CMP #$33 ;³@$ BPL BD4BÂE$»P$ CMP #$30 ;°U$ BMI BD4BÂ`$»e$ AND #$0F ;^Ïp$ RTS u$»€$SD511 PHA …$ PHP $ PLA •$ STA AD27´% PLA % STA AD27³%SD51B STY AD22±% STX AD22° % RTS %%»0% JSR SD41·5% LDX #$03 ;^Ã@%BD527 LDA *ZA6,ØE% STA AD257,ØP% DEX U% BPL BD52·`%»e% LDA AD25¸p% JSR SD57¸u% LDA AD25·€% JSR SD57¸…% JSR SD54Á% LDA AD25Á•% JSR SD57¸& LDA AD25¹& JSR SD57¸&SD54A LDA #$20 ; & .BY $2Ã & LDA #$0·%&SD54F JSR SD51±0&JD552 JSR SD5CÂ5&BD555 LDA AD27´@& PHA E& LDA AD27³P& PLP U&JD55D PHP `& LDY AD22±e& LDX AD22°p& PLP u& RTS €&»…&SD566 JSR SD51Â& JSR SDB7±•& JMP JD55Ä'»'SD56F JSR SD51Â' JSR SD5Bµ' JMP JD55Ä '»%'SD578 JSR SD51±0' JSR SD4CÅ5' JSR SD5CÂ@' LDA AD26ÃE' JSR SD4DµP' JMP JD55²U'»`'SD58A JSR SD51±e' JSR SD5DÆp' LDA AD27±u' BNE BD55µ€'»…' JSR SD5DÆ' JMP BD55µ•'»(SD59B LDA AD27²(JD59E CLC ( AND #$03 ;^Ã( BEQ BD5A¶ (»%( SEC 0( AND #$02 ;^Â5(BD5A6 RTS @(»E(SD5A7 LDA AD27²P( LSR ÁU( LSR Á`( JMP JD59Åe(»p(BD5AF JSR INCHÒu( AND #$7F ;ÿ€( RTS …(»(SD5B5 JSR SD5A·•( BCC BD5AÆ)») JMP JDB9¹)»)BD5BD PLA )SD5BE PHA %) JSR INSTAÔ0) BCC BD5C·5)»@) JMP BD46´E)»P)BD5C7 PLA U) JMP OUTVEÃ`)»e)SD5CB PHA p) JSR SD59Âu) BCC BD5BÄ€)»…) BEQ BD5D¸)»•) PLA 0 PHA 0 JSR SD5BÅ0BD5D8 PLA 0 JMP JDB9Ã 0»%0BD5DC JMP CRLÆ00»50SD5DF JSR SD59Â@0 BCC BD5DÃE0»P0 BEQ BD5E¹U0»`0 JSR BD5DÃe0BD5E9 JMP JDB9Æp0»u0 LDA AD27Ä€0 BPL BD5F·…0»0 JSR SD8DÄ•0 INC AD27Ä1BD5F7 LDX #$FF ;.ÿ1 TXS 1 INX 1 LDY #$FF ;.ÿ 1BD5FD INY %1 LDA (ZA0),Ù01 CMP #$3A ;º51 BEQ BD60Å@1»E1 CMP #$0D ;^ÍP1 BEQ BD62²U1»`1 STA TXBUF,Øe1 INX p1 BPL BD5FÄu1»€1BD60E LDA #$0D ;^Í…1 STA TXBUF,Ø1 INY •1 CLC 2 TYA 2 ADC *ZA°2 STA *ZA°2 BCC BD61Å 2»%2 INC *ZA±02BD61E JSR TED.USÅ52 BRK @2»E2BD622 INY P2 LDA (ZA0),ÙU2 INY `2 INY e2 CMP #$1F ;^ßp2 BNE BD5FÄu2»€2 JSR SD8DÄ…2 JMP TED.COLÄ2»•2SD631 LDA #$00 ;^À3 .BY $2Ã3SET2 LDA #$02 3 STA AD21µ3 RTS 3»%3SD63A LDX #$00 ;^À03 STX AD21¶53 STX AD26¹@3 INX E3 STX AD21·P3 LDA #$00 ;^ÀU3 LDY #$D0 ;.Ð`3 JSR SD68·e3 LDA #$FF ;.ÿp3 LDY #$D1 ;.Ñu3JD651 STA AD21²€3 STY AD21³…3 RTS 3»•3SD658 JSR SD63Á4SD65B LDA #$00 ;^À4DSKRW STA AD21¸4 LDA #$00 ;^À4 STA AD21´ 4 JSR SDC7Ã%4 LDA AD21Â04 BMI BD69±54»@4 JMP JD79²E4»P4JD670 LDA AD26±U4 STA AD00Á`4 LDA AD26°e4 STA AD00Âp4 JSR SD63Áu4SD67F LDA #$01 ;^Á€4 BNE DSKR×…4»4SD683 LDA #$0C ;^Ì•4 LDY #$D0 ;.Ð5SD687 STA AD21°5 STY AD21±5 STA *ZA´5 STY *ZAµ 5BD691 RTS %5»05SD692 LDA #$1F ;^ß55 STA AD00Ã@5 LDX #$0B ;^ËE5 LDA #$00 ;^ÀP5BD69B STA AD000,ØU5 STA AD258,Ø`5 DEX e5 CPX #$05 ;^Åp5 BNE BD69Âu5»€5 INC AD00Â…5 INC AD00Á5 LDA #$0D ;^Í•5BD6AE STA AD000,Ø6 DEX 6 BPL BD6AÅ6»6 RTS 6»%6SD6B5 JSR SD68³06 LDX #$00 ;^À56BD6BA JSR SD40Æ@6 BEQ BD6CÂE6»P6 JSR SD89ÁU6 INX `6 CPX #$28 ;¨e6 BMI BD6BÁp6»u6 TXA €6 JMP JD79²…6»6BD6CB LDA AD284,Ù•6 STA (ZA4),Ù7 INY 7 CPY #$06 ;^Æ7 BNE BD6CÂ7» 7BD6D5 LDA ZA0,Ù%7 STA (ZA4),Ù07 INY 57 CPY #$0A ;^Ê@7 BNE BD6DµE7»P7 RTS U7»`7BD6E0 JMP JD8BÂe7»p7SD6E3 LDX #$03 ;^Ãu7BD6E5 LDA *ZA6,Ø€7 STA AD224,Ø…7 DEX 7 BPL BD6Eµ•7»8 RTS 8‰8ENTER JSR SD80²8 LDA #$24 ;¤ 8 CMP AD28´%8 BNE BD6E°08»58 STA AD25¶@8 LDA #$09 ;^ÉE8 STA AD26´P8 JSR SD6E³U8 LDX #$05 ;^Å`8 JSR SD49Âe8 CPX #$06 ;^Æp8 BPL BD71²u8»€8BD70C JSR SD72´…8 JMP BD4BÂ8»•8BD712 JSR SD3E¶9 INX 9 LDA #$0E ;^Î9 JSR SD72Æ9 JSR SD43· 9 JSR SD74Á%9 JSR JD8BÂ09SD724 LDX #$03 ;^Ã59BD726 LDA AD224,Ø@9 STA *ZA6,ØE9 DEX P9 BPL BD72¶U9»`9 RTS e9»p9SD72F STA AD26´u9 STA AD26µ€9 INC AD26µ…9 LDA #$3D ;½9 STA AD25¶•9 JSR SD49Â@ CPX AD26µ@ BPL BD70Ã@»@ LDA *ZAÅ @ LDY *ZAÆ%@ RTS 0@»5@SD74A INC AD27°@@JD74D LDY #$03 ;^ÃE@BD74F INY P@ INX U@ LDA TXBUF,Ø`@ STA TXBUF,Ùe@ CMP #$0D ;^Íp@ BNE BD74Æu@»€@ RTS …@»@SD75C SEC •@ LDA *ZA¸A SBC *ZA¶A STA AD27ÅA TAX A LDA *ZA¹ A BEQ BD78´%A»0A SBC *ZA·5A STA AD27Æ@A PHA EA TXA PA ASL ÁUA PLA `A ROL ÁeA BCS BD78ÄpA»uA STA AD26Á€A TXA …A INC AD26ÁA AND #$7F ;ÿ•A EOR #$FF ;.ÿB STA AD26¹B RTS B‰BBD784 LDA #$60 ;à B .BY $2Ã%BBD787 LDA #$5°0B .BY $2Ã5BBD78A LDA #$FÆ@B .BY $2ÃEBBD78D LDA #$3°PB .BY $2ÃUBBD790 LDA #$9¹`B‰eBJD792 JSR SD57¸pB LDX #STAT.MSG-ERROR.MSÇuB JMP SD4BÄ€B»…BBD79A LDA AD25ÆB ADC AD26Á•BJD7A0 STA AD26°C BEQ BD78ÁC»C CMP #$11 ;^ÑC BPL BD78Á C»%C LDA AD26±0C CMP #$50 ; 80 TRACKS - 28 FOR 40 TRACKÓ5C BPL BD78·@C»EC RTS PC»UCSD7B1 JSR SD6Bµ`C LDA AD00ÁeC STA AD21¶pC STA AD26±uC STA (ZA4),Ù€C INY …C LDA AD00ÂC STA AD21·•C STA AD25ÆD STA (ZA4),ÙD BEQ BD79°D»D CMP #$11 ;^Ñ D BPL BD79°%D»0D INY 5D LDA #$1F ;^ß@D STA (ZA4),ÙED JSR SD75ÃPD SEC UD LDA #$11 ;^Ñ`D SBC AD25ÆeD STA AD26²pD LDA AD26ÁuD SBC AD26²€D BCC BD79Á…D»D STA AD26²•DBD7ED INC AD26±E SBC #$10 ;^ÐE BCC BD7F¹E»E STA AD26² E BCS BD7EÄ%E»0EBD7F9 INC AD26²5E LDA AD26²@E JMP JD7A°EE»PESD802 LDA AD28µUE CMP #$2F ;¯`E BNE BD83ÆeE»pE LDA AD28´uE CMP #$32 ;²€E BEQ BD81·…E»E CMP #$31 ;±•E BNE BD82ÄF»F JSR SD63±FBD817 LDX #$05 ;^ÅF JMP JD74Ä F»%FSD81C JSR SD80²0F LDX #$FF ;.ÿ5F LDA #$0D ;^Í@FBD823 INX EF CMP TXBUF,ØPF BNE BD82³UF»`F CPX #$05 ;^ÅeF BPL BD83¶pF»uFBD82D JMP BD4BÂ€F»…FBD830 LDA #$20 ; F STA TXBUF,Ø•F INX GBD836 CPX #$0A ;^ÊG BMI BD83°G»G LDA #$0D ;^Í G STA AD28Á%GBD83F RTS 0G»5GSD840 JSR SD68³@GBD843 LDY #$FF ;.ÿEGBD845 INY PG CPY #$06 ;^ÆUG BEQ BD86¹`G»eG JSR SD41±pG BEQ BD8AµuG»€G CMP AD284,Ù…G BEQ BD84µG»•G ORA #$20 ; H CMP AD284,ÙH BEQ BD84µH»H JSR SD89Á H BNE BD84³%H»0HBD860 LDY #$05 ;^Å5H LDA #$7F ;ÿ@HBD864 STA (ZA4),ÙEH DEY PH BPL BD86´UH»`HBD869 CLC eH RTS pH»uHSD86B JSR SD84°€H BCS BD8A¶…H»H LDA AD28³•H CMP #$21 ;¡I BEQ BD86°I»IBD877 LDX #ERASE.MSG-ERROR.MSÇI JSR SD4BÄ I JSR SD56Æ%I JSR SD58Á0I CMP #$59 ;Ù5I BEQ BD86°@I»EI CMP #$4E ;ÎPI BEQ BD89²UI»`I CMP #$79 ;ùeI BEQ BD86°pI»uI CMP #$6E ;î€I BNE BD87·…I»IBD892 LDX #ABORT.MSG-ERROR.MSÇ•I JMP SD4BÄP»PSD897 LDA #$05 ;^ÅP .BY $2ÃPSD89A LDA #$0Ã P CLC %P ADC *ZA´0P STA *ZA´5P BCC BD8A¶@P»EP INC *ZAµPPBD8A5 SEC UPBD8A6 RTS `P»ePSD8A7 JSR SD81ÃpPSD8AA JSR SD65¸uP LDX #$05 ;^Å€PBD8AF LDA AD000,Ø…P CMP #$0D ;^ÍP BNE BD8Aµ•P»Q DEX Q BPL BD8AÆQ»Q CLC Q RTS %Q»0QJD8BB JSR SD8A·5Q BCC BD8C³@Q»EQ JSR SD69²PQBD8C3 JSR SD86ÂUQ LDA AD27°`Q BEQ BD8CÅeQ»pQ JSR SD41·uQBD8CE JSR SD7B±€Q JSR SD4EÃ…Q JSR SD96³Q JSR SD67Æ•Q JMP JD67°R»RSD8DD LDX #$05 ;^ÅRBD8DF LDA TED.MSG,ØR STA AD283,Ø R DEX %R BPL BD8DÆ0R»5R JSR SD63±@R BEQ BD90´ER‰PRLOAD JSR SD80²UR LDA AD28´`R CMP #$24 ;¤eR BNE BD90´pR»uR LDA #$09 ;^É€R LDX #$05 ;^Å…R JSR SD72ÆR JSR SD3EÁ•R JSR SD74ÁSBD904 JSR SD6E³S JSR SD8A·S BCC BD91±S» S LDX #INDEX.MSG-ERROR.MSÇ%SBD90E JMP SD4BÄ0S»5SBD911 JSR SD84°@SJD914 LDX #UNDEF.MSG-ERROR.MSÇES BCS BD90ÅPS»US JSR SDADÆ`SSD91B JSR SD75ÃeS LDA (ZA4),ÙpS STA AD21¶uS INY €S LDA (ZA4),Ù…S STA AD21·S LDA AD27°•S BMI BD93ÄT»T JSR SD3E¶T CLC T ADC AD27Å T STA *ZA¸%T TYA 0T ADC AD27Æ5T STA *ZA¹@TBD93D JSR SD96³ET JSR SD65ÂPT LDA AD28´UT CMP #$25 ;¥`T BEQ BD96°eT»pT CMP #$7F ;ÿuT BEQ BD95Æ€T»…T CMP #$40 ;ÀT BEQ BD95Æ•T»U BCC BD95ÆU»U JSR SD41·U LDA AD26Å U BNE BD95Æ%U»0U INC AD26Å5UBD95F RTS @U»EUBD960 JMP SD72´PU»UUSD963 LDA *ZA¶`U LDY *ZA·eU JSR SD68·pU LDA *ZA¸uU LDY *ZA¹€U JMP JD65±…U»U JSR SD80²•U JMP RUÎV»VBD977 JSR SD63±V LDX #$0A ;^ÊVBD97C LDA AD283,Ø V STA AD228,Ø%V DEX 0V BPL BD97Ã5V»@V STX AD27ÄEV LDA #$0D ;^ÍPV LDY #$04 ;^ÄUV STA AD27F,Ù`V JSR BD74ÆeV LDA #$20 ; pV STA AD28³uV‰€VRUN PLÁ…V PLA V LDA #$25 ;¥•V STA AD28´W JSR BD90´W JSR SD84°W JSR SET²WBD9A7 LDA (ZA4),Ù W STA *ZA²%W INY 0W LDA (ZA4),Ù5W STA *ZA³@W JMP (ZA2©EW»PWCMDINT LDA #L,CMDÓUW LDY #H,CMDÓ`W JSR SD68·eWJD9BA LDY #$FF ;.ÿpW LDX #$FF ;.ÿuW STX AD26Ã€W STX AD27±…W STX AD27°W STX AD27¸•WBD9CA INX X INY X CPX #$03 ;^ÃX BEQ BD9A·X» X JSR SD41±%X BEQ BD97·0X»5X CMP TXBUF,Ø@X BEQ BD9CÁEX»PX ORA #$20 ; UX CMP TXBUF,Ø`X BEQ BD9CÁeX»pX JSR SD89·uX JMP JD9BÁ€X»…XCMDS .BY 'ENT§X .SI ENTEÒ•X .BY 'LOD§Y .SI LOAÄY .BY 'RUN§Y .SI RUÎY .BY 'LCP§ Y .SI LCP.CMÄ%Y .BY 'XXX§0Y .SI JD3B³5Y .BY $1F ; END OF FILE MARKEÒ@Y»EY LDY #$00 ;^ÀPY STY AD26ÃUY STY AD27·`Y JSR SET.VEÃeYBDA0C JSR SDB0´pYBDA0F LDY AD27·uY LDA AD286,Ù€Y CMP #$2C ;¬…Y BEQ BDA2ÂY»•Y CMP #$0D ;^Í` BNE BDA2²`»` INC AD26Ã`BDA20 BNE BDA2Ä `»%`BDA22 STA AD284,Ø0` INC AD27·5` INX @` BNE BDA0ÆE`»P`BDA2B LDA #$0D ;^ÍU`BDA2D STA AD284,Ø`` INC AD27·e` LDA AD25·p` STA AD21µu` LDA #$FF ;.ÿ€` STA AD27°…` JSR SD8A·` JSR SD84°•` BCC BDA4¹a»a JMP JD91´a»aBDA49 JSR SDACµ aJDA4C LDA AD26Ã%a BEQ BDA0Ã0a»5aBDA51 LDA #$00 ;^À@a STA *ZA¹Ea JMP JD3B³Pa»Ua JSR SET.VEÃ`a LDA #$00 ;^Àea LDY #$D0 ;.Ðpa STA AD25¹ua STY AD25Á€aJDA65 LDA AD25·…a STA AD21µa JSR SD8AÁ•a JSR SDAA´bBDA71 JSR SD89Áb LDY #$05 ;^ÅbBDA76 LDA (ZA4),Ùb CMP #$1F ;^ß b BEQ BDA5±%b»0b CMP #$7F ;ÿ5b BNE BDA8µ@b»Eb LDX AD26ÃPb BEQ BDA7±Ub»`bBDA85 STA AD284,Ùeb DEY pb BPL BDA7¶ub»€b LDA *ZA´…b STA AD25¹b LDA *ZAµ•b STA AD25Ác STY AD27°c JSR SD8AÁc JSR SDAA´c JSR SDACµ c JMP JDA6µ%c»0cSDAA4 LDA AD25¹5c LDY AD25Á@c JMP SD68·Ec»PcJDAAD LDX #$00 ;^ÀUc JSR SD54Á`cBDAB2 LDA AD284,Øec CMP #$0D ;^Ípc BEQ BDABÆuc»€c JSR SD54Æ…c INX c BNE BDAB²•c»dBDABF JSR SD58Ád JMP JDA4Ãd»dSDAC5 JSR SDADÆ d JSR SD6E³%d JSR SD91Â0d LDA AD25¸5d STA AD21µ@d LDA #$21 ;¡Ed STA AD28³Pd INC AD27°Ud JMP JD8BÂ`d»edSDADF LDY #$06 ;^ÆpdBDAE1 LDA (ZA4),Ùud STA ZA0,Ù€d INY …d CPY #$0A ;^Êd BMI BDAE±•d»e RTS e»eSET.VEC LDA #L,FDS.BRVEÃe LDY #H,FDS.BRVEÃ eSDAF0 JSR ACCESÓ%e STA UBRKVÃ0e STY UBRKVC+±5e PHA @e LDA TECHÏEe ORA #$80 ;.^ÀPe STA TECHÏUe PLA `e RTS ee»peSDB04 LDX #$09 ;^ÉueBDB06 LDA AD228,Ø€e STA AD283,Ø…e DEX e BNE BDB0¶•e»f RTS f»fERROR.MSG .BY 'Error' $FÆfERASE.MSG .BY 'Erase § fFILE.MSG .BY 'file? ' $Ä%fINDEX.MSG .BY 'INDEX §0fUNDEF.MSG .BY 'UNDEFINED' $FÆ5fBOOT.MSG .BY 'FODS Copyright (@) 1981 HDE inc' $0°@fABORT.MSG .BY 'ABORT' $FÆEfSTAT.MSG .BY ' STAT ERR' $FÆPfNEXTT.MSG .BY 'NEXT: T' $ÄUfTED.MSG .BY ' %TED' $Ä`f‰efSDB71 CMP #$3°pf BMI BDB8Æuf CMP #$47 ;Ç€f BPL BDB8Æ…f»f CMP #$40 ;À•f BMI BDB8°g»g CLC g ADC #$09 ;^ÉgBDB80 ROL Á g ROL Á%g ROL Á0g ROL Á5g LDY #$04 ;^Ä@gBDB86 ROL ÁEg ROL *ZAÅPg ROL *ZAÆUg DEY `g BNE BDB8¶eg»pg TYA ugBDB8F RTS €g»…gBDB90 LDA *ZAÅg STA *ZFÅ•g LDA *ZAÆh STA *ZFÆh RTS h»hJDB99 JMP INVEÃ h»%hJDB9C JMP OUTVEÃ0h»5hJDB9F JMP CRLÆ@h»Eh RTS Ph»Uh NOP `h NOP eh NOP phJDBA6 JSR USRENÔuh JMP FODS.WARÍ€h»…hSDBAC JSR SDC6³h LDA #$E0 ;.à•h STA DSK.ACR,Øi LDA #$FB ;.ûi STA DSK.PCR,Øi LDA #$C2 ;.Âi STA DSK.T1LOW,Ø i LDA #$00 ;^À%i STA DSK.T1HIGH,Ø0i STA DSK.T2LOW,Ø5i STA DSK.T2HIGH,Ø@i LDA #$00 ;^ÀEi STA DSK.DDRA,ØPi LDA #$BF ;.¿Ui STA DSK.DDRB,Ø`i LDA #$26 ;¦ei STA DSK.REGB,Øpi LDA DSK.REGA,Øui LDA DSK.IFR,Ø€i STA DSK.IFR,Ø…i LDA #$2F ;¯i STA AD21¹•i JSR SDC4±p RTS p»pSDBEA LDA AD21´p ASL Á p ASL Á%p ASL Á0p ASL Á5p TAX @p RTS Ep»PpSDBF3 LDA DSK.PCR,ØUp AND #$DF ;.ß`p STA DSK.PCR,Øep ORA #$20 ; pp STA DSK.PCR,Øup RTS €p»…pSDC01 LDA DSK.REGB,Øp AND #$F8 ;.ø•p ORA AD21µq JMP JDC3Äq»qSDC0C LDA #$FF ;.ÿq STA DSK.DDRA,Ø q LDA DSK.REGB,Ø%q AND #$DF ;.ß0q JMP JDC3Ä5q»@qSDC19 LDA #$00 ;^ÀEq STA DSK.DDRA,ØPq LDA DSK.REGB,ØUq ORA #$20 ; `q JMP JDC3Äeq»pqSDC26 LDA DSK.REGB,Øuq AND #$E7 ;.ç€q JMP JDC3Ä…q»qSDC2E LDA DSK.REGB,Ø•q AND #$F7 ;.÷r ORA #$10 ;^Ðr JMP JDC3Är»rSDC38 LDA DSK.REGB,Ø r ORA #$18 ;^Ø%rJDC3D STA DSK.REGB,Ø0r RTS 5r»@rSDC41 JSR SDC0ÃEr JSR SDC2¶Pr LDA #$C8 ;.ÈUr STA DSK.T2HIGH,Ø`r JSR SDC5¶er LDA AD21¹pr STA DSK.REGA,Øur RTS €r»…rSDC56 SEI r LDA DSK.IFR,Ø•r STA DSK.IFR,Øs LDA #$B2 ;.²s STA DSK.IER,Øs RTS s» sSDC63 LDA #$7F ;ÿ%s STA DSK.IER,Ø0s CLI 5s RTS @s»EsSDC6A JSR SDC1¹Ps JSR SDC2¶Us JSR SDBF³`s LDA DSK.REGA,Øes EOR #$FF ;.ÿps STA AD21Áus RTS €s»…sSDC7C LDA AD21¸s CMP #$10 ;^Ð•s BEQ BDC9Åt»t CMP #$20 ; t BEQ BDCAÁt» t CMP #$30 ;°%t BNE BDCCµ0t»5t JSR SDBEÁ@t JSR SDEB¶Et BCS BDC9ÂPt»Ut LDA #$00 ;^À`t STA AD21µet JSR SDC0±ptBDC9B JMP JDD2Âut»€tBDC9E JSR SDBEÁ…t JSR SDBAÃt JSR SDEB¶•t JMP JDD2Âu»uBDCAA JSR SDBEÁu JSR SDEB¶u BCS BDCC² u»%u LDA #$06 ;^Æ0u STA AD21µ5u JSR SDC0±@u JSR SDE4ÁEu LDA #$EC ;.ìPu JSR SDE7ÃUuBDCC2 JMP JDD2Â`u»euBDCC5 LDA AD21°pu STA *ZA´uu LDA AD21±€u STA *ZAµ…u LDA #$00 ;^Àu STA AD21Ã•u LDA #$1E ;^Þv STA AD21ÄvBDCD9 JSR SDBEÁv JSR SDEB¶v BCS JDD2Â v»%v JSR SDDCµ0v BCS JDD2Â5v»@vJDCE6 JSR SDE6ÃEv BCS JDD2ÂPv»UvJDCEB JSR SDEA¶`v JSR SDECÄev LDA AD21¸pv BEQ BDD3¶uv»€v CMP #$01 ;^Á…v BEQ BDD3¹v»•v CMP #$03 ;^Ãw BEQ BDD0Åw»w CMP #$04 ;^Äw BEQ BDD1Ã w»%w CMP #$06 ;^Æ0w BEQ BDD5Æ5w»@w LDA #$17 ;^×Ew STA AD21ÂPw SEC Uw BCS JDD2Â`w»ewBDD0E JSR SDEE¶pw BCS JDD2Âuw»€w JSR SDC6Á…w AND #$9F ;.^ßw BEQ BDD8´•w»x BNE BDD2¶x»xBDD1C JSR SDF2Áx BCS JDD2Â x»%x JSR SDC6Á0x BEQ BDD8´5x»@xBDD26 JSR SDF8ÃExBDD29 BCC BDCD¹Px»UxJDD2B JSR SDC6³`x BCS BDD3µex»px LDA #$FF ;.ÿux STA AD21Â€xBDD35 RTS …x‰xBDD36 LDA #$0³•x .BY $2ÃyBDD39 LDA #$0´y STA AD21¸y LDA AD21¶y PHA y LDA AD21·%y PHA 0y JSR BDCD¹5y BCC BDD4Æ@y»Ey PLA Py PLA Uy BCS JDD2Â`y»eyBDD4F LDA #$06 ;^Æpy STA AD21¸uy PLA €y STA AD21·…y PLA y STA AD21¶•y JMP SDC7Ã€»€BDD5F JSR SDF5¶€ BCS JDD2Â€» € JSR SDC6Á%€ AND #$9F ;.^ß0€ BNE BDD7¸5€»@€ LDA AD21ÃE€ BEQ BDD8´P€»U€ LDA #$23 ;£`€ STA AD21Âe€ SEC p€ BCS JDD2Âu€»€€BDD78 LDA #$00 ;^À…€ STA AD21Ã€ JSR SDF8Ã•€ BCS JDD2Â» BCC BDD2¹»BDD84 LDA #$1E ;^Þ STA AD21Ä% CLC 0 LDA *ZA´5 ADC AD22³@ STA *ZA´E LDA *ZAµP ADC #$00 ;^ÀU STA *ZAµ` CMP AD21³e BNE BDDA·p»u LDA *ZA´€ CMP AD21²… BNE BDDA·»• CLC ‚ JMP JDD2Â‚»‚BDDA7 INC *ZA´‚ BNE BDDAÄ ‚»%‚ INC *ZAµ0‚BDDAD LDA #$10 ;^Ð5‚ CMP AD21·@‚ BEQ BDDBÁE‚»P‚ INC AD21·U‚ JMP JDCEÂ`‚»e‚BDDBA LDA #$01 ;^Áp‚ STA AD21·u‚ INC AD21¶€‚ JMP JDCE¶…‚»‚SDDC5 LDA AD21µ•‚ AND #$06 ;^Æƒ CMP #$06 ;^Æƒ BNE BDDD²ƒ»ƒ LDA #$02 ;^Â ƒ BNE BDDFÁ%ƒ»0ƒBDDD2 LDA DSK.REGB,Ø5ƒ AND #$06 ;^Æ@ƒ STA AD22³Eƒ JSR SDC0±Pƒ LDA AD22³Uƒ CMP #$06 ;^Æ`ƒ BNE BDDFÆeƒ»pƒ JSR SDC6³uƒ LDA #$0A ;^Ê€ƒ STA DSK.T2HIGH,Ø…ƒ JSR SDC5¶ƒBDDEF LDA DSK.IFR,Ø•ƒ BPL BDDEÆ„»„ AND #$20 ; „ BNE BDDFÆ„» „ LDA #$12 ;^Ò%„BDDFA STA AD21Â0„ SEC 5„BDDFE RTS @„»E„BDDFF JSR SDE1³P„ BCS BDDFÅU„»`„ LDA AD21µe„ AND #$06 ;^Æp„ CMP AD22³u„ BEQ BDE4¸€„»…„ LDA #$F4 ;.ô„ JMP SDE7Ã•„»…SDE13 JSR SDE4Á… LDA #$E4 ;.ä… JSR SDE7Ã… BCS BDDFÅ …»%… JSR SDC6³0… LDA #$03 ;^Ã5… STA DSK.T2HIGH,Ø@… JSR SDC5¶E…BDE28 JSR SDC6ÁP… AND #$02 ;^ÂU… BNE BDE3¸`…»e… LDA DSK.IFR,Øp… BPL BDE2¸u…»€… LDA #$20 ; …… BNE BDDFÁ…»•…BDE38 JSR SDC6Á† AND #$02 ;^Â† BEQ BDE4¸†»† LDA DSK.IFR,Ø † BPL BDE3¸%†»0† LDA #$21 ;¡5† BNE BDDFÁ@†»E†BDE48 CLC P† RTS U†»`†SDE4A JSR SDC1¹e† JSR SDE6±p† JSR SDBF³u† LDY DSK.REGA,Ø€† JSR SDC3¸…† JSR SDC0Ã† TYA •† STA DSK.REGA,Ø‡ RTS ‡»‡SDE61 LDA DSK.REGB,Ø‡ AND #$EF ;.ï ‡ ORA #$08 ;^È%‡ STA DSK.REGB,Ø0‡ RTS 5‡»@‡SDE6C JSR SDC3¸E‡ JSR SDC0ÃP‡ LDA AD21¶U‡ EOR #$FF ;.ÿ`‡ STA DSK.REGA,Øe‡ LDA #$E0 ;.àp‡SDE7C STA AD21¹u‡ JSR SDC4±€‡BDE82 LDA DSK.IFR,Ø…‡ BPL BDE8²‡»•‡ AND #$10 ;^Ðˆ BEQ BDE9¹ˆ»ˆ LDA #$1A ;^Úˆ STA AD21Â ˆ JSR SDC6Á%ˆ AND #$19 ;^Ù0ˆ BNE BDEA´5ˆ»@ˆ CLC Eˆ RTS Pˆ»UˆBDE99 LDA #$12 ;^Ò`ˆ STA AD21Âeˆ LDA DSK.IFR,Øpˆ STA AD21ÁuˆBDEA4 SEC €ˆ RTS …ˆ»ˆSDEA6 JSR SDC2Å•ˆ JSR SDC0Ã‰ LDA AD21·‰ EOR #$FF ;.ÿ‰ STA DSK.REGA,Ø‰ CLC ‰ RTS %‰»0‰SDEB6 LDA #$E0 ;.à5‰ CMP DSK.ACR,Ø@‰ BNE BDEC¶E‰»P‰ LDA #$BF ;.¿U‰ CMP DSK.DDRB,Ø`‰ BNE BDEC¶e‰»p‰ CLC u‰ RTS €‰»…‰BDEC6 LDA #$1F ;^ß‰ STA AD21Â•‰ SEC RTS »SDECD SEC LDA AD21² SBC *ZA´% BMI BDEE°0»5 STA AD22³@ TAY E LDA AD21³P SBC *ZAµU BEQ BDEEµ`»eBDEE0 LDY #$7F ;ÿp STY AD22³uBDEE5 RTS €»…SDEE6 LDA #$77 ;÷ STA AD21¹• JSR SDC4±‘ JSR SDC3¸‘ JSR SDC1¹‘BDEF4 LDA DSK.IFR,Ø‘ BPL BDEF´ ‘»%‘ AND #$02 ;^Â0‘ BEQ BDF1´5‘»@‘ LDA DSK.REGA,ØE‘ STA (ZA4),ÙP‘ DEY U‘ BPL BDEF´`‘»e‘BDF05 LDA DSK.IFR,Øp‘ BPL BDF0µu‘»€‘ AND #$02 ;^Â…‘ BEQ BDF1´‘»•‘ LDA DSK.REGA,Ø’ JMP BDF0µ’»’BDF14 LDA DSK.IFR,Ø’ AND #$10 ;^Ð ’ BEQ BDF1Ä%’»0’ CLC 5’ RTS @’»E’BDF1D LDA #$51 ;ÑP’ STA AD21ÂU’ LDA DSK.IFR,Ø`’ STA AD21Áe’ SEC p’ RTS u’»€’SDF2A LDA #$57 ;×…’ STA AD21¹’ JSR SDC4±•’ JSR SDC3¸“BDF35 LDA DSK.IFR,Ø“ BPL BDF3µ“»“ AND #$02 ;^Â “ BEQ BDF1´%“»0“ LDA (ZA4),Ù5“ STA DSK.REGA,Ø@“ DEY E“ BPL BDF3µP“»U“BDF46 LDA DSK.IFR,Ø`“ BPL BDF4¶e“»p“ AND #$02 ;^Âu“ BEQ BDF1´€“»…“ LDA #$00 ;^À“ STA DSK.REGA,Ø•“ BEQ BDF4¶”»”SDF56 LDA #$77 ;÷” STA AD21¹” JSR SDC4± ” JSR SDC3¸%” JSR SDC1¹0”BDF64 LDA DSK.IFR,Ø5” BPL BDF6´@”»E” AND #$02 ;^ÂP” BEQ BDF1´U”»`” LDA DSK.REGA,Øe” CMP (ZA4),Ùp” BNE BDF8¶u”»€” DEY …” BPL BDF6´”»•”BDF77 LDA DSK.IFR,Ø• BPL BDF7·•»• AND #$02 ;^Â• BEQ BDF1´ •»%• LDA DSK.REGA,Ø0• JMP BDF7·5•»@•BDF86 INC AD21ÃE• JMP BDF7·P•»U•SDF8C LDA #$22 ;¢`• STA AD21Âe• DEC AD21Äp• BEQ BDFCÁu•»€• LDA AD21Ä…• CMP #$0A ;^Ê• BEQ BDFA³••»– CMP #$14 ;^Ô– BEQ BDFBµ–»–BDFA1 CLC – RTS %–»0–BDFA3 LDA AD21¶5– CMP #$00 ;^À@– BEQ BDFA±E–»P– LDA #$A0 ;. U– JSR SDE7Ã`– BCS BDFCÁe–»p– LDA #$80 ;.^Àu– BNE BDFCµ€–»…–BDFB5 LDA AD21¶– CMP #$23 ;£•– BEQ BDFA±—»— LDA #$80 ;.^À— JSR SDE7Ã— BCS BDFCÁ —»%— LDA #$A0 ;. 0—BDFC5 JSR SDE7Ã5— BCC BDFA±@—»E—BDFCA LDA #$1D ;^ÝP— STA AD21ÂU— SEC `— RTS e—‰p—LCP.CMD JSR ACCESÓu— LDA #L,CMD.VEÃ€— LDY #H,CMD.VEÃ…— STA INVEC+±— STY INVEC+²•— RTS ˜»˜CMD.VEC PLÁ˜ PLA ˜ JSR ACCESÓ ˜JDFE4 JSR INTCHÒ%˜ AND #$7F ;ÿ0˜ CMP #$0F ;^Ï5˜ BNE BDFF¸@˜»E˜ LDA TECHÏP˜ EOR #$40 ;ÀU˜ STA TECHÏ`˜ JMP JDFE´e˜»p˜BDFF8 BIT TECHÏu˜ BVS JDFE´€˜»…˜ JMP INRT²˜»•˜ .EÎU