make compatible

This commit is contained in:
Oliver Lehmann 2009-08-26 17:00:20 +00:00
parent 7c7c44fe51
commit 939087979a
1 changed files with 73 additions and 69 deletions

View File

@ -1,8 +1,12 @@
signal module signal module
$SECTION signal_b
internal internal
L1 L1
WORD := 80 ARRAY [20 WORD]
$SDEFAULT
external external
cerror procedure cerror procedure
@ -13,7 +17,7 @@ signal module
ld r2,#22 ld r2,#22
ld r0,r7 ld r0,r7
ld r1,r6 ld r1,r6
cp r0,20 cp r0,#%0014
jp ge,cerror jp ge,cerror
ld r3,r0 ld r3,r0
sla r3,#1 sla r3,#1