| 1 | /*
 | 
|---|
| 2 |    =============================================================================
 | 
|---|
| 3 |         proto.c -- external declarations
 | 
|---|
| 4 |    =============================================================================
 | 
|---|
| 5 | */
 | 
|---|
| 6 | 
 | 
|---|
| 7 | #pragma once
 | 
|---|
| 8 | 
 | 
|---|
| 9 | #include "score.h"
 | 
|---|
| 10 | #include "setjmp.h"
 | 
|---|
| 11 | #include "slice.h"
 | 
|---|
| 12 | #include "stdint.h"
 | 
|---|
| 13 | #include "timers.h"
 | 
|---|
| 14 | #include "vsdd.h"
 | 
|---|
| 15 | 
 | 
|---|
| 16 | /*
 | 
|---|
| 17 |    =============================================================================
 | 
|---|
| 18 |         external variables
 | 
|---|
| 19 |    =============================================================================
 | 
|---|
| 20 | */
 | 
|---|
| 21 | 
 | 
|---|
| 22 | extern  int8_t                  *M1IoRec;
 | 
|---|
| 23 | extern  int8_t                  *M2IoRec;
 | 
|---|
| 24 | extern  int8_t                  *S1IoRec;
 | 
|---|
| 25 | extern  int8_t                  *S2IoRec;
 | 
|---|
| 26 | extern  int8_t                  VerDate[];
 | 
|---|
| 27 | extern  int8_t                  ac_code;
 | 
|---|
| 28 | extern  uint32_t                crshpc;
 | 
|---|
| 29 | extern  uint32_t                crshrg[16];
 | 
|---|
| 30 | extern  uint32_t                crshsp;
 | 
|---|
| 31 | extern  uint16_t                crshsr;
 | 
|---|
| 32 | extern  uint16_t                crshst[16];
 | 
|---|
| 33 | extern  uint32_t                crshus;
 | 
|---|
| 34 | extern  int8_t                  crshvc[4];
 | 
|---|
| 35 | extern  int8_t                  edata;
 | 
|---|
| 36 | extern  int8_t                  end;
 | 
|---|
| 37 | extern  int16_t                 errno;
 | 
|---|
| 38 | extern  int8_t                  etext;
 | 
|---|
| 39 | extern  void                    (*foot1)(int16_t stat);
 | 
|---|
| 40 | extern  void                    (*foot2)(int16_t stat);
 | 
|---|
| 41 | extern  int16_t                 fp_resv[];
 | 
|---|
| 42 | extern  int32_t                 p_dlen;
 | 
|---|
| 43 | extern  void                    (*pulse1)(void);
 | 
|---|
| 44 | extern  void                    (*pulse2)(void);
 | 
|---|
| 45 | extern  volatile int16_t        timers[NTIMERS];
 | 
|---|
| 46 | extern  int32_t                 uldivr;
 | 
|---|
| 47 | extern  volatile uint16_t       vi_sadr;
 | 
|---|
| 48 | extern  volatile uint16_t       vi_scrl;
 | 
|---|
| 49 | extern  int16_t                 wzcrsh;
 | 
|---|
| 50 | 
 | 
|---|
| 51 | /*
 | 
|---|
| 52 |    =============================================================================
 | 
|---|
| 53 |         external functions
 | 
|---|
| 54 |    =============================================================================
 | 
|---|
| 55 | */
 | 
|---|
| 56 | 
 | 
|---|
| 57 | extern  void            GLCplot(int16_t x, int16_t y, int16_t val);
 | 
|---|
| 58 | extern  void            Lo_RAM(void);
 | 
|---|
| 59 | extern  void            VIint(void);
 | 
|---|
| 60 | extern  void            _ptcl12(uint8_t *fat, int16_t cl, int16_t val);
 | 
|---|
| 61 | extern  void            clrvce(int16_t vce);
 | 
|---|
| 62 | extern  void            execins(int16_t vce, int16_t ins, int16_t tag);
 | 
|---|
| 63 | extern  void            execkey(int16_t trg, int16_t pch, int16_t vce, int16_t tag);
 | 
|---|
| 64 | extern  void            fpuclr(void);
 | 
|---|
| 65 | extern  void            fpuint(void);
 | 
|---|
| 66 | extern  uint16_t        fromfpu(uint16_t fputime);
 | 
|---|
| 67 | extern  void            halt(void);
 | 
|---|
| 68 | extern  void            hdvini(void);
 | 
|---|
| 69 | extern  void            jumpto(void *addr);
 | 
|---|
| 70 | extern  void            longjmp(struct JMP_BUF *env, int16_t val);
 | 
|---|
| 71 | extern  void            objclr(int16_t obj);
 | 
|---|
| 72 | extern  void            objoff(int16_t obj, int16_t line, int16_t num);
 | 
|---|
| 73 | extern  void            objon(int16_t obj, int16_t line, int16_t num);
 | 
|---|
| 74 | extern  void            panic(void);
 | 
|---|
| 75 | extern  void            procpfl(int16_t trig);
 | 
|---|
| 76 | extern  int32_t         rand24(void);
 | 
|---|
| 77 | extern  void            rjumpto(void *addr);
 | 
|---|
| 78 | extern  void            se_disp(struct s_entry *ep, int16_t sd, struct gdsel *gdstb[], int16_t cf);
 | 
|---|
| 79 | extern  struct  s_entry *se_exec(struct s_entry *ep, int16_t sd);
 | 
|---|
| 80 | extern  int16_t         setipl(int16_t arg);
 | 
|---|
| 81 | extern  int16_t         setjmp(struct JMP_BUF *env);
 | 
|---|
| 82 | extern  void            setsio(void);
 | 
|---|
| 83 | extern  uint16_t        setsr(uint16_t sr);
 | 
|---|
| 84 | extern  void            sjumpto(void *addr, void *stack);
 | 
|---|
| 85 | extern  void            sreset(void);
 | 
|---|
| 86 | extern  uint16_t        tofpu(uint16_t time);
 | 
|---|
| 87 | extern  int32_t         trap13(int16_t fun, ...);
 | 
|---|
| 88 | extern  int32_t         trap14(int16_t fun, ...);
 | 
|---|
| 89 | extern  void            trap15(void);
 | 
|---|
| 90 | extern  void            tsetup(void);
 | 
|---|
| 91 | extern  void            tsplot4(volatile uint16_t *obase, int16_t nw, int16_t fg, int16_t row, int16_t col, int8_t *str, int16_t pitch);
 | 
|---|
| 92 | extern  int32_t         uldiv(int32_t divid, int32_t divis);
 | 
|---|
| 93 | extern  void            vbank(int16_t b);
 | 
|---|
| 94 | extern  void            vclrav(volatile uint16_t *obase, int16_t row, int16_t col, uint16_t attr, int16_t len);
 | 
|---|
| 95 | extern  void            vcputs(volatile uint16_t *obase, int16_t nw, int16_t fg, int16_t bg, int16_t row, int16_t col, int8_t *str);
 | 
|---|
| 96 | extern  void            vcputsv(volatile uint16_t *obase, int16_t nw, int16_t fg, int16_t bg, int16_t row, int16_t col, int8_t *str, int16_t pitch);
 | 
|---|
| 97 | extern  void            vfwait(void);
 | 
|---|
| 98 | extern  void            vputa(volatile uint16_t *obase, int16_t row, int16_t col, uint16_t attr);
 | 
|---|
| 99 | extern  void            vputc(volatile uint16_t *obase, int16_t row, int16_t col, int16_t c, uint16_t attr);
 | 
|---|
| 100 | extern  void            vputcv(volatile uint16_t *obase, int16_t row, int16_t col, int16_t c, uint16_t attr, int16_t cols);
 | 
|---|
| 101 | extern  void            vputp(struct octent *octad, int16_t xloc, int16_t yloc, int16_t val);
 | 
|---|
| 102 | extern  void            vsetav(volatile uint16_t *obase, int16_t row, int16_t col, uint16_t attr, int16_t len);
 | 
|---|
| 103 | extern  void            vsetcv(volatile uint16_t *obase, int16_t row, int16_t col, uint16_t fgbg, int16_t len);
 | 
|---|
| 104 | extern  void            vsplot4(volatile uint16_t *obase, int16_t nw, int16_t fg, int16_t row, int16_t col, int8_t *str, int16_t pitch, int16_t ht, int16_t cgtab[][256]);
 | 
|---|
| 105 | extern  void            vvputsv(volatile uint16_t *obase, int16_t nw, int16_t fg, int16_t bg, int16_t row, int16_t col, int8_t *str, int16_t pitch, int16_t ht, int16_t cgtab[][256]);
 | 
|---|
| 106 | extern  void            vwputp(struct octent *octad, int16_t xloc, int16_t yloc, int16_t val);
 | 
|---|
| 107 | extern  void            vwputs(volatile uint16_t *obase, int16_t nw, int16_t fg, int16_t bg, int16_t row, int16_t col, int8_t *str);
 | 
|---|
| 108 | extern  void            xtrap15(void);
 | 
|---|