mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 08:24:18 +00:00
22 lines
432 B
ArmAsm
22 lines
432 B
ArmAsm
.globl _sw_
|
|
_sw_:
|
|
.text
|
|
tst.l d5
|
|
beq ok
|
|
move.l #-1,(sp) * Destroy the evidence
|
|
divs #$0,d5
|
|
ok: rts
|
|
|
|
*********************************************************
|
|
* *
|
|
* Copyright Notice Module *
|
|
* *
|
|
*********************************************************
|
|
|
|
.data
|
|
___cpyrt: .dc.b 'CP/M-68K(tm), Version 1.2, '
|
|
.dc.b 'Copyright (c) 1983, Digital Research '
|
|
serial: .dc.b 'XXXX-0000-654321'
|
|
.dc.w 0
|
|
.end
|