⟦78c3dccb5⟧

TextFile

; PL 30.5.83
; PLSET - PROGRAM ; FÆRDIGT  27.5 OG 28.5.83 AFPUDSET
; OLIVETTI-SET-PROGRAM MED FLESTE STANDARDVALG 
; SAMT IØVRIGT MULIGHED FOR VILK. VALG (KRÆVER EXPERTVIDEN)
; PL 27.5.83 EFTERM

; MAN KAN INDTASTE EN KODE SOM PARAM (UDELAD FØRSTE <27>)
; PL 26.5.83
; LOADES MED PARAMETER DER DEFINERER FUNKTIONEN (<27> TILFØJES AF PROGRAMMET)
; PARAMETEREN SKAL VÆRE ET VILK. ANTAL BYTES I TEKST, FX 'K70<0><0>'

.TITL PLSET
	.NREL
	.RDXO 16
	.RDX 10
	.TXTM 1
	.TXTN 1
PGDS:	1B0+1B5+1B15
	LAB00
	0
	PCDS-PGDS
	.TXT 'PLSET'
LAB00:
	
T27:	27
DEAD1:	DEAD
TFKL1:	TFKL
BYAD:	.+1*2
KT2: 0
VALG:	0
	
BIRTH:
	MOV 1,2
		LDA 1,5,2
		MOV 1,1,SNR	;STUDIEKREDSRETTELSE 3/10 83
	JMP NORMA
LDA 0,5,2
STA 0,GEMMX
	LDA 0,.7
		STA 0,KT2
	ADD 2,0
	MOVZL 0,0
	STA 0,BYAD
	LDA 2,LPZ21
	LDA 0,.3
	OPEN
LDA 1,BYAD
GETBYTE
MOV 0,1
LDA 3,.64
LDA 0,BYAD
SE  3,1
	JMP LOP2
JMP PARIN
; HVIS PARAM INPUT ER KT2 <> 0
; HVIS SELVVALGT KODE BLIVER KTR = 0, ELLERS SÆTTES DEN TIL TEGN-64 NEDENFOR
; UANSET OM KT2=0 ELLER <>0

;			LDA 0,BYAD ; ØV
;			STA 1,KTR
;			JMP NORMB	
;			
NORMA:
	
	LDA 2,LPZT1
	LDA 0,.3
	OPEN
	LDA 0,TFKL1 @
	OUTTEXT
	OUTEND
	LDA 1,.1
	
	CLOSE
	LDA 0,.1
	OPEN
	
	LDA 2,LPZ21
	LDA 0,.3
	OPEN
LOP:
	LDA 2,LPZT1
	INCHAR
	
LOP2:	LDA 0,.64
	
	SGE 1,0
	JMP @ DEAD1
	SUB 0,1
	STA 1,KTR
	LDA 3,TTAB
	ADD 1,3
	STA 3,MIDL
	LDA 2,LPZ21
	LDA 0,0,3 ; PYH!!!
	LDA 3,KTR
; SIDSTE TILF. 27.5.83:
	MOV # 3,3,SZR
	JMP NORMB



; HERTIL HVIS KTR STADIG =0 DVS SELVVALGT KODE, UANSET KT2

PARIN:	STA 0,GEMME
	STA 0,GEMM2
	MOV 0,1
NNS:
	GETBYTE
	LDA 3,.64
	SE 0,3
	JMP NORMC
	LDA 0,T27
	PUTBY
NORMC:
	; 28.5. 13-TIL-0
	LDA 3,.13
	SE 0,3
	JMP NORMD
	SUB 0,0
	PUTBYTE
NORMD:
	ISZ GEMM2
	LDA 1,GEMM2
	DSZ GEMMX
	JMP NNS
	LDA 0,GEMME

; HERTIL I ALLE TILFÆLDE, HVIS KTR=0 KUN EEN GANG (SELVVALGT REVIDERET KODE)
; MENS KTR <> 0 GIVER UDSKRIFT FOR HVERT TEGN HER INDTIL IKKE FLERE KODER

