Código: Seleccionar todo
3398
3399 * POKE
3400 B757 8D DB POKE BSR LB734 EVALUATE 2 EXPRESSIONS
3401 B759 9E 2B LDX BINVAL GET THE ADDRESS TO BE 'POKE'ED
3402 B75B E7 84 STB ,X STORE THE DATA IN THAT ADDRESS
3403 B75D 39 RTS
Código: Seleccionar todo
3398
3399 * POKE
3400 B757 8D DB POKE BSR LB734 EVALUATE 2 EXPRESSIONS
3401 B759 9E 2B LDX BINVAL GET THE ADDRESS TO BE 'POKE'ED
3402 B75B E7 84 STB ,X STORE THE DATA IN THAT ADDRESS
3403 B75D 39 RTS
Código: Seleccionar todo
3393
3394 * PEEK
3395 B750 8D EE PEEK BSR LB740 CONVERT FPA0 TO INTEGER IN REGISTER X
3396 B752 E6 84 LDB ,X GET THE VALUE BEING 'PEEK'ED
3397 B754 7E B4 F3 JMP LB4F3 CONVERT ACCB INTO A FP NUMBER