Files
unix-v6/source/tmg/tmgb/shift.s
T
2018-01-27 22:35:41 +09:00

15 lines
120 B
ArmAsm

.globl .p,sprv
.globl .sr,.sl
/ >>
.sr:
neg (sp)
/ <<
.sl:
mov 4(sp),r1
clr r0
alsc (sp),r0
mov r1,4(sp)
jmp .p