DataMuseum.dk

top - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »MMMXT«, »MMTXT«

└─⟦cb4367ef8⟧ Bits:30001782 SG0002 Floppy
    └─ ⟦this⟧ »/MMMXT« 
    └─ ⟦this⟧ »/MMTXT« 

TextFile

PRDE1				; PROGRAM HEAD MM090781 2VMFM 
					; FØLGENDE CALL KAN BENYTTES: 
					; <STN> CALL"KEYBOARD",<VAR> 
					; <STN> CALL"GETTAL",<VAR> 
					; 
		KEY00 
		.TXT "KEYBOARD" 
		GET00 
		.TXT "GETTAL<0><0>" 
		0 
		KEY00: 1	; 1 VARIABEL 
		REAL+REFERENCE	; TALVARIABEL 
		LDA 3,USER		; AC3=UDA 
		LDA 2,U.STK,3	; AC2=DTA 
		LDA @ 1,+0,2	; AC1=1. WORD 
		STA 1,KEY03		; KEY03=AC1 
		READS 1 
		SUBC 0,0		; AC0=0 
		BCALL FLOAT		; HELTAL => KOMMATAL 
		LDA 2,CUR		; AC2=CUR 
		A.PDOUBLE		; LIGGER AC0,AC1 TILBAGE I LAGERET 
		1		 
KEY03:	0 
		RET1 
						; 
						; CALL"GETTAL",TAL 
						; SVARER TIL: 
						; INPUT TAL + <RETURN> 
						; 
GET00:	1				; 1 VARIABEL 
		REAL+REFERENCE	; TALVARIABEL (HVOR SKAL CHR VÆRDIEN PLACERES) 
		LDA 3,USER 
		LDA 2,U.STK,3 
		LDA @ 1,+0,2 
		STA 1,GET03		; GET03=AC1 
		LDA 0,PIO,3		; AC0=PIO+UDA=ZONEADRASSE 
		LDA 2,CUR 
		GET05:	F.ICHAR 
		JMP GET04 
 	MOV # 1,1,SNR
JMP  GET05  
		SUBC 0,0 
		BCALL FLOAT		; HELTAL => KOMMATAL 
		A.PDOUBLE		; LIGGER AC0+AC1 TILBAGE I ARBEJDSLAGERET 
		1 
GET03:	0 
		RET1 
GET04:	BCALL IOERR 
		0 
	
		RET0
	PRDE2			; END OF SUBRUTINE 
						; END OF LIST«so»:MMCAL 
«nul»