|
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: »CALC«
└─⟦5ca485322⟧ Bits:30005483 8" CR80 Floppy CR80FD_0201 ( Backup SL Disk-error 2u )
└─⟦46ea90735⟧
└─ ⟦this⟧ »JAS.CALC«
LIST
BEGIN USE BASE ;
MODULE ;
A: 0,0
B: 0,0
C: 0,0
D: 0,0
DAB: 0,0 ; (B-A)<8;
DAD: 0,0
DBC: 0,0
DXX: 0,0 ; (DAD-DBC)<8;
USE PROG
; CALCULATE DATAS:
START: ; START:
MOV B+1 R0 ; FETCH B VALUE;
SUB A+1 R0 ; B-A
MOV R0 DAB ; =>DAB;
MOV D+1 R0 ;
SUB A+1 R0 ;
MOV R0 DAD ;
MOV C+1 R0 ;
SUB B+1 R0 ;
MOV R0 DBC ;
MOVC DAB R0 ; DIVIDE BY 256;
SLLL X0 8 ;
MOVC DAD R0 ;
SLLL X1 8 ;
MOVC DBC R0 ;
SLLL X2 8 ;
MOVC DAB+1 R0 ; PERFORM SIGN EXTENSION;
SXT X0 7 ;
SXT X1 7 ;
SXT X2 7 ;
; CALCULATE DXX:
NEXT: ;
MOVC DXX R5 ;
MOVC DAD R4 ;
MOVL X5 R01 ;
MOVC DBC R5 ;
SUB X5 X4 ;
INCD R4 R5 ;
SUBU X5 X4 ;
XRM 64 ;
SOB R6 NEXT ;
JMP START ;
END ;
«eof»