www.cavefischer.at/Sharp Pocket Computer

Dec ─> Bin Converter für SHARP PC-1401 / PC-1402 / EL-5500 / EL-5500II


(Verwendung der ROM Routine für WAIT)

DEC ─> BIN
 ENTER 
Z (max. 65535) ─> B$+I$+N$

5:REM DEZ - BIN UMWANDLUNG MIT WAIT
10:RESTORE 200
20:FOR X=0 TO 79
30:READ A
40:POKE &4300+X,A
50:NEXT X
 100:"A"
110:INPUT "ZAHL:";Z
120:WAIT Z
130:CALL &4300
140:WAIT
150:PRINT B$+I$+N$
160:GOTO 110
 200:DATA 128,0,28,16,&43,&E3,25
210:DATA 16,&46,&E6,140,2,1,52,2,7,52
220:DATA 87,209,90,218,35,90
230:DATA 102,1,40,6,2,48,219,44,4,2,49,219,80,218
240:DATA 47,20,17,&E5,47,28
250:DATA 2,245,17,&90,82,17,&58,82,17,&30,82
260:DATA 0,1,140,17,&91,25,17,&93,35,82
270:DATA 0,6,17,&59,25,17,&31,25
280:DATA 128,0,28,16,&42,&E3,24,55

 Verwendete Systemadressen:
&46E518149Lo-Byte WAIT Intervall 
&46E618150Hi-Byte WAIT IntervallWAIT=256*[&46E6]+[&46E5]
&4690180641. Byte Variable B$245=Kennung für Textvariable
&4691-&469218065-18066Inhalt Variable B$2 Zeichen
&4693180674. Byte Variable B$0=Endkennung
&4658180081. Byte Variable I$245=Kennung für Textvariable
&4659-&465F18009-18015Inhalt Variable I$7 Zeichen
&4630179681. Byte Variable N$245=Kennung für Textvariable
&4631-&463717969-17975Inhalt Variable N$7 Zeichen

&4300:LP00      
&4301:LII28     
&4303:LIDP&42E3     
&4306:EXWD      
&4307:LIDP&46E6     
&430A:LP12      
&430B:LIA1     
&430D:PUSH      
&430E:LIA7<───┐
&4310:PUSH     │
&4311:LDD     │
&4312:RC <──┐│
&4313:SL    ││
&4314:EXAB    ││
&4315:RA    ││
&4316:SL    ││
&4317:TSIA1   ││
&4319:JRNZP6──┐││
&431B:LIA48  │││
&431D:EXAM   │││
&431E:JRP4─┐│││
&4320:LIA49<┼┘││
&4322:EXAM  │ ││
&4323:INCP <┘ ││
&4324:EXAB    ││
&4325:LOOP20───┘│
&4327:LIDL&E5    │
&4329:LOOP28────┘
&432B:LIA245     
&432D:LIDL&90     
&432F:STD      
&4330:LIDL&58     
&4332:STD      
&4333:LIDL&30     
&4335:STD      
&4336:LII1     
&4338:LP12      
&4339:LIDL&91     
&433B:EXWD      
&433C:LIDL&93     
&433E:RA      
&433F:STD      
&4340:LII6     
&4342:LIDL&59     
&4344:EXWD      
&4345:LIDL&31     
&4347:EXWD      
&4348:LP00      
&4349:LII28     
&434B:LIDP&42E3     
&434E:MVWD      
&434F:RTN      


© 2014: Walter Fischer