143c143
< 	    CALL    Write,dosbase(a4)
---
> 	    RECALL  Write	; changed CALL->RECALL TJM
249c249
< 	    move.l  2(a1,a0.w),oldswitch
---
> ;	    move.l  2(a1,a0.w),oldswitch    ; removed TJM
251a252
> 	    move.l  d0,oldswitch	    ; replaces above line TJM
254c255
< 	    move.l  2(a6,a0.w),OldAddTask
---
> ;	    move.l  2(a6,a0.w),OldAddTask   ; removed again TJM
257a259
> 	    move.l  d0,OldAddTask	    ; replaces above line TJM
266c268
< 	    pea     -127		;pri
---
> 	    pea     -128		;pri -- was -127; changed TJM
275,276c277,279
< 	    move.l  timerbase(a4),a6
< 	    jsr     -$3c(a6)
---
> ;	    move.l  timerbase(a4),a6    ; removed TJM
> ;	    jsr     -$3c(a6)            ; removed TJM
> 	    CALL    ReadEClock,timerbase(a4)    ; replaces above 2 lines
445c448
< 	    bra     input
---
> 	    bra.s   input	; added ".s" TJM
798c801
< 	    move.b  8(a3),d0
---
> 	    move.b  8(a5),d0 ; TJM - changed a3->a5 [irrelevant change]
849c852,853
< 	    move.w  #nofpu,d1		  ;keine fpu annehmen
---
> 					  ; below comments xlated German->Eng TJM
> 	    move.w  #nofpu,d1		  ;assume no FPU
853c857
< 	    move.w  #nullstate,d1	  ;fpu im null state annehmen
---
> 	    move.w  #nullstate,d1	  ;assume FPU NULL state
856c860
< 	    beq.s   pt16		  ;kann nur xoper selbst sein
---
> 	    beq.s   pt16		  ;can only be xoper itself
858c862
< 	    moveq   #0,d0		  ;0(sp) -> pc wenn keine fpu
---
> 	    moveq   #0,d0		  ;0(sp) -> pc when no FPU
861c865
< 	    beq.s   prt151		  ;keine FPU
---
> 	    beq.s   prt151		  ;no FPU
864c868
< 	    beq.s   prt150		  ;ja
---
> 	    beq.s   prt150		  ;yes
867c871
< 	    lea     110(a1),a1            ;offset fuer fpu regs
---
> 	    lea     110(a1),a1            ;offset for fpu regs
870c874
< 	    lea     12(a1),a1               ;3 longs mehr
---
> 	    lea     12(a1),a1               ;3 more longs
882c886
< prt152	    addq.l  #weissnicht-busy,d1     ;vielleicht mc 68882 ??
---
> prt152	    addq.l  #dontknow-busy,d1	    ;maybe mc 68882 ??	; changed weissnicht->dontknow TJM
1464c1468
< 	    bra     sta1
---
> 	    bra.s   sta1		    ; added ".s" TJM
2257c2261
< 	    bra     cd18
---
> 	    bra.s   cd18		; Added ".s" TJM
5311c5315
< myswitch    movem.l d0-d1/a0,-(a7)
---
> myswitch    movem.l d0-d1/a0-a2/a6,-(a7)  ; added a1-a2/a6 TJM
5324c5328,5333
< 	    bsr     getV2.0time
---
> ;	    bsr.s   getV2.0time 	    ; killed TJM
> 	    move.l  a0,a2		    ; added TJM
> 	    lea     newtime(PC),a0          ; added TJM
> 	    CALL    ReadEClock,.timerbase   ; added TJM
> 	    move.l  a2,a0		    ; added TJM
> 	    move.l  newtime+4,d0	    ; added TJM
5337c5346
< swgo2	    movem.l (a7)+,d0-d1/a0
---
> swgo2	    movem.l (a7)+,d0-d1/a0-a2/a6    ; added a1/a2/a6 - TJM
5348a5358
> newtime     ds.l    2
5350,5358d5359
< getV2.0time movem.l d2/a0,-(a7)
< 	    move.w  #$4000,$dff09a    ;ReadEClock
< 	    lea     $bfe001,a0
< 	    moveq   #0,d0
< 	    move.l  d0,d1
< 	    move.l  d1,d2
< 	    move.b  $700(a0),d0
< 	    move.b  $600(a0),d1
< 	    move.b  $700(a0),d2
5360,5372c5361,5382
< 	    cmp.b   d0,d2
< 	    beq.s   1$
< 	    moveq   #-1,d1
< 1$	    lsl.w   #8,d2
< 	    move.b  d1,d2
< 	    addq    #1,d2
< 	    neg.w   d2
< 	    move.l  .timerbase(PC),a0
< 	    move.l  $50(a0),d0
< 	    move.w  d2,d0
< 	    move.w  #-$4000,$dff09a
< 	    movem.l (a7)+,d2/a0
< 	    rts
---
> ; Probably better to just call ReadEClock itself... - TJM (deleted whole fn)
> ;getV2.0time movem.l d2/a0,-(a7)
> ;	     move.w  #$4000,$dff09a    ;ReadEClock
> ;	     lea     $bfe001,a0
> ;	     moveq   #0,d0
> ;	     move.l  d0,d1
> ;	     move.l  d1,d2
> ;	     move.b  $700(a0),d0
> ;	     move.b  $600(a0),d1
> ;	     move.b  $700(a0),d2
> ;
> ;	     cmp.b   d0,d2
> ;	     beq.s   1$
> ;	     moveq   #-1,d1
> ;1$	     lsl.w   #8,d2
> ;	     move.b  d1,d2
> ;	     addq    #1,d2
> ;	     neg.w   d2
> ;	     move.l  d2,d0
> ;	     move.w  #-$4000,$dff09a
> ;	     movem.l (a7)+,d2/a0
> ;	     rts
5551c5561
< myproctrap  bsr     traphandle
---
> myproctrap  bsr.s   traphandle		; added ".s" TJM
5555c5565
< mytrap	    bsr     traphandle
---
> mytrap	    bsr.s   traphandle		; added ".s" TJM
5579c5589
< traphandle  movem.l d0-d7/a0-a6,$180
---
> traphandle  movem.l d0-d7/a0-a6,regsave     ; was ->$180; don't like writing to low RAM TJM
5595c5605
< 2$	    movem.l $180,d0-d7/a0-a6
---
> 2$	    movem.l regsave,d0-d7/a0-a6     ; was <- $180 TJM
5597a5608,5610
> regsave     ds.l    15	    ; add TJM to replace $180 for reg. storage
> tsig	    ds.w    1	    ; added TJM to save sig # for later freeing
> 
5606a5620
> 	    move.b  d0,tsig		    ; added TJM to free later
5634a5649
> 	    moveq   #0,d5		; added TJM
5650a5666,5667
> 	    move.b  tsig(PC),d0         ; added TJM
> 	    RECALL  FreeSignal		; added TJM
7405c7422
< .stplist    dc.l    lh_tail
---
> .stplist    dc.l    .lh_tail	; changed lh_tail->.lh_tail TJM
7736a7754
> 	    dc.b    'SignalSem ',0  ; added TJM to make 16 types
7878,7879c7896,7897
< weissnicht  EQU *-dataarea
< .weissnicht dc.b    '???? ',0
---
> dontknow    EQU *-dataarea	    ; changed name wiessnicht->dontknow TJM
> .dontknow   dc.b    '???? ',0       ; same TJM