-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathUBINI.ASM
1386 lines (1158 loc) · 23.7 KB
/
UBINI.ASM
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
;UBINI.ASM for IBM-AT & DOS/V
;
; ** Initialize Routine
; VERSION 9
; 1988-98 by Yuji KIDA
INCLUDE UBDEF.H
INCLUDE UB.H
DATA SEGMENT WORD PUBLIC
public initdata,environment,functionkey_sw
public machinetype,originalvideomode
EXTRN OUT_DEV:BYTE,blocksw:byte,stopflg:byte
EXTRN XPOS:BYTE,YPOS:BYTE,LNEND:WORD,directflg:byte
EXTRN EDITPTR:WORD,listtimer:word
extrn CONTADR:WORD,contcsp:word,errortrap:word
extrn BASE_SP:word,txtend:word
extrn varsegnow:word,limitseg:word,vramsegnow:word,vramsegover:word
extrn lvarlimit:word
extrn chars1:byte,chars2:word,charsall2:word
extrn linesdef:byte
extrn btmline:byte,maxlinesnow:byte,btmadr:word
extrn whitenow:byte
extrn emahandle:word
extrn PRSPC:near,NL:near
extrn MSG:near,MSG_CS:near
extrn COLDST:near,INILOOP:near,CHGOUT_INIT:near
extrn graphflg:byte
extrn fixedflag:byte
;
; ＵBASIC の ＷORKING AREA
;
machinetype dw _machinetype
environment dw ?
;function is displayed or not?
functionkey_sw db 1,0
;video mode
originalvideomode db ?,?
;the area from this address is needed only for initialization
;and will be used for the area for short variables
;must DIRECTBUF >= INITDATA
INITDATA LABEL BYTE
OPENMSG LABEL BYTE
UBASMSG DB ctrl_L,6 DUP (LF)
DB 20 dup(' ')
db versionmessage,cr,lf
DB LF,20 dup(' '),CR,LF
DB 20 dup(' ')
if JAPANESE
DB 'Copyright 1986-2000 by 木田 祐司',CR,LF,0
else
DB 'Copyright 1986-2000 by Yuji KIDA',CR,LF,0
endif
DATA ENDS
CODE SEGMENT WORD PUBLIC
ASSUME CS:CODE,DS:DATA
;PUBLIC LABELS
PUBLIC INIT,SYSTEM
public disp_functionkey,farDISP_FUNCTIONKEY
public clear_functionkey,farCLEAR_FUNCTIONKEY
PUBLIC PRNFNAMEBUF,LPTFNAMEBUF,OTHERFNAMEBUF,EXTFNAMEBUF
PUBLIC INPFNAMEBUF
PUBLIC SOURCELEN,SOURCEADR
PUBLIC COUNT3,COUNT2,COUNT1
PUBLIC BLKP2UNIT,BLKP2STEP3OFF,BLKP2STEP3SEG
PUBLIC BLKP2COUNT2,BLKP2STEP2OFF,BLKP2STEP2SEG
PUBLIC BLKP2COUNT1,COUNT23,COUNT22,COUNT21
PUBLIC BLKPDIM,BLKPSEG,BLKPUNIT
PUBLIC BLKPIND3,BLKPSTEP3
PUBLIC BLKPIND30,BLKPIND31,BLKPCOUNT3
PUBLIC BLKPSTEP3OFF,BLKPSTEP3SEG
PUBLIC BLKPIND2,BLKPSTEP2,BLKPIND20,BLKPIND21
PUBLIC BLKPCOUNT2,BLKPSTEP2OFF,BLKPSTEP2SEG
PUBLIC BLKPIND1,BLKPSTEP1,BLKPIND10,BLKPIND11
PUBLIC BLKPCOUNT1
public curs_form
PUBLIC CS_DATA,mainlp_memo
PUBLIC FORSP,FORSPEND,GOSUBSP,GOSUBSPEND
public vartbl,freezed_sp
PUBLIC SYSTEMERR,CALCSPERR
PUBLIC SYNERR,OVRERR,SPERR,LINERR,DISKERR,DISKFULL
PUBLIC TOOLONGLINE,NOLERR,toomanyvar,fullerr,DIVERR
PUBLIC cantdo,worderr,pointerr,ILGERR,INDEXERR,UNDEFERR
public emaerr
PUBLIC DBLDEF,TYPEERR,NOWHILE,NOWEND,NOUNTIL,NOREPEAT
PUBLIC NOFOR,NONEXT,NOGOSUB,NORETURN,NOFILE,AREAFULL
PUBLIC FUNCERR,CONTERR,NODATAERR,FORNEXTERR ;,MISMATCHERR
PUBLIC REOPENERR,OPENERR,NOTOPEN,ILGFILE,REVERSELINE
PUBLIC ENDOFFILE,ILGLET,NOPROG,workfull
PUBLIC PROTECTED,BIGPROG,ILGDATA,EXISTERR,USRERR,USRBIGERR
PUBLIC STACKFULL,STACKEMPTY,USRSTKERR
PUBLIC LABELFULL,DOUBLELABEL
PUBLIC CANNOTMELT,MELTERR,NOMARK,NOLOOP,BLOCKERR
PUBLIC LONGNAME,calcstkerr,passerr,blockbusy
public localerr,moderr,vmodeerr,floaterr,nooverload
public conditionerr
public brkmsg
;EXTERNAL LABELS
extrn hardcopy:far
EXTRN TROFFSUB:NEAR
extrn mainlp:near,break:near
EXTRN READY:NEAR,HOTST:NEAR,GETCOM:NEAR,GETCOMJP:NEAR
EXTRN farINITWP:far,resvar:near
EXTRN farDISPWORDSUB:far,CALC_CONSOLE:NEAR
extrn curs_norm:near,curson:near,cursoff:near
EXTRN BEEPSUB:NEAR,CLOSEALL:NEAR,closeredirect:near
EXTRN FREEIN:NEAR
extrn clear_screen:near,kanji1st?:near
extrn ?line:near,prntbx:near
extrn functionkeytbl:byte
extrn inmsg:byte
extrn farfunctionkeybox:far
if graph
extrn getfontserver:far
endif
BRKMSG DB 'Break',0
;* return to DOS
SYSTEM:
CALL CHGOUT_INIT
CALL CLOSEALL ;vlose all files
call closeredirect
call curs_norm
call curson
CALL CLEAR_FUNCTIONKEY
;restore interrupt vectors
mov ah,25h
mov al,5
lds dx,dword ptr cs:[int5off]
int 21h
mov ah,25h
mov al,1bh
lds dx,dword ptr cs:[int1boff]
int 21h
;graphic initialize
smov ds,ss
; cmp byte ptr [bp],0deh ;code of -
; je system100
mov ah,0fh
int 10h
cmp al,[originalvideomode]
je system100
xor ax,ax
mov al,[originalvideomode]
int 10h
system100:
mov dx,ss:[emahandle]
or dx,dx
jz system114
mov ah,45h ;close EMS
int 67h
system114:
mov ah,0dh ;reset disk
int 21h ;for flush disk buffer
MOV AX,4C00H
INT 21H
;top 3 words from mainlp
mainlp_memo dw ?,?,?
mainlp_break label word
mov ax,offset break
jmp ax
;
;* routine for INT 1BH
;
INTBREAK:
cli
cld
push ds
push es
push ax
push si
push di
mov ax,data
mov ds,ax ;to stop printer
mov [LNEND],0
cmp [stopflg],0
je intbreaknot
mov ax,cs
mov ds,ax
mov es,ax
mov si,offset mainlp_break
mov di,offset mainlp
movsw
movsw
movsw
intbreaknot:
pop di
pop si
pop ax
pop es
pop ds
iret
;
;* for INT24H
;
IONOTREADY:
cli
ADD SP,6
MOV BP,SP
OR BYTE PTR [BP+22],1 ;SET CARRY
POP AX
POP BX
POP CX
POP DX
POP SI
POP DI
POP BP
POP DS
POP ES
XOR AX,AX
IRET
;
;* COPY KEY INTERRUPT
;
hardcopyskip:
jmp dword ptr [int5off]
COPYKEY:
push ds
push ax
xor ax,ax
mov ds,ax
mov al,ds:[0417h]
test al,3 ;check shift
pop ax
pop ds
jz hardcopyskip
push ds
push es
if FLG32
pusha
else
push ax
push bx
push cx
push dx
push si
push di
push bp
endif
mov al,3
call far ptr hardcopy
if FLG32
popa
else
pop bp
pop di
pop si
pop dx
pop cx
pop bx
pop ax
endif
pop es
pop ds
iret
;****************
; SYSTEM CALL
;****************
;* error handling part 1
;for the error that CONT can be done
SYNERR:
MOV DX,OFFSET SYNMSG
db 8dh ;lea di,[]
DISKERR:
PROTECTED:
MOV DX,OFFSET DISKMSG
db 8dh ;lea di,[]
DISKFULL:
MOV DX,OFFSET DSKFULLMSG
db 8dh ;lea di,[]
CANNOTMELT:
MOV DX,OFFSET CANNOTMELTMSG
CMP BP,TXTHED
JB ERRINHOT ;if DIRECT MODE then goto HOT
JMP ERRIN
ERRINHOT:
cli
smov ds,ss
smov es,ss
MOV SP,ss:[base_sp]
sti
JMP ERRIN10
;* error handling part2
;for the error that CONT cannot be done
SYSTEMERR:
MOV DX,OFFSET SYSTEMERRMSG
db 8dh ;lea di,[]
OVRERR:
MOV DX,OFFSET OVRMSG
db 8dh ;lea di,[]
CALCSPERR:
MOV DX,OFFSET CALCSPMSG
db 8dh ;lea di,[]
SPERR:
MOV DX,OFFSET SPMSG
db 8dh ;lea di,[]
LINERR:
MOV DX,OFFSET LINMSG
db 8dh ;lea di,[]
TOOLONGLINE:
MOV DX,OFFSET LONGMSG
db 8dh ;lea di,[]
NOLERR:
MOV DX,OFFSET NOLMSG
db 8dh ;lea di,[]
toomanyvar:
mov dx,offset manyvarmsg
db 8dh ;lea di,[]
fullerr:
MOV DX,OFFSET FULMSG
db 8dh ;lea di,[]
DIVERR:
MOV DX,OFFSET DIVMSG
db 8dh ;lea di,[]
cantdo:
MOV DX,OFFSET CANNOTMSG
db 8dh ;lea di,[]
AREAFULL:
BIGPROG:
MOV DX,OFFSET BIGPROGMSG
db 8dh ;lea di,[]
ILGERR:
MOV DX,OFFSET ILGMSG
db 8dh ;lea di,[]
INDEXERR:
MOV DX,OFFSET INDMSG
db 8dh ;lea di,[]
UNDEFERR:
MOV DX,OFFSET UNDMSG
db 8dh ;lea di,[]
DBLDEF:
MOV DX,OFFSET DBLMSG
db 8dh ;lea di,[]
TYPEERR:
MOV DX,OFFSET TYPEMSG
db 8dh ;lea di,[]
NOWHILE:
NOWEND:
MOV DX,OFFSET WHILEMSG
db 8dh ;lea di,[]
NOREPEAT:
NOUNTIL:
MOV DX,OFFSET REPEATMSG
db 8dh ;lea di,[]
NOFOR:
NONEXT:
MOV DX,OFFSET FORMSG
db 8dh ;lea di,[]
NOGOSUB:
NORETURN:
MOV DX,OFFSET GOSUBMSG
db 8dh ;lea di,[]
NOFILE:
MOV DX,OFFSET NOFILEMSG
db 8dh ;lea di,[]
FUNCERR:
MOV DX,OFFSET FUNCERRMSG
db 8dh ;lea di,[]
CONTERR:
MOV DX,OFFSET CANNOTMSG
db 8dh ;lea di,[]
ENDOFFILE:
NODATAERR:
MOV DX,OFFSET NODATAMSG
db 8dh ;lea di,[]
FORNEXTERR:
MOV DX,OFFSET FORNEXTMSG
db 8dh ;lea di,[]
;MISMATCHERR:
; MOV DX,OFFSET MISMATCHMSG
; db 8dh ;lea di,[]
NOPROG:
MOV DX,OFFSET NOPROGMSG
db 8dh ;lea di,[]
ILGFILE:
MOV DX,OFFSET ILGFILEMSG
db 8dh ;lea di,[]
REOPENERR:
MOV DX,OFFSET REOPENMSG
db 8dh ;lea di,[]
OPENERR:
MOV DX,OFFSET OPENERRMSG
db 8dh ;lea di,[]
NOTOPEN:
MOV DX,OFFSET NOTOPENMSG
db 8dh ;lea di,[]
ILGLET:
MOV DX,OFFSET ILGLETMSG
db 8dh ;lea di,[]
ILGDATA:
MOV DX,OFFSET ILGDATAMSG
db 8dh ;lea di,[]
EXISTERR:
MOV DX,OFFSET EXISTERRMSG
db 8dh ;lea di,[]
USRERR:
MOV DX,OFFSET USRERRMSG
db 8dh ;lea di,[]
USRBIGERR:
MOV DX,OFFSET USRBIGMSG
db 8dh ;lea di,[]
STACKFULL:
MOV DX,OFFSET STACKFULLMSG
db 8dh ;lea di,[]
STACKEMPTY:
MOV DX,OFFSET STACKEMPTYMSG
db 8dh ;lea di,[]
USRSTKERR:
MOV DX,OFFSET USRSTKERRMSG
db 8dh ;lea di,[]
CALCSTKERR:
MOV DX,OFFSET CALCSTKERRMSG
db 8dh ;lea di,[]
LABELFULL:
MOV DX,OFFSET LABELFULLMSG
db 8dh ;lea di,[]
DOUBLELABEL:
MOV DX,OFFSET DOUBLELMSG
db 8dh ;lea di,[]
REVERSELINE:
MOV DX,OFFSET REVERSEMSG
db 8dh ;lea di,[]
MELTERR:
MOV DX,OFFSET MELTERRMSG
db 8dh ;lea di,[]
NOMARK:
MOV DX,OFFSET NOMARKMSG
db 8dh ;lea di,[]
NOLOOP:
MOV DX,OFFSET NOLOOPMSG
db 8dh ;lea di,[]
BLOCKERR:
MOV DX,OFFSET BLOCKMSG
db 8dh ;lea di,[]
LONGNAME:
MOV DX,OFFSET LONGNAMEMSG
db 8dh ;lea di,[]
PASSERR:
MOV DX,OFFSET PASSERRMSG
db 8dh ;lea di,[]
pointerr:
MOV DX,OFFSET pointerrmsg
db 8dh ;lea di,[]
worderr:
MOV DX,OFFSET worderrmsg
db 8dh ;lea di,[]
workfull:
MOV DX,OFFSET workfullmsg
db 8dh ;LEA DI,[]
blockbusy:
MOV DX,OFFSET blockbusymsg
db 8dh ;LEA DI,[]
localerr:
MOV DX,OFFSET localerrmsg
db 8dh ;LEA DI,[]
moderr:
MOV DX,OFFSET moderrmsg
db 8dh ;LEA DI,[]
emaerr:
MOV DX,OFFSET emafullmsg
db 8dh ;LEA DI,[]
vmodeerr:
MOV DX,OFFSET vmodeerrmsg
db 8dh ;LEA DI,[]
floaterr:
MOV DX,OFFSET floaterrmsg
db 8dh ;LEA DI,[]
nooverload:
MOV DX,OFFSET nooverloadmsg
db 8dh ;LEA DI,[]
conditionerr:
MOV DX,OFFSET conditionerrmsg
;* display error message
ERRIN:
cli
cld
MOV AX,DATA
MOV DS,AX
MOV ES,AX
MOV SS,AX
MOV SP,systemstackbtm
mov [base_sp],sp
MOV [CONTADR],0
mov [contcsp],limit
mov [blocksw],0
mov [fixedflag],0
sti
push [errortrap]
CALL INILOOP
pop [errortrap]
CALL CLOSEALL ;close all files
ERRIN10:
mov ah,0dh ;flush buffer
int 21h
MOV [OUT_DEV],1
cmp [directflg],0
jne errin15 ;direct mode
cmp [errortrap],0
jne errin20
errin15:
CALL NL
mov ax,code2
mov ds,ax
CALL MSG
smov ds,ss
; CALL BEEPSUB
;check mode
errin20:
cmp [errortrap],0
je errin30
cmp [directflg],0
jne errin30
errortrapping:
mov ax,[errortrap]
mov bp,ax
jmp mainlp
errin30:
mov dx,bp
cmp bp,txthed
jb directerr
cmp bp,[txtend]
jb runerr
;if DIRECT MODE then goto READY quickly
directerr:
CALL PRSPC
JMP GOHOTST
;if RUN MODE then display line number and goto READY
RUNERR:
MOV DX,OFFSET INMSG
CALL MSG_CS
CALL ?LINE
MOV [EDITPTR],DX
MOV BX,DX
CALL PRNTBX
CALL PRSPC
GOHOTST:
STI
CALL NL
JMP HOTST
CLEAR_FUNCTIONKEY:
push ds
push es
smov ds,ss
; cmp [functionkey_sw],0
; je clearfret
; mov [functionkey_sw],0
mov es,[vramsegnow]
mov cx,[chars2]
mov di,[charsall2]
sub di,cx ;adr of top of last line
shr cx,1
mov ax,white*100h
rep stosw
dispfunctionkeymain:
call setfkeylinesub
mov dl,ss:[xpos]
mov dh,ss:[ypos]
mov ah,2
int 10h ;set cursor position
clearfret:
pop es
pop ds
RET
farCLEAR_FUNCTIONKEY:
call clear_functionkey
retf
farDISP_FUNCTIONKEY:
call disp_functionkey
retf
DISP_FUNCTIONKEY:
; mov ss:[functionkey_sw],1
push ds
push es
smov ds,cs
mov si,offset FUNCTIONKEYTBL
mov es,ss:[vramsegnow]
mov cx,ss:[chars2]
mov di,ss:[charsall2]
sub di,cx ;top adr of last line
shr cx,1
push di
mov ax,white*100h
rep stosw
pop di
add di,6
call dispfkeysub
call dispfkeysub
call dispfkeysub
call dispfkeysub
add di,4
call dispfkeysub
call dispfkeysub
call dispfkeysub
call dispfkeysub
add di,4
call dispfkeysub
call dispfkeysub
cmp ss:[graphflg],0
je dispfunctionkeymain ;if text mode
call far ptr farfunctionkeybox ;if graphics mode
jmp dispfunctionkeymain ;next take xor by space
dispfkeysub:
mov ah,reversewhite
cmp ss:[graphflg],0
je dispfkeysub5
mov ah,ss:[whitenow]
or ah,80h
dispfkeysub5:
mov cx,6
dispfkeysub10:
lodsb
cmp al,' '
jae dispfkeysub20
mov al,' '
dispfkeysub20:
stosw
myloop dispfkeysub10
add di,2
add si,10
ret
setfkeylinesub:
mov ds,ss:[vramsegnow]
mov si,ss:[charsall2]
sub si,ss:[chars2]
xor bx,bx
mov dl,0
mov dh,ss:[linesdef]
dec dh
mov cx,word ptr ss:[chars1]
setfkeyline10:
push cx
mov ah,2
int 10h ;set cursor position
lodsw
mov bl,ah
mov cx,1
mov ah,9
int 10h
inc dl
pop cx
myloop setfkeyline10
ret
curs_form dw ?
;*
;* FOLLOWING DATA IN CS WILL BE SAVED BY FREEZE COMMAND
;*
EVEN
CS_DATA EQU THIS WORD
SOURCELEN DW ?
SOURCEADR DW ?
COUNT3 DW ?
COUNT2 DW ?
COUNT1 DW ?
BLKP2UNIT DW ?
BLKP2STEP3OFF DW ?
BLKP2STEP3SEG DW ?
BLKP2COUNT2 DW ?
BLKP2STEP2OFF DW ?
BLKP2STEP2SEG DW ?
BLKP2COUNT1 DW ?
COUNT23 DW ?
COUNT22 DW ?
COUNT21 DW ?
BLKPDIM DW ?
BLKPSEG DW ?
BLKPUNIT DW ?
BLKPIND3 DW ?
BLKPSTEP3 DW ?
BLKPIND30 DW ?
BLKPIND31 DW ?
BLKPCOUNT3 DW ?
BLKPSTEP3OFF DW ?
BLKPSTEP3SEG DW ?
BLKPIND2 DW ?
BLKPSTEP2 DW ?
BLKPIND20 DW ?
BLKPIND21 DW ?
BLKPCOUNT2 DW ?
BLKPSTEP2OFF DW ?
BLKPSTEP2SEG DW ?
BLKPIND1 DW ?
BLKPSTEP1 DW ?
BLKPIND10 DW ?
BLKPIND11 DW ?
BLKPCOUNT1 DW ?
freezed_sp dw ? ;SP when freezed
;interrupt vectors
int5off dw ?
int5seg dw ?
int1boff dw ?
int1bseg dw ?
;* VARIABLE TABLE
VARTBL DB VARALL*(NAMELEN+2)+2 DUP (0)
;* stack for FOR-NEXT
;structure
; 0000H word 変数型
; 0002H word 変数の番地
; 0004H word STEP
; 0006H word NEXT からの戻り番地
; 0008H dword 回数
EVEN
FORSP DW ?
DW FORUNITWORD*FORMAXLEVEL DUP(?)
FORSPEND LABEL WORD
;* stack for GOSUB
;structure
; 0000H return address
; 0002H usr stack pointer
; 0004H parameter table pointer
; 0006H USER function FLAG
; 0008H LOCAL array base SEGMENT
; 000AH (DWORD)EMA base address
; 000EH point
; 0010H FOR stack pointer
GOSUBSP DW ?
DW GOSUBUNITWORD*GOSUBMAXLEVEL DUP(?)
GOSUBSPEND LABEL WORD
PRNFNAMEBUF DB fnamelen DUP(0)
LPTFNAMEBUF DB fnamelen DUP(0)
INPFNAMEBUF DB fnamelen DUP(0)
OTHERFNAMEBUF DB fnamelen*(MAXFILE+1) DUP(0)
EXTFNAMEBUF DB fnamelen*3 DUP(0)
ifdef FLGEMA
if FLG32
else
EMAFNAMEBUF DB fnamelen DUP(0)
endif
endif
;☆LABEL TABLE
public LABEL_TABLE
LABEL_TABLE:
;* opening
INIT:
;check Japanese mode?
comment %
Cut this check vecause J3100 willl stop here
push ds
mov ax,6300h
int 21h
mov ax,[si]
pop ds
or al,ah
jnz yesjapanese
mov ax,cs
mov ds,ax
mov dx,offset nonjapanesemsg
mov ah,9
int 21h
mov ax,4c01h
int 21h
nonjapanesemsg db 'This mode is not supported. Change to Japanese mode.',cr,lf,'$'
%
yesjapanese:
;check CPU>=386?
if FLG32
pushf
pop ax
pushf
or ax,4000h
push ax
popf
pushf
pop ax
popf
and ax,0c000h
cmp ax,4000h
je yes386
mov ax,cs
mov ds,ax
mov dx,offset badcpumsg
mov ah,9
int 21h
mov ax,4c01h
int 21h
if JAPANESE
badcpumsg db 'この UBasic は 80386 専用です。',cr,lf,'$'
else
badcpumsg db 'This UBasic is for 32 bits CPU only.',cr,lf,'$'
endif
yes386:
endif
cli
cld
MOV AX,DATA
MOV ES,AX
mov di,systemstacktop
mov cx,systemstackbtm-systemstacktop
shr cx,1
mov ax,2671h
rep stosw
MOV AX,DATA
MOV SS,AX
MOV SP,systemstackbtm
sti
;get environment segment
mov si,2ch
mov ax,[si]
mov ss:[environment],ax
;get OPTION
MOV DI,LNUMBS
XOR AX,AX
MOV SI,80H
LODSB
INC AL ;includes CR
STOSW
push ax
push si
mov cx,ax
getoption10:
lodsb
cmp al,'.'
je getoption50 ;yes file name
cmp al,'"'
je getoption100 ;not file name
call kanji1st?
jnc getoption20
lodsb
dec cx
jz getoption100
getoption20:
myloop getoption10
jmp getoption100
getoption50:
lodsw
or ax,2020h
cmp ax,'bu'
jne getoption100
mov di,lnumbs
add word ptr es:[di],4 ;for [run"]
mov di,inpbuf
mov ax,'ur'
stosw
mov ax,'"n'
stosw
getoption100:
pop si
pop cx
rep movsb
smov ds,ss
; get display mode