DataMuseum.dk

top - download

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

└─⟦f319a9c26⟧ Bits:30001791 SG0011 Floppy
    └─ ⟦this⟧ »/P4A4« 

TextFile

; GENEREL PROGRAMRAMME TIL ASSEMBLERPROGRAM PL 3.2.83 JUSTERET 14.9.83 OG 10.3.84

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

LAB00:		.TXT &<10> PL DEMO-PROGRAM <13><10> 10.3.84  <10><0>&
TEKST:	LAB00*2
FIADR:	FIZON
LPADR:	LPZON
DAT:	-9		; EN ADRESSE TIL GENERELLE DATA, FX FRA INPUT
DATAD:	.+1*2
	0
	0
	0
BIRTH:			; HER STARTER PROGR.INSTRUKTIONER NÅR PROG. LOADES:
	MOV 1,2		; VED LOAD LIGGER ADR. PÅ INPUTPARAM-DATA I ACC 1
	LDA 0,5,2
	MOV 0,0,SNR
	JMP DEFAU	; HVIS DER IKKE ER PARAM I LOADKOMMANDOEN
	LDA 0,7,2
	STA 0,DAT
DEFAU:	
	LDA 0,.3
	LDA 2,LPADR
	OPEN	; KLAR TIL OUTPUT PÅ TTY (DEMO NEDENFOR)

	; ************************** FLG. SKAL DU ÆNDRE TIL DIT EGET PRG:

		; DEMO TEKST-UDSKRIFT:
		; (AC2 INDEH FILZONE-ADR)
	LDA 0,TEKST
	OUTTEXT
	OUTNL
		; DEMO TAL-UDSKRIFT OCTALT:
	LDA 0,DAT
	OUTOCTAL
	OUTNL
		; DEMO TALUDSKRIFT DECIMALT:
	LDA 0,DAT
	LDA 1,DATAD 
	LDA 2,CUR
	BINDECIMALOMREGNING
	LDA 0,DATAD 
	LDA 2,LPADR
	OUTTEXT
	OUTNL
	
	JMP DEAD	; AFSLUT MED AFSLUTNINGSRUTINE "DEAD" NEDENFOR 

	; ++++++++++++++++++++++++++ FLG. SKAL STORT SET BEVARES:

DEAD:			; STANDARD-AFSLUTNINGSRUTINE
	STA 0,D0
	STA 1,D1
	STA 2,D2
	STA 3,D3
	JMP EJFIL	; HVIS DER IKKE ER BENYTTET FILER (UDOVER TTY)

	LDA 1,.1	; FLG BRUGES HVIS DER HAR VÆRET ÅBNET FILER
	LDA 2,FIADR
	CLOSE

EJFIL:	LDA 2,LPADR
	OUTNL
	LDA 1,.1
	CLOSE
	JMP SLUT	; HVIS PROCESSEN SKAL BLIVE I CORE

	LDA 1,SLUT1
	LDA 2,SLUT2
	SENDMESSAGE 	; TIL S OM AT FJERNE DENNE PROC FRA CORE

SLUT:	LDA 2,CUR
	STOPP		; PROCESSEN STOPPES MEN FJERNES IKKE FRA CORE
	JMP .-1

D0:	0	; HER SIKRES INFO OM DEAD (AHT EVT CORE-DUMP)
D1:	1
D2:	2
D3:	3
SLUT1:	.+1
	1B8
	0
	0
	0
SLUT2:	.TXT 'S<0><0><0><0><0>'

		; FILZONER (FØRSTE ER SOFTWFILZONE, BRUGES IKKE)

FIZON:	.TXT 'FIL<0><0><0>'		;ZNAME
	Z		;SIZE 
	0		;ZMODE 
	1B14+1B13+1B12+1B11	;ZKIND   BLOCK+POSIT+REPEA+CATAL
	65535		;ZMASK 
	DEAD		;ZGIVE 
	1		;ZFILE 
	1		;ZBLOC 
	0		;ZCONV 
	TTS0		;ZBUFF 
	263		;ZSIZE (72/2+SSIZE) 
	0		;ZLENG 
	0		;ZFIRS 
	TTB0*2		;ZFIRS 
	TTB0*2		;ZTOP 
	TTS0		;ZUSED 
	512		;ZSHAR 
	0		;ZREM 
	.BLK ZAUX		;AUXILIARY WORDS IN ZONE 
	
TTS0:	0		;SOPER 
	0		;SCOUN 
	0		;SADDR 
	0		;SSPEC 
	TTS0		;SNEXT 
	0		;SSTAT 
	TTB0*2		;SFIRS 
TTB0:	.BLK 256		;DATA BUFFER 
	
LPZON:.TXT 'TTY<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 'PLTST' 
	.+0 
	.-1 
	BUFF1 
	PGDS 
	0 
	0 
	33 
	DEAD 
	0 
	0 
	0 
	0 
	BIRTH*2 
	0
	1
	2
	3
	4
	5
	6
	7
	8
	9
	10
	.END PCDS 
	
«ff»
«nul»