DataMuseum.dk

top - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »REA04«

└─⟦033e255c7⟧ Bits:30001790 SG0010 Floppy
    └─ ⟦this⟧ »/REA04« 
└─⟦8ae3926ab⟧ Bits:30001789 SG0009 Floppy
    └─ ⟦this⟧ »/REA04« 
└─⟦954fa3634⟧ Bits:30001792 SG0012 Floppy
    └─ ⟦this⟧ »/REA04« 

TextFile

; LPT-DRIVER VED POUL-HENNING KAMP  21-01-83 20:40
	.RDXO	16
	.RDX	10
	.TXTM	1
	.TXTN	1
	.TITL	OLLPT		; LPT-DRIVER FOR OLIVETTI
	.NREL
PGDS:	1B0+1B1+1B7+1B15
	PGSTA
	0
	PCDS-PGDS
	.TXT 'LPT<0><0><0>'
TXAM2: TXTAM
INIT:  .+1
	15*256+12
	1
	0
	0

PGSTA:	SUB 1,1
	MOVZL 0,0,SNC
	STA 1,RESER,2
RETR:	LDA 2,TXAM2
	LDA 1,INIT
	SENDM
	MOVZL # 2,2,SZC
JMP RETR
	WAITA
	LDA 2,CUR
	LOOP:	NEXTO
	SETRE
	JMP CONTR
NCHAO:	LDA 1,ADDRE,2
	GETBY
	MOV 0,0,SNR
	JMP STA00
	JSR OCHAR
	LDA 2,CUR
	ISZ ADDRE,2
	DSZ COUNT,2
	JMP NCHAO
STA00:	SUB 0,0
	RETUR
	JMP LOOP
CONTR:	SETCO
	JMP STA00
	
PCDS:	0
	0
	0
	PCDSE-PCDS
	.TXT 'LPT<0><0><0>'
	.+0
	.-1
	BUFS
	PGDS
	0
	0
	40000
	PGSTA
	PCDS
	0
	PCDS
	0
	PGSTA*2
	0
	0
	0
	0
	0
	0
	0
	0
	0
	


BUFS: .+0
	.-1
	BUFS2
	10
	PCDS
	0
	0
	0
	0
	0
BUFS2:  .+0
	.-1
	0
	10
	PCDS
	0
	0
	0
	0
	0
OCHAR: STA 3,OCHA0
LDA 1,.255
ANDS 1,0
LDA 1,.128
ADD 1,0
STA 0,MES1
RETRY: LDA 1,BUFF
LDA 2,TXAMX
SENDM
MOVZL # 2,2,SZC
JMP RETRY
WAITA
MOV 0,0,SZR
JMP WAIRE
JMP @ OCHA0
WAIRE: SUB 1,1
	LDA 2,.10
	WAITI
	JMP RETRY
TXAMX: .+1
TXTAM:        .TXT 'AMX<0><0><0>'
OCHA0: 0
BUFF: .+1
	15*256+7
	1
	.+2*2
	0
MES1:	128
PCDSE:
.END PCDS
«ff»
«nul»