home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Serious Magazine 7
/
Serious_Magazine_07_2000_Dial_pl_Side_B.atr
/
sstuff07.lzh
/
CENTRONX.LZH
/
PHANDLER.ASM
< prev
next >
Wrap
Assembly Source File
|
1988-09-01
|
2KB
|
1 lines
*sterownik drukarki PHANDLER.COM¢¢* urzadzenie P2: znak konca wiersza¢* nie przeksztalcany¢¢* urzadzenie P:,P0:,P1: znak konca wiersza¢* =kodom 13.¢¢ opt 37¢ org $0100¢¢* Wpis do hatabs po kazdym cieplym starcie¢¢run equ *¢¢ ldx <tabl¢ ldy >tabl¢ stx $31b¢ sty $31c¢ jmp (pom1)¢¢* Poszczegolne procdury wykonawcze¢¢open equ *¢¢ bit $d501 busy¢ bmi timeout¢¢online ldy #1 (y=$ff to konwersja konca wiersza)¢ lda ($24),y (y=0 bez konwersji)¢ dey¢ cmp #'2' czy rozny od p2¢ beq nokon¢¢kon dey¢nokon sty pom2¢ jmp get¢¢put1 equ *¢ cmp #155 sprawdz czy eol¢ beq eol¢¢put2 ldy $11 czy break¢ beq break¢ bit $d501 czy drukarka nie¢ bmi put2 jest zajeta skok gdy bit6 strobe=1¢¢druk sta $d500 bajt do drukarki¢ lda #0¢ sta $d502 strobe do drukarki¢¢get ldy #1¢ rts¢¢break ldy #128¢ rts¢¢timeout ldy #138¢ rts¢¢eol ldx pom2¢ bne eol1¢ beq put2¢¢eol1 lda #13 zamiast 155¢ bne put2 tylko 13¢¢*tablica wektorow sterownika¢¢tabl dta a(open-1),a(get-1)¢ dta a(get-1),a(put1-1)¢ dta a(get-1),a(get-1)¢¢pom1 org *+2¢pom2 org *+1¢¢ org $5e7¢¢* Procedura instalujaca lub po¢* ponownym wczytaniu (uruchomienu)¢* odinstalowujaca.¢¢* czy sterownik byl instalowany¢¢ja equ *¢¢ lda $31c¢ cmp #$e4¢ beq inst¢¢* Byl.odinstaluj¢¢odinst ldx pom1¢ ldy pom1+1¢ jmp init¢¢* Nie byl.zainstaluj¢¢inst ldx 12¢ ldy 13¢ stx pom1¢ sty pom1+1¢ ldx <run¢ ldy >run¢¢* Glowna procedura instalacyjna¢¢init stx 12¢ sty 13¢ ldy #1¢ sty 9¢ dey¢ sty 580¢ ldy #$ff¢ jmp $e474¢¢ org $2e0¢ dta a(ja)¢¢ end of file¢¢
