DataMuseum.dk

top - download

    Length: 4096 (0x1000)
    Types: TextFile
    Names: »PALPK«

└─⟦0ea19c315⟧ Bits:30001798 SG0018 Floppy
    └─ ⟦this⟧ »/PALPK« 

TextFile

; PL TESTVERSION 18.11.83 KL 17 RETTET KL 19

; V$LP%
; DRIVER FOR OLIVETTI-PRINTER
; REV 01.02 (K) PHK8311160732
;   CPU-TIDSFORBRUG I WAITLOOP REDUCERET
; REV 01.01 (L) PHK8309281631
;   FØRSTE OPERATIBLE VERSION
; 9600 BAUD, 2 STOP, 7 DATA, NO PARITY
; AMX CH. 7
;
; IKKE TESTET MED AMX-DRIVER INDE !!!!
;
; INITIERER SELV OVENSTÅENDE PARAMETRE
; HANDSHAKE VIA RTS OG RFS PÅ AMX
;
;
	.TITL	VALPT
	.NREL
	.RDXO	16
	.RDX	10
	.TXTM	1
	.DUSR	AMX=42
	
PGDS:	1B0+1B1+1B7+1
	PGM
	0
	PCDS-PGDS
	.TXT 	'LPT<0><0>'

PGM:		JSR GD
  	SUB 1,1	; STD DRIVER BRK.
		JSR GD
	MOVZL 0,0,SNC
	STA 1,RESER,2
		JSR GD
	JSR WAMX	; SÆTN. SOM DENNE ER NØDV. FOR AMX. ELLERS KAN DEN IKKE FØLGE MED
		JSR GD
	LDA 0,C0730	; INIT AF PARAMS (BAUD,STOP,DATA OG PAR. BITS)
		JSR GD
	DOC 0,AMX
		JSR GD
	JSR WAMX
		JSR GD
	LDA 0,C071D
		JSR GD
	DOC 0,AMX
		JSR GD
	JSR WAMX
		JSR GD
	LDA 0,C0708	; SÆT DTR ON, MODEM SIGNAL TIL PRINTER.
		JSR GD
	DOA 0,AMX
		JSR GD
	JSR WAMX
		JSR GD
	LDA 0,C0702	; START TRANSMITMODE (SENDER) (DET ER JO DET DET DREJER SIG OM !!)
		JSR GD
	DOA 0,AMX
		JSR GD
ST:	LDA 2,CUR	; STD FOR DRIVER, SIDE 196 PP DOMUS REF.
		JSR GD
	NEXTO
	SETRE
	JMP P5
		JSR GD
P1:	LDA 1,ADDRE,2
		JSR GD
	GETBY
		JSR GD
P2:	LDA 1,C0705	; HENT MODEM STATUS OG SMID VÆK
		JSR GD
	JSR WAMX	; RESET'ER AMX-HARDWARE ABS. NØDV.
		JSR GD
	DOA 1,AMX
		JSR GD
	JSR WAMX
		JSR GD
	DIA 1,AMX
		JSR GD
	MOVL 1,1	; (K)
		JSR GD
	MOVL 1,1,SNC	; (K)
	JMP P3		; (K)
		JSR GD
	SUB 1,1		; (K)
		JSR GD
	LDA 2,.24	; (K)
		JSR GD
	WAITI		; (K)
	JMP P1		; (K)
P3:	LDA 1,C0707	; HVIS OUTPUT BUFFER TOM, SEND CHR. ELLERS PRØV IGEN.
		JSR GD
	JSR WAMX
		JSR GD
	DOA 1,AMX
		JSR GD
	JSR WAMX
		JSR GD
	DIA 1,AMX
		JSR GD
	MOVL 1,1
		JSR GD
	MOVL 1,1,SNC
	JMP P1
		JSR GD
	LDA 1,.127	; FJERN ØVERSTE 9 BIT, OG LÆG CHNR*256 TIL (7*256)
		JSR GD
	AND 1,0
		JSR GD
	LDA 1,.7
		JSR GD
	MOVS 1,1
		JSR GD
	ADD 0,1
		JSR GD
	JSR WAMX
		JSR GD
	DOB 1,AMX	; SEND CHR. (POKKERS BESVÆR AT SLIPPE AF MED DEN...)
		JSR GD
	ISZ ADDRE,2
		JSR GD
	DSZ COUNT,2
	JMP P1
P4:		JSR GD
	SUB 0,0		; STD DRIVER...
		JSR GD
	RETUR
	JMP ST
		JSR GD
P5:		JSR GD
	SETRE
		JSR GD
	JMP P4
		JSR GD
WAMX:	JMP .+1
	JMP .+1
	JMP .+1
	JMP .+1
	JMP .+1
	JMP .+1
	JMP .+1
	JMP .+1
	JMP +0,3
C0702:	1794
C0708:	1800
C0730:	1840
C071D:	1821
C0705:	1797
C0707:	1799

TALX: 1024
	ADRX: ADRXX
	RETX: 0
GD:
	STA 3,RETX
	DSZ TALX
	JMP REGX
	LDA 3,.1
	STA 3,TALX
	JMP @ RETX
REGX:	ISZ ADRX
	ISZ ADRX
	ISZ ADRX
	ISZ ADRX
	LDA 3,ADRX
	STA 0,1,3
	STA 1,2,3
	STA 2,3,3
	LDA 0,RETX
	STA 0,0,3
	LDA 0,1,3
	JMP @ RETX

PCDS:	0
	0
	0
	PCDSE-PCDS
	.TXT 'LPT<0><0>'
	.+0
	.-1
	0
	PGDS
	0
	0
	52
	PGM	
	PCDS
	0
	PCDS
	0
	PGM*2
	0
	0
	0
	0
	0
	0
	0
	0
	0
ADRXX: .+0
0
0
0
0
0
.BLK 6000
PCDSE:	
	.END PCDS
«ff»
«nul»