|
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: 1408 (0x580)
Types: TextFile
Names: »BM2«
└─⟦7eb2f5ba2⟧ Bits:30005109 8" CR80 Floppy CR80FD_0068 ( CR/D/0103 BM1 BM2 NF )
└─⟦482ab23dc⟧
└─ ⟦this⟧ »BBR.BM2«
LIST
BEGIN MODULE BM2
USE BASE
AREASWITCH=1
0 REPEAT 8-1
BAS,BAS,PRG,PRPC,0,#E000,0,LOCACT,0,0,0,0
STARTC: -9999
STARTN: 0
STOPN: 1000
TIMO: 2000
TERMNR: 1
WORKA1:= LOC,LOC=LOC+1000
WORKA2:= LOC,LOC=LOC+1016
WORKB:= LOC,LOC=LOC+1500
USE PROG
LS: MOVC 1000 R2 ;
MOVC 2 R4 ;
MOVC 3 R5 ;
NEXT: MOV R1 WORKA1.X0 ;
ADD R4 R0 ;
ADD R5 R1 ;
SGE R0 R2 ;
JMP NEXT ;
SBZ R7 0 ;
JMP NEW ;
MOVC -3 R5 ;
MOVC 1 R0 ;
MOVC 1 R7 ;
JMP NEXT ;
NEW: MOVC 0 R0 ;
MOVC 0 R1 ;
MOVC 1500 R2 ;
MOVC 1 R4 ;
NEX: MOV R1 WORKB .X0 ;
ADD R4 R0 ;
ADD R4 R1 ;
SEQ R0 R2 ;
JMP NEX ;
MOV TERMNR R0 ;
MOVC <:B:> R1 ;
WIO R1 R0 ;
NEXTC: MOV STARTN R6 ;
NEXTN: MOV WORKA1.X6 R4 ;
MOV WORKA2.X6 R5 ;
MOV WORKB .X4 R1 ;
MOV WORKB .X5 R0 ;
SUB R0 R1 ;
MOV WORKB+1.X4 R2 ;
MOV WORKB+1.X5 R7 ;
SUB R7 R2 ;
MOV WORKB+2.X4 R3 ;
MOV WORKB+2.X5 R4 ;
SUB R4 R3 ;
DIV R3 R1 ;
DIV R3 R2 ;
MOV TIMO R5 ;
SUB R4 R5 ;
MOV R1 WORKA2.X6 ;
MUL R5 WORKA2.X6 ;
MOV R2 WORKA2+1.X6;
MUL R5 WORKA2+1.X6;
ADD R0 WORKA2.X6 ;
ADD R7 WORKA2+1.X6;
ADDC 2 R6 ;
MOV STOPN R5 ;
SNE R6 R5 ;
JMP NEXTN ;
MOV STARTC R7 ;
INC X7 ;
JON X7 NEXTC ;
MOV TERMNR R0 ;
MOVC <:R:> R1 ;
WIO R1 R0 ;
LOCACT: ;
0 REPEAT (15-((LOC-1) AN #F))
PRGLGT=LOC
USE BASE
BM2=#1000
BAS=PRGLGT+BM2
PRG=BM2
PRPC=PRG+LS
END
«eof»