Nov 5 01:44 2002 minbios.asm Page 1 1: ; -*-fundamental-*- 2: ; 3: ; Minami Aoyama BIOS for MAA-1 4: ; 5: 6: 0001 USEREP equ 1 7: 8: 9000 ORG 9000H 9: 10: 9000 C30F90 JP CSTART 11: 9003 C31D90 JP ENTRY 12: 13: 9006 L0: 14: 9006 A092 DEFW 92A0H 15: 9008 L1: 16: 9008 544F5941 DEFB 'TOYAMA',0 4D4100 17: 18: 900F CSTART: 19: 900F D5 PUSH DE 20: 9010 E5 PUSH HL 21: 9011 213E91 LD HL,ESCS0 22: 9014 CD3791 CALL STROUT 23: 9017 E1 POP HL 24: 9018 D1 POP DE 25: 9019 2A0690 LD HL,(L0) 26: 901C E9 JP (HL) 27: 28: 901D ENTRY: 29: 901D D5 PUSH DE 30: 901E E5 PUSH HL 31: 901F 05 DEC B 32: 9020 CA4290 JP Z,N0 33: 9023 05 DEC B 34: 9024 CA4B90 JP Z,N1 35: 9027 05 DEC B 36: 9028 CA5590 JP Z,N2 37: 902B 05 DEC B 38: 902C CAAF90 JP Z,N3 39: 902F 05 DEC B 40: 9030 CAE690 JP Z,N4 41: 9033 05 DEC B 42: 9034 CA0291 JP Z,N5 43: 9037 05 DEC B 44: 9038 CA1791 JP Z,N6 45: 903B 05 DEC B 46: 903C CA2C91 JP Z,N7 47: 903F FINISH: 48: 903F E1 POP HL 49: 9040 D1 POP DE 50: 9041 C9 RET 51: 52: 9042 N0: ; Warm Boot 53: 9042 215191 LD HL,ESCS1 54: 9045 CD3791 CALL STROUT 55: 9048 C30000 JP 0000H Nov 5 01:44 2002 minbios.asm Page 2 56: 57: 904B N1: ; Get Char 58: 904B D7 RST 2 59: 904C FE7F CP 7FH ; DEL 60: 904E 2002 JR NZ,N10 61: 9050 3E08 LD A,08H ; BS 62: 9052 N10: 63: 9052 C33F90 JP FINISH 64: 65: 9055 N2: ; 90A5 Put Char 66: 9055 F5 PUSH AF 67: 9056 FE80 CP 80H 68: 9058 3802 JR C,N2S 69: 905A 3E2E LD A,'.' 70: 905C N2S: 71: 905C DF RST 3 72: 905D F1 POP AF 73: 905E FE0D CP 0DH 74: 9060 2006 JR NZ,N20 75: 9062 AF XOR A 76: 9063 326191 LD (CURX),A 77: 9066 1844 JR N2E 78: 9068 N20: 79: 9068 FE0A CP 0AH 80: 906A 2830 JR Z,N2L 81: 906C FE07 CP 07H 82: 906E 283C JR Z,N2E 83: 9070 FE08 CP 08H 84: 9072 2009 JR NZ,N21 85: 9074 3A6191 LD A,(CURX) 86: 9077 3D DEC A 87: 9078 326191 LD (CURX),A 88: 907B 182F JR N2E 89: 907D N21: 90: 907D FE09 CP 09H 91: 907F 200C JR NZ,N22 92: 9081 3A6191 LD A,(CURX) 93: 9084 C608 ADD A,8 94: 9086 E6F8 AND 0F8H 95: 9088 326191 LD (CURX),A 96: 908B 181F JR N2E 97: 908D N22: 98: 908D 3A6191 LD A,(CURX) 99: 9090 3C INC A 100: 9091 326191 LD (CURX),A 101: 9094 FE50 CP 80 102: 9096 3814 JR C,N2E 103: 9098 AF XOR A 104: 9099 326191 LD (CURX),A 105: 909C N2L: 106: 909C 3A6291 LD A,(CURY) 107: 909F 3C INC A 108: 90A0 326291 LD (CURY),A 109: 90A3 FE18 CP 24 110: 90A5 3805 JR C,N2E 111: 90A7 3E18 LD A,24 Nov 5 01:44 2002 minbios.asm Page 3 112: 90A9 326291 LD (CURY),A 113: 90AC N2E: 114: 90AC C33F90 JP FINISH 115: 116: 90AF N3: ; Locate 117: 90AF 3E1B LD A,1BH 118: 90B1 DF RST 3 119: 90B2 3E5B LD A,'[' 120: 90B4 DF RST 3 121: 90B5 7B LD A,E 122: 90B6 326291 LD (CURY),A 123: 90B9 3C INC A 124: 90BA CDCE90 CALL DECOUT 125: 90BD 3E3B LD A,';' 126: 90BF DF RST 3 127: 90C0 7A LD A,D 128: 90C1 326191 LD (CURX),A 129: 90C4 3C INC A 130: 90C5 CDCE90 CALL DECOUT 131: 90C8 3E48 LD A,'H' 132: 90CA DF RST 3 133: 90CB C33F90 JP FINISH 134: 135: 90CE DECOUT: 136: 90CE C5 PUSH BC 137: 90CF 06FF LD B,-1 138: 90D1 DO0: 139: 90D1 04 INC B 140: 90D2 D60A SUB A,10 141: 90D4 30FB JR NC,DO0 142: 90D6 C60A ADD A,10 143: 90D8 4F LD C,A 144: 90D9 78 LD A,B 145: 90DA B7 OR A 146: 90DB 2803 JR Z,DO1 147: 90DD C630 ADD A,'0' 148: 90DF DF RST 3 149: 90E0 DO1: 150: 90E0 79 LD A,C 151: 90E1 C630 ADD A,'0' 152: 90E3 DF RST 3 153: 90E4 C1 POP BC 154: 90E5 C9 RET 155: 156: 90E6 N4: ; Color 157: 90E6 F5 PUSH AF 158: 90E7 3E1B LD A,1BH 159: 90E9 DF RST 3 160: 90EA 3E5B LD A,'[' 161: 90EC DF RST 3 162: 90ED 3E33 LD A,'3' 163: 90EF DF RST 3 164: 90F0 F1 POP AF 165: 90F1 215991 LD HL,COLTBL 166: 90F4 1600 LD D,0 167: 90F6 5F LD E,A Nov 5 01:44 2002 minbios.asm Page 4 168: 90F7 19 ADD HL,DE 169: 90F8 7E LD A,(HL) 170: 90F9 C630 ADD A,'0' 171: 90FB DF RST 3 172: 90FC 3E6D LD A,'m' 173: 90FE DF RST 3 174: 90FF C33F90 JP FINISH 175: 176: 9102 N5: ; Save 177: 9102 113BA9 LD DE,0A93BH 178: 9105 210008 LD HL,0800H 179: 9108 012C14 LD BC,142CH 180: 910B N50: 181: 910B 1A LD A,(DE) 182: 910C EF RST 5 183: 910D 13 INC DE 184: 910E 23 INC HL 185: 910F 0B DEC BC 186: 9110 78 LD A,B 187: 9111 B1 OR C 188: 9112 20F7 JR NZ,N50 189: 9114 C33F90 JP FINISH 190: 191: 9117 N6: ; Load 192: 9117 210008 LD HL,0800H 193: 911A 113BA9 LD DE,0A93BH 194: 911D 012C14 LD BC,142CH 195: 9120 N60: 196: 9120 E7 RST 4 197: 9121 12 LD (DE),A 198: 9122 23 INC HL 199: 9123 13 INC DE 200: 9124 0B DEC BC 201: 9125 78 LD A,B 202: 9126 B1 OR C 203: 9127 20F7 JR NZ,N60 204: 9129 C33F90 JP FINISH 205: 206: 912C N7: ; 9186 207: 912C E1 POP HL 208: 912D D1 POP DE 209: 912E 3A6191 LD A,(CURX) 210: 9131 57 LD D,A 211: 9132 3A6291 LD A,(CURY) 212: 9135 5F LD E,A 213: 9136 C9 RET 214: 215: 9137 STROUT: 216: 9137 7E LD A,(HL) 217: 9138 B7 OR A 218: 9139 C8 RET Z 219: 913A DF RST 3 220: 913B 23 INC HL 221: 913C 18F9 JR STROUT 222: 223: 913E 1B5B393B ESCS0: DEFB 1BH,'[9;25r',1BH,'[40;1m',1BH,'[2J',00H Nov 5 01:44 2002 minbios.asm Page 5 3235721B 5B34303B 316D1B5B 324A00 224: 225: 9151 1B5B306D ESCS1: DEFB 1BH,'[0m',1BH,'[r',00H 1B5B7200 226: 227: ; DEFB 1BH,'[r`,1BH,'[999;999H',1BH,'[6n',00H 228: 229: 9159 00040105 COLTBL: DEFB 0,4,1,5,2,6,3,7 02060307 230: 9161 00 CURX: DEFB 0 231: 9162 00 CURY: DEFB 0 232: 233: 9163 END Statistics: 32 symbols 355 bytes Symbol Table: coltbl 9159 escs0 913e n2 9055 n4 90e6 cstart 900f escs1 9151 n20 9068 n5 9102 curx 9161 finish 903f n21 907d n50 910b cury 9162 l0 9006 n22 908d n6 9117 decout 90ce l1 9008+ n2e 90ac n60 9120 do0 90d1 n0 9042 n2l 909c n7 912c do1 90e0 n1 904b n2s 905c strout 9137 entry 901d n10 9052 n3 90af userep = 1+