DataMuseum.dk

top - download

    Length: 1024 (0x400)
    Types: TextFile
    Names: »ASLET«

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

TextFile

         .TITL   SLET<0> 
         .NREL 
         .RDXO   10 
         .RDX    10 
         .TXTM   1 
         .TXTN   1 
PGDS:    1B0+1B5+1B15 
         LAB00 
         0 
         PCDS-PGDS 
         .TXT    'SLET<0>' 
LAB00:
	N: .+1
	.TXT "S<0><0><0><0><0>"
	MESA: .+1
	1B8
	0
	0
	0
BIRTH: 
LDA 2,SLUT 
LDA 3,SIDST
LDA 0,.0
LDA 1,.1
IGEN:
SUB 1,3
STA 0,0,3
SUB # 2,3,SZR
JMP IGEN
DEAD:
	LDA 1,MESA
	LDA 2,N
	SENDMESSAGE
LDA 2,CUR
STOPP
JMP BIRTH
PCDS:    .+0 
         .-1 
         0 
         0 
         .TXT    'SLET<0>' 
         .+0 
         .-1 
         BUFF 
         PGDS 
         0 
         0 
         33 
         DEAD 
         0 
         0 
         0 
         0 
         BIRTH*2 
0
BUFF: .
.-1
0
10
PCDS
0
0
0
0
0
-1

0
0
1
2
3
4
5
6
7
8
9
10
         
SLUT: .-10

SIDST: .+21000
.BLK 21000

	.END PCDS

«ff»
«nul»