|
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: 1378 (0x562)
Types: TextFile
Names: »MS4100.S«
└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
└─⟦f918199fd⟧
└─ ⟦this⟧ »MS2.D!MS4100.S«
MESSAGE <:MS4100.S V810224:>
;-----------------------------------------------------------------------
; SUBROUTINE MS4100
; WRITE INTEGER TO TABBUF.
;
; REGISTERS CALL EXIT
; R01 INTEGER DEST
; R2 NO. OF DIGITS DEST
; R4 LINK DEST
; R5 TABBUF OFFSET DEST
; R3 - DEST
; R6,R7 NOT USED
;
; INPUT: -
; OUTPUT: TABBUF DATA
; EXIT TO: LINK+0 (OK)
;-----------------------------------------------------------------------
MS4100: ; WRITE INTEGER:
MOV R4 RL4000 ; SAVE RETURN LINK
MOVC 10 R3 ; GET DIVISOR
ADD R2 R5 ; ADJUST INDEX TO LAST+1
MS4102: ; CONVERT FIRST(NEXT) DIGIT:
MOV R2 WK4000 ; SAVE LOOP COUNTER
JMPI S4 MI3100 ; DIVIDE
ADDC <:0:> R2 ; CONVERT REMAINDER TO ASCII
ADDC -1 R5 ; STEP BUFFER DOWN
MODC TABBUF ;
MOVB R2 X5 ; SAVE IN BUFFER
MOV WK4000 R2 ; GET LOOP COUNTER
SOB R2 MS4102 ; LOOPBACK TILL DONE
JMPI RL4000 ;R RETURN A