;¢; Col80 - an 80-column FAST file¢; reader... v1.5 ¢;¢; (c) July 1992 Itay Chamiel¢;¢; For everybody:¢;¢; This program was written using¢; T:Edit, and assembled using A65.¢; I take no responsibility for¢; incompatibilities with other¢; assemblers (Who'd want one??)¢;¢; This program is not commented,¢; exept for a few minimal blurbs¢; scattered around it.¢;¢; I take no responsibility for the¢; cleanliness of the code, but I¢; CAN say that this one compiled¢; without errors and had no¢; unexpected bugs - with A65.¢;¢; If you modify it, do NOT change¢; the credits... I'll do that, if¢; you have made any important¢; additions.. and deserve credit..¢; *I* will increment the version¢; number and add your credit..¢; Just send me the modified code¢; (your part commented a bit..)¢; and I'll change the title screen.¢;¢; If you'll want to make it be able¢; to go up when reading, I warn you¢; that you'll have to flush out the¢; entire mess of a main loop that I¢; wrote.. :) ¢;¢; I guess enjoy the hack... it's¢; not THAT bad!!¢;¢; -Itay Chamiel¢; September 3 1992¢;¢;¢;¢; Zero-page equates¢;¢DLDOER=$80¢POS=$82¢X=$83¢Y=$84¢CNTRL=$85¢CNTRH=$86¢PRCHAR=$87¢TEMP=$89¢MORCNTR=$8A¢PRLEN=$8B¢PRCNTR=$8C¢BUFPLC=$8E¢BUFLIM=$90¢MORSIZE=$92¢PRFROM=$94¢STAT=$96¢;¢; Equates¢;¢DLIST=$9C00¢CHARSET=$9800¢SCREEN=$A000-80¢ICCOM=$342¢ICBAL=$344¢ICBAH=$345¢ICPTL=$346¢ICPTH=$347¢ICBLL=$348¢ICBLH=$349¢ICAX1=$34A¢ICAX2=$34B¢CIOV=$E456¢;¢; Main program¢;¢ ORG $2E0¢ DW INIT¢ ORG $294A ; Overwrite Mydos's DUP¢HDLIST¢ DB $70,$70,$30,$42¢ DW HLINES¢ DB $70,$70,$70,$70,$70¢ DB 2,0,2,0,2,0,2,65¢ DW HDLIST¢HLINES¢ DB 'áááב∩∮ÕãáΓ∙áח⌠β∙áבΦβ'¢ DB 'ϕΘσ∮á¡áזσ∮≡≤π≥σσ∈ááá'¢ DB ' ? - Help '¢ DB ' '¢ DB ' <Return> - Line d'¢ DB 'own '¢ DB ' <Spacebar> - Page d'¢ DB 'own '¢ DB ' Q - Quit '¢ DB ' '¢INIT¢ LDA $79¢ BNE NOFEFE¢ LDA #$FE¢ STA $79¢ STA $7A¢NOFEFE¢ LDX #0¢CHLINES¢ LDA #0¢ STA TEMP¢ LDA HLINES,X¢ CMP #128¢ BCC CHNOIN¢ SEC¢ SBC #128¢ SEC¢ ROR TEMP¢CHNOIN¢ CMP #96¢ BCS CHLOK¢ CMP #32¢ BCS CHL1¢ CLC¢ ADC #64+32¢CHL1¢ SEC¢ SBC #32¢CHLOK¢ CLC¢ ADC TEMP¢ STA HLINES,X¢ INX¢ CPX #INIT-HLINES¢ BNE CHLINES¢ LDA 12¢ STA J+1¢ LDA 13¢ STA J+2¢ LDA #RESET&255¢ STA 12¢ LDA #RESET/256¢ STA 13¢ LDY #1¢RESTART¢ TYA¢ PHA¢ LDA #10¢ STA 709¢ LDA #0¢ STA 710¢ STA 712¢ STA 752¢ STA 559¢ TAX¢ERCHSET¢ LDA #0¢ STA CHARSET,X¢ INX¢ CPX #8¢ BNE ERCHSET¢ LDX #0¢TABCHDO¢ LDA XCHARS,X¢ STA DLIST-16,X¢ INX¢ CPX #16¢ BNE TABCHDO¢ JSR VDELAY¢ JSR PRTITLE¢ LDA #34¢ STA 559¢ PLA¢ TAY¢ CMP #128¢ BCC NORST¢ LDA #ERROR/256¢ LDY #ERROR&255¢ JSR CIOPRINT¢ JSR GETFILE¢ JMP NORST2¢RESET¢ LDA #0¢ STA 710¢ STA 559¢ LDA #1¢ STA 752¢ JSR VDELAY¢ LDA $79¢ BNE RSNOFEFE¢ LDA #$FE¢ STA $79¢ STA $7A¢RSNOFEFE¢ JSR PRTITLE¢ LDA #0¢ STA 752¢ LDA #34¢ STA 559¢ JSR VDELAY¢J JSR $FFFF¢NORST¢ JSR GETFILE≈≈≈≈≈≈ ¯¯fffffffffffffffffff¯¯f ijij♪⇨⇩⇩⇩ijijijijijαα -O=?}ijáÉαÇijα≡ ijij❎❎❎❎❎❎❎❎❎⇧⇧⇧⇩◆²¯E①¯ U¯¯¯Bה @≡³¯ אw=◆⇧¯ U¯¯¯Bc ⑤™°α
