DataMuseum.dk

top - download

    Length: 2560 (0xa00)
    Types: TextFile
    Names: »P4AM«

└─⟦a137c8bca⟧ Bits:30001766 PL FAERD ASCII NR 9
    └─ ⟦this⟧ »/P4AM« 

TextFile

; MULTIPLICATION AF TO TAL * DEMO * /STKR NOV 83/PL 10.4.84
; FIL P4AM (A=ASCII M=MILTIPL)

	.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:
LPADR:	LPZON

BIRTH:			; HER STARTER PROGR.INSTRUKTIONER NÅR PROG. LOADES:
			; HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
	LDA 0,.3
	LDA 2,LPADR
	OPEN

	LDA 0,TAL1
	LDA 1,TAL2
	LDA 2,NUL

IGEN:	MOVZR 1,1,SZC
	ADD 0,2
	MOVZL 0,0
	
	MOV 1,1,SZR
	JMP IGEN
	
	STA 2,FACIT
	LDA 0,FACIT
	LDA 2,LPADR
	OUTOCTAL
	OUTNL
	OUTNL

	JMP DEAD
NUL:   0
TAL1:  3
TAL2:  5
FACIT: 0
	
DEAD:	LDA 2,LPAD
	LDA 1,.1
	CLOSE
	LDA 2,CUR
	STOPP		; PROCESSEN STOPPES MEN FJERNES IKKE FRA CORE
	JMP .-1
LPAD:	LPZON
	
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 
	20
	21
	22
	23
	24
	25
	26
	27
	28
	29
	30
	.END PCDS 
	
«ff»
«nul»