|
|
1.1 ! root 1: .globl _coswitc ! 2: .text ! 3: _coswitc: ! 4: jsr r5,csv ! 5: jbr L1 ! 6: L2: ! 7: mov 4(r5),r0 ! 8: mov 6(r5),r1 ! 9: mov sp,(r0) ! 10: mov r5,2(r0) ! 11: mov r2,4(r0) ! 12: mov r3,6(r0) ! 13: mov r4,8.(r0) ! 14: tst 10(r5) ! 15: jne L4 ! 16: mov (r1),sp ! 17: clr r5 ! 18: clr (sp) ! 19: clr -(sp) ! 20: jsr pc,*$_interp ! 21: tst (sp)+ ! 22: mov $L5,(sp) ! 23: jsr pc,*$_syserr ! 24: jbr L6 ! 25: L4: ! 26: mov (r1),sp ! 27: mov 2(r1),r5 ! 28: mov 4(r1),r2 ! 29: mov 6(r1),r3 ! 30: mov 8.(r1),r4 ! 31: L6:L3: jmp cret ! 32: L1: jbr L2 ! 33: .globl ! 34: .data ! 35: L5:.byte 151,156,164,145,162,160,50,51,40,162,145,164,165,162 ! 36: .byte 156,145,144,40,151,156,40,143,157,163,167,151,164,143,150,0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.