NORMB:
	LDA 2,LPZ21
	OUTTEXT
	LDA 1,.0
	OUTEND
	
	LDA 0,KTR
	MOV # 0,0,SNR
JMP @ DEAD1

LOPVL:
LDA 3,KT2
MOV 3,3,SNR
JMP LOP ; NÆSTE TEGN FRA INPUT I TTYZONE HÅNDTERES, (DERVED EVT SLUT)

ISZ BYAD ; HVIS PARAMINPUT DA HENTES NÆSTE TEGN I DENNE!
LDA 1,BYAD
GETBYTE
MOV 0,1
DSZ GEMMX
JMP LOP2 ; NÆSTE TEGN I LOADPARAMETER SOM NU ER HENTET HÅNDTERES
JMP @ DEAD1 ; HVIS IKKE FLERE TEGN I LOADPARAM
;			VLG1:
;			JMP LOP
;			JMP @ DEAD1
;			
;				JMP LOP
	JMP @ DEAD1
	
GEMME:	0
GEMM2:	0
GEMMX:	66
MIDL:	0
KTR:	0
	.TXT "HER<0><0>"
LPZT1:	LPZON
LPZ21:	LPZ11
	
TTAB:	.+1
«ff»
	LPB0*2
	TB1*2
	TB2*2
	TB3*2
	TB4*2
	TB5*2
	TB6*2
	TB7*2
	TB8*2
	TB9*2
	TB10*2
	TB11*2
	TB12*2
	TB13*2
	TB14*2
	TB15*2
	TB16*2
	TB17*2
	TB18*2
	TB19*2
	TB20*2
	TB21*2
	TB22*2
	TB23*2
	TB24*2
	TB25*2
TB1:	.TXT "<27>0<0>"
TB2:	.TXT "<27>Q072<27>Z<27>M002<27>E<0>"
TB3:	.TXT "<27>Q096<27>Z<27>M004<27>F<0>"
TB4:	.TXT "<27>Q051<27>Z<27>M003<27>E<0>"
TB5:	.TXT "<27>Q068<27>Z<27>M004<27>F<0><0>"
TB6:	.TXT "<27><60><27>P132;008;016;024;032;040<27>Z<0>"
TB7:	.TXT "<27>=<27>P160;008;016;024;032;040;048;056;064<27>Z<0>"
TB8:	.TXT "<27>><27>P220;008;016;024;032;040;048;056;064<27>Z<0>"
TB9: .TXT "<27><60><27>P080;008;016;024;032;040;048;056;064<27>Z<0>"
TB10: .TXT "<27>=<27>P096;008;016;024;032;040;048;056;064<27>Z<0>"
TB11: .TXT "<27>><27>P132;008;016;024;032;040;048;056;064<27>Z<0>"
TB12:	.TXT "<27>3<0>"
TB13:	.TXT "<27>4<0>"
TB14:	.TXT "<27>*2<0>"
TB15:	.TXT "<27>+<0>"
TB16:	.TXT "<27>J010<0>"
TB17:	.TXT "<27>J000<0>"
TB18:	.TXT "<27>P200;008;016;024;032;040;048;056;064<27>Z<0>"
TB19:	.TXT "<27>P160;008;016;024;032;040;048;056;064<27>Z<0>"
TB20:	.TXT "<27>P120;008;016;024;032;040;048;056;064<27>Z<0>"
TB21:	.TXT "<27>P070;008;016;024;032;040;048;056;064<27>Z<0>"
TB22:	.TXT "<27>Q001<27>Z<27>M000<0><0>"
TB23:	.TXT "<27>V<0>"
TB24:	.TXT "<27>V<0>"
TB25:	.TXT "<27>V<0>"
TB27:	.TXT "<27>V<0>"
	
