[zxspectrum] Re: Mannesman Tally (era: Nuovo iscritto)
- From: "Stefano" <flydream@xxxxxxxx>
- To: <zxspectrum@xxxxxxxxxxxxx>
- Date: Mon, 22 Oct 2007 20:46:03 +0200
Grazie Matteo del file!
Ho provveduto a mettere on-line sul mio sito il programma:
http://zxspectrum.hal.varese.it/mannesman.zip
davvero interessante! Bel lavoro!!!
----- Original Message -----
From: Matteo Vitturi
To: zxspectrum@xxxxxxxxxxxxx
Sent: Sunday, October 21, 2007 11:20 PM
Subject: [zxspectrum] Re: Mannesman Tally (era: Nuovo iscritto)
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 inch
5B00 3E1B LD A,$1B
5B02 D7 RST $10
5B03 3E41 LD A,$41
5B05 D7 RST $10
5B06 3E08 LD A,$08
5B08 D7 RST $10
5B09 010000 LD BC,$0000
5B0C SCREEN C5 PUSH BC
5B0D D5 PUSH DE
5B0E E5 PUSH HL
; CR-LF
5B0F 3E0D LD A,$0D
5B11 D7 RST $10
5B12 3E0A LD A,$0A
5B14 D7 RST $10
; Normal Density (60 dpi) 256 bytes wide.
5B15 3E1B LD A,$1B
5B17 D7 RST $10
5B18 3E4B LD A,$4B
5B1A D7 RST $10
5B1B 3E00 LD A,$00
5B1D D7 RST $10
5B1E 3E01 LD A,$01
5B20 D7 RST $10
5B21 E1 POP HL
5B22 D1 POP DE
5B23 C1 POP BC
5B24 ROW 78 LD A,B
5B25 E6F8 AND $F8
5B27 C640 ADD A,$40
5B29 67 LD H,A
5B2A 78 LD A,B
5B2B E607 AND $07
5B2D 0F RRCA
5B2E 0F RRCA
5B2F 0F RRCA
5B30 81 ADD A,C
5B31 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 H
5B39 A1 AND C
5B3A 2004 JR NZ,$5B40 ; BITON
5B3C CB22 SLA D
5B3E 1802 JR $5B42 ; BITOFF
5B40 BITON CB32 SLI D
5B42 BITOFF 10F3 DJNZ $5B37 ; STICK
5B44 C5 PUSH BC
5B45 D5 PUSH DE
5B46 E5 PUSH HL
5B47 7A LD A,D
5B48 D7 RST $10
5B49 E1 POP HL
5B4A D1 POP DE
5B4B C1 POP BC
5B4C 7C LD A,H
5B4D D608 SUB $08
5B4F 67 LD H,A
5B50 CB09 RRC C
5B52 30E1 JR NC,$5B35 ; CHAR
5B54 C1 POP BC
5B55 0C INC C
5B56 3E20 LD A,$20
5B58 B9 CP C
5B59 20C9 JR NZ,$5B24 ; ROW
5B5B 0E00 LD C,$00
5B5D 04 INC B
5B5E 3E18 LD A,$18
5B60 B8 CP B
5B61 20A9 JR NZ,$5B0C ; SCREEN
5B63 3E1B LD A,$1B
5B65 D7 RST $10
5B66 3E32 LD A,$32
5B68 D7 RST $10
5B69 C9 RET
-----Messaggio Originale-----
Da: "Matteo Vitturi" <mattsteel@xxxxxxxxxx>
A: <zxspectrum@xxxxxxxxxxxxx>
Data invio: domenica 21 ottobre 2007 22.51
Oggetto: [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.
------------------------------------------------------------------------------
Le emoticon compiono 25 anni!...e Messenger te le ragala! 25mo anniversario
delle emoticon
Other related posts:
