home *** CD-ROM | disk | FTP | other *** search
/ Top-Magazin 1992 January / Top_Magazin_1992_01_Top_Crew_de_Side_B.atr / peek.i < prev    next >
Text File  |  2023-02-26  |  203b  |  1 lines
  1. FUNCTION PEEK(LOC:INTEGER):INTEGER;¢begin¢#A¢  LDY #5    ;LOC¢  LDA (SP),Y¢  STA T¢  INY¢  LDA (SP),Y¢  STA T+1   ;¢  LDY #0    ;PEEK¢  LDA (T),Y¢  LDY #3¢  STA (SP),Y¢  INY¢  LDA #0¢  STA (SP),Y¢#¢end;¢