TFKL:	.+1*2
	.TXT "<10>VÆLG EN EL FLERE AF FLG KODER<13><10><10>
	A  MASTER RESET (HARDW DEF)<13><10>
	B  HØJT PAPIR NORMAL LINIEAFST<13><10>
	C  HØJT PAPIR  SMAL  LINIEAFST<13><10>
	D  LAVT PAPIR NORMAL LINIEAFST<13><10>
	E  LAVT PAPIR  SMAL  LINIEAFST<13><10>
	F  NORMAL SKRIFT BREDT PAPIR<13><10>
	G  MELLEM SKRIFT BREDT PAPIR<13><10>
	H  SMAL   SKRIFT BREDT PAPIR<13><10>
	I  NORMAL SKRIFT SMALT PAPIR<13><10>
	J  MELLEM SKRIFT SMALT PAPIR<13><10>
	K  SMAL   SKRIFT SMALT PAPIR<13><10>
	L  FED SKRIFT<13><10>
	M  -- SAMME OPHÆVES<13><10>
	N  UNDERSTREGNING<13><10>
	O  -- SAMME OPHÆVES<13><10>
	P  VENSTRE MARGIN<13><10>
	Q  -- SAMME OPHÆVES<13><10>
	R  200 TEGN PÅ LINIEN<13><10>
	S  160 TEGN PÅ LINIEN<13><10>
	T  120 TEGN PÅ LINIEN<13><10>
	U  70  TEGN PÅ LINIEN <13><10>
	V  OPHÆV SIDESKIFT (FX EFTER B)<13><10>
	@  SELVDEFINERET TEGNRÆKKE/KODE,   <60>27> SKAL I INPUT SKRIVES SOM @  <13><10>
	   FX @J003@=  ...ETC ( DVS FØRSTE <60>27> LIGGER I FØRSTE  @-TEGN! )<13><10>
	^ VÆLG:   	<0>"
	
LPZ11:	.TXT 'LPT<0><0><0>';  OUTPUTZONE
	Z
	0
	1
	65535
	DEAD
	1
	1
	0
	LPS1
	73
	0
	0
	LPB1*2
	LPB1*2
	LPS1
	132
	0
	.BLK ZAUX
LPS1:	0
	0
	0
	0
	LPS1
	0
	LPB1*2
LPB1:	.BLK 66
LPZON:	.TXT  'TTY<0><0><0>' 
	Z 
	0 
	1 
	65535 
	DEAD 
	1 
	1 
	0 
	LPS0 
	73 
	0 
	0 
	LPB0*2 
	LPB0*2 
	LPS0 
	132 
	0 
	.BLK  ZAUX 
LPS0:	 0 
	0 
	0 
	0 
	LPS0 
	0 
	LPB0*2 
LPB0:	 .BLK  66 
	
LPZ31:	LPZ21
	
	.TXT 'DEAD'
DEAD:
	LDA 2,LPZ31 @ 
	LDA 1,.1
	CLOSE
; 16.5.83:
	LDA 1,DE1
	LDA 2,DE2
	SENDM
	LDA     2,CUR 
	STOPP 
	JMP     -1,1
	
DE1:	.+1
	1B8
	0
	0
	0
DE2:	.+1
	.TXT "S<0><0><0><0><0>"
ARB27:	    .BLK    5 
BUFF1:	  .+0 
	.-1 
	BUFF2 
	10 
	PCDS 
	0 
	0 
	0 
	0 
	0 
BUFF2:	  .+0 
	.-1 
	0 
	10 
	PCDS 
	0 
	0 
	0 
	0 
	0 
PCDS:.+0 
	.-1 
	0 
	0 
	.TXT    'PLSET' 
	.+0 
	.-1 
	BUFF1 
	PGDS 
	0 
	0 
	33 
	DEAD 
	0 
	0 
	0 
	
	0
	BIRTH*2
	0
	1
	2
	3
	4
	5
	6
	.END PCDS
	
	
	«ff»
«nul»
DataMuseum.dk

RegneCentralen RC3600/RC7000

⟦78c3dccb5⟧ TextFile

Derivation

TextFile
