DataMuseum.dk

top - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »P1IN8«

└─⟦5dd5f096f⟧ Bits:30001768 R DOMUS unit $FD0
    └─ ⟦this⟧ »/P1IN8« 
└─⟦bb117111c⟧ Bits:30001806 SG0103 Floppy
    └─ ⟦this⟧ »/P1IN8« 

TextFile

;-------------------------------

IN8:0
IN9:0
IN0:	STA 3,.-1
	MOV 1,3
	LDA 0,1,2
	MOVR 0,0,SNR
	JMP DEFAU
	STA 0,IN8
	DSZ IN8
IN2:	LDA 0,2,2
	STA 0,0,3
	INC 2,2
	INC 3,3
	DSZ IN8
	JMP IN2
	MOV 3,1
	LDA 3,CUR
	JMP @ IN9

TRA5: DEAD
TRA6: 76
TRA7: 1B6+1B7
TRA8: 1
TRA9: 0
TRA1: STA 3,.-1
	LDA 1,TRA8 ; FØDES MED 1
	LDA 0,TRA6
	SLE 1,0
	JMP @ TRA5
	LDA 0,TRA7
	ADD 1,0
	DOAS 0,FD1
	SKPBZ FD1
	JMP .-1
	LDA 3,CUR
	LDA 0,.1
	STA 0,SEC8	; SE SEC !!!!
	ISZ TRA8
	JMP @ TRA9

SEC8: 1	;DEF FRA TRA
SEC7: 7
SEC6: 26
SEC9: 0
SEC1:	STA 3,.-1
	LDA 0,SEC8
	DOAS 0,FD1
	SKPBZ FD1
	JMP .-1
	LDA 3,.128
	STA 3,LAS8	;NB
	LDA 3,SEC7
	ADD 3,0
	LDA 3,SEC6
	SLE 0,3
	SUB 3,0
	STA 0,SEC8
	LDA 3,CUR
	JMP @ SEC9

LAS6: 14 ; EL OP TIL 18 ?????????
LAS7: 3
LAS8: 128 ; BEGGE COUNT
LAS9: 0
LAS1: STA 3,.-1
	LDA 3,.3
	STA 3,LAS7
	LDA 3,CMP08
LAS2:	DIB 0,FD1
	LDA 1,0,3
	SE 0,1
	JMP LAS4 ; IKKE RIGTIGT NAVN
	INC 3,3
	DSZ LAS7
	JMP LAS2
	LDA 2,LAS6 ; HVOR LANGT INDE STØRR STÅR
	STA 2,LAS7
	DIB 0,FD1
	DSZ LAS7
	JMP.-2
LAS4:	LDA 3,CUR
	JMP @ LAS9

«ff»
«nul»