|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 768 (0x300)
Types: TextFile
Names: »BM1«
└─⟦7eb2f5ba2⟧ Bits:30005109 8" CR80 Floppy CR80FD_0068 ( CR/D/0103 BM1 BM2 NF )
└─⟦482ab23dc⟧
└─ ⟦this⟧ »BBR.BM1«
LIST
BEGIN MODULE BM1
USE BASE
0 REPEAT 8-1
BM1,BM1,PRG,PRPC,0,#E000,0,LOCACT,0,0,0,0
STARTC: -9999
STARTN: 0
STOPN: 200
TERMNR: 1
WORK: 0 REPEAT 60-1
#7FF8 REPEAT 60-1
#00F0,0 REPEAT (40-1,2)
USE PROG
LS:
MOV TERMNR R0 ;
MOVC <:B:> R1 ;
WIO R1 R0 ;
MOV STOPN R6 ;
MOV STARTC R4 ;
NEXTC: MOV STARTN R5 ;
NEXTN: MOV WORK .X5 R1 ;
SBN R1 6 ;
JMP NOSTEP ;
MOV WORK+1.X5 R1 ;
MOV R1 R2 ;
MOVC 7 R7 ;
IOR R7 R2 ;
ADDC 1 R2 ;
JVN ALL1 ;
SLC R1 13 ;
ADDC 1 R1 ;
SLC R1 3 ;
MOV R1 WORK+1.X5 ;
NOSTEP: ADDC 2 R5 ;
SEQ R5 R6 ;
JMP NEXTN ;
ADDC 1 R4 ;
JON R4 NEXTC ;
MOVC <:R:> R1 ;
WIO R1 R0 ;
JMP LOCACT ;
ALL1: MOV R5 R3 ;
ADDC WORK R3 ;
RELS X3 6 ;
JMP NOSTEP ;
LOCACT: ;
USE BASE
BM1=#1000
PRG=BM1+LOC
PRPC=PRG+LS
END
«eof»