📄 sdrv_init.s01
字号:
NAME sdrv_init(16)
RSEG BBC_IE(0)
RSEG UDATA0(0)
RSEG BBD_IE(0)
RSEG BBS_IE(0)
EXTERN AsciiFontLibAddr
PUBLIC AsciiFontName
EXTERN BufPage
EXTERN Drv_Entrance
EXTERN FontLibAddr
PUBLIC FontLibName
EXTERN Hdrv_HardInit
EXTERN SD_FClose
EXTERN SD_FOpen
PUBLIC Sdrv_Exit
PUBLIC Sdrv_Init
PUBLIC fp
PUBLIC test
EXTERN ?CLZ80L_4_04_L00
RSEG BBC_IE
Sdrv_Init:
; 1. /*
; 2. ********************************************************************************
; 3. * ACTOS
; 4. * UI Init function
; 5. *
; 6. * (c) Copyright 2002-2003, Actions Co,Ld.
; 7. * All Right Reserved
; 8. *
; 9. * File : UI_Init.msa
; 10. * By : Gongee
; 11. * Version: 1> v1.00 first version 10/17/2003 9:47PM
; 12. ********************************************************************************
; 13. */
; 14.
; 15. #include "display.h"
; 16. #include "Drv_S6B33B0A.h"
; 17.
; 18. //#define DEBUG
; 19. #ifdef DEBUG
; 20. #define ERR(x) x
; 21. #define MSG(x) x
; 22. #else
; 23. #define ERR(x)
; 24. #define MSG(x)
; 25. #endif
; 26.
; 27. char test;
; 28.
; 29. #pragma memory=dataseg(BBD_IE)
; 30. SD_FILE *fp;
; 31. //extern unsigned char BufPage;
; 32. #pragma memory=default
; 33.
; 34. #pragma memory=constseg(BBS_IE)
; 35. char AsciiFontName[] = "ASCII.BIN";
; 36. char FontLibName[] = "FONT_GB.$$$";
; 37. #pragma memory=default
; 38.
; 39. #pragma codeseg(BBC_IE)
; 40. bool Sdrv_Init(char mode)
; 41. {
PUSH BC
PUSH IY
PUSH IX
PUSH DE
PUSH AF
PUSH AF
; 42. test=0xff;
LD A,255
LD (test),A
; 43. fp = SD_FOpen(AsciiFontName,MODE_READ);
LD C,0
LD DE,AsciiFontName
CALL SD_FOpen
LD (fp),HL
; 44. if (fp == NULL)
LD A,L
OR H
JR Z,?0008
?0000:
; 45. {
; 46. ERR(printf("Cannot open Fontlib\n"));
; 47. return 0;
; 48. }
?0001:
; 49. AsciiFontLibAddr = fp->startaddr;
LD HL,12
LD BC,(fp)
ADD HL,BC
LD C,(HL)
INC HL
LD B,(HL)
INC HL
LD E,(HL)
INC HL
LD D,(HL)
LD (AsciiFontLibAddr),BC
LD (AsciiFontLibAddr+2),DE
; 50. SD_FClose(fp);
LD DE,(fp)
CALL SD_FClose
; 51.
; 52. fp = SD_FOpen(FontLibName,MODE_READ);
LD C,0
LD DE,FontLibName
CALL SD_FOpen
LD (fp),HL
; 53. if (fp == NULL)
LD A,L
OR H
JR NZ,?0003
?0002:
; 54. {
; 55. ERR(printf("Cannot open Fontlib\n"));
; 56. return 0;
?0008:
XOR A
; 57. }
JR ?0006
?0003:
; 58. FontLibAddr = fp->startaddr;
LD HL,12
LD BC,(fp)
ADD HL,BC
LD C,(HL)
INC HL
LD B,(HL)
INC HL
LD E,(HL)
INC HL
LD D,(HL)
LD (FontLibAddr),BC
LD (FontLibAddr+2),DE
; 59. SD_FClose(fp);
LD DE,(fp)
CALL SD_FClose
; 60.
; 61. BufPage=0x07; //Buffer默认位于Zram2
LD A,7
LD (BufPage),A
; 62.
; 63.
; 64. //安装驱动时必须重新初始化中断向量
; 65. {
; 66. char *i;
; 67. int *j;
; 68.
; 69. //********** 显示中断向量的赋值 ********
; 70. i = (char *)RSTDisplayAPI;
LD IX,32
; 71. *i = 0xc3;
LD (IX+0),195
; 72. i++;
; 73. j = (int *)i;
INC IX
PUSH IX
POP HL
; 74. *j = (int)&Drv_Entrance;
LD (HL),LOW(Drv_Entrance)
INC HL
LD (HL),HIGH(Drv_Entrance)
; 75. }
; 76. if(mode==0)
LD HL,4
ADD HL,SP
XOR A
OR (HL)
JR NZ,?0005
?0004:
; 77.
; 78. {
; 79. Hdrv_HardInit();
CALL Hdrv_HardInit
?0005:
; 80. }
; 81.
; 82. //ld a,0xc3 // jp 指令
; 83. //ld (RSTDisplayAPI),a
; 84. //ld hl,Drv_Entrance
; 85. //ld (RSTDisplayAPI+1),hl
; 86.
; 87. return 1;
LD A,1
; 88. }
?0006:
POP HL
POP HL
POP HL
POP IX
POP IY
POP BC
RET
Sdrv_Exit:
; 89.
; 90. void Sdrv_Exit(void)
; 91. {
; 92. return;
; 93. }
RET
RSEG UDATA0
test:
DEFS 1
RSEG BBD_IE
fp:
DEFS 2
RSEG BBS_IE
AsciiFontName:
DEFB 'ASCII.BIN'
DEFB 0
FontLibName:
DEFB 'FONT_GB.$$$'
DEFB 0
END
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -