Skip to content

Instantly share code, notes, and snippets.

@YuuichiAkagawa
Created February 12, 2021 11:11
Show Gist options
  • Save YuuichiAkagawa/7827464a2ee423cd337e13807bb96ad3 to your computer and use it in GitHub Desktop.
Save YuuichiAkagawa/7827464a2ee423cd337e13807bb96ad3 to your computer and use it in GitHub Desktop.
PC-E500初期設定用
10 AUTOGOTO N+110
20 GOTO 110
80 *ADD:Q=PEEK (P+&2)*&10000+PEEK (P+&1)*&100+PEEK P:RETURN
110 CLS :PRINT "****** マシンゴエリア ノ カクホ ******":N=100
120 MA=&FC
130 POKE &BFE03,&1A,&FD,&B,&0,&0,&2:CALL &FFFD8
210 CLS :PRINT "****** IOCSワ-ク ノ カクホ ******":N=&C8
220 PRINT "キ-ボ-ド バッファ = &100"
230 SI=8
240 P=&BFD1A:GOSUB *ADD:A1=Q
250 P=&BFD17:GOSUB *ADD:A2=Q
260 A=A1-A2:A=A+SI*&200+&100
270 B=A-INT (A/&100)*&100:D=(A-B)/&100
280 C=D-INT (D/&100)*&100:D=(D-C)/&100
290 POKE &BFE03,&17,&FD,&B,B,C,D:CALL &FFFD8
310 CLS :PRINT "**** SIO,KYBD バッファノ カクチョウ ****":N=&12C
320 P=&BFD17:GOSUB *ADD
330 POKE Q+&2C,PEEK (Q+&2C)+(SI*&2)+&1
340 POKE Q+&29,PEEK (Q+&29)+(SI*&2)+&1
350 POKE Q+&26,PEEK (Q+&26)+(SI*&2)+&1
360 POKE Q+&1D,PEEK (Q+&1D)+(SI*&2)
370 POKE Q+&17,PEEK (Q+&17)+&1
380 POKE Q+&1E,&00,SI
390 P=&FFFFD:GOSUB *ADD:CALL Q
410 KEY 10,"INIT"+CHR$ &22+"DOS:"+CHR$ &D
420 KEY 9,"INIT"+CHR$ &22+"HMF:"+CHR$ &D
430 POKE &BFD36,&EF,4,0,3
440 OPEN "9600,N,8,1,A,L,&H1A,N,S":CLOSE
450 POKE &BFD33,&78
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment