.ORIG x3000
LD R2 Number
LD R3 Max
Start
NOT R0 R3
ADD R0 R0 #1
ADD R0 R2 R0
ADD R6 R0 #0
BRn Zero
ADD R3 R3 #0
BRz Done
LD R0 OneASCII
TRAP x21
ADD R2 R6 #0
JSR DivBy2
BR Start
Zero
LD R0 ZeroASCII
TRAP x21
JSR DivBy2
BR Start
Done
HALT
DivBy2
AND R0 R0 #0
ADD R4 R3 #0
Again
ADD R4 R4 #-2
BRn Skip
ADD R0 R0 #1
BR Again
Skip
ADD R3 R0 #0
RET
Number .FILL #64
Max .FILL #32768
ZeroASCII .FILL x30
OneASCII .FILL X31
.END
LD R2 Number
LD R3 Max
Start
NOT R0 R3
ADD R0 R0 #1
ADD R0 R2 R0
ADD R6 R0 #0
BRn Zero
ADD R3 R3 #0
BRz Done
LD R0 OneASCII
TRAP x21
ADD R2 R6 #0
JSR DivBy2
BR Start
Zero
LD R0 ZeroASCII
TRAP x21
JSR DivBy2
BR Start
Done
HALT
DivBy2
AND R0 R0 #0
ADD R4 R3 #0
Again
ADD R4 R4 #-2
BRn Skip
ADD R0 R0 #1
BR Again
Skip
ADD R3 R0 #0
RET
Number .FILL #64
Max .FILL #32768
ZeroASCII .FILL x30
OneASCII .FILL X31
.END
No comments:
Post a Comment