DataMuseum.dk

top - download

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

└─⟦545df2b9e⟧ Bits:30001622 DOMUS disk image (AUC?)
    └─ ⟦this⟧ »/DOMPM« 

TextFile

**
**	.PUSH     .NOCON
**	.NOCON    1
**
**	FIX=	-1
**	FLOAT=	FIX-1
**	FADD=	FLOAT-1
**	FSUB=	FADD-1
**	FMPY=	FSUB-1
**	FDIV=	FMPY-1
**	IMPY=	FDIV-1
**	IMPYA=	IMPY-1
**	IDIV=	IMPYA-1
**	IOERR=	IDIV-1
**
**	.DO	   $==FIX
	LDA    3   U.S21,3
	JSR@	   +0,3
**	.ENDC	   OK
**
**	.DO	   $==FLOAT
	LDA    3   U.S21,3
	JSR@	   +1,3
**	.ENDC	   OK
**
**	.DO	   $==FADD
	LDA    3   U.S21,3
	JSR@	   +2,3
**	.ENDC	   OK
**
**	.DO	   $==FSUB
	LDA    3   U.S21,3
	JSR@	   +3,3
**	.ENDC	   OK
**
**	.DO	   $==FMPY
	LDA    3   U.S21,3
	JSR@	   +4,3
**	.ENDC	   OK
**
**	.DO	   $==FDIV
	LDA    3   U.S21,3
	JSR@	   +5,3
**	.ENDC	   OK
**
**	.DO	   $==IMPY
	LDA    3   U.S21,3
	JSR@	   +6,3
**	.ENDC	   OK
**
**	.DO	   $==IMPYA
	LDA    3   U.S21,3
	JSR@	   +7,3
**	.ENDC	   OK
**
**	.DO	   $==IDIV
	LDA    3   U.S21,3
	JSR@	   +8,3
**	.ENDC	   OK
**
**	.DO	   $==IOERR
	LDA    3   U.S21,3
	JSR@	   +9,3
**	.ENDC	   OK
**
**	.PUSH	   .NOMAC
**	.NOMAC	   0
**
;***************************************
;
; ERROR, UNKNOWN: $
;
;***************************************
**	.NOMAC	   .POP
**ÆOKÅ
**	.NOCON	   .POP

.TITL	UCA01	; USER-CODED SUBROUTINES   78.05.01
.NREL
.RDX	10	; RADIX 10
.TXTM	1	; PACKED FROM LEFT TO RIGHT
.TXTN	1	; NO NULL-BYTES IF EVEN NUMBER OF BYTES

PP00:			; PROGRAM START
	1B0+1B15	; DESCRIPTOR
	PP05		; START
	0		; CHAIN
	PP10-PP00	; SIZE
**	.PUSH	.NOCON
**	.NOCON	1
	**	.DO	   '$'=='RC'
	.TXT	.RCALL.	; NAME
**	.ENDC	   ELSE
	.TXT	.UCALL.	; NAME
**	ÆELSEÅ

**	.NOCON	.POP
PP05:			;
	STOPPROCESS	;
	JMP	PP05	;


**	.PUSH	.NOCON
**	.NOCON	1
PP10:			; PROCESSDESCRIPTOR:
	0		; NEXT
	0		; PREV
	0		; CHAIN
	PP15-PP10	; SIZE
**	.DO	   '$'=='RC'
	.TXT	.RCALL.	; NAME
**	.ENDC	   ELSE
	.TXT	.UCALL.	; NAME
**	ÆELSEÅ
	.+0		; FIRST EVENT
	.-1		; LAST EVENT
	0		; BUFFE
	PP00		; PROGRAM
	0		; STATE
	0		; TIMER
	1		; PRIORITY
	PP05		; BREAK
	PP10		; AC0
	0		; AC1
	PP10		; AC2
	0		; AC3
	PP05*2		; PSW
	0		; SAVE

PP15:			;
		.END	PP10
**	.NOCON	.POP
«ff»
«nul»