ResolveThreads.mac

   1 ; -*- coding: utf-8 -*-
   2 ; ResolveThreads.mac
   3
   4 ;-------------------------------------------------------------------------------
   5 ; IT'S FINISH : RESOLVE ASSEMBLY PTR
   6 ;-------------------------------------------------------------------------------
   7
   8 ROMDICT         ; init DDP with this current address
   9 lastvoclink     .equ voclink
  10 lastforthword   .equ forthlink
  11 lastasmword     .equ asmlink
  12
  13     .IF THREADS <> 1
  14
  15 lastforthword1  .equ forthlink1
  16 lastforthword2  .equ forthlink2
  17 lastforthword3  .equ forthlink3
  18 lastforthword4  .equ forthlink4
  19 lastforthword5  .equ forthlink5
  20 lastforthword6  .equ forthlink6
  21 lastforthword7  .equ forthlink7
  22 lastforthword8  .equ forthlink8
  23 lastforthword9  .equ forthlink9
  24 lastforthword10 .equ forthlink10
  25 lastforthword11 .equ forthlink11
  26 lastforthword12 .equ forthlink12
  27 lastforthword13 .equ forthlink13
  28 lastforthword14 .equ forthlink14
  29 lastforthword15 .equ forthlink15
  30 lastforthword16 .equ forthlink16
  31 lastforthword17 .equ forthlink17
  32 lastforthword18 .equ forthlink18
  33 lastforthword19 .equ forthlink19
  34 lastforthword20 .equ forthlink20
  35 lastforthword21 .equ forthlink21
  36 lastforthword22 .equ forthlink22
  37 lastforthword23 .equ forthlink23
  38 lastforthword24 .equ forthlink24
  39 lastforthword25 .equ forthlink25
  40 lastforthword26 .equ forthlink26
  41 lastforthword27 .equ forthlink27
  42 lastforthword28 .equ forthlink28
  43 lastforthword29 .equ forthlink29
  44 lastforthword30 .equ forthlink30
  45 lastforthword31 .equ forthlink31
  46
  47 lastasmword1    .equ asmlink1
  48 lastasmword2    .equ asmlink2
  49 lastasmword3    .equ asmlink3
  50 lastasmword4    .equ asmlink4
  51 lastasmword5    .equ asmlink5
  52 lastasmword6    .equ asmlink6
  53 lastasmword7    .equ asmlink7
  54 lastasmword8    .equ asmlink8
  55 lastasmword9    .equ asmlink9
  56 lastasmword10   .equ asmlink10
  57 lastasmword11   .equ asmlink11
  58 lastasmword12   .equ asmlink12
  59 lastasmword13   .equ asmlink13
  60 lastasmword14   .equ asmlink14
  61 lastasmword15   .equ asmlink15
  62 lastasmword16   .equ asmlink16
  63 lastasmword17   .equ asmlink17
  64 lastasmword18   .equ asmlink18
  65 lastasmword19   .equ asmlink19
  66 lastasmword20   .equ asmlink20
  67 lastasmword21   .equ asmlink21
  68 lastasmword22   .equ asmlink22
  69 lastasmword23   .equ asmlink23
  70 lastasmword24   .equ asmlink24
  71 lastasmword25   .equ asmlink25
  72 lastasmword26   .equ asmlink26
  73 lastasmword27   .equ asmlink27
  74 lastasmword28   .equ asmlink28
  75 lastasmword29   .equ asmlink29
  76 lastasmword30   .equ asmlink30
  77 lastasmword31   .equ asmlink31
  78
  79     .ENDIF
  80