 
Т > EPATALL /Т Hybrid program to dump all graphics MODEs Т on the EPSON printer (!Т G B Hill September 1983 (c) 2Т START PROGRAM <О29,0;0; Fч S% &FF Ppass_number = S% Zpattern0=S%+1 d!pattern0=&0300 npattern4=S%+3 x!pattern4=&3F00 ┌pattern1=S%+5 ▄!pattern1=&3F260400 √pattern2=S%+9 ═!pattern2=&49841000 ╙!(pattern2+4)=&FF6FB966 ЄS%=S%+17 Ў: хРlimits рBГ ╛ graphics ▄ Я"Not a graphics MODE. Can't dump.":О7:в"HELLO" эРassemble Ф6Т enable printer, and set linefeed (send ESC  A 8) ПО2,1,27,1,65,1,8 ЗТ clear paperО 1,10,1,10,1,10Ц Y%=1023 ╦ 0 ┬ -16FТ send bit code (ESC L 192 3 - 960 dots per line or 640 for MODE0)"О1,27,1,76,1,n1,1,n2,Ц X%=0 ╦ 1279 ┬ step_size6!Xlo=X%+Y%*&10000@?pass=0Jж pixelTМ^	О1,10hМr(Т reset linefeed and disable printer|О1,27,1,65,1,12,1,12,3├в"HELLO"░щРlimits (A%=&87:mode=((╨&FFF4)─&FF0000)│65536є/Г mode>5 └ mode=3 ▄ graphics=ё ▀ graphics=╧ў(Г mode=0 ▄ n1=128:n2=2 ▀ n1=192:n2=3╦QГ mode=0 ▄ step_size=2:?pass_number=1:?&80=pattern0 ┐ 256:?&81=pattern0 │ 256бQГ mode=4 ▄ step_size=4:?pass_number=3:?&80=pattern4 ┐ 256:?&81=pattern4 │ 256лZГ mode=1 └ mode=5 ▄ step_size=4:?pass_number=3:?&80=pattern1 ┐ 256:?&81=pattern1 │ 256жQГ mode=2 ▄ step_size=8:?pass_number=6:?&80=pattern2 ┐ 256:?&81=pattern2 │ 256ЮАЙщРassembleТosword=&FFF1Чoswrch=&FFEEXlo=S%+0Xhi=S%+1Ylo=S%+2&Yhi=S%+30value=S%+4:byte=S%+5Dpass=S%+6Ncount_4=S%+7XS%=S%+8bЦ opt=0 ╦ 2 ┬ 2l	P%=S%v[OPT opt─\SUBROUTINES┼\to calculate ╟X,Y)■
.point·ldx #Xlo ┐ 256╗ldy #Xlo │ 256╡
lda #9╪jmp oswordф$\subroutine to print a characterп.printcharз
lda #1Дjsr oswrchНlda byteЬjmp oswrch\decrement Y by 4.dec_Y4sec lda Ylo*
sbc #44sta Ylo>bcc dec_YhiHrtsR.dec_Yhi\dec Yhifrtsp\increment Y by 16z.inc_Y16└clc▌lda Ylo≤adc #16╒sta Ylo╛bcs inc_YhiІrtsю.inc_Yhiйinc Yhiтrtsч8\to rotate in two bits, Enter with X=pass, Y=colour.Х.two_bitsР:lda (&80),Y        \select appropriate byte of patternЭ+cpx #0             \if pass is 0 rotate(beq rotate_in      \next two bits in.rotate_out/ror A              \otherwise dump two bits$	ror A.(dex                \has X reached 0?8,bne rotate_out     \if not dump two moreB.rotate_inL8ror A              \if so next two bits go into byteVrol byte`	ror Ajrol bytetrts~\to calculate a whole byte┬.one_byte▓jsr point°ldy valueіlda pass╟
and #3╨taxдjsr two_bitsнjsr dec_Y4ьdec count_4Б1bne one_byte      \if byte incomplete go backЛ%jmp printchar     \print the byteЖ\MAIN PROGRAM 5\to calculate and print the pattern for one pixel

.pixel
lda #4$sta count_4       \reset counter(jsr one_byte2jsr inc_Y16<inc passFlda passPcmp pass_numberZbne pixeldrtsn]xМ┌АЪ