DataMuseum.dk

top - download

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

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

TextFile

; *
; TESTVERSION AF V$LPN 21.11.83 (O-UDG KUN <14>-><27>!!) ENDEL / KL 23.30
; PL TESTVERSION 18.11.83 KL 17 RETTET KL 19 RETTET 19.11.83 OG 21.11.83

; 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>'


P6:		JSR GD	; (N) ALT P6 AHT POWER RESTART 21.11.83
		SETRE
		JSR GD
		SUB 0,0
		RETURNANSWER
		JSR GD

PGM:		JSR GD
  	SUB 1,1	; STD DRIVER BRK.
		JSR GD
	MOVZL 0,0,SNC
	STA 1,RESER,2
ST:  		; VERSION N
	JSR WAMX	; SÆTN. SOM DENNE ER NØDV. FOR AMX. ELLERS KAN DEN IKKE FØLGE MED
	SUB 1,1


		
	LDA 0,C0730	; INIT AF PARAMS (BAUD,STOP,DATA OG PAR. BITS)
		JSR GD
	DOC 0,AMX
	JSR WAMX
		JSR GD
	LDA 0,C071D
		JSR GD
	DOC 0,AMX
	JSR WAMX
		JSR GD
	LDA 0,C0708	; SÆT DTR ON, MODEM SIGNAL TIL PRINTER.
		JSR GD
	DOA 0,AMX
	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: FLYTTET OP I VERSIION N FF
	LDA 2,CUR	; STD FOR DRIVER, SIDE 196 PP DOMUS REF.
		JSR GD
	NEXTO
	JSR GD ; RETTES I FÆRD. TIL JMP P4 ELLER SETRES
		   	; PL RETTELSE / TILFØJELSE / 21.11.83 / FORSØG /
	JMP P5 	; HVIS SETRES OVENFOR JMP P4 HER !!!!
			; NU ALTID TIL P4, P5 OG P6 VÆK .............

		JSR GD
P1:	LDA 1,ADDRE,2
		JSR GD
	GETBY
		JSR GD
P2:	LDA 1,C0705	; HENT MODEM STATUS OG SMID VÆK
	JSR WAMX	; RESET'ER AMX-HARDWARE ABS. NØDV.
		JSR GD
	DOA 1,AMX
	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 WAMX
		JSR GD
	DOA 1,AMX
	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 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
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: 1280
	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 6500
PCDSE:	
	.END PCDS
«ff»
«nul»