Apple IIe (AppleWin) 에서 정수베이식 프로그램 실행

예전 AppleTrek 을 실행할 때는 방법을 알았었는데 다 잊어버렸기에 정리함.

일단 INTBASIC 바이너리를 로드해야 하는데 BRUN 으로 실행이 아닌 적절한 위치에 로드해야 함. 이후 INTBASIC 프로그램을 로드 또는 실행

예)

BLOAD INTBASIC,A$D000

A = PEEK(-16254): REM WRITE PROTECT THE CARD

PRINT CHR$(4); "RUN APPLE.TREK"

그런데 LANGUAGE CARD 가 없는 경우는 실행이 안되기에 체크 루틴을 거치면 안전. 이를 하나의 HELLO 프로그램으로 만든 경우가 AppleTrek 에 들어 있다.

]LIST

10  REM   -- DOS 3.3 HELLO

20  REM  

30  TEXT : PRINT 

40  HOME 

70  REM  

80  REM  --POKE LANGUAGE CARD FIN

     DER

90  POKE 768,0: POKE 769,173: POKE 

     770,0: POKE 771,224: POKE 77

     2,72: POKE 773,173: POKE 774

     ,129: POKE 775,192: POKE 776

     ,104:

95  POKE 777,72: POKE 778,205: POKE 

     779,0: POKE 780,224: POKE 78

     1,208: POKE 782,35: POKE 783

     ,173: POKE 784,131: POKE 785

     ,192:

100  POKE 786,173: POKE 787,131: POKE 

     788,192: POKE 789,169: POKE 

     790,165: POKE 791,141: POKE 

     792,0: POKE 793,208: POKE 79

     4,205:

105  POKE 795,0: POKE 796,208: POKE 

     797,208: POKE 798,19: POKE 7

     99,74: POKE 800,141: POKE 80

     1,0: POKE 802,208: POKE 803,

     205:

110  POKE 804,0: POKE 805,208: POKE 

     806,208: POKE 807,10: POKE 8

     08,173: POKE 809,129: POKE 8

     10,192: POKE 811,173: POKE 8

     12,129:

115  POKE 813,192: POKE 814,169: POKE 

     815,1: POKE 816,208: POKE 81

     7,2: POKE 818,169: POKE 819,

     0: POKE 820,141: POKE 821,0:

     

120  POKE 822,3: POKE 823,104: POKE 

     824,205: POKE 825,0: POKE 82

     6,224: POKE 827,240: POKE 82

     8,3: POKE 829,173: POKE 830,

     128:

125  POKE 831,192: POKE 832,96:

155  CALL 769

160  IF  PEEK (768) <  > 1 THEN 2

     50

170  REM  

180  REM --IF THERE, LOAD INTG AN

     D PA#1

190  REM  

200  VTAB 10: PRINT "(LOADING INT

     EGER INTO LANGUAGE CARD)"

210  PRINT "BLOAD INTBASIC,A$D000

     "

220  REM  --WRITE PROTECT THE CAR

     D

230 A =  PEEK ( - 16254): REM   $

     C082

235  PRINT  CHR$ (4);"RUN APPLE.T

     REK"

240  END 

250  REM 

260  REM --NO CARD OR CAN'T RELOA

     D

270  REM 

280  IF  PEEK (768) = 0 THEN  END 

     

290  PRINT : PRINT "...LANGUAGE C

     ARD CANNOT BE RELOADED": PRINT 

     "   UNTIL THE SYSTEM IS REBO

     OTED..."

300  END