.set noat .set noreorder .globl tick .section .sdata,"aw" .align 2 .type tick,@object .size tick,4 tick: .long 0 .globl noptick .align 2 .type noptick,@object .size noptick,4 noptick: .long 0 .globl stringtick .align 2 .type stringtick,@object .size stringtick,4 stringtick: .long 0 .globl btrace .align 2 .type btrace,@object .size btrace,4 btrace: .long 0 .text .align 2 .align 4 .globl strepl .ent strepl $strepl..ng: strepl: .frame $30,0,$26,0 .prologue 0 ldl $1,12($16) ldq $2,0($16) s4addq $1,$2,$1 .align 3 #realign stl $17,0($1) ret $31,($26),1 .end strepl .align 2 .align 4 .globl breplace .ent breplace breplace: .frame $30,0,$26,0 ldgp $29,0($27) $breplace..ng: .prologue 1 .align 3 #realign ldq $16,40($16) br $31,$strepl..ng .end breplace .section .sdata,"aw" .align 2 .type overflow.0,@object .size overflow.0,4 overflow.0: .long 0 .section .rodata $LC0: .ascii "stack overflow (only reported once)\12\0" .text .align 2 .align 4 .globl stpush .ent stpush stpush: .frame $30,32,$26,0 .mask 0x4000e00,-32 ldgp $29,0($27) $stpush..ng: lda $30,-32($30) stq $26,0($30) stq $9,8($30) stq $10,16($30) stq $11,24($30) .prologue 1 mov $16,$9 lda $11,overflow.0 mov $17,$10 ldl $2,8($9) ldl $1,12($9) subl $2,1,$2 lda $3,1($1) .align 3 #realign cmplt $1,$2,$1 beq $1,$L18 stl $3,12($9) $L19: ldl $1,12($9) ldq $2,0($9) ldq $26,0($30) ldq $9,8($30) nop s4addq $1,$2,$1 ldq $11,24($30) stl $10,0($1) ldq $10,16($30) lda $30,32($30) ret $31,($26),1 .align 4 $L18: ldl $1,0($11) lda $17,1 lda $18,36 lda $16,$LC0 lda $19,__sF+304 bne $1,$L19 jsr $26,fwrite ldgp $29,0($26) lda $1,-1 fnop stl $1,0($11) br $31,$L19 .end stpush .align 2 .align 4 .globl push .ent push push: .frame $30,0,$26,0 ldgp $29,0($27) $push..ng: .prologue 1 .align 3 #realign ldq $16,40($16) br $31,$stpush..ng .end push .align 2 .align 4 .globl stpeek .ent stpeek $stpeek..ng: stpeek: .frame $30,0,$26,0 .prologue 0 ldq $2,0($16) ldl $1,12($16) s4addq $1,$2,$1 ldl $0,0($1) ret $31,($26),1 .end stpeek .align 2 .align 4 .globl bpeek .ent bpeek bpeek: .frame $30,0,$26,0 ldgp $29,0($27) $bpeek..ng: .prologue 1 .align 3 #realign ldq $16,40($16) br $31,$stpeek..ng .end bpeek .section .rodata $LC1: .ascii "i -> sp == %d, dec pending.\12\0" .text .align 2 .align 4 .globl stpop .ent stpop stpop: .frame $30,32,$26,0 .mask 0x4000600,-32 ldgp $29,0($27) $stpop..ng: lda $30,-32($30) stq $26,0($30) stq $9,8($30) stq $10,16($30) .prologue 1 mov $16,$9 ldl $17,12($9) ldq $1,0($9) s4addq $17,$1,$1 .align 3 #realign ldl $10,0($1) ble $17,$L25 lda $1,btrace lda $16,$LC1 ldl $2,0($1) beq $2,$L26 jsr $26,printf ldgp $29,0($26) $L26: ldl $1,12($9) lda $1,-1($1) stl $1,12($9) nop $L25: mov $10,$0 ldq $26,0($30) ldq $9,8($30) ldq $10,16($30) lda $30,32($30) ret $31,($26),1 .end stpop .align 2 .align 4 .globl pop .ent pop pop: .frame $30,0,$26,0 ldgp $29,0($27) $pop..ng: .prologue 1 .align 3 #realign ldq $16,40($16) br $31,$stpop..ng .end pop .section .sdata,"aw" .align 2 .type underflow.1,@object .size underflow.1,4 underflow.1: .long 0 .section .rodata $LC2: .ascii "stdig() stack underflow (only reported once)\0" .text .align 2 .align 4 .globl stdig .ent stdig stdig: .frame $30,32,$26,0 .mask 0x4000600,-32 ldgp $29,0($27) $stdig..ng: lda $30,-32($30) stq $26,0($30) stq $9,8($30) stq $10,16($30) .prologue 1 mov $16,$9 lda $10,underflow.1 ldl $1,12($9) .align 3 #realign subl $1,$17,$2 blt $2,$L30 ldl $1,8($9) subl $1,1,$1 cmple $2,$1,$1 bne $1,$L29 $L30: ldl $1,0($10) lda $17,1 lda $18,44 lda $16,$LC2 lda $19,__sF+304 beq $1,$L32 $L31: mov $9,$16 ldq $26,0($30) ldq $9,8($30) ldq $10,16($30) lda $30,32($30) br $31,$stpeek..ng .align 4 $L32: jsr $26,fwrite ldgp $29,0($26) lda $1,-1 fnop stl $1,0($10) br $31,$L31 .align 4 $L29: ldq $1,0($9) ldq $26,0($30) ldq $9,8($30) nop s4addq $2,$1,$1 ldq $10,16($30) ldl $0,0($1) nop lda $30,32($30) ret $31,($26),1 .end stdig .align 2 .align 4 .globl bef_checkpc .ent bef_checkpc $bef_checkpc..ng: bef_checkpc: .frame $30,0,$26,0 .prologue 0 ldl $1,24($16) ldl $2,16($16) .align 3 #realign cmplt $1,$2,$1 bne $1,$L34 stl $31,24($16) $L34: ldl $1,28($16) ldl $2,20($16) nop cmplt $1,$2,$1 bne $1,$L35 stl $31,28($16) nop $L35: ldl $1,24($16) blt $1,$L38 $L36: ldl $1,28($16) blt $1,$L39 ret $31,($26),1 .align 4 $L39: ldl $1,20($16) lda $1,-1($1) stl $1,28($16) ret $31,($26),1 .align 4 $L38: ldl $1,16($16) lda $1,-1($1) stl $1,24($16) br $31,$L36 .end bef_checkpc .align 2 .align 4 .globl bef_walk .ent bef_walk $bef_walk..ng: bef_walk: .frame $30,0,$26,0 .prologue 0 ldl $2,24($16) ldl $4,32($16) ldl $3,28($16) ldl $5,36($16) .align 3 #realign ldl $6,16($16) addq $2,$4,$2 addl $2,$31,$1 addq $3,$5,$3 stl $2,24($16) cmplt $1,$6,$1 stl $3,28($16) bne $1,$L41 stl $31,24($16) $L41: ldl $1,28($16) ldl $2,20($16) nop cmplt $1,$2,$1 bne $1,$L42 stl $31,28($16) nop $L42: ldl $1,24($16) blt $1,$L45 $L43: ldl $1,28($16) blt $1,$L46 ret $31,($26),1 .align 4 $L46: ldl $1,20($16) lda $1,-1($1) stl $1,28($16) ret $31,($26),1 .align 4 $L45: ldl $1,16($16) lda $1,-1($1) stl $1,24($16) br $31,$L43 .end bef_walk .section .rodata $LC3: .ascii "0\0" $LC5: .ascii "mode change mSTRING\0" $LC10: .ascii "%i\0" $LC7: .ascii "%d \0" $LC6: .ascii "dup: %c (%d)\12\0" $LC4: .ascii "<>^v\0" $LC12: .ascii "from (%d,%d) to (%d,%d)\12\0" $LC8: .ascii "%d, %d out of bounds at %d, %d\12\0" $LC9: .ascii "%d -> %d,%d\0" $LC14: .ascii "unknown opcode %c (%d) at %d, %d\12\0" $LC11: .ascii "EOF on getchar()\0" $LC13: .ascii "Damn! PC frozen by 'r'.\12\0" .text .align 2 .align 4 .globl bef_do .ent bef_do bef_do: .frame $30,64,$26,0 .mask 0x4000e00,-64 ldgp $29,0($27) $bef_do..ng: lda $30,-64($30) stq $26,0($30) stq $9,8($30) stq $10,16($30) stq $11,24($30) .prologue 1 lda $1,$LC3 addl $17,$31,$6 .align 3 #realign ldl $4,40($30) cmpule $6,255,$5 mov $16,$9 fnop ldq_u $3,0($1) mov $31,$7 ldq_u $2,1($1) zapnot $4,252,$4 extwl $3,$1,$3 extwh $2,$1,$2 bis $3,$2,$1 zapnot $1,3,$1 bis $1,$4,$1 fnop stl $1,40($30) beq $5,$L50 lda $1,_DefaultRuneLocale ldah $3,1 s8addq $6,$1,$1 ldq $2,64($1) and $2,$3,$2 cmpult $31,$2,$7 $L50: nop beq $7,$L48 ldl $1,40($30) and $17,0xff,$2 lda $16,40($30) mov $31,$17 bic $1,255,$1 bis $2,$1,$2 lda $18,16 stl $2,40($30) jsr $26,strtoul ldgp $29,0($26) mov $9,$16 addl $0,$31,$17 stl $0,32($30) $L135: bsr $26,$push..ng $L47: ldq $26,0($30) ldq $9,8($30) ldq $10,16($30) ldq $11,24($30) lda $30,64($30) ret $31,($26),1 .align 4 $L48: subl $17,32,$1 and $1,0xff,$3 cmpule $3,94,$2 beq $2,$L127 lda $1,$L128 s4addq $3,$1,$1 ldl $2,0($1) addq $2,$29,$1 jmp $31,($1),$L127 .section .rodata .align 4 .align 2 $L128: .gprel32 $L53 .gprel32 $L59 .gprel32 $L77 .gprel32 $L87 .gprel32 $L83 .gprel32 $L58 .gprel32 $L99 .gprel32 $L127 .gprel32 $L127 .gprel32 $L127 .gprel32 $L56 .gprel32 $L54 .gprel32 $L85 .gprel32 $L55 .gprel32 $L84 .gprel32 $L57 .gprel32 $L127 .gprel32 $L127 .gprel32 $L127 .gprel32 $L127 .gprel32 $L127 .gprel32 $L127 .gprel32 $L127 .gprel32 $L127 .gprel32 $L127 .gprel32 $L127 .gprel32 $L79 .gprel32 $L83 .gprel32 $L66 .gprel32 $L127 .gprel32 $L65 .gprel32 $L69 .gprel32 $L104 .gprel32 $L127 .gprel32 $L127 .gprel32 $L127 .gprel32 $L127 .gprel32 $L127 .gprel32 $L127 .gprel32 $L127 .gprel32 $L127 .gprel32 $L127 .gprel32 $L107 .gprel32 $L127 .gprel32 $L127 .gprel32 $L127 .gprel32 $L127 .gprel32 $L127 .gprel32 $L127 .gprel32 $L127 .gprel32 $L127 .gprel32 $L118 .gprel32 $L127 .gprel32 $L127 .gprel32 $L127 .gprel32 $L127 .gprel32 $L124 .gprel32 $L127 .gprel32 $L127 .gprel32 $L108 .gprel32 $L82 .gprel32 $L109 .gprel32 $L67 .gprel32 $L71 .gprel32 $L62 .gprel32 $L127 .gprel32 $L127 .gprel32 $L127 .gprel32 $L127 .gprel32 $L127 .gprel32 $L127 .gprel32 $L88 .gprel32 $L127 .gprel32 $L127 .gprel32 $L105 .gprel32 $L127 .gprel32 $L127 .gprel32 $L126 .gprel32 $L127 .gprel32 $L114 .gprel32 $L92 .gprel32 $L127 .gprel32 $L120 .gprel32 $L116 .gprel32 $L127 .gprel32 $L127 .gprel32 $L68 .gprel32 $L127 .gprel32 $L123 .gprel32 $L127 .gprel32 $L127 .gprel32 $L110 .gprel32 $L74 .gprel32 $L112 .gprel32 $L100 .text .align 4 $L53: lda $2,noptick ldl $1,0($2) lda $1,1($1) fnop stl $1,0($2) br $31,$L47 .align 4 $L59: mov $9,$16 bsr $26,$pop..ng beq $0,$L60 mov $9,$16 mov $31,$17 br $31,$L135 .align 4 $L60: mov $9,$16 fnop lda $17,1 br $31,$L135 .align 4 $L77: lda $2,btrace ldl $1,64($9) ldl $3,0($2) xor $1,1,$1 stl $1,64($9) beq $3,$L47 lda $16,$LC5 jsr $26,puts ldgp $29,0($26) br $31,$L47 .align 4 $L87: mov $9,$16 bsr $26,$bef_walk..ng br $31,$L47 .align 4 $L83: mov $9,$16 bsr $26,$pop..ng br $31,$L47 .align 4 $L58: mov $9,$16 fnop bsr $26,$pop..ng mov $9,$16 mov $0,$11 bsr $26,$pop..ng addl $11,$31,$25 mov $0,$10 addl $10,$31,$24 mov $9,$16 reml $24,$25,$27 mov $27,$17 fnop addl $17,$31,$17 br $31,$L135 .align 4 $L99: lda $1,32($30) lda $16,$LC10 mov $1,$17 jsr $26,scanf ldgp $29,0($26) mov $9,$16 ldl $17,32($30) br $31,$L135 .align 4 $L56: mov $9,$16 fnop bsr $26,$pop..ng mov $9,$16 mov $0,$11 bsr $26,$pop..ng mov $9,$16 mov $0,$10 mull $11,$10,$17 br $31,$L135 .align 4 $L54: mov $9,$16 fnop bsr $26,$pop..ng mov $9,$16 mov $0,$11 bsr $26,$pop..ng mov $9,$16 mov $0,$10 addl $11,$10,$17 br $31,$L135 .align 4 $L85: mov $9,$16 bsr $26,$pop..ng cmoveq $0,32,$0 stl $0,32($30) addl $0,$31,$16 jsr $26,putchar ldgp $29,0($26) br $31,$L47 .align 4 $L55: mov $9,$16 fnop bsr $26,$pop..ng mov $9,$16 mov $0,$11 bsr $26,$pop..ng mov $9,$16 mov $0,$10 subl $10,$11,$17 br $31,$L135 .align 4 $L84: mov $9,$16 fnop bsr $26,$pop..ng lda $16,$LC7 mov $0,$17 jsr $26,printf ldgp $29,0($26) lda $16,__sF+152 jsr $26,fflush ldgp $29,0($26) br $31,$L47 .align 4 $L57: mov $9,$16 fnop bsr $26,$pop..ng mov $9,$16 mov $0,$11 bsr $26,$pop..ng addl $11,$31,$25 mov $0,$10 addl $10,$31,$24 mov $9,$16 divl $24,$25,$27 mov $27,$17 fnop addl $17,$31,$17 br $31,$L135 .align 4 $L79: lda $1,btrace fnop ldl $2,0($1) beq $2,$L129 mov $9,$16 fnop bsr $26,$bpeek..ng lda $16,$LC6 addl $0,$31,$17 stl $0,32($30) mov $17,$18 jsr $26,printf ldgp $29,0($26) mov $9,$16 ldl $17,32($30) br $31,$L135 .align 4 $L129: mov $9,$16 fnop bsr $26,$bpeek..ng mov $9,$16 mov $0,$17 br $31,$L135 .align 4 $L66: lda $1,-1 $L136: stl $31,36($9) stl $1,32($9) br $31,$L47 .align 4 $L65: lda $1,1 br $31,$L136 .align 4 $L69: jsr $26,random ldgp $29,0($26) lda $2,$LC4+1 mov $9,$16 sra $0,63,$1 srl $1,62,$1 addq $0,$1,$1 bic $1,3,$1 subl $0,$1,$11 addq $11,$2,$2 ldq_u $17,-1($2) extqh $17,$2,$17 sra $17,56,$17 bsr $26,$bef_do..ng br $31,$L47 .align 4 $L104: ldl $1,64($9) bis $1,2,$1 stl $1,64($9) br $31,$L47 .align 4 $L107: mov $9,$16 fnop bsr $26,$pop..ng mov $9,$16 mov $0,$11 bsr $26,$pop..ng mov $9,$16 mov $0,$10 stl $11,28($9) stl $10,24($9) bsr $26,$bef_checkpc..ng mov $9,$16 bsr $26,$pop..ng mov $9,$16 mov $0,$11 bsr $26,$pop..ng lda $1,-1 stl $1,72($9) mov $0,$10 stl $11,36($9) stl $10,32($9) br $31,$L47 .align 4 $L118: mov $9,$16 fnop bsr $26,$pop..ng mov $9,$16 mov $0,$11 bsr $26,$pop..ng lda $1,btrace mov $0,$10 ldl $2,0($1) beq $2,$L119 ldl $17,24($9) mov $10,$19 ldl $18,28($9) mov $11,$20 lda $16,$LC12 jsr $26,printf ldgp $29,0($26) $L119: ldq $16,48($9) ldl $17,32($9) nop bsr $26,$stpush..ng ldq $16,48($9) ldl $17,36($9) nop bsr $26,$stpush..ng ldq $16,48($9) ldl $17,24($9) nop bsr $26,$stpush..ng ldq $16,48($9) ldl $17,28($9) nop bsr $26,$stpush..ng ldq $16,56($9) lda $17,1 fnop bsr $26,$stdig..ng ldq $16,56($9) addq $10,$0,$0 stl $0,24($9) bsr $26,$stpeek..ng mov $9,$16 addq $11,$0,$0 stl $0,28($9) $L138: bsr $26,$bef_checkpc..ng lda $1,-1 stl $1,72($9) br $31,$L47 .align 4 $L124: ldq $16,56($9) nop bsr $26,$stpop..ng ldq $16,56($9) bsr $26,$stpop..ng br $31,$L47 .align 4 $L108: ldl $1,32($9) ldl $2,36($9) subq $31,$1,$1 stl $2,32($9) stl $1,36($9) fnop stl $1,32($30) br $31,$L47 .align 4 $L82: mov $9,$16 fnop bsr $26,$pop..ng mov $9,$16 mov $0,$11 bsr $26,$pop..ng mov $9,$16 mov $11,$17 mov $0,$10 fnop bsr $26,$push..ng mov $10,$17 mov $9,$16 br $31,$L135 .align 4 $L109: ldl $1,36($9) ldl $2,32($9) subq $31,$1,$1 stl $2,36($9) stl $1,32($9) fnop stl $1,32($30) br $31,$L47 .align 4 $L67: lda $1,-1 $L139: stl $31,32($9) stl $1,36($9) br $31,$L47 .align 4 $L71: mov $9,$16 bsr $26,$pop..ng beq $0,$L72 lda $1,-1 $L137: stl $1,32($9) fnop stl $31,36($9) br $31,$L47 .align 4 $L72: lda $1,1 br $31,$L137 .align 4 $L62: mov $9,$16 fnop bsr $26,$pop..ng mov $9,$16 mov $0,$11 bsr $26,$pop..ng mov $0,$10 fnop cmple $10,$11,$1 bne $1,$L63 mov $9,$16 fnop lda $17,1 br $31,$L135 .align 4 $L63: mov $9,$16 fnop mov $31,$17 br $31,$L135 .align 4 $L88: mov $9,$16 fnop bsr $26,$pop..ng mov $9,$16 mov $0,$11 bsr $26,$pop..ng mov $0,$10 blt $11,$L90 ldl $2,20($9) zapnot $10,15,$1 srl $1,31,$1 cmple $2,$11,$2 bis $2,$1,$2 beq $2,$L130 $L90: ldl $19,24($9) mov $10,$17 ldl $20,28($9) mov $11,$18 lda $16,$LC8 jsr $26,printf ldgp $29,0($26) stl $31,32($30) $L91: ldl $17,32($30) mov $9,$16 br $31,$L135 .align 4 $L130: ldl $1,16($9) nop cmplt $10,$1,$1 beq $1,$L90 ldq $1,8($9) s8addq $11,$1,$1 ldq $2,0($1) s4addq $10,$2,$2 ldl $1,0($2) stl $1,32($30) br $31,$L91 .align 4 $L105: mov $9,$16 fnop bsr $26,$pop..ng mov $9,$16 mov $0,$11 bsr $26,$pop..ng lda $1,btrace mov $0,$10 ldl $2,0($1) beq $2,$L106 ldl $17,24($9) mov $10,$19 ldl $18,28($9) mov $11,$20 lda $16,$LC12 jsr $26,printf ldgp $29,0($26) $L106: mov $9,$16 stl $10,24($9) fnop stl $11,28($9) br $31,$L138 .align 4 $L126: ldq $1,40($9) ldq $2,48($9) ldq $3,56($9) stq $1,56($9) stq $2,40($9) fnop stq $3,48($9) br $31,$L47 .align 4 $L114: mov $9,$16 fnop bsr $26,$pop..ng mov $9,$16 lda $0,-1($0) addl $0,$31,$17 stl $0,32($30) bsr $26,$push..ng ldl $1,32($30) bge $1,$L47 mov $9,$16 lda $17,35 bsr $26,$bef_do..ng br $31,$L47 .align 4 $L92: mov $9,$16 fnop bsr $26,$pop..ng mov $9,$16 mov $0,$11 bsr $26,$pop..ng mov $9,$16 mov $0,$10 bsr $26,$pop..ng lda $1,btrace stl $0,32($30) fnop ldl $2,0($1) beq $2,$L93 lda $16,$LC9 mov $10,$18 addl $0,$31,$17 mov $11,$19 jsr $26,printf ldgp $29,0($26) $L93: nop blt $11,$L95 ldl $2,20($9) zapnot $10,15,$1 srl $1,31,$1 cmple $2,$11,$2 bis $2,$1,$2 beq $2,$L131 $L95: ldl $20,28($9) mov $10,$17 ldl $19,24($9) mov $11,$18 lda $16,$LC8 jsr $26,printf ldgp $29,0($26) br $31,$L47 .align 4 $L131: ldl $1,16($9) nop cmplt $10,$1,$1 beq $1,$L95 ldq $3,8($9) ldl $4,32($30) ldl $5,64($9) s8addq $11,$3,$3 sll $4,56,$1 ldq $2,0($3) sra $1,56,$1 s4addq $10,$2,$2 cmovne $5,$1,$4 fnop stl $4,0($2) br $31,$L47 .align 4 $L120: ldq $16,48($9) nop bsr $26,$stpop..ng ldq $16,48($9) mov $0,$11 fnop bsr $26,$stpop..ng lda $1,btrace mov $0,$10 fnop ldl $2,0($1) beq $2,$L121 ldl $17,24($9) mov $10,$19 ldl $18,28($9) mov $11,$20 lda $16,$LC12 jsr $26,printf ldgp $29,0($26) $L121: ldq $16,48($9) stl $10,24($9) stl $11,28($9) bsr $26,$stpop..ng ldq $16,48($9) stl $0,36($9) fnop bsr $26,$stpop..ng mov $9,$16 stl $0,32($9) fnop bsr $26,$bef_checkpc..ng ldq $1,32($9) bne $1,$L47 br $31,$L132 .align 4 $L116: mov $9,$16 fnop bsr $26,$pop..ng mov $9,$16 mov $0,$11 bsr $26,$pop..ng lda $1,btrace mov $0,$10 ldl $2,0($1) beq $2,$L117 ldl $17,24($9) mov $10,$19 ldl $18,28($9) mov $11,$20 lda $16,$LC12 jsr $26,printf ldgp $29,0($26) $L117: ldq $16,48($9) ldl $17,32($9) nop bsr $26,$stpush..ng ldq $16,48($9) ldl $17,36($9) nop bsr $26,$stpush..ng ldq $16,48($9) ldl $17,24($9) nop bsr $26,$stpush..ng ldq $16,48($9) ldl $17,28($9) nop bsr $26,$stpush..ng mov $9,$16 stl $10,24($9) fnop stl $11,28($9) br $31,$L138 .align 4 $L68: lda $1,1 br $31,$L139 .align 4 $L123: ldq $16,56($9) ldl $17,24($9) bsr $26,$stpush..ng ldq $16,56($9) ldl $17,28($9) bsr $26,$stpush..ng br $31,$L47 .align 4 $L127: mov $6,$17 ldl $20,28($9) ldl $19,24($9) mov $17,$18 lda $16,$LC14 jsr $26,printf ldgp $29,0($26) br $31,$L47 .align 4 $L110: mov $9,$16 fnop bsr $26,$pop..ng mov $9,$16 lda $0,-1($0) addl $0,$31,$17 stl $0,32($30) bsr $26,$push..ng ldl $1,32($30) bge $1,$L47 mov $9,$16 lda $17,91 bsr $26,$bef_do..ng br $31,$L47 .align 4 $L74: mov $9,$16 bsr $26,$pop..ng beq $0,$L75 lda $1,-1 $L140: stl $1,36($9) fnop stl $31,32($9) br $31,$L47 .align 4 $L75: lda $1,1 br $31,$L140 .align 4 $L112: mov $9,$16 fnop bsr $26,$pop..ng mov $9,$16 lda $0,-1($0) addl $0,$31,$17 stl $0,32($30) bsr $26,$push..ng ldl $1,32($30) bge $1,$L47 mov $9,$16 lda $17,93 bsr $26,$bef_do..ng br $31,$L47 .align 4 $L100: lda $16,__sF ldl $1,8($16) lda $1,-1($1) addl $1,$31,$2 stl $1,8($16) blt $2,$L133 ldq $1,0($16) ldq_u $2,0($1) extbl $2,$1,$0 lda $1,1($1) stq $1,0($16) $L102: addl $0,1,$1 stl $0,32($30) beq $1,$L134 $L103: ldl $17,32($30) mov $9,$16 br $31,$L135 .align 4 $L134: lda $16,$LC11 jsr $26,puts ldgp $29,0($26) br $31,$L103 .align 4 $L133: jsr $26,__srget ldgp $29,0($26) br $31,$L102 .align 4 $L132: lda $16,$LC13 lda $17,1 lda $19,__sF+304 lda $18,24 jsr $26,fwrite ldgp $29,0($26) lda $16,99 jsr $26,exit .end bef_do .align 2 .align 4 .globl alloc_stackt .ent alloc_stackt alloc_stackt: .frame $30,32,$26,0 .mask 0x4000600,-32 ldgp $29,0($27) $alloc_stackt..ng: lda $30,-32($30) stq $26,0($30) stq $9,8($30) stq $10,16($30) .prologue 1 mov $16,$10 lda $16,16 jsr $26,malloc ldgp $29,0($26) s4addq $10,0,$16 .align 3 #realign mov $0,$9 beq $9,$L141 jsr $26,malloc ldgp $29,0($26) mov $31,$17 mov $9,$16 stq $0,0($9) beq $0,$L144 stl $10,8($9) stl $31,12($9) bsr $26,$strepl..ng mov $9,$0 $L141: ldq $26,0($30) ldq $9,8($30) ldq $10,16($30) nop lda $30,32($30) ret $31,($26),1 .align 4 $L144: jsr $26,free ldgp $29,0($26) mov $31,$0 br $31,$L141 .end alloc_stackt .align 2 .align 4 .globl bef_allocinterp .ent bef_allocinterp bef_allocinterp: .frame $30,48,$26,0 .mask 0x4001e00,-48 ldgp $29,0($27) $bef_allocinterp..ng: lda $30,-48($30) stq $26,0($30) stq $9,8($30) stq $10,16($30) stq $11,24($30) stq $12,32($30) .prologue 1 mov $16,$9 mov $31,$16 mov $17,$12 mov $18,$11 jsr $26,time ldgp $29,0($26) mov $0,$16 jsr $26,srandom ldgp $29,0($26) lda $16,80 jsr $26,malloc ldgp $29,0($26) .align 3 #realign mov $0,$10 beq $10,$L145 mov $9,$16 bsr $26,$alloc_stackt..ng mov $0,$1 fnop stq $1,40($10) beq $1,$L145 mov $9,$16 bsr $26,$alloc_stackt..ng mov $0,$1 fnop stq $1,56($10) beq $1,$L145 mov $9,$16 bsr $26,$alloc_stackt..ng mov $0,$1 fnop stq $1,48($10) beq $1,$L145 mull $11,$12,$9 s4addq $9,0,$16 jsr $26,malloc ldgp $29,0($26) stq $0,0($10) beq $0,$L164 mov $31,$4 ble $9,$L162 mov $9,$16 lda $2,32 .align 4 $L154: addl $4,1,$4 stl $2,0($0) cmplt $4,$16,$1 fnop lda $0,4($0) bne $1,$L154 $L162: s8addq $11,0,$16 jsr $26,malloc ldgp $29,0($26) mov $31,$4 stq $0,8($10) ble $11,$L163 .align 4 $L160: mull $12,$4,$1 ldq $2,0($10) addl $4,1,$4 cmplt $4,$11,$3 s4addq $1,$2,$1 stq $1,0($0) lda $0,8($0) bne $3,$L160 $L163: mov $10,$16 stl $12,16($10) stl $11,20($10) jsr $26,bef_reset ldgp $29,0($26) mov $10,$0 $L145: ldq $26,0($30) ldq $9,8($30) ldq $10,16($30) ldq $11,24($30) ldq $12,32($30) nop lda $30,48($30) ret $31,($26),1 .align 4 $L164: ldq $16,40($10) jsr $26,free ldgp $29,0($26) mov $10,$16 jsr $26,free ldgp $29,0($26) mov $31,$0 br $31,$L145 .end bef_allocinterp .section .rodata $LC15: .ascii ".btrace. op: %c (%d) at %d,%d mode %d\12\0" $LC16: .ascii "mTERM\0" .text .align 2 .align 4 .globl bef_step .ent bef_step bef_step: .frame $30,32,$26,0 .mask 0x4000600,-32 ldgp $29,0($27) $bef_step..ng: lda $30,-32($30) stq $26,0($30) stq $9,8($30) stq $10,16($30) .prologue 1 mov $16,$9 lda $1,btrace ldl $20,28($9) ldq $2,8($9) ldl $19,24($9) ldl $3,0($1) s8addq $20,$2,$2 ldq $1,0($2) s4addq $19,$1,$1 .align 3 #realign ldl $10,0($1) beq $3,$L166 ldl $21,64($9) mov $10,$17 lda $16,$LC15 mov $10,$18 jsr $26,printf ldgp $29,0($26) $L166: ldl $1,64($9) blbc $1,$L167 cmpeq $10,34,$1 bne $1,$L178 $L168: lda $3,stringtick ldl $2,68($9) ldl $1,0($3) cmpeq $2,92,$2 lda $1,1($1) fnop stl $1,0($3) bne $2,$L179 cmpeq $10,92,$1 fnop stl $10,68($9) bne $1,$L173 mov $10,$17 mov $9,$16 bsr $26,$push..ng $L173: ldl $1,64($9) and $1,2,$1 beq $1,$L174 lda $1,btrace fnop ldl $2,0($1) beq $2,$L175 lda $16,$LC16 jsr $26,puts ldgp $29,0($26) nop $L175: mov $9,$16 ldq $26,0($30) ldq $9,8($30) ldq $10,16($30) lda $30,32($30) br $31,$pop..ng .align 4 $L174: ldl $1,72($9) beq $1,$L180 stl $31,72($9) nop $L177: ldq $26,0($30) mov $31,$0 ldq $9,8($30) ldq $10,16($30) lda $30,32($30) ret $31,($26),1 .align 4 $L180: mov $9,$16 bsr $26,$bef_walk..ng br $31,$L177 .align 4 $L179: mov $10,$17 mov $9,$16 bsr $26,$push..ng lda $1,32 stl $1,68($9) br $31,$L173 .align 4 $L178: ldl $1,68($9) nop cmpeq $1,92,$1 bne $1,$L168 $L167: sll $10,56,$17 mov $9,$16 sra $17,56,$17 bsr $26,$bef_do..ng br $31,$L173 .end bef_step .align 2 .align 4 .globl bef_run .ent bef_run bef_run: .frame $30,32,$26,0 .mask 0x4000600,-32 ldgp $29,0($27) $bef_run..ng: lda $30,-32($30) stq $26,0($30) stq $9,8($30) stq $10,16($30) .prologue 1 mov $16,$9 ldl $1,64($9) .align 3 #realign and $1,2,$1 beq $1,$L187 $L186: ldq $26,0($30) ldq $9,8($30) ldq $10,16($30) nop lda $30,32($30) ret $31,($26),1 .align 4 $L187: lda $10,tick .align 4 $L184: mov $9,$16 fnop bsr $26,$bef_step..ng ldl $1,0($10) ldl $2,64($9) lda $1,1($1) and $2,2,$2 fnop stl $1,0($10) bne $2,$L186 br $31,$L184 .end bef_run .align 2 .align 4 .globl bef_reset .ent bef_reset $bef_reset..ng: bef_reset: .frame $30,0,$26,0 .prologue 0 lda $1,1 stl $31,64($16) stl $1,32($16) stl $31,24($16) stl $31,28($16) .align 3 #realign stl $31,36($16) ret $31,($26),1 .end bef_reset .align 2 .align 4 .globl bef_free .ent bef_free bef_free: .frame $30,16,$26,0 .mask 0x4000200,-16 ldgp $29,0($27) $bef_free..ng: lda $30,-16($30) stq $26,0($30) stq $9,8($30) .prologue 1 .align 3 #realign mov $16,$9 beq $9,$L189 ldq $1,40($9) ldq $16,0($1) jsr $26,free ldgp $29,0($26) ldq $16,40($9) jsr $26,free ldgp $29,0($26) ldq $1,48($9) ldq $16,0($1) jsr $26,free ldgp $29,0($26) ldq $16,48($9) jsr $26,free ldgp $29,0($26) ldq $1,56($9) ldq $16,0($1) jsr $26,free ldgp $29,0($26) ldq $16,56($9) jsr $26,free ldgp $29,0($26) ldq $16,0($9) jsr $26,free ldgp $29,0($26) ldq $16,8($9) jsr $26,free ldgp $29,0($26) mov $9,$16 jsr $26,free ldgp $29,0($26) $L189: ldq $26,0($30) ldq $9,8($30) lda $30,16($30) ret $31,($26),1 .end bef_free .align 2 .align 4 .globl strtoicpy .ent strtoicpy $strtoicpy..ng: strtoicpy: .frame $30,0,$26,0 .prologue 0 mov $31,$0 ldq_u $2,0($17) .align 3 #realign extbl $2,$17,$1 beq $1,$L196 mov $17,$4 .align 4 $L194: lda $3,1($4) addl $0,1,$0 ldq_u $2,-1($3) addq $17,$0,$1 mov $1,$4 extqh $2,$3,$2 sra $2,56,$2 stl $2,0($16) lda $16,4($16) ldq_u $1,0($4) extbl $1,$4,$2 bne $2,$L194 $L196: ret $31,($26),1 .end strtoicpy .section .rodata $LC17: .ascii "line extends past edge of charted space. y == %d\12\0" .text .align 2 .align 4 .globl bef_loadcode .ent bef_loadcode bef_loadcode: .frame $30,64,$26,0 .mask 0x400fe00,-64 ldgp $29,0($27) $bef_loadcode..ng: lda $30,-64($30) stq $26,0($30) stq $9,8($30) stq $10,16($30) stq $11,24($30) stq $12,32($30) stq $13,40($30) stq $14,48($30) stq $15,56($30) .prologue 1 mov $16,$11 mov $17,$14 .align 3 #realign ldl $1,20($11) mov $31,$9 mov $31,$12 ble $1,$L212 lda $15,btrace .align 4 $L201: mov $31,$10 s8addq $12,0,$13 .align 4 $L202: ldl $1,16($11) mov $14,$16 cmpeq $9,10,$2 fnop cmplt $10,$1,$1 beq $1,$L203 jsr $26,fgetc ldgp $29,0($26) ldl $1,0($15) mov $0,$9 mov $9,$16 beq $1,$L206 jsr $26,putchar ldgp $29,0($26) $L206: lda $1,1($9) cmpeq $9,10,$2 mov $12,$0 beq $1,$L197 bne $2,$L203 ldq $1,8($11) addq $13,$1,$1 ldq $2,0($1) s4addq $10,$2,$2 addl $10,1,$10 stl $9,0($2) br $31,$L202 .align 4 $L203: nop beq $2,$L214 $L200: ldl $1,20($11) addl $12,1,$12 cmplt $12,$1,$1 bne $1,$L201 $L212: mov $12,$0 $L197: ldq $26,0($30) ldq $9,8($30) ldq $10,16($30) ldq $11,24($30) ldq $12,32($30) ldq $13,40($30) ldq $14,48($30) ldq $15,56($30) nop lda $30,64($30) ret $31,($26),1 .align 4 $L214: lda $16,$LC17 mov $12,$17 jsr $26,printf ldgp $29,0($26) br $31,$L200 .end bef_loadcode .section .rodata $LC18: .ascii "r\0" $LC20: .ascii "%80[^\12]\0" $LC21: .ascii "%2[\12]\0" $LC19: .ascii "could not open file.\0" .text .align 2 .align 4 .globl bef_load93 .ent bef_load93 bef_load93: .frame $30,160,$26,0 .mask 0x4007e00,-160 ldgp $29,0($27) $bef_load93..ng: lda $30,-160($30) stq $26,0($30) stq $9,8($30) stq $10,16($30) stq $11,24($30) stq $12,32($30) stq $13,40($30) stq $14,48($30) .prologue 1 mov $16,$11 mov $31,$12 mov $17,$16 .align 3 #realign lda $0,-1 beq $11,$L215 ldq $1,8($11) beq $1,$L215 lda $17,$LC18 jsr $26,fopen ldgp $29,0($26) nop mov $0,$10 beq $10,$L226 ldl $1,64($11) lda $14,149($30) lda $13,btrace bis $1,4,$1 stl $1,64($11) .align 4 $L225: lda $1,64($30) lda $17,$LC20 mov $1,$18 mov $10,$16 jsr $26,fscanf ldgp $29,0($26) mov $14,$18 lda $17,$LC21 mov $10,$16 mov $0,$9 addl $9,1,$9 jsr $26,fscanf ldgp $29,0($26) zapnot $9,15,$9 lda $2,64($30) cmpule $9,1,$9 mov $2,$16 bne $9,$L222 ldl $1,0($13) beq $1,$L223 jsr $26,puts ldgp $29,0($26) $L223: ldq $1,8($11) lda $2,64($30) mov $2,$17 s8addq $12,$1,$1 addl $12,1,$12 ldq $16,0($1) bsr $26,$strtoicpy..ng br $31,$L225 .align 4 $L222: mov $10,$16 jsr $26,fclose ldgp $29,0($26) cmpeq $12,0,$0 $L215: ldq $26,0($30) ldq $9,8($30) ldq $10,16($30) ldq $11,24($30) ldq $12,32($30) ldq $13,40($30) ldq $14,48($30) nop lda $30,160($30) ret $31,($26),1 .align 4 $L226: lda $16,$LC19 jsr $26,puts ldgp $29,0($26) nop lda $0,-1 br $31,$L215 .end bef_load93 .section .rodata $LC23: .ascii "%80s\0" $LC24: .ascii "command: %s\12\0" $LC25: .ascii "wid\0" $LC28: .ascii "hei\0" $LC30: .ascii "stack\0" $LC32: .ascii "hb\0" $LC33: .ascii "bef_loadcode() returned %d\12\0" $LC26: .ascii "%d\0" $LC31: .ascii "stack == %d\12\0" $LC29: .ascii "h == %d\12\0" $LC27: .ascii "w == %d\12\0" $LC34: .ascii "no hb directive encountered... no code in file?\0" $LC22: .ascii "could not open file\0" .text .align 2 .align 4 .globl bef_loadh .ent bef_loadh bef_loadh: .frame $30,144,$26,0 .mask 0x4000e00,-144 ldgp $29,0($27) $bef_loadh..ng: lda $30,-144($30) stq $26,0($30) stq $9,8($30) stq $10,16($30) stq $11,24($30) .prologue 1 lda $17,$LC18 lda $1,1024 ldl $2,48($30) stl $1,32($30) lda $1,80 stl $1,36($30) lda $1,25 bic $2,255,$2 stl $1,40($30) stl $2,48($30) jsr $26,fopen ldgp $29,0($26) mov $0,$11 .align 3 #realign lda $9,48($30) beq $11,$L250 $L229: lda $17,$LC23 mov $11,$16 mov $9,$18 jsr $26,fscanf ldgp $29,0($26) nop lda $1,1($0) beq $1,$L251 beq $0,$L229 lda $10,btrace ldl $1,0($10) beq $1,$L233 lda $16,$LC24 mov $9,$17 jsr $26,printf ldgp $29,0($26) .align 4 $L233: lda $17,$LC25 mov $9,$16 jsr $26,strcmp ldgp $29,0($26) beq $0,$L252 lda $17,$LC28 mov $9,$16 jsr $26,strcmp ldgp $29,0($26) beq $0,$L253 lda $17,$LC30 mov $9,$16 jsr $26,strcmp ldgp $29,0($26) beq $0,$L254 lda $17,$LC32 mov $9,$16 jsr $26,strcmp ldgp $29,0($26) bne $0,$L229 ldl $16,32($30) lda $10,-1 ldl $17,36($30) ldl $18,40($30) bsr $26,$bef_allocinterp..ng mov $0,$9 .align 4 $L247: mov $11,$16 jsr $26,fgetc ldgp $29,0($26) cmpeq $0,$10,$1 cmpeq $0,10,$2 cmpeq $1,0,$1 bic $1,$2,$2 bne $2,$L247 mov $11,$17 mov $9,$16 bsr $26,$bef_loadcode..ng lda $1,btrace ldl $2,0($1) beq $2,$L248 lda $16,$LC33 mov $0,$17 jsr $26,printf ldgp $29,0($26) $L248: mov $9,$0 $L227: ldq $26,0($30) ldq $9,8($30) ldq $10,16($30) ldq $11,24($30) nop lda $30,144($30) ret $31,($26),1 .align 4 $L254: lda $1,32($30) lda $17,$LC26 mov $1,$18 mov $11,$16 jsr $26,fscanf ldgp $29,0($26) ldl $1,0($10) beq $1,$L229 lda $16,$LC31 ldl $17,32($30) jsr $26,printf ldgp $29,0($26) br $31,$L229 .align 4 $L253: lda $17,$LC26 lda $18,40($30) mov $11,$16 jsr $26,fscanf ldgp $29,0($26) nop ldl $1,0($10) beq $1,$L229 lda $16,$LC29 ldl $17,40($30) jsr $26,printf ldgp $29,0($26) br $31,$L229 .align 4 $L252: lda $17,$LC26 lda $18,36($30) mov $11,$16 jsr $26,fscanf ldgp $29,0($26) nop ldl $1,0($10) beq $1,$L229 lda $16,$LC27 ldl $17,36($30) jsr $26,printf ldgp $29,0($26) br $31,$L229 .align 4 $L251: lda $16,$LC34 jsr $26,puts ldgp $29,0($26) mov $31,$16 bsr $26,$bef_free..ng mov $31,$0 br $31,$L227 .align 4 $L250: lda $16,$LC22 jsr $26,perror ldgp $29,0($26) nop mov $31,$0 br $31,$L227 .end bef_loadh .ident "GCC: (GNU) 3.0.2"