1 ; _____________________________________________ 2 ; | | 3 ; | Project: APPLER | 4 ; | File: INTERFAC.INC | 5 ; | Compiler: 16-bit TASM (2.5) | 6 ; | | 7 ; | Subject: Global Data Definitions | 8 ; | | 9 ; | Author: Emil Dotchevski | 10 ; |_____________________________________________| 11 12 ;---- APPLER SEGMENTS DEFINITIONS ---------------------------------------------- 13 14 Startup segment public use16 15 ends 16 Emulate segment common use16 17 ends 18 Peripher segment public use16 19 ends 20 Keyboard segment public use16 21 ends 22 SimKbd segment public use16 23 ends 24 TaskControl segment public use16 25 ends 26 CONio segment public use16 27 ends 28 Debug segment public use16 29 ends 30 FM segment public use16 31 ends 32 DM segment public use16 33 ends 34 KBDsetup segment public use16 35 ends 36 About segment public use16 37 ends 38 Help segment public use16 39 ends 40 User segment public use16 41 ends 42 Apple segment public use16 43 ends 44 Data segment stack 'stack' use16 45 ends 46 47 ;---- GLOBAL SYMBOLS ----------------------------------------------------------- 48 49 Startup segment public 50 Global OldDebug :dword 51 Global OldKbd :dword 52 Global DosShell :far 53 Global QuitAppler :far 54 Global Buffer1000h :byte 55 Global Screen :word 56 Global StartupON :far 57 Global StartupOFF :far 58 Global InitData :near 59 Startup ends 60 61 Emulate segment common 62 Global DRAM_ModefyAdr :word 63 Global DRAM_ReadWrite :abs 64 Global DRAM_WriteOnly :abs 65 Global DRAM_DoNotWrite :abs 66 Global TEXT_ModefyAdr :word 67 Global TEXT_TextMode :abs 68 Global TEXT_GrMode :abs 69 Global TEXT_MixedGrMode :abs 70 Global TEXT_MixedHgrMode :abs 71 Global TEXT_NA :abs 72 Global HGR_ModefyAdr :word 73 Global HGR_HgrMode :abs 74 Global HGR_MixedMode :abs 75 Global HGR_NA :abs 76 Global PowerON :far 77 Global RESET :far 78 Global SetScrEntry :far 79 Global ChangeTEXTcolor :far 80 Global C000 :byte 81 Global C050 :byte 82 Global C080 :byte 83 Global SaveStack :word 84 Global ResetFlag :byte 85 Global AppleSP :word 86 Global AppleFlags :byte 87 Global HGRcolor :byte 88 Global Port3?4h :word 89 Global MixedHgrMode1 :near 90 Global MixedHgrMode2 :near 91 Global Synchronize :near 92 Global C0612r :near 93 Global C0645r :near 94 Global C061r :near 95 Global C062r :near 96 Global C064r :near 97 Global C065r :near 98 Global C030r :near 99 Global C020r :near 100 Global C030w :near 101 Global C020w :near 102 Global JoyButton1 :byte 103 Global JoyButton2 :byte 104 Global JoyStick :byte 105 Global synchro_push_ax :byte 106 Global DRAMSave :far 107 Global DRAMLoad :far 108 Emulate ends 109 110 Peripher segment public 111 Global SystemINIT :far 112 Global SystemTINI :far 113 Global SystemRESET :far 114 Global TimerINIT :far 115 Global TimerTINI :far 116 Global TimerReq :far 117 Global FlushBuffer :far 118 Global ReadTrack :far 119 Global FloppySave :far 120 Global FloppyLoad :far 121 Global TimerFlags :word 122 Global SectorImage :byte 123 Global SectorImageF :byte 124 Global CurrentDrive :byte 125 Global OtherDrive :byte 126 Global FLAGS :byte 127 Global BufferPTR :word 128 Global WriteCNT :word 129 Global WriteREG :byte 130 Peripher ends 131 132 Data segment stack 'stack' 133 Global C0XXRead :word 134 Global C0XXWrite :word 135 Global DRAM :byte 136 Global HGRadr :word 137 Global TEXTadr :word 138 Global TEXTchars :word 139 Global GRcolors :byte 140 Global HGRcolors :word 141 Global HGRmasks :word 142 Global HGRchars :word 143 Global HgrTextAdr :word 144 Global DACtable :byte 145 Global Bank1 :byte 146 Global Bank2 :byte 147 Data ends 148 149 Keyboard segment public 150 Global k_Table :word 151 Global k_Shifts :word 152 Global k_ScanCode :byte 153 Global k_AppleTable :word 154 Global k_DebugTable :word 155 Global k_KbdSetupTable :word 156 Global k_BufferFlag :byte 157 Global k_KeyPressed :byte 158 Global a_NormalTable :byte 159 Global a_CtrlTable :byte 160 Global a_ShiftTable :byte 161 Global a_CapsTable :byte 162 Global a_CpsShfTable :byte 163 Global a_AltTable :byte 164 Global K_KeyboardRet1 :byte 165 Global K_KeyboardRet2 :byte 166 Global K_KeyboardRet3 :byte 167 Global K_KeyboardRet4 :byte 168 Global K_SendCommand :far 169 Global K_SendData :far 170 Global K_GetData :far 171 Global SetLEDs :far 172 Global ClearBuffer :far 173 Global GetBuffer :far 174 Global k_int09 :far 175 Global get_table_ofs :far 176 Keyboard ends 177 178 SimKbd segment public 179 Global SimKbdRq :far 180 Global SimKbdClr :far 181 Global StartRecord :far 182 Global StopRecord :far 183 Global key_taken :far 184 SimKbd ends 185 186 TaskControl segment public 187 Global RETapple :far 188 Global TaskSwitch :far 189 Global CALLPowerOn :far 190 Global WaitInstrEnd :far 191 Global EnableTaskSwitch :byte 192 Global RetWhere? :byte 193 Global T_Iflags :byte 194 Global r_A :byte 195 Global r_X :byte 196 Global r_Y :byte 197 Global r_S :byte 198 Global r_P :byte 199 Global r_PC :word 200 TaskControl ends 201 202 CONio segment public 203 Global GL_Services :far 204 Global SIO_Services :far 205 Global ReadKey :far 206 Global AppleKeysOn :far 207 Global DebugKeysOn :far 208 Global ScreenSwapReq :far 209 Global GL_ParamsAdr :dword 210 Global GL_ParamsOfs :word 211 Global GL_ParamsSeg :word 212 Global SIO_ParamsAdr :dword 213 Global SIO_ParamsOfs :word 214 Global SIO_ParamsSeg :word 215 Global RK_ParamsAdr :dword 216 Global RK_ParamsOfs :word 217 Global RK_ParamsSeg :word 218 Global DKO_OldBuffFlag :byte 219 Global SwapFlag :byte 220 CONio ends 221 222 Debug segment public 223 Global DebugMainRet :far 224 Global DebugInInit :far 225 Global DebugOutInit :far 226 Global SetBreaks :far 227 Global UnsetBreaks :far 228 Global F1_or_Invalid? :byte 229 Debug ends 230 231 FM segment public 232 Global FM_MainRet :far 233 Global FMInInit :far 234 Global FMOutInit :far 235 Global FileIsLoaded :far 236 Global AddExt :far 237 Global ResetAppleII :far 238 FM ends 239 240 DM segment public 241 Global DM_MainRet :far 242 Global DMInInit :far 243 Global DMOutInit :far 244 Global OpenDiskFile :far 245 Global OpenDiskFile1 :far 246 Global OpenDiskFile2 :far 247 Global CloseDiskFile1 :far 248 Global CloseDiskFile2 :far 249 Global DMentry :far 250 DM ends 251 252 KBDsetup segment public 253 Global KBDsetupRET :far 254 Global KBDSetupInInit :far 255 Global KBDSetupOutInit :far 256 Global UpdateKeyboard :far 257 KBDsetup ends 258 259 About segment public 260 Global AboutMainRet :far 261 Global AboutInInit :far 262 Global AboutOutInit :far 263 About ends 264 265 Help segment public 266 Global HelpMainRet :far 267 Global HelpInInit :far 268 Global HelpOutInit :far 269 Help ends 270 271 Video segment at 0A000h use16 272 Video ends 273 274 ApplerVideo segment at 0B800h use16 275 ApplerVideo ends 276 277 User segment public 278 User ends 279 280 Apple segment public 281 Apple ends