{"id":635,"date":"2021-09-20T13:08:32","date_gmt":"2021-09-20T11:08:32","guid":{"rendered":"https:\/\/automatico.freevar.com\/?page_id=635"},"modified":"2021-09-28T11:51:22","modified_gmt":"2021-09-28T09:51:22","slug":"bbcbasic-z80-mbc2","status":"publish","type":"page","link":"https:\/\/automatico.freevar.com\/index.php\/cp-m-80-2\/bbc-basic\/bbcbasic-z80-mbc2\/","title":{"rendered":"BBCBasic – Z80-MBC2"},"content":{"rendered":"

Here you can see the adaptation <\/span>of the test program for the RTC of the z80-MBC2 mother board in BBCBasic. <\/span>The data from the RTC is obtained through the MCP23017 GPIO.\u00a0<\/span><\/p>\n

\r\n10 CLS\r\n20 REM PUT 1, numero -> accende la periferica numero\r\n30 REM PUT 0, 1 ON\r\n40 REM PUT 0, 0 OFF\r\n50 REM if GET(0)=1 high input\r\n60 REM if GET(0)=0 low input\r\n70 PUT 1,132\r\n80 SECONDO=GET(0)\r\n90 MINUTO=GET(0)\r\n100 HORA=GET(0)\r\n110 GIORNO=GET(0)\r\n120 MESE=GET(0)\r\n130 ANNO=GET(0)\r\n140 TEMP=GET(0)\r\n160 ANNO = ANNO + 2000\r\n170 SECONDO$ = STR$(SECONDO): SECONDO$ = RIGHT$("00"+RIGHT$(SECONDO$,LEN(SECONDO$)),2)\r\n180 MINUTO$ = STR$(MINUTO): MINUTO$ = RIGHT$("00"+RIGHT$(MINUTO$,LEN(MINUTO$)),2)\r\n190 HORA$ = STR$(HORA): HORA$ = RIGHT$("00"+RIGHT$(HORA$,LEN(HORA$)),2)\r\n200 GIORNO$ = STR$(GIORNO): GIORNO$ = RIGHT$("00" + RIGHT$(GIORNO$, LEN(GIORNO$)), 2)\r\n210 MESE$ = STR$(MESE): MESE$ = RIGHT$("00" + RIGHT$(MESE$, LEN(MESE$)), 2 )\r\n220 ANNO$ = STR$(ANNO): ANNO$ = RIGHT$("0000" + RIGHT$(ANNO$, LEN(ANNO$)), 4)\r\n230 PRINT CHR$(27);"[0;0H";GIORNO$;"\/";MESE$;"\/";ANNO$;" ";HORA$;":"; MINUTO$;":";SECONDO$\r\n240 PRINT TEMP;"C"\r\n250 PUT 1,128\r\n260 IF GET(0) = 1 THEN END\r\n270 GOTO 70\r\n<\/pre>\n
For an explanation of RTC I \/ O see at<\/span><\/p>\n
 https:\/\/automatico.freevar.com\/index.php\/z80-mbc2\/mcp-23017-gpio\/<\/a><\/span><\/p>\n
<\/div>\n
<\/path><\/svg><\/i> \"Loading\"<\/p>\n
<\/div>\n","protected":false},"excerpt":{"rendered":"
Here you can see the adaptation of the test program for the RTC of the z80-MBC2 mother board in BBCBasic. The data from the RTC is obtained through the MCP23017 GPIO.\u00a0 10 CLS 20 REM PUT 1, numero -> accende la periferica numero 30 REM PUT 0, 1 ON 40 REM PUT 0, 0 OFF […]<\/p>\n
<\/div>\n
<\/path><\/svg><\/i> \"Loading\"<\/p>\n
<\/div>\n","protected":false},"author":1,"featured_media":0,"parent":605,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"footnotes":""},"class_list":["post-635","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"https:\/\/automatico.freevar.com\/index.php\/wp-json\/wp\/v2\/pages\/635"}],"collection":[{"href":"https:\/\/automatico.freevar.com\/index.php\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/automatico.freevar.com\/index.php\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/automatico.freevar.com\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/automatico.freevar.com\/index.php\/wp-json\/wp\/v2\/comments?post=635"}],"version-history":[{"count":9,"href":"https:\/\/automatico.freevar.com\/index.php\/wp-json\/wp\/v2\/pages\/635\/revisions"}],"predecessor-version":[{"id":751,"href":"https:\/\/automatico.freevar.com\/index.php\/wp-json\/wp\/v2\/pages\/635\/revisions\/751"}],"up":[{"embeddable":true,"href":"https:\/\/automatico.freevar.com\/index.php\/wp-json\/wp\/v2\/pages\/605"}],"wp:attachment":[{"href":"https:\/\/automatico.freevar.com\/index.php\/wp-json\/wp\/v2\/media?parent=635"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}