![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to test.s.S CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Tom Morton FrontierVM] / frontvm / as68k|
Return to test.s.S CVS log | Up to [Tom Morton FrontierVM] / frontvm / as68k |
1.1 ! root 1: #define __Dpoo 0x24 ! 2: .align 4 ! 3: jtab: ! 4: .long bad_jmp ! 5: .long bad_jmp ! 6: .long bad_jmp ! 7: .long bad_jmp ! 8: .long bad_jmp ! 9: .long bad_jmp ! 10: .long bad_jmp ! 11: .long bad_jmp ! 12: .long bad_jmp ! 13: .long bad_jmp ! 14: .long bad_jmp ! 15: .long bad_jmp ! 16: .long bad_jmp ! 17: .long bad_jmp ! 18: .long __l1c ! 19: jumptable: ! 20: cmpl $0x1c,%eax ! 21: jg bad_jmp2 ! 22: shrl $1,%eax ! 23: jmp *jtab(,%eax,4) ! 24: .section .rodata ! 25: bad_jmp_str: .string "Error. Bad jump target: $%x at line %d.\n" ! 26: .text ! 27: bad_jmp: ! 28: shll $1,%eax ! 29: bad_jmp2: ! 30: pushl line_no ! 31: pushl %eax ! 32: pushl $bad_jmp_str ! 33: call printf ! 34: addl $8,%esp ! 35: call abort ! 36: #define MEM_SIZE 0x110000 ! 37: #define PROC_STATE 64 ! 38: #define MemBase STData+PROC_STATE ! 39: ! 40: .data ! 41: .comm STData,MEM_SIZE+PROC_STATE ! 42: .comm X,4 ! 43: .comm N,4 ! 44: .comm Z,4 ! 45: .comm V,4 ! 46: .comm C,4 ! 47: .comm bX,4 ! 48: .comm bN,4 ! 49: .comm bZ,4 ! 50: .comm bV,4 ! 51: .comm bC,4 ! 52: .comm rdest,4 ! 53: .comm exceptions_pending_mask,4 ! 54: .comm exceptions_pending_nums,32 ! 55: .comm exception_handlers,4*32 ! 56: .comm line_no,4 ! 57: debugstr: .string "$%x $%x $%x $%x $%x $%x $%x $%x*$%x $%x $%x $%x $%x $%x $%x $%x:%d\n" ! 58: .global STRam ! 59: STRam: .long STData+PROC_STATE ! 60: .section .rodata ! 61: bin_filename: .string "test.s.bin" ! 62: open_mode: .string "r" ! 63: ! 64: dreg_fmt: .string "D%d = $%08x " ! 65: areg_fmt: .string "A%d = $%08x\n" ! 66: cr: .string "\n" ! 67: cc_names: .string "XNZVC" ! 68: hex_fmt: .string "$%02x " ! 69: illegal_fmt: .string "Illegal instruction at line %d.\n" ! 70: .text ! 71: .globl SetZFlag ! 72: SetZFlag: ! 73: movl 4(%esp),%eax ! 74: movb %al,Z ! 75: ret ! 76: .globl GetXFlag ! 77: GetXFlag: ! 78: movl X,%eax ! 79: ret ! 80: .globl GetZFlag ! 81: GetZFlag: ! 82: movl Z,%eax ! 83: ret ! 84: .globl GetCFlag ! 85: GetCFlag: ! 86: movl C,%eax ! 87: ret ! 88: .globl GetNFlag ! 89: GetNFlag: ! 90: movl N,%eax ! 91: ret ! 92: .globl GetVFlag ! 93: GetVFlag: ! 94: movl V,%eax ! 95: ret ! 96: .globl DumpRegs ! 97: DumpRegs: ! 98: pushl %ebp ! 99: pushl %ebx ! 100: pushl %ecx ! 101: pushl %esi ! 102: movl $STData,%ebx ! 103: xorl %eax,%eax ! 104: 1: pushl %eax ! 105: pushl (%ebx,%eax,4) ! 106: pushl %eax ! 107: pushl $dreg_fmt ! 108: call printf ! 109: addl $12,%esp ! 110: movl (%esp),%eax ! 111: pushl 8*4(%ebx,%eax,4) ! 112: pushl %eax ! 113: pushl $areg_fmt ! 114: call printf ! 115: addl $12,%esp ! 116: popl %eax ! 117: inc %eax ! 118: cmpl $8,%eax ! 119: jl 1b ! 120: movb X,%al ! 121: movl $0,%ecx ! 122: call print_scat ! 123: movb N,%al ! 124: movl $1,%ecx ! 125: call print_scat ! 126: movb Z,%al ! 127: movl $2,%ecx ! 128: call print_scat ! 129: movb V,%al ! 130: movl $3,%ecx ! 131: call print_scat ! 132: movb C,%al ! 133: movl $4,%ecx ! 134: call print_scat ! 135: pushl $cr ! 136: call printf ! 137: addl $4,%esp ! 138: movl $STData+PROC_STATE,%esi ! 139: movl $MEM_SIZE,%ebx ! 140: 1: movzbl (%esi),%eax ! 141: pushl %eax ! 142: pushl $hex_fmt ! 143: call printf ! 144: addl $8,%esp ! 145: inc %esi ! 146: dec %ebx ! 147: testl $15,%ebx ! 148: jz 3f ! 149: 2: testl %ebx,%ebx ! 150: jnz 1b ! 151: popl %esi ! 152: popl %ecx ! 153: popl %ebx ! 154: popl %ebp ! 155: ret ! 156: 3: pushl $cr ! 157: call printf ! 158: addl $4,%esp ! 159: jmp 2b ! 160: print_scat: ! 161: xorl %ebx,%ebx ! 162: cmpb %al,%bl ! 163: jz 1f ! 164: movb cc_names(%ecx),%al ! 165: pushl %eax ! 166: call putchar ! 167: addl $4,%esp ! 168: 1: ret ! 169: .globl FlagException ! 170: FlagException: ! 171: movl 4(%esp),%eax ! 172: btsl %eax,exceptions_pending_mask ! 173: incb exceptions_pending_nums(%eax) ! 174: ret ! 175: .globl MemReadByte ! 176: MemReadByte: ! 177: movl 4(%esp),%eax ! 178: movsbl STData+PROC_STATE(%eax),%eax ! 179: ret ! 180: .globl MemReadWord ! 181: MemReadWord: ! 182: movl 4(%esp),%eax ! 183: movswl STData+PROC_STATE(%eax),%eax ! 184: xchg %al,%ah ! 185: ret ! 186: .globl MemReadLong ! 187: MemReadLong: ! 188: movl 4(%esp),%eax ! 189: movl STData+PROC_STATE(%eax),%eax ! 190: bswap %eax ! 191: ret ! 192: .globl MemWriteByte ! 193: MemWriteByte: ! 194: movl 4(%esp),%eax ! 195: movl 8(%esp),%edx ! 196: movb %dl,STData+PROC_STATE(%eax) ! 197: ret ! 198: .globl MemWriteWord ! 199: MemWriteWord: ! 200: movl 8(%esp),%edx ! 201: movl 4(%esp),%eax ! 202: xchg %dl,%dh ! 203: movw %dx,STData+PROC_STATE(%eax) ! 204: ret ! 205: .globl MemWriteLong ! 206: MemWriteLong: ! 207: movl 8(%esp),%edx ! 208: movl 4(%esp),%eax ! 209: bswap %edx ! 210: movl %edx,STData+PROC_STATE(%eax) ! 211: ret ! 212: .globl GetReg ! 213: GetReg: ! 214: movl 4(%esp),%eax ! 215: movl STData(,%eax,4),%eax ! 216: ret ! 217: .globl SetReg ! 218: SetReg: ! 219: movl 4(%esp),%eax ! 220: movl 8(%esp),%edx ! 221: movl %edx,STData(,%eax,4) ! 222: ret ! 223: .globl Init680x0 ! 224: Init680x0: ! 225: pushl %esi ! 226: pushl %ebx ! 227: pushl $open_mode ! 228: pushl $bin_filename ! 229: call fopen ! 230: movl %eax, %ebx ! 231: popl %eax ! 232: xorl %eax, %eax ! 233: testl %ebx, %ebx ! 234: popl %edx ! 235: je 1f ! 236: pushl $2 ! 237: pushl $0 ! 238: pushl %ebx ! 239: call fseek ! 240: pushl %ebx ! 241: call ftell ! 242: pushl $0 ! 243: movl %eax, %esi ! 244: pushl $0 ! 245: pushl %ebx ! 246: call fseek ! 247: addl $28, %esp ! 248: xorl %eax, %eax ! 249: cmpl $MEM_SIZE, %esi ! 250: jge 1f ! 251: pushl %ebx ! 252: pushl %esi ! 253: pushl $1 ! 254: pushl $STData+PROC_STATE ! 255: call fread ! 256: pushl %ebx ! 257: call fclose ! 258: movl $1, %eax ! 259: addl $20, %esp ! 260: 1: ! 261: popl %ebx ! 262: popl %esi ! 263: ret ! 264: .globl Start680x0 ! 265: Start680x0: ! 266: pushl %ebp ! 267: pushl %esi ! 268: pushl %edi ! 269: pushl %edx ! 270: pushl %ecx ! 271: pushl %ebx ! 272: movl $STData+PROC_STATE,%ebp ! 273: ! 274: __l1c: ! 275: movl $1, line_no ! 276: movl $0,%eax ! 277: ! 278: /* 0x1e */ ! 279: movl $2, line_no ! 280: movw __Dpoo(%ebp),%bx ! 281: rorw $8,%bx ! 282: addw %bx,%ax ! 283: sets N ! 284: seto V ! 285: setc C ! 286: setz Z ! 287: setc X ! 288: ! 289: movl %eax,-64(%ebp) ! 290: popl %ebx ! 291: popl %ecx ! 292: popl %edx ! 293: popl %edi ! 294: popl %esi ! 295: popl %ebp ! 296: ret ! 297: handle_exception: ! 298: movl rdest,%ebx ! 299: testl %ebx,%ebx ! 300: jnz jumptable ! 301: movl %eax,rdest ! 302: movl exceptions_pending_mask,%edx ! 303: xorl %ecx,%ecx ! 304: 1: ! 305: btl %ecx,%edx ! 306: jnc 2f ! 307: movl $exception_handlers,%ebx ! 308: movb exceptions_pending_nums(%ecx),%al ! 309: decb %al ! 310: jnz 3f ! 311: btrl %ecx,exceptions_pending_mask ! 312: 3: movb %al,exceptions_pending_nums(%ecx) ! 313: movl (%ebx,%ecx,4),%eax ! 314: movb X,%bh ! 315: movb N,%bl ! 316: movb Z,%ch ! 317: movb V,%cl ! 318: movb C,%dh ! 319: movb %bh,bX ! 320: movb %bl,bN ! 321: movb %ch,bZ ! 322: movb %cl,bV ! 323: movb %dh,bC ! 324: jmp jumptable ! 325: 2: ! 326: inc %ecx ! 327: cmpl $32,%ecx ! 328: jl 1b ! 329: movl rdest,%eax ! 330: movl $0,rdest ! 331: jmp jumptable
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.