.title $$wank I hate DREXP.MAC .ident /8jn85/ .list src,meb ; ;+ ; ; Index C program initialization ; ; Usage ; if (stupidity) sbrk(...); ; Internal ; ; $$wank() ; ; Description ; ; You don't want to know! Fakes out sbrk(). ; ; Internal ; ; MAINTAINERS, Please Note ; ; Here lies the tomb of the unknown programmer. ; ; I modified $$init [5,7]init.mac because RSX/C was bombing ; with I/D space tasks in $$aloc: NXM. I bogus sbrk() to always ; fail: returns 0. I diddle various globals of $$init to reflect ; that I have set up a giant malloc() chunk of memory. With this ; I can at least run test C tasks to understand why I am dying. ; ; Bugs ; ; It exists. ; ;- ; ; Edit history: ; ; repressed to protect the guilty! ; .psect c$code sbreak:: sbrk:: clr r0 return $$wank:: mov #start+1,@#$$alhd+2 ; last mov #theend ,@#$$alhd-2 ; lastp return .psect c$wank,d ; We Are Not Klingons! ; MUST be after $$alhd in c$data start: .word theend ; free, point to end of free space big: .blkw 16000. ; theend: .word $$alhd+1 ; busy, point to start of chain .end