home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CDPD Public Domain Collection for CDTV 3
/
CDPDIII.bin
/
pd
/
utilities
/
monitors
/
xoper
/
xoper.a_diff
< prev
next >
Wrap
Text File
|
1993-03-15
|
5KB
|
186 lines
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