From f5f9018c5409ba2632de7561a1aac8e304ed642b Mon Sep 17 00:00:00 2001 From: Oliver Lehmann Date: Mon, 9 Jun 2008 17:14:41 +0000 Subject: [PATCH] add ASM source to generate 100% comp. WEGA 3.2 object --- WEGA/src/uts/sys/debug.s | 981 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 981 insertions(+) create mode 100644 WEGA/src/uts/sys/debug.s diff --git a/WEGA/src/uts/sys/debug.s b/WEGA/src/uts/sys/debug.s new file mode 100644 index 0000000..a7aec44 --- /dev/null +++ b/WEGA/src/uts/sys/debug.s @@ -0,0 +1,981 @@ +.seg +.psec data +.data + + +fp := r15; +sp := rr14; +_debugwstr:: +.byte %40 +.byte %5b +.byte %24 +.byte %5d +.byte %64 +.byte %65 +.byte %62 +.byte %75 +.byte %67 +.byte %2e +.byte %63 +.byte %9 +.byte %9 +.byte %52 +.byte %65 +.byte %76 +.byte %20 +.byte %3a +.byte %20 +.byte %34 +.byte %2e +.byte %31 +.byte %20 +.byte %9 +.byte %30 +.byte %39 +.byte %2f +.byte %31 +.byte %37 +.byte %2f +.byte %38 +.byte %33 +.byte %20 +.byte %30 +.byte %32 +.byte %3a +.byte %35 +.byte %36 +.byte %3a +.byte %30 +.byte %37 +.byte %0 +_kdebug:: +.word 0 +.comm 0, _buffer1; +.comm 0, _buffer2; +.comm 0, _buffer3; +.comm 0, _buffer4; +.comm 0, _buffer5; +.comm 0, _canonb; +.comm 4, _rootdir; +.comm 4, _runq; +.comm 2, _lbolt; +.comm 4, _lifetime; +.comm 4, _time; +.comm 2, _nblkdev; +.comm 2, _nchrdev; +.comm 2, _mpid; +.comm 1, _runin; +.comm 1, _runout; +.comm 1, _runrun; +.comm 1, _curpri; +.comm 2, _maxmem; +.comm 2, _umemory; +.comm 4, _swplo; +.comm 2, _nswap; +.comm 2, _updlock; +.comm 4, _rablock; +.comm 128, _msgbuf; +.comm 2, _rootdev; +.comm 2, _swapdev; +.comm 2, _pipedev; +.comm 4, _serial; +.comm 2, _numterm; +.comm 2, _manboot; +.comm 2, _blkacty; +.comm 2, _cputype; +.comm 112, _sysinfo; +.comm 6, _syswait; +.comm 2, _dk_busy; +.comm 128, _dk_time; +.comm 12, _dk_numb; +.comm 12, _dk_wds; +.comm 4, _tk_nin; +.comm 4, _tk_nout; +.comm 200, _callout; +.comm 50, _breakpt; +_kdbstr: +.=.+6 +_hzif: +.byte %30 +.byte %31 +.byte %32 +.byte %33 +.byte %34 +.byte %35 +.byte %36 +.byte %37 +.byte %38 +.byte %39 +.byte %41 +.byte %42 +.byte %43 +.byte %44 +.byte %45 +.byte %46 +_foo: +.word 0 +_format: +.=.+16 +.byte 0 +.byte 0 +.even +_kval: +.word 0 +/*~~gethex:*/ + +.psec +.code + +_gethex:: +{ + dec fp,#~L2 + subl rr2,rr2 + jpr L20000 +L95: + cpb |_stkseg+~L1+1|(fp),#97 + jpr ge,L20005 +L97: + cpb |_stkseg+~L1+1|(fp),#48 + jpr lt,L99 + cpb |_stkseg+~L1+1|(fp),#57 + jpr gt,L99 + ldb rl2,|_stkseg+~L1+1|(fp) + subb rl2,#48 +L20007: + ldb |_stkseg+~L1+1|(fp),rl2 + ldl rr2,|_stkseg+~L1+2|(fp) + slal rr2,#4 + ldb rl5,|_stkseg+~L1+1|(fp) + extsb r5 + exts rr4 + addl rr2,rr4 +L20000: + ldl |_stkseg+~L1+2|(fp),rr2 + callr _getchar + ldb |_stkseg+~L1+1|(fp),rl2 + testb rl2 + jpr eq,L10000 + cpb rl2,#65 + jpr lt,L95 + cpb rl2,#70 + jpr gt,L95 + extsb r2 + sub r2,#55 + jpr L20007 +L20005: + cpb |_stkseg+~L1+1|(fp),#102 + jpr gt,L97 + ldb rl2,|_stkseg+~L1+1|(fp) + extsb r2 + sub r2,#87 + jpr L20007 +L99: + ldl rr2,|_stkseg+~L1+2|(fp) +L10000: + inc fp,#~L2 + ret + ~L1 := 0 + ~L2 := 10 + } /* _gethex */ + +.psec data +.data + +/*~~zpr:*/ + +.psec +.code + +_zpr:: +{ + dec fp,#~L2 + ld |_stkseg+~L1+0|(fp),r7 + ldl rr2,#_hzif + ldl |_stkseg+~L1+4|(fp),rr2 + ld |_stkseg+~L1+2|(fp),r7 + ld r6,r7 + sra r6,#12 + andb rl6,#15 + subb rh6,rh6 + ldl rr2,|_stkseg+~L1+4|(fp) + ldb rl4,rr2(r6) + ldb _kdbstr,rl4 + ld r6,|_stkseg+~L1+2|(fp) + ldb rl6,rh6 + extsb r6 + andb rl6,#15 + subb rh6,rh6 + ldb rl4,rr2(r6) + ldb _kdbstr+1,rl4 + ld r6,|_stkseg+~L1+2|(fp) + sra r6,#4 + andb rl6,#15 + subb rh6,rh6 + ldb rl4,rr2(r6) + ldb _kdbstr+2,rl4 + ld r6,|_stkseg+~L1+2|(fp) + andb rl6,#15 + subb rh6,rh6 + ldb rl4,rr2(r6) + ldb _kdbstr+3,rl4 + clrb _kdbstr+4 + ldl rr2,#_kdbstr + inc fp,#~L2 + ret + ~L1 := 0 + ~L2 := 12 + } /* _zpr */ + +.psec data +.data + +L114: +.byte %4b,%44,%42,%3a,%20,%55,%6e,%73 +.byte %65,%74,%20,%62,%72,%65,%61,%6b +.byte %70,%6f,%69,%6e,%74,%a,%0 +.even +L116: +.byte %4b,%44,%42,%3a,%20,%40,%25,%58 +.byte %20,%42,%72,%65,%61,%6b,%70,%6f +.byte %69,%6e,%74,%a,%0 +.even +L121: +.byte %4b,%44,%42,%3e,%7,%0 +.even +L126: +.byte %75,%6d,%70,%20,%63,%61,%6c,%6c +.byte %20,%74,%6f,%20,%40,%0 +.even +L131: +.byte %72,%65,%61,%6b,%70,%6f,%69,%6e +.byte %74,%20,%40,%0 +.even +L136: +.byte %4b,%44,%42,%3a,%20,%4e,%6f,%20 +.byte %6d,%6f,%72,%65,%20,%62,%72,%65 +.byte %61,%6b,%20,%73,%6c,%6f,%74,%73 +.byte %a,%0 +.even +L139: +.byte %20,%46,%41,%55,%4c,%54,%20,%0 +.even +L142: +.byte %73,%65,%72,%20,%73,%70,%61,%63 +.byte %65,%20,%64,%0 +.even +L146: +.byte %68,%79,%73,%69,%63,%61,%6c,%20 +.byte %73,%70,%61,%63,%65,%20,%64,%0 +.even +L149: +.byte %69,%73,%70,%6c,%61,%79,%20,%40 +.byte %0 +.even +L150: +.byte %66,%6f,%72,%20,%0 +.even +L151: +.byte %77,%6f,%72,%64,%73,%a,%0 +.even +L157: +.byte %a,%0 +.even +L158: +.byte %25,%73,%0 +.even +L159: +.byte %25,%73,%3a,%20,%0 +.even +L161: +.byte %20,%46,%41,%55,%4c,%54,%20,%0 +.even +L164: +.byte %20,%46,%41,%55,%4c,%54,%20,%0 +.even +L166: +.byte %25,%73,%20,%0 +.even +L168: +.byte %20,%20,%7c,%25,%73,%7c,%0 +.even +L171: +.byte %6f,%64,%69,%66,%79,%20,%0 +.even +L176: +.byte %65,%67,%69,%73,%74,%65,%72,%20 +.byte %0 +.even +L177: +.byte %28,%25,%73,%29,%20,%77,%69,%74 +.byte %68,%20,%0 +.even +L178: +.byte %4f,%4b,%20,%0 +.even +L185: +.byte %65,%6d,%6f,%72,%79,%20,%40,%0 +.even +L186: +.byte %28,%25,%73,%29,%20,%77,%69,%74 +.byte %68,%20,%0 +.even +L187: +.byte %4f,%4b,%20,%0 +.even +L193: +.byte %20,%46,%41,%55,%4c,%54,%20,%0 +.even +.even +L195: +.word 77 +.word 82 +.word 109 +.word 114 +.even +L199: +.byte %65,%67,%69,%73,%74,%65,%72,%73 +.byte %a,%0 +.even +L204: +.byte %72,%25,%64,%3a,%25,%73,%20,%0 +.even +L205: +.byte %a,%66,%63,%77,%3d,%25,%73,%20 +.byte %0 +.even +L206: +.byte %70,%63,%73,%65,%67,%3d,%25,%73 +.byte %20,%0 +.even +L207: +.byte %70,%63,%6f,%66,%66,%3d,%25,%73 +.byte %0 +.even +L210: +.byte %69,%6e,%67,%6c,%65,%20,%73,%74 +.byte %65,%70,%a,%0 +.even +L214: +.byte %61,%70,%65,%20,%63,%72,%61,%73 +.byte %68,%20,%64,%75,%6d,%70,%a,%0 +.even +L215: +.byte %77,%72,%69,%74,%61,%62,%6c,%65 +.byte %20,%74,%61,%70,%65,%20,%6c,%6f +.byte %61,%64,%65,%64,%20,%69,%6e,%20 +.byte %64,%72,%69,%76,%65,%20,%30,%3f +.byte %20,%0 +.even +L223: +.byte %6f,%6e,%74,%69,%6e,%75,%65,%a +.byte %0 +.even +L226: +.byte %78,%69,%74,%a,%0 +.even +.even +/*~~debug:*/ + +.psec +.code + +_debug:: +{ + .psec data + .data + .even +L196: + .long L184 + .long L175 + .long L184 + .long L175 + .even +L227: + .long L130 + .long L222 + .long L148 + .long L225 + .long L127 + .long L127 + .long L127 + .long L127 + .long L125 + .long L127 + .long L127 + .long L170 + .long L127 + .long L127 + .long L145 + .long L127 + .long L198 + .long L209 + .long L213 + .long L141 + .long L127 + .long L127 + .long L127 + .long L127 + .long L127 + .long L127 + .long L127 + .long L127 + .long L127 + .long L127 + .long L127 + .long L127 + .long L130 + .long L222 + .long L148 + .long L225 + .long L127 + .long L127 + .long L127 + .long L127 + .long L125 + .long L127 + .long L127 + .long L170 + .long L127 + .long L127 + .long L145 + .long L127 + .long L198 + .long L209 + .long L213 + .long L141 + .psec + .code + sub fp,#~L2 + ldl |_stkseg+~L1+0|(fp),rr6 + test _kdebug + jpr eq,L10006 + callr _dvi + ld |_stkseg+~L1+12|(fp),r2 + ldl rr2,|_stkseg+~L1|(fp) + ld r4,rr2(#32) + and r4,#255 + ld |_stkseg+~L1+22|(fp),r4 + ld |_stkseg+~L1+20|(fp),#5 + cp |_stkseg+~L1+22|(fp),#2 + jpr ne,L119 + clr |_stkseg+~L1+20|(fp) +L20009: + ld r3,|_stkseg+~L1+20|(fp) + mult rr2,#10 + ld r2,_breakpt(r3) + test r2 + jpr eq,L108 + ld r5,|_stkseg+~L1+20|(fp) + mult rr4,#10 + ld r2,_breakpt+2(r5) + ldl rr4,|_stkseg+~L1|(fp) + ld r3,rr4(#36) + and r3,#16128 + cp r2,r3 + jpr ne,L108 + ld r7,|_stkseg+~L1+20|(fp) + mult rr6,#10 + ld r2,_breakpt+4(r7) + ld r3,rr4(#38) + dec r3,#2 + cp r2,r3 + jpr eq,L109 +L108: + inc |_stkseg+~L1+20|(fp),#1 + cp |_stkseg+~L1+20|(fp),#5 + jpr lt,L20009 +L109: + cp |_stkseg+~L1+20|(fp),#5 + jpr lt,L112 + ldl rr6,#L114 +L20020: + callr _printf + jpr L119 +L112: + ld r3,|_stkseg+~L1+20|(fp) + mult rr2,#10 + ldl rr4,#_breakpt + add r5,r3 + clr @rr4 + ld r3,|_stkseg+~L1+20|(fp) + mult rr2,#10 + ldl rr4,_breakpt+2(r3) + ldl |_stkseg+~L1+8|(fp),rr4 + ld r3,|_stkseg+~L1+20|(fp) + mult rr2,#10 + ldl rr4,_breakpt+2(r3) + ldl rr6,#L116 + callr _printf + ldl rr4,#_stkseg+~L1+36 + add r5,fp + ldb rl6,|_stkseg+~L1+8|(fp) + ldb rh6,#0 + ld r7,_mmut + callr _getsd + ldb rl2,|_stkseg+~L1+39|(fp) + ldb |_stkseg+~L1+41|(fp),rl2 + ldb rl3,|_stkseg+~L1+39|(fp) + andb rl3,#254 + ldb |_stkseg+~L1+39|(fp),rl3 + ldl rr4,#_stkseg+~L1+36 + add r5,fp + ldb rl6,|_stkseg+~L1+8|(fp) + ldb rh6,#0 + ld r7,_mmut + callr _loadsd + ld r3,|_stkseg+~L1+20|(fp) + mult rr2,#10 + ld r2,_breakpt+6(r3) + ldl rr4,|_stkseg+~L1+8|(fp) + ld @rr4,r2 + ldb rl3,|_stkseg+~L1+41|(fp) + ldb |_stkseg+~L1+39|(fp),rl3 + ldl rr4,#_stkseg+~L1+36 + add r5,fp + ldb rl6,|_stkseg+~L1+8|(fp) + ldb rh6,#0 + ld r7,_mmut + callr _loadsd + ldl rr2,|_stkseg+~L1|(fp) + add r3,#38 + dec @rr2,#2 +L119: + ldl rr6,#L121 + callr _printf + callr _getchar + ld |_stkseg+~L1+18|(fp),r2 + sub r2,#66 + cp r2,#51 + jpr ugt,L127 + rl r2,#2 + ldl rr4,L227(r2) + jp @rr4 +L125: + ldl rr6,#L126 + callr _printf + callr _gethex + ldl rr4,rr2 + and r4,#32512 + ldl |_stkseg+~L1+32|(fp),rr4 + ldl rr2,rr4 + call @rr2 +L127: + ldk r7,#10 + callr _putchar + jpr L119 +L130: + ldl rr6,#L131 + callr _printf + callr _gethex + and r2,#16128 + ldl rr4,rr2 + and r4,#32512 + ldl |_stkseg+~L1+8|(fp),rr4 + clr |_stkseg+~L1+20|(fp) +L134: + ld r3,|_stkseg+~L1+20|(fp) + mult rr2,#10 + ld r2,_breakpt(r3) + test r2 + jpr eq,L133 + inc |_stkseg+~L1+20|(fp),#1 + cp |_stkseg+~L1+20|(fp),#5 + jpr lt,L134 +L133: + cp |_stkseg+~L1+20|(fp),#5 + jpr lt,L135 + ldl rr6,#L136 + jpr L20020 +L135: + ld r3,|_stkseg+~L1+20|(fp) + mult rr2,#10 + ldl rr4,#_breakpt + add r5,r3 + ld @rr4,#1 + ld r3,|_stkseg+~L1+20|(fp) + mult rr2,#10 + ldl rr4,#_breakpt+2 + add r5,r3 + ldl rr2,|_stkseg+~L1+8|(fp) + ldl @rr4,rr2 + ld r3,|_stkseg+~L1+20|(fp) + mult rr2,#10 + ldl rr4,#_breakpt+6 + add r5,r3 + ldl rr2,|_stkseg+~L1+8|(fp) + ld r6,@rr2 + ld @rr4,r6 + ldl rr4,#_stkseg+~L1+36 + add r5,fp + ldb rl6,|_stkseg+~L1+8|(fp) + ldb rh6,#0 + ld r7,_mmut + callr _getsd + ldb rl2,|_stkseg+~L1+39|(fp) + ldb |_stkseg+~L1+41|(fp),rl2 + ldb rl3,|_stkseg+~L1+39|(fp) + andb rl3,#254 + ldb |_stkseg+~L1+39|(fp),rl3 + ldl rr4,#_stkseg+~L1+36 + add r5,fp + ldb rl6,|_stkseg+~L1+8|(fp) + ldb rh6,#0 + ld r7,_mmut + callr _loadsd + ldl rr6,|_stkseg+~L1+8|(fp) + ld r5,#127 + callr _skbyte + test r2 + jpr ne,L138a + ldl rr6,|_stkseg+~L1+8|(fp) + inc r7,#1 + ldk r5,#2 + callr _skbyte + test r2 + jpr eq,L138 +L138a: + ldl rr6,#L139 +L20021: + callr _printf + jpr L127 +L138: + ldb rl2,|_stkseg+~L1+41|(fp) + ldb |_stkseg+~L1+39|(fp),rl2 + ldl rr4,#_stkseg+~L1+36 + add r5,fp + ldb rl6,|_stkseg+~L1+8|(fp) + ldb rh6,#0 + ld r7,_mmut + callr _loadsd + jpr L127 +L141: + ldl rr6,#L142 + callr _printf + ldl rr2,#_fubyte + jpr L20010 +L145: + ldl rr6,#L146 + callr _printf + ldl rr2,#_fpbyte + jpr L20010 +L148: + ldl rr2,#_fkbyte +L20010: + ldl |_stkseg+~L1+32|(fp),rr2 + ldl rr6,#L149 + callr _printf + callr _gethex + ldl rr4,rr2 + and r4,#32512 + ldl |_stkseg+~L1+4|(fp),rr4 + ldl rr6,#L150 + callr _printf + callr _gethex + ldl |_stkseg+~L1+28|(fp),rr2 + ldl rr6,#L151 + callr _printf + clr |_stkseg+~L1+16|(fp) + ldl rr2,|_stkseg+~L1+28|(fp) + addl rr2,#7 + srll rr2,#3 + slal rr2,#3 + ldl |_stkseg+~L1+28|(fp),rr2 + subl rr2,rr2 +L20012: + ldl |_stkseg+~L1+24|(fp),rr2 + cpl rr2,|_stkseg+~L1+28|(fp) + jpr uge,L127 + test |_stkseg+~L1+16|(fp) + jpr ne,L155 + testl rr2 + jpr eq,L156 + ldl rr6,#L157 + callr _printf +L156: + ld r7,|_stkseg+~L1+4|(fp) + callr _zpr + ldl |_stkseg+~L1+42|(fp),rr2 + ldl rr6,#L158 + ldl rr4,rr2 + callr _printf + ldl rr2,#_stkseg+~L1+4 + add r3,fp + ld r7,rr2(#2) + callr _zpr + ldl |_stkseg+~L1+42|(fp),rr2 + ldl rr6,#L159 + ldl rr4,rr2 + callr _printf +L155: + ldl rr2,|_stkseg+~L1+32|(fp) + ldl |_stkseg+~L1+42|(fp),rr2 + ldl rr4,#_format + add r5,|_stkseg+~L1+16|(fp) + ldl rr6,|_stkseg+~L1+4|(fp) + call @rr2 + test r2 + jpr eq,L160 + ldl rr6,#L161 + jpr L20021 +L160: + ld r2,|_stkseg+~L1+16|(fp) + ldb rl3,_format(r2) + subb rh3,rh3 + ldb rh3,rl3 + clrb rl3 + ld _kval,r3 + ldb rl3,_format(r2) + cpb rl3,#32 + jpr ult,L10009 + ldb rl3,_format(r2) + cpb rl3,#126 + jpr ule,L162 +L10009: + ld r2,|_stkseg+~L1+16|(fp) + ldl rr4,#_format + add r5,r2 + ldb @rr4,#32 +L162: + inc |_stkseg+~L1+16|(fp),#1 + inc |_stkseg+~L1+6|(fp),#1 + ldl rr2,|_stkseg+~L1+32|(fp) + ldl |_stkseg+~L1+42|(fp),rr2 + ldl rr4,#_format + add r5,|_stkseg+~L1+16|(fp) + ldl rr6,|_stkseg+~L1+4|(fp) + call @rr2 + test r2 + jpr eq,L163 + ldl rr6,#L164 + jpr L20021 +L163: + ld r2,|_stkseg+~L1+16|(fp) + ldb rl3,_format(r2) + subb rh3,rh3 + or r3,_kval + ld _kval,r3 + ld r2,|_stkseg+~L1+16|(fp) + ldb rl3,_format(r2) + cpb rl3,#32 + jpr ult,L10010 + ldb rl3,_format(r2) + cpb rl3,#126 + jpr ule,L165 +L10010: + ld r2,|_stkseg+~L1+16|(fp) + ldl rr4,#_format + add r5,r2 + ldb @rr4,#32 +L165: + inc |_stkseg+~L1+16|(fp),#1 + inc |_stkseg+~L1+6|(fp),#1 + ld r7,_kval + callr _zpr + ldl |_stkseg+~L1+42|(fp),rr2 + ldl rr6,#L166 + ldl rr4,rr2 + callr _printf + ld r3,|_stkseg+~L1+16|(fp) + exts rr2 + div rr2,#16 + test r2 + jpr ne,L152 + ldl rr6,#L168 + ldl rr4,#_format + callr _printf + clr |_stkseg+~L1+16|(fp) +L152: + ldl rr2,|_stkseg+~L1+24|(fp) + addl rr2,#1 + jpr L20012 +L170: + ldl rr6,#L171 + callr _printf + callr _getchar + ldl rr4,#L195 + ld r6,#4 + cpir r2,@rr4,r6,eq + jpr ne,L127 + sll r6,#2 + neg r6 + ldl rr4,L196+12(r6) + jp @rr4 +L175: + ldl rr6,#L176 + callr _printf + callr _gethex + ldl |_stkseg+~L1+28|(fp),rr2 + slal rr2,#1 + ldl rr4,|_stkseg+~L1|(fp) + ld r7,rr4(r3) + callr _zpr + ldl |_stkseg+~L1+42|(fp),rr2 + ldl rr6,#L177 + ldl rr4,rr2 + callr _printf + callr _gethex + ld |_stkseg+~L1+14|(fp),r3 + ldl rr6,#L178 + callr _printf + callr _getchar + cp r2,#89 + jpr eq,L182 + cp r2,#121 + jpr ne,L127 +L182: + ldl rr2,|_stkseg+~L1+28|(fp) + slal rr2,#1 + ldl rr4,|_stkseg+~L1|(fp) + add r5,r3 + ld r2,|_stkseg+~L1+14|(fp) + ld @rr4,r2 + jpr L127 +L184: + ldl rr6,#L185 + callr _printf + callr _gethex + ldl rr4,rr2 + and r4,#32512 + ldl |_stkseg+~L1+8|(fp),rr4 + ldl rr2,rr4 + ld r7,@rr2 + callr _zpr + ldl |_stkseg+~L1+42|(fp),rr2 + ldl rr6,#L186 + ldl rr4,rr2 + callr _printf + callr _gethex + ld |_stkseg+~L1+14|(fp),r3 + ldl rr6,#L187 + callr _printf + callr _getchar + cp r2,#89 + jpr eq,L191 + cp r2,#121 + jpr ne,L127 +L191: + ldl rr4,#_stkseg+~L1+36 + add r5,fp + ldb rl6,|_stkseg+~L1+8|(fp) + ldb rh6,#0 + ld r7,_mmut + callr _getsd + ldb rl2,|_stkseg+~L1+39|(fp) + ldb |_stkseg+~L1+41|(fp),rl2 + ldb rl3,|_stkseg+~L1+39|(fp) + andb rl3,#254 + ldb |_stkseg+~L1+39|(fp),rl3 + ldl rr4,#_stkseg+~L1+36 + add r5,fp + ldb rl6,|_stkseg+~L1+8|(fp) + ldb rh6,#0 + ld r7,_mmut + callr _loadsd + ldl rr6,|_stkseg+~L1+8|(fp) + ldb rl5,|_stkseg+~L1+14|(fp) + ldb rh5,#0 + callr _skbyte + test r2 + jpr ne,L198a + ldl rr6,|_stkseg+~L1+8|(fp) + inc r7,#1 + ldb rl5,|_stkseg+~L1+14|(fp) + ldb rh5,#0 + callr _skbyte + test r2 + jpr eq,L138 +L198a: + ldl rr6,#L193 + jpr L20021 +L198: + ldl rr6,#L199 + callr _printf + subl rr2,rr2 +L20013: + ldl |_stkseg+~L1+24|(fp),rr2 + cpl rr2,#16 + jpr ult,L20015 + ldl rr2,|_stkseg+~L1|(fp) + ld r7,rr2(#34) + callr _zpr + ldl |_stkseg+~L1+42|(fp),rr2 + ldl rr6,#L205 + ldl rr4,rr2 + callr _printf + ldl rr2,|_stkseg+~L1|(fp) + ld r7,rr2(#36) + callr _zpr + ldl |_stkseg+~L1+42|(fp),rr2 + ldl rr6,#L206 + ldl rr4,rr2 + callr _printf + ldl rr2,|_stkseg+~L1|(fp) + ld r7,rr2(#38) + callr _zpr + ldl |_stkseg+~L1+42|(fp),rr2 + ldl rr6,#L207 + ldl rr4,rr2 + jpr L20021 +L20015: + ldl rr2,|_stkseg+~L1+24|(fp) + ldk r2,#0 + and r3,#7 + testl rr2 + jpr ne,L203 + ldk r7,#10 + callr _putchar +L203: + ldl rr2,|_stkseg+~L1+24|(fp) + slal rr2,#1 + ldl rr4,|_stkseg+~L1|(fp) + ld r7,rr4(r3) + callr _zpr + ldl |_stkseg+~L1+42|(fp),rr2 + ldl rr6,#L204 + ldl rr4,|_stkseg+~L1+24|(fp) + callr _printf + ldl rr2,|_stkseg+~L1+24|(fp) + addl rr2,#1 + jpr L20013 +L209: + ldl rr6,#L210 + callr _printf + ldl rr2,|_stkseg+~L1|(fp) + add r3,#34 + set @rr2,#0 + jpr L20018 +L213: + ldl rr6,#L214 + callr _printf + ldl rr6,#L215 + callr _printf + callr _getchar + cp r2,#89 + jpr eq,L219 + cp r2,#121 + jpr ne,L127 +L219: + ldl rr6,|_stkseg+~L1|(fp) + callr _dump + jpr L127 +L222: + ldl rr6,#L223 + jpr L20019 +L225: + ldl rr6,#L226 +L20019: + callr _printf +L20018: + ld r7,|_stkseg+~L1+12|(fp) + callr _rvi + ldk r2,#1 +L10006: + add fp,#~L2 + ret + ~L1 := 0 + ~L2 := 46 + } /* _debug */ + +.psec data +.data +