DataMuseum.dk

top - download

    Length: 4608 (0x1200)
    Types: TextFile
    Names: »P5AUD«

└─⟦95f236f17⟧ Bits:30001773 PL FAERD ASCII NR 2
    └─ ⟦this⟧ »/P5AUD« 

TextFile

; TESTDATA LÆSNING FRA CORE - PROGRAM REV. PL 21.11.83
; FIL TIL DATALÆSN I CORE TIL LPT PL 19.1.83 (SJUSK?)
;   RETTET 19.11.83 KL 16

; GENEREL PROGRAMRAMME TIL ASSEMBLERPROGRAM PL 3.2.83 JUSTERET 14.9.83
; AFPRØVET 14.9.83

	.TITL TSTUD 
	.NREL 
	.RDXO 10 
	.RDX 10 
	.TXTM 1 
	.TXTN 1 
PGDS:	1B0+1B5+1B15	;PROGRAMDESCRIPTOR (7 WORDS) 
	LAB00 
	0 
	PCDS-PGDS 
	.TXT 'TSTUD' 

LAB00:		; HER STARTER PROGRAMAREAL; FØRST NOGLE DATA I PROGR.:	
TEKST:	.+1*2
	.TXT &<12>  TESTUDSKRIVNINGS-PROGRAM <13><10>  PL 21.11.83  <10><0>&

LPADR:	LPZON
DAT:	-9		; EN ADRESSE TIL GENERELLE DATA, FX FRA INPUT

DATAU:	DATUU*2
DATYU:	DATUU*2+1
DATYY:	DATUU*2
DATAD:	.+1*2
	0
DATUU:	0
	0



BIRTH:			; HER STARTER PROGR.INSTRUKTIONER NÅR PROG. LOADES:
	MOV 1,2		; VED LOAD LIGGER ADR. PÅ INPUTPARAM-DATA I ACC 1
STA 1,DAT
	LDA 0,5,2
	MOV 0,0,SNR
	JMP DEFAU	; HVIS DER IKKE ER PARAM I LOADKOMMANDOEN
	LDA 0,7,2
	STA 0,DAT
LDA 0,8,2
MOV 0,0,SNR
JMP DEFAU

LDA 0,10,2
STA 0,ANTAL
STA 0,TALLE
DEFAU:
	
	; HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
	LDA 0,.3	; ALT FLG. SKAL DU ÆNDRE EFTER EGET ØNSKE (SKRIV PROGR. HER!)
	LDA 2,LPADR
	OPEN
	LDA 0,TEKST
	OUTTEXT
	OUTNL

NYL:
OUTNL
LDA 0,DAT
OUTOCTAL
LDA 1,T58
OUTCH
OUTSP
LDA 3,DAT
LDA @ 0,0,3 
OUTOCTAL
OUTSP
LDA 1,T33
OUTCH
OUTSP
OUTSP
OUTSP
OUTSP

IGEN:	LDA 3,DAT
LDA 0,0,3

	OUTOCTAL
	OUTSP
	LDA 3,DAT
LDA 0,0,3
ISZ DAT
	LDA 1,DATAD 
	LDA 2,CUR
	BINDECIMALOMREGNING
	LDA 0,DATAD 
	LDA 2,LPADR
	OUTTEXT
OUTSP
LDA 3,.127
LDA 3,DAT
LDA 1,-1,3
LDA 3,.255 ; AFPUDSN BEG
MOVS 3,3
ANDS 3,1
JSR BYUD
LDA 3,DAT
LDA 1,-1,3
LDA 3,.255
AND 3,1
JSR BYUD
JMP SPAC

BYUD: STA 3,BYUDR  ; AFP. HER SLUT
LDA 3,.127
LDA 0,.32
SL 1,3
MOV 0,1
SG 1,0
MOV 0,1
OUTCHAR
JMP @ BYUDR

SPAC:
OUTSP
OUTSP
OUTSP
DSZ TALLE
JMP IGEN
LDA 3,ANTAL
STA 3,TALLE
	JMP NYL

	
	JMP DEAD	; AFSLUT MED AFSLUTNINGSRUTINE "DEAD" NEDENFOR (STANDARD)
	
	
	
	; LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
	
DEAD:			; STANDARD-AFSLUTNINGSRUTINE
	STA 0,D0
	STA 1,D1
	STA 2,D2
	STA 3,D3
LDA 2,LPAD
	OUTNL
	LDA 1,.1
	CLOSE

	LDA 2,CUR
	STOPP		; PROCESSEN STOPPES MEN FJERNES IKKE FRA CORE
	JMP BIR @	; FORFRA HVIS PROC. STARTES, FX FRA S


D0:	0
D1:	1
D2:	2
D3:	3
	-6
T58: 58
T33: 33
ANTAL: 4
TALLE:	4
T96:	96
T126:	126
	
BYUDR: 0
BIR:	DEFAU	; STANDARDDATA
LPAD:	LPZON
	
	
LPZON:.TXT 'LPT<0><0><0>'		;ZNAME 
	Z		;SIZE 
	0		;ZMODE 
	1		;ZKIND 
	65535		;ZMASK 
	DEAD		;GIVE 
	1		;ZFILE 
	1		;ZBLOC 
	0		;ZCONV 
	LPS0		;ZBUFF 
	117		;ZSIZE (132/2+SSIZE) 
	0		;ZFORM 
	0		;ZLENG 
	LPB0*2		;ZFIRS 
	LPB0*2		;ZTOP 
	LPS0		;ZUSED 
	220		;ZSHAR 
	0		;ZREM 
	.BLK ZAUX		;AUXILIARY WORDS IN ZONE 
	
LPS0:	0		;SOPER 
	0		;SCOUN 
	0		;SADDR 
	0		;SSPEC 
	LPS0		;SNEXT 
	0		;SSTAT 
	LPB0*2		;SFIRS 
LPB0:	.BLK 110		;DATA BUFFER 
	; BUFFERE DER ER NØDV NÅR FX. DOMUS-FIL-FUNKTIONER BRUGES!
BUFF1:	.+0 
	.-1 
	BUFF2 
	10 
	PCDS 
	0 
	0 
	0 
	0 
	0 
BUFF2:	.+0 
	.-1 
	0 
	10 
	PCDS 
	0 
	0 
	0 
	0 
	0 
; PROCES-DESCRIPTOR:
PCDS:	.+0 
	.-1 
	0 
	0 
	.TXT 'TSTUD' 
	.+0 
	.-1 
	BUFF1 
	PGDS 
	0 
	0 
	33 
	DEAD 
	0 
	0 
	0 
	0 
	BIRTH*2 
	20
	21
	22
	23
	24
	25
	26
	27
	28
	29
	30
	.END PCDS 
	
«ff»
«nul»