[zxspectrum] Re: Mannesman Tally (era: Nuovo iscritto)
- From: Matteo Vitturi <mattsteel@xxxxxxxxxx>
- To: <zxspectrum@xxxxxxxxxxxxx>
- Date: Sun, 21 Oct 2007 23:20:03 +0200
Beh... visto che sono meno di cento righe, tento di incollarle qui di seguito.
Se non va bene, compatitemi, per il futuro eviterò questa modalità.
In sé la routine si scorre tutto il displayfile leggendo otto pixel per volta
in verticale e li invia alla MT85; questo perché la testina è composta da otto
aghi in verticale. Inviara 24 righe composte da 256 bytes ciascuna avendo cura
di usare il corretto avanzamento di riga (8/72 inch)
Di solito usavo tenerla nel buffer della stampante che non veniva usato.
Risultava agevole aprire da Basic un canale "b" verso la seriale.
La stampa avveniva usando un comando che "selezionasse" questo canale senza
inviare alcunché e seguita immediatamente da un'istruzione USR appropriata.
Una sinergia Basic-Asm: L'ultimo canale usato risulta quello "corrente" per le
RST $10 (stampa del carattere nell'accumulatore verso canale corrente).
(da basic)
OPEN #4,"b"
PRINT #4""; : LET x=USR 23296
(assembler) ; interlinea a 8/72 inch5B00 3E1B LD A,$1B 5B02
D7 RST $105B03 3E41 LD A,$41 5B05 D7
RST $105B06 3E08 LD A,$08 5B08 D7 RST $10
5B09 010000 LD BC,$0000
5B0C SCREEN C5 PUSH BC5B0D D5 PUSH DE5B0E E5
PUSH HL ; CR-LF5B0F 3E0D LD A,$0D 5B11 D7
RST $105B12 3E0A LD A,$0A 5B14 D7 RST $10
; Normal Density (60 dpi) 256 bytes wide.5B15 3E1B LD A,$1B
5B17 D7 RST $105B18 3E4B LD A,$4B 5B1A
D7 RST $105B1B 3E00 LD A,$00 5B1D D7 RST
$105B1E 3E01 LD A,$01 5B20 D7 RST $105B21
E1 POP HL5B22 D1 POP DE5B23 C1 POP BC
5B24 ROW 78 LD A,B5B25 E6F8 AND $F8 5B27
C640 ADD A,$40 5B29 67 LD H,A5B2A 78 LD
A,B5B2B E607 AND $07 5B2D 0F RRCA5B2E
0F RRCA5B2F 0F RRCA5B30 81 ADD A,C5B31
6F LD L,A
5B32 C5 PUSH BC
5B33 0E80 LD C,$80 5B35 CHAR 0608 LD B,$08 5B37
STICK 7E LD A,(HL)5B38 24 INC H5B39 A1
AND C5B3A 2004 JR NZ,$5B40 ; BITON 5B3C CB22 SLA
D5B3E 1802 JR $5B42 ; BITOFF5B40 BITON CB32 SLI D5B42
BITOFF 10F3 DJNZ $5B37 ; STICK
5B44 C5 PUSH BC5B45 D5 PUSH DE5B46 E5
PUSH HL5B47 7A LD A,D5B48 D7 RST $105B49
E1 POP HL5B4A D1 POP DE5B4B C1 POP
BC
5B4C 7C LD A,H5B4D D608 SUB $08 5B4F
67 LD H,A5B50 CB09 RRC C5B52 30E1 JR
NC,$5B35 ; CHAR
5B54 C1 POP BC
5B55 0C INC C5B56 3E20 LD A,$20 5B58
B9 CP C5B59 20C9 JR NZ,$5B24 ; ROW5B5B 0E00
LD C,$00 5B5D 04 INC B5B5E 3E18 LD A,$18
5B60 B8 CP B5B61 20A9 JR NZ,$5B0C ; SCREEN5B63
3E1B LD A,$1B 5B65 D7 RST $105B66
3E32 LD A,$32 5B68 D7 RST $105B69 C9 RET
-----Messaggio Originale----- Da: "Matteo Vitturi" <mattsteel@xxxxxxxxxx>A:
<zxspectrum@xxxxxxxxxxxxx>Data invio: domenica 21 ottobre 2007 22.51Oggetto:
[zxspectrum] Re: Mannesman Tally (era: Nuovo iscritto) > Ma... (sono nuovo)
... riesco ad allegare il tap qui nella> mailing list o devo fare in altra
maniera? Altra maniera. :-) Puoi allegarlo ma ti prego di non farlo. Mettilo
invece sul web e riporta qui il link.
_________________________________________________________________
Scarica GRATIS 30 emoticon per Messenger!
http://www.emoticons-livemessenger.com/pages/msnit/index.htm
Other related posts